Search options (Page 122 of 400)

procedure Prodotto_TableGrid1_OnChange (Sender: string);
var
   i,c: integer;
begin
    Prodotto.TableGrid1.Columns[5].Alignment := taCenter;
    c := Prodotto.TableGrid1.RowCount - 1;
    Prodotto.TableGrid1.BeginUpdate;
    for i := 0 to c do
    begin
        Prodotto.TableGrid1.Cell[2,i].TextColor := $00A00000;
        Prodotto.TableGrid1.Cell[8,i].TextColor := clgreen;
    end;
    Prodotto.TableGrid1.EndUpdate;
end;

procedure Prodotto_TableGrid1_OnChange (Sender: string);
begin
    Prodotto.TableGrid1.Columns[2].Font.Color := $00A00000;
    Prodotto.TableGrid1.Columns[8].Font.Color := clgreen;
    Prodotto.TableGrid1.Columns[5].Alignment := taCenter;
end;

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
    Form1.TableGrid1.Columns[0].Alignment := taCenter; // для первой колонки  или taLeftJustify taRightJustify
    Form1.TableGrid1.Columns[0].Header.Alignment := taCenter; // для заголовка колонки
end;

(SELECT client.name FROM client WHERE client.id=application.id_client)

procedure Form1_bExport_OnClick (Sender: string; var Cancel: boolean);
var
    SaveDialog: TSaveDialog;
begin
    SaveDialog := TSaveDialog.Create(Form1);
    if SaveDialog.Execute then Export('SELECT lastname, firstname, salary, dateofbirth, isSmoke, comment FROM employees', SaveDialog.FileName);
    SaveDialog.Free;
end;

procedure Form1_bImport_OnClick (Sender: string; var Cancel: boolean);
var
     OpenDialog: TOpenDialog;
begin
     OpenDialog := TOpenDialog.Create(Form1);
     OpenDialog.InitialDir := ExtractFileDir(Application.Exename);

     if OpenDialog.Execute then Import('employees', 'lastname,firstname,salary,dateofbirth,isSmoke,comment', OpenDialog.FileName);

     OpenDialog.Free;
end;

procedure Form1_bImportCheckDup_OnClick (Sender: string; var Cancel: boolean);
var
     OpenDialog: TOpenDialog;
begin
     OpenDialog := TOpenDialog.Create(Form1);
     OpenDialog.InitialDir := ExtractFileDir(Application.Exename);
     if OpenDialog.Execute then Import('employees', 'lastname,firstname,salary,dateofbirth,isSmoke,comment', OpenDialog.FileName, 'lastname,firstname');
     OpenDialog.Free;
end;

procedure Form1_DBFile1_OnRightButtonClick (Sender: string);
begin
    Form1.DBFile1.PopupMenu.Items.Items[1].Enabled := False;
    Form1.DBFile1.PopupMenu.Items.Items[2].Enabled := False;
    Form1.DBFile1.PopupMenu.Items.Items[3].Enabled := False;
end;