Topic: Condition "IF" with SQL Query
In the action of clicking the "frmAddUser_btn_save" button, I declare some variables that auto followed assume their value of some objects of the "frmAddUser" form, others of an SQL query and other variables predefined in other methods.
A condition that has no complexity is also executed. The problem is the following:
When the variable "name_userVar" has value, everything works fine, when it is variable it has no value I skip the message I define but execute the SQL query that is inside the ELSE as well. This is what I do not want, I should not execute the SQL query.
var
addtipoVarUS, passChangeVar : String;
procedure frmAddUser_btn_save_OnClick (Sender: TObject; var Cancel: boolean);
var
userVar, nombre_userVar, readVar, writeVar, removeVar, searchVar, exportVar, printVar, dataVar, administratorVar, tipoVar : String;
fechaVar, tiempoVar : Extended;
begin
writeVar := BoolToStr(frmAddUser.chbCreate.Checked);
readVar := BoolToStr(frmAddUser.chbRead.Checked);
removeVar := BoolToStr(frmAddUser.chbDelete.Checked);
searchVar := BoolToStr(frmAddUser.chbSearch.Checked);
exportVar := BoolToStr(frmAddUser.chbExport.Checked);
printVar := BoolToStr(frmAddUser.chbPrint.Checked);
dataVar := BoolToStr(frmAddUser.chbDatas.Checked);
administratorVar := BoolToStr(frmAddUser.chbAdmin.Checked);
userVar := SQLExecute('SELECT id FROM users WHERE (login = ''' + sUser + ''');');
nombre_userVar := frmAddUser.edLogin.Text;
tipoVar := addtipoVarUS;
fechaVar := Now;
tiempoVar := Time;
if nombre_userVar = '' then
begin
ShowMessage('The "User" field can not be blank!!!');
end else
begin
SQLExecute('INSERT INTO registros_user'+
'(nombre_usuario, fecha, tiempo, tipo_registro, read, write, remove, search, export, print, data, administrator, pass, id_users) '+
'VALUES("'+nombre_userVar+'","'+DateToStr(fechaVar)+'","'+TimeToStr(tiempoVar)+'","'+tipoVar+'","'+readVar+'","'+writeVar+'","'+removeVar+'","'+searchVar+'","'+exportVar+'","'+printVar+'","'+dataVar+'","'+administratorVar+'","'+passChangeVar+'","'+userVar+'")');
UpdateDatabase('registros');
UpdateDatabase('registros_user');
end;
end;
Any idea of the problem ...