Search options (Page 184 of 400)

    Grid.dbSQL:=sSQL; // the id field, want to be able to edit or delete the entry from the table component
    Grid.dbGeneralTable := 'employees'; // Optional (in the case of complex SQL queries with sub queries, you need to choose the main table of the database, also it need to be able to edit or delete the entry from the table component)
    Grid.dbListFieldsNames :='delete_col,Lastname'; // If you do not want to see the value of the id in the component table, enter a name for the column delete_col
    Grid.dbSQLExecute;

    Form1.Button9.dbSQL := sSQL;
    Form1.Button9.Click;

procedure Form1_Button5_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
    sSQL1, sSQL2, sSQL: string;
    i: integer;
begin
    sSQL := 'SELECT id, lastname FROM employees';


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

    if sSQL1<>'' then
    begin
        SetLength(sSQL1, Length(sSQL1)-3);
        sSQL1 := '(' + sSQL1 + ')';
    end;



    sSQL2 := '';
    for i := 0 to Form1.cbSex.Items.Count-1 do
    begin
        if Form1.cbSex.ItemsChecked[i] then
            sSQL2 := sSQL2 + ' id_sex='+IntToStr(Form1.cbSex.dbIndexToID(i))+' OR';
    end;

    if sSQL2<>'' then
    begin
        SetLength(sSQL2, Length(sSQL2)-3);
        sSQL2 := '(' + sSQL2 + ')';
    end;



    if (sSQL1<>'') or (sSQL2<>'') then  sSQL := sSQL +  ' WHERE ';
    if (sSQL1<>'') and (sSQL2<>'') then sSQL := sSQL + sSQL1 + ' AND '+ sSQL2
    else sSQL := sSQL + sSQL1 + sSQL2;


    Form1.TableGrid1.dbSQL:=sSQL; // the id field, want to be able to edit or delete the entry from the table component
    Form1.TableGrid1.dbGeneralTable := 'employees'; // Optional (in the case of complex SQL queries with sub queries, you need to choose the main table of the database, also it need to be able to edit or delete the entry from the table component)
    Form1.TableGrid1.dbListFieldsNames :='delete_col,Lastname'; // If you do not want to see the value of the id in the component table, enter a name for the column delete_col
    Form1.TableGrid1.dbSQLExecute;

end;

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.BestFitColumns();
end;

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
    begin
        Form1.GridEmplTableGrid1oyees.Columns[i].Alignment := taCenter;
    end;
end;

procedure Form1_TableGrid1_OnChange (Sender: string);
var
    i, c: integer;
begin
    c := Form1.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
    begin
        Form1.GridEmplTableGrid1oyees.Columns[i].Alignment := taCenter;
    end;

    Form1.TableGrid1.BestFitColumns();
end;

Создайте событие OnShow главной формы, пример:
procedure Form1_OnShow (Sender: string; Action: string);
begin
    frmOptionsdbCore.TabSettings.TabVisible := False;
end;