Search options (Page 220 of 400)

procedure frmAbonent_OnShow (Sender: string; Action: string);
begin
    if frmAbonent.DateTimePicker1.Checked then frmAbonent.DateTimePicker1.Format := ''
    else frmAbonent.DateTimePicker1.Format := ' ';
end;

procedure frmAbonent_DateTimePicker1_OnChange (Sender: string);
begin
    if frmAbonent.DateTimePicker1.Checked then frmAbonent.DateTimePicker1.Format := ''
    else frmAbonent.DateTimePicker1.Format := ' ';
end;

procedure Calculate_TCE;
begin
    if (frmVoyage.cbVoyBegins.Checked) and (frmVoyage.cbVoyEnds.Checked) and (frmVoyage.cbVoyEndsTime.Checked) and (frmVoyage.cbVoyBeginsTime.Checked) then
    begin
        if frmVoyage.eddurat.Value <> 0 then
            frmVoyage.edtce1.Value := frmVoyage.edRent.Value / frmVoyage.eddurat.Value;
    end;

end;

procedure Calculate_TCE2;
begin
    if (frmVoyage.cbVoyBegins.Checked) and (frmVoyage.cbVoyEnds.Checked) and (frmVoyage.cbVoyEndsTime.Checked) and (frmVoyage.cbVoyBeginsTime.Checked) then
    begin
        if (frmVoyage.eddurat.Value - frmVoyage.edlost.Value) <> 0 then
            frmVoyage.edtce2.Value := frmVoyage.edRent.Value / (frmVoyage.eddurat.Value - frmVoyage.edlost.Value);
    end;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    if Form1.ComboBox1.dbItemID = -1 then
    begin
        ShowMessage('Вы должны выбрать значение в ComboBox.');
        Cancel := true;
    end;
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.ComboBox1.dbDeleteRecord (-1); // если нужно убрать первый пустой элемент
    if Form1.ComboBox1.Items.Count>0 then Form1.ComboBox1.ItemIndex := 0; // выбираем первую запись в ComboBox
end;

procedure frmEmployee_Button2_OnClick (Sender: string; var Cancel: boolean);
var
   sID: string;

begin
     if frmEmployee.Button2.dbGeneralTableid = -1 then sID := SQLExecute('SELECT IFNULL(MAX(id), 0)+1 FROM employees')
     else sID := IntToStr(frmEmployee.Button2.dbGeneralTableid);

     frmEmployee.DBFile1.dbCopyTo := 'files\Record'+sID+'\a';
     frmEmployee.DBFile2.dbCopyTo := 'files\Record'+sID+'\b';  
     frmEmployee.DBFile3.dbCopyTo := 'files\Record'+sID+'\c';  
end;

procedure Form1_GridEmployees_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
     Form1.DBImage1.Clear;
     Form1.DBImage1.LoadFromDatabase('employees', 'photo', Form1.GridEmployees.dbItemID);
end;

procedure Form1_GridEmployees_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
     Form1.DBImage1.Clear;
     Form1.DBImage1.LoadFromDatabase('employees', 'photo', Form1.GridEmployees.dbItemID);
end;

SELECT
(SELECT car.carname FROM car WHERE id={cbGroups}) as car,
strftime('%d.%m.%Y', {edbegdate}) as begdate,
strftime('%d.%m.%Y', {edenddate}) as enddate,

SUM(
(
     SELECT SUM(rent.rent / (datediff(rent.`end`, rent.`begin`)+1)) FROM rent WHERE `selected_date` >= rent.`begin` AND `selected_date` <= rent.`end`
     AND (CASE WHEN {ComboBox1}=-1 THEN 1=1 ELSE rent.id_car={ComboBox1} END)
)
)

from

(select adddate('1970-01-01',t4.i*10000 + t3.i*1000 + t2.i*100 + t1.i*10 + t0.i) selected_date from
 (select 0 i union select 1 union select 2 union select 3 union select 4 union select 5 union select 6 union select 7 union select 8 union select 9) t0,
 (select 0 i union select 1 union select 2 union select 3 union select 4 union select 5 union select 6 union select 7 union select 8 union select 9) t1,
 (select 0 i union select 1 union select 2 union select 3 union select 4 union select 5 union select 6 union select 7 union select 8 union select 9) t2,
 (select 0 i union select 1 union select 2 union select 3 union select 4 union select 5 union select 6 union select 7 union select 8 union select 9) t3,
 (select 0 i union select 1 union select 2 union select 3 union select 4 union select 5 union select 6 union select 7 union select 8 union select 9) t4) v

where selected_date between {edbegdate} and {edenddate}