Search options (Page 196 of 400)

SELECT DISTINCT datefield FROM tablename

     UpdateDatabase('');

     login.ShowModal; // show windows for login

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form1.TableGrid1.ClearRows;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    id: integer;
begin
    id := SQLExecute('SELECT IFNULL(id, -1) FROM groups WHERE groupname LIKE '''+ Form1.ComboBox1.Text+'''');
    if id<>-1 then Form1.ComboBox2.dbItemID := id;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
    sSQL: string;
    i: integer;
begin
    if Form1.cbGroups.SelectedCount=0 then
    begin
        ShowMessage('You should select at least one item.');
        Exit;
    end;

    sSQL := 'SELECT lastname FROM employees WHERE';


    for i := 0 to Form1.cbGroups.Items.Count-1 do
    begin
        if Form1.cbGroups.ItemsChecked[i] then
            sSQL := sSQL + ' id_groups='+IntToStr(Form1.cbGroups.dbIndexToID(i))+' OR';
    end;
    SetLength(sSQL, Length(sSQL)-3);



    SQLQuery(sSQL, Results);
    Form1.Memo1.Clear;

    while not Results.Eof do
    begin
        Form1.Memo1.Lines.Add( Results.FieldByName('lastname').asString );
        Results.Next;
    end;

end;

begin

end.

strftime('%d', propusk."date")

DATE_FORMAT(propusk.`date`,'%d')