s.Items [ 3]. Width: = 200;. Columns.Items [4]. Width: = 200;. Width: = 1040;. Width: = 1100;; TForm5.FormCreate (Sender: TObject);. Columns.Items [0] . Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Columns.Items [ 4]. Width: = 200;. Width: = 1040;. Width: = 1100;; TForm5.N2Click (Sender: TObject);. Active: = false;. SQL.Clear;. SQL.Add ('SELECT * FROM personal ORDER BY Фамілія_ІО ');. ExecSQL;. Active: = true;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Columns.Items [4]. Width: = 200;. Width: = 1040;. Width: = 1100;; TForm5.N3Click (Sender: TObject);. Show;. Edit1.Text: ='';. ComboBox1.Items [0]: = 'Фамілія_ІО';. ComboBox1.Items [1]: = 'Адреса';. ComboBox1.Items [2]: = 'Посада';. ComboBox1.Items [3]: = 'Место_работи';. ComboBox1.Items [4]: ​​= 'Зарплата';. SelectedForm: = 5;; TForm5.N4Click (Sender: TObject);. QuickRep1.Preview ;;.
// ПомещеніяUnit6;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, DBTables, Menus, ExtCtrls, DBCtrls,, Mask, ADODB; = class ( TForm): TMainMenu;: TMenuItem;: TDBGrid; Square: TDBNavigator;: TDataSource;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TADOConnection;: TADOQuery;: TADOQuery;: TMenuItem ;: TMenuItem;: TMenuItem; NChooseClick (Sender: TObject); NCloseClick (Sender: TObject); NExitClick (Sender: TObject); NAddClick (Sender: TObject); NDeleteClick (Sender: TObject); FormCreate (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm6; Unit1, Unit9, Unit10, Unit19;
{$ R *. dfm} TForm6.NChooseClick (Sender: TObject);. Show;; TForm6.NCloseClick (Sender: TObject);. Close;; TForm6.NExitClick (Sender: TObject); . Close;; TForm6.NAddClick (Sender: TObject);. Insert;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640;. Width: = 700;; TForm6.NDeleteClick (Sender: TObject);. Delete;. Columns.Items [0]. Width: = 200;. Columns.Items [1] . Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640;. Width: = 700;; TForm6.FormCreate (Sender: TObject);. Columns.Items [0]. Width : = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640;. Width: = 700;; TForm6.N2Click (Sender: TObject );. Active: = false;. SQL.Clear;. SQL.Add ('SELECT * FROM pomeschenie ORDER BY Тип');. ExecSQL;. Active: = true;. Columns.Items [0]. Width: = 200 ;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Width: = 640;. Width: = 700;; TForm6.N3Click (Sender: TObject);. Show;. Edit1.Text: ='';. ComboBox1.Items [...
