1 Topic by vaskar (edited by vaskar 2016-12-13 10:27:55)

  • Registered: 2015-08-17
  • Posts: 60

Topic: Конец последней записи, как начало новой

Проект заносит в БД  информацию о каком-то событии, в котором есть начало и конец события. Начало каждого следующего события
начинается с конца предыдущего.

Можно ли сделать так, чтобы при открытии формы нового события, его начало устанавливалось концом предыдущего автоматически?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Конец последней записи, как начало новой

Можно, ищет максимальную дату в таблице и устанавливает ее как начальную при создании записи:


procedure frmEmployee_OnShow (Sender: string; Action: string);
var
    DateMax: TDateTime;
    sDate: string;
begin
    if Action = 'NewRecord' then
    begin
        sDate := SQLExecute('SELECT MAX(endDate) FROM employees');
        if sDate <> '' then frmEmployee.DateTimePicker1.DateTime := SQLDateTimeToDateTime(sDate);
    end;
end;


Проект с примером:

Post's attachments

Attachment icon Last date as begin date.zip 6.92 kb, 316 downloads since 2016-12-14 

Dmitry.