Search options (Page 290 of 400)

procedure Form1_bSQLSearch_OnClick (Sender: string; var Cancel: boolean);
var
    i,c: integer;
    s: string;
begin
    s := '';
    Form1.bSQLSearch.dbSQL := 'SELECT lastname, firstname, strftime(''%m/%d/%Y'', dateofbirth) as dateofbirth, id FROM employees';
    Form1.bSQLSearch.dbListFieldsNames := 'lastname,firstname,dateofbirth,delete_col';
    c := Form1.GridEmployees.RowCount-1;

    for i := 0 to c do
    begin
        if Form1.GridEmployees.Selected[i] then s := s + 'employees.id='+IntToStr(Form1.GridEmployees.dbIndexToID(i)) + ' OR ';
    end;

    if s <> '' then
    begin
        SetLength(s, Length(s)-4);
        Form1.bSQLSearch.dbSQL := Form1.bSQLSearch.dbSQL + ' WHERE ' + s+ ' AND (lastname LIKE "%{edLastname}%" OR firstname LIKE "%{edLastname}%")';
        //Form1.bSQLSearch.dbSQL := Form1.bSQLSearch.dbSQL + ' WHERE ' + s; //work
        //adresa LIKE '%{RsearchSel}%' OR
    end;
end;

var
    SortKind: TSortKind;
    SortColumn: integer = -1;
    PrevId: integer;

procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
    PrevId := Form1.TableGrid1.dbItemID;
end;

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    if SortColumn <> -1 then
    begin
        Form1.TableGrid1.Columns [SortColumn].SortKind := SortKind;
        Form1.TableGrid1.Columns [SortColumn].Sorted := True;
        Form1.TableGrid1.dbItemID := PrevId;
        Form1.TableGrid1.ScrollToRow( Form1.TableGrid1.SelectedRow );
    end;
end;

procedure Form1_TableGrid1_OnAfterSort (Sender: string; ACol: Integer);
begin
    SortKind :=Form1.TableGrid1.Columns [ACol].SortKind;
    SortColumn := ACol;
end;

procedure ddVizits_OnShow (Sender: string; Action: string);
var
    idClient: string;
begin
    if AddCl.Visible then
        frmAddVisitObject.ComboBox1.dbSQLExecute('SELECT objects.nameOb, objects.id FROM objects LEFT OUTER JOIN clients ON clients.id=objects.id_clients WHERE clients.id='+ IntToStr( AddCl.bSaveClient.dbGeneralTableId ) )
    else begin
        idClient := SQLExecute('SELECT id_clients FROM visits WHERE id='+IntToStr(ddVizits.bSave.dbGeneralTableId));
        frmAddVisitObject.ComboBox1.dbSQLExecute('SELECT objects.nameOb, objects.id FROM objects WHERE id_clients='+idClient  );
    end;
end;

Form1.TableGrid1.InactiveSelectionColor := clYellow;

Form1.TableGrid1.SelectedRow := -1;