Search options (Page 358 of 400)

procedure Form1_btBackup_OnClick (Sender: string; var Cancel: boolean);
begin
          if 7 = MessageDlg('Create / Update the SqLiteDB? Best choice is every day on the end of the shift back it up.', mtConfirmation, mbYes + mbNo, 0) then
          begin
                Cancel := True;  // I think it is not necessary
                CopyFile('sqlite.db', 'Backup\sqlite.db'); // Application path
                //CopyFile('sqlite.db', 'I:\TP2014\Backup\sqlite.db'); // Reserve path
                //P:\C\CF\CF3\TEST GA en MB\TP2014\Backup\sqlite.db  // Backup path workplace
          end;
end;

procedure Form1_OnShow (Sender: string; Action: string);
var
   reg: TRegistry;
   iDays: integer;
begin
     reg := TRegistry.Create;
     reg.Access := KEY_ALL_ACCESS;
     reg.RootKey := HKEY_CURRENT_USER;
     reg.OpenKey('software\MyVisualDatabaseTrial',true);
     if not reg.ValueExists('StartDate') then reg.WriteDate('StartDate', Now+10); // trial period is 10 days

     iDays := Trunc(reg.ReadDate('StartDate')) - Trunc(Now); // time left days

     reg.CloseKey;
     reg.Free;

     if iDays < 1 then
     begin
          ShowMessage('Trial period is over.');
          Form1.Close;
     end;

     ShowMessage('Demo version. Time left: ' + IntToStr(iDays));
end;

function CheckDublicate (Action, sTable, sField, sValue: string; id: integer;): boolean;
var
   s: string;
begin
     result := False;
     if Action = 'NewRecord' then
     begin
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE '+sField+' LIKE "' + sValue + '"');
          if StrToInt(s) > 0 then result := True;
     end;

     if Action = 'ShowRecord' then
     begin
          s := SQLExecute ('SELECT Count(*) FROM '+sTable+' WHERE ('+sField+' LIKE "' + sValue + '") AND (id <> '+ IntToStr(id) +')');
          if StrToInt(s) > 0 then result := True;
     end;
end;


// Event OnClick of button for save record
procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
     if CheckDublicate(frmEmployee.dbAction, 'employees', 'lastname', frmEmployee.edLastName.Text, frmEmployee.ButtonSave.dbGeneralTableId) AND
        CheckDublicate(frmEmployee.dbAction, 'employees', 'firstname', frmEmployee.edFistName.Text, frmEmployee.ButtonSave.dbGeneralTableId) then
     begin
          ShowMessage('Person already exists.');
          Cancel := True;
     end;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
   CopyFile('sqlite.db', 'Backup\sqlite.db');
end;

Form1.TableGrid1.SelectedRow := 0;

SELECT
lastname
,firstname
,strftime('%d.%m.%Y', dateofbirth)
,id

FROM employees

WHERE strftime('%m', dateofbirth) = strftime('%m', {DateTimePickerM})

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     SQLExecute('INSERT INTO table1 (data1, data2) VALUES ("' + Form1.edData11.Text + '","' + Form1.edData21.Text + '")');
     SQLExecute('INSERT INTO table1 (data1, data2) VALUES ("' + Form1.edData12.Text + '","' + Form1.edData22.Text + '")');
     SQLExecute('INSERT INTO table1 (data1, data2) VALUES ("' + Form1.edData13.Text + '","' + Form1.edData23.Text + '")');
     Form1.TableGrid1.dbUpdate;
end;

procedure Form1_Button1_OnAfterClick (Sender: string);
begin
     Form1.Edit1.Clear;                                             
end;