Search options (Page 208 of 400)

if frmEmployee.CheckBox1.Checked then Form1.Edit1.Color := clRed
             else Form1.Edit1.Color := clGreen;

if frmEmployee.CheckBox2.Checked then Form1.Edit2.Color := clRed
             else Form1.Edit2.Color := clGreen;

if frmEmployee.CheckBox3.Checked then Form1.Edit3.Color := clRed
             else Form1.Edit3.Color := clGreen;

procedure Form2_Edit6_OnChange (Sender: string);       //расчёт прибыли в пунктах
begin                                              
    CalculateTotal;        
    Form1_Edit4_OnChange(");                         
end; 

Form1_Edit4_OnChange('');

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

FROM employees

WHERE

CASE WHEN {DateTimePicker1} IS NOT NULL THEN strftime('%Y', employees.dateofbirth) = strftime('%Y', {DateTimePicker1}) ELSE 1=1 END

procedure frmEmployee_OnShow (Sender: string; Action: string);
begin
        frmEmployee.Edit1.Text := FormatDateTime('ddmmyyyyhhnnss', now);
end;

if CheckDublicates(Form2.dbAction, 'base', sFields, sValues, Form2.Button8.dbGeneralTableId) then
begin
    if MessageDlg('Мое сообщение', mtInformation, mbYes+mbNo, 0) = mrYes then
    begin
        Form2.Button9.Click;                                     //Button9=удалить  запись
        Form2.Button10.Click;                                   //очищает данные в Editах...
        Form2.CheckBox7.Checked := False;        //.панель статистики НЕ ВИДИМА!
        Cancel := True;
    end else
    begin
        Form2.CheckBox7.Checked := True;
        Cancel := True;
    end;
end else
begin
    Form2.Button1.Click;
end;