My Visual Database — Создание нестандартного счетчика

Re: Создание нестандартного счетчика

null@example.com (vit007) — Mon, 01 Apr 2019 10:47:27 +0000

Спасибо, не понял зачем использовать вычисляемое поле, если в скрипте уже есть формат интерпретации... Поэтому использовал обычное текстовое для вывода:

var
    id : integer;
begin
    if Action='NewRecord' then
    begin
        frmEmployee.edYear.Text := FormatDateTime('yy', now);
        frmEmployee.edID.Text := SQLExecute ('SELECT IFNULL(MAX(ident), 0)+1 FROM person WHERE year='+FormatDateTime('yy', now) );
        id := StrToInt(frmEmployee.edID.Text);
        frmEmployee.edIdYear.Text:= frmEmployee.edYear.Text + '-' + Format('%.3d', [id]);
    end;
end;

Re: Создание нестандартного счетчика

null@example.com (sibprogsistem) — Sun, 31 Mar 2019 20:56:30 +0000

http://myvisualdatabase.com/forum/viewtopic.php?id=1387

Создание нестандартного счетчика

null@example.com (vit007) — Sun, 31 Mar 2019 16:51:56 +0000

Вдохновился примером из поста http://myvisualdatabase.com/forum/viewt … p?id=1088,
но не смог автоматизировать подстановку. Поэтому откопал на форуме другой пример и немного дополнил:

var
   s, s0, s1: string;
   i ,c: integer;
begin
    if Action='NewRecord' then
    begin
     s1 := FormatDateTime('yy', now) + '-';
     s0 := '';
     s := frmEmployee.EditCounter1.Text;
     c := Length(s);
     c := 3-c; // 3 - qty of zero
     for i := 1 to c do s0 := s0 + '0';
     frmEmployee.edCounter.Text := s1+s0+s;
    end;
end;

Сейчас выдает значение нынешнего года и число: 19-001
Подскажите, как сбросить счетчик в Grid при смене года.

Нашел, это, но не понял, как использовать:

Form1.GridEmployees.ClearRows;
Form1.GridEmployees.Columns[0].Footer.Caption := '0';