Search options (Page 2 of 4)

Hello again, is there a way to do this?
1- I want to cancel the insertion of a data to the database if it already exists (eg the identification number of the person, ID), that is, when I click on a save button if the data exists, I get a message  and do not insert this data because it is repeated.

I am using 6.5 version

Hi everyone, How could I make a form refresh certain data every x seconds?  The situation is the following.  I have a dashboard (frm_dashboard) where I show important data and graphs, but I don't know how to refresh it automatically.  This could be done with a time object but there is not one here, how could it be implemented through code?

THANKS, WEN

I have a SQL statement on a calculated field that has a CASE of SELECT and I just can't get it right.  Let me explain better, I have a list of services that have a date range (start and end) I have a calculated field that if the current date is greater than the end date of the service then it takes the value (text) of "finished", if  is less then it takes the value of "In progress".  Could you help me with an example?

Hello everyone.
Any idea how to make the objects in the form have a relative position depending on the size of the window.

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 ...