Search options (Page 3 of 400)

function DateDiff(date1, date2: TDateTime): string;
var
    years, months, days: integer;
    monthsTotal: integer;

    minDate: TDateTime;
    i, c: integer;
    DD, MM, YY: word;
begin
   date1 := trunc(date1);
   date2 := trunc(date2);


    years := YearsBetween(date1, date2);
    monthsTotal := MonthsBetween(date1, date2);
    months := monthsTotal - (years * 12);

    if date1 > date2 then minDate := date2 else minDate := date1;

    date1 := IncMonth(minDate, monthsTotal);
    days := DaysBetween(date1, date2);

    result := 'Days:' + IntToStr(days)+', Months:'+IntToStr(months)+', Years:'+IntToStr(years);
end;

User.Username

Application.User.Username

frmdbCoreUsers.gridUsers.dbListFieldsNames := 'Username,Role,Admin,Active,Last name,First name,Last login,Date joined';

begin
  Form1.DBImage1.ButtonOpen.Hint := 'Подсказка1';
  Form1.DBImage1.ButtonSave.Hint := 'Подсказка2';
  Form1.DBImage1.ButtonDelete.Hint := 'Подсказка3';
end.

SQLEXecute('UPDATE project SET score='+ Form1.chbEnabledAnswer.sqlValue +' WHERE id=1');

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
    Form1.TableGrid1.dbPopupMenu.Items[0].Caption := 'Показать запись2';
    Form1.TableGrid1.dbPopupMenu.Items[1].Caption := 'Удалить запись2';
    Form1.TableGrid1.dbPopupMenu.Items[3].Caption := 'Копировать ячейку2';
    Form1.TableGrid1.dbPopupMenu.Items[4].Caption := 'Копировать2';
    Form1.TableGrid1.dbPopupMenu.Items[5].Caption := 'Копировать все2';
    Form1.TableGrid1.dbPopupMenu.Items[7].Caption := 'Найти2';
end;