Search options (Page 343 of 400)

Form1.TableGrid1.dbPopupMenu.Items.Items[0].Enabled := False;

var
   Timer: TTimer;
   iSeconds: integer;
//========= При входе =======================================
procedure frmChoice_OnShow (Sender: string; Action: string);
begin
     CopyFile('sqlite.db', 'backup/backup '+ FormatDateTime('dd-mm-yyyy', now)+'.db'); // запись резервного файла БД при входе
     Timer := TTimer.Create (frmChoice);
     Timer.Interval := 1000;
     Timer.Enabled := True;
     Timer.OnTimer := @OnTimer;
     frmChoice.user.Caption:=sUser; // запись логина в EditBox "user" на форме frmChoice
     frmChoice.cbUser.Text:=sUser; // запись логина в ComboBox на frmChoice
     frmAddEntry.TimeEntry.DateTime := now;  // определение текущего времени
     frmAddEntry.login.Text:=sUser; // запись логина в EditBox на frmAddWork
     frmAddEntry.GetUserName.Text:=GetUserName; // запись имени пользователя в EditBox на frmAddWork
     frmAddEntry.Button1.dbDoCloseForm := False; // отменяет закрытие окна при сохранении
     frmAddEntry.Button1.dbDontResetID := True; // так надо )

end;
//========== При выходе =======================================
procedure frmChoice_OnClose (Sender: string; Action: string);
begin
     CopyFile('sqlite.db', 'backup/backup '+ FormatDateTime('dd-mm-yyyy', now)+'.db');  // запись резервного файла БД при выходе
     Timer.Free;
     frmAddExit.login.Text:=sUser; // запись логина в EditBox на frmAddExit
     frmAddExit.GetUserName.Text:=GetUserName; // запись имени пользователя в EditBox на frmAddExit
     frmAddEntry.timeExit.DateTime := now;  // определение текущего времени
     frmAddEntry.Button1.Click; // кнопка Button1 автоматически нажимается при выходе из frmChoice
     frmLogin.Close;
end;