Search options (Page 280 of 400)

Form1.TableGrid1.Options := Form1.TableGrid1.Options + goFooter;

procedure Form1_OnShow (Sender: string; Action: string);
var
    s: string;
begin
    s := SQLExecute('SELECT group_concat(lastname || '' '' || firstname, char(13)) FROM person WHERE strftime(''%d.%m'', birthday)=strftime(''%d.%m'', ''now'')');
    if s <>'' then
    begin
        ShowMessage( 'Сегодня день рождения:' + #13 +s );            
    end;
end;

procedure NovayaForma_bOk_OnAfterClick (Sender: string);
begin
    if NovayaForma.edCounter.Value > SQLExecute('SELECT IFNULL(maxcounter, 0) FROM maxcounter WHERE id=1') then
    begin
        SQLExecute('INSERT OR REPLACE INTO maxcounter (id, maxcounter) VALUES(1, '+NovayaForma.edCounter.Text+')');
    end;
end;

    if Action='NewRecord' then
    begin
        NovayaForma.edCounter.Value := SQLExecute('SELECT IFNULL(MAX(counter), 0) FROM Osnova')+1;
        if SQLExecute('SELECT IFNULL(maxcounter, 0) FROM maxcounter WHERE id=1') >= NovayaForma.edCounter.Value then
        begin
            NovayaForma.edCounter.Value := SQLExecute('SELECT IFNULL(maxcounter, 0) FROM maxcounter WHERE id=1') + 1;
        end;
    end;
............

procedure Form1_OnShow (Sender: string; Action: string);
var
    s: string;
begin
    s := SQLExecute('SELECT group_concat(lastname || '' '' || firstname, char(13)) FROM person WHERE strftime('%d.%m', birthday)=strftime('%d.%m', ''now'')');
    if s <>'' then
    begin
        ShowMessage( 'Сегодня день рождения:' + #13 +s );
    end;
end;

procedure Form1_OnShow (Sender: string; Action: string);
var
    s: string;
begin
    s := SQLExecute('SELECT group_concat(lastname || '' '' || firstname, char(13)) FROM person WHERE date(birthday)=date(''now'')');
    if s <>'' then
    begin
        ShowMessage( 'Сегодня день рождения:' + #13 +s );
    end;
end;