s [2]: = 'Строки';. ComboBox1.Items [3]: = 'Замовив';. ComboBox1.Items [4]: ​​= 'Поставік';. SelectedForm: = 7;; TForm7.N5Click (Sender: TObject);. QuickRep2.Preview;;.
// ІнспекцііUnit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, Grids, DBGrids, DBTables, Menus, ExtCtrls, DBCtrls,, Mask, ADODB; = class ( TForm): TMainMenu;: TMenuItem;: TDBGrid; Inspector: TDBNavigator;: TDataSource;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TADOConnection;: TADOQuery;: TMenuItem;: 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); N5Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm8; Unit1, Unit9, Unit10, Unit15, Unit11, Unit21; ​​
{$ R *. dfm} TForm8.NChooseClick (Sender: TObject);. Show;; TForm8.NCloseClick (Sender: TObject);. Close;; TForm8.NExitClick (Sender: TObject); . Close;; TForm8.NAddClick (Sender: TObject);. Insert;. 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;; TForm8.NDeleteClick (Sender: TObject);. Delete;. 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;; TForm8.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;; TForm8.N2Click (Sender: TObject);. Show;. ADOQuery1.Close;. ADOQuery1.SQL.Text: = 'SELECT Тип, Фамілія_ІО, Посада, Место_работи FROM personal, inspekciya WHERE (Інспектує = Посада) ORDER BY Тип ';. ADOQuery1.ExecSQL;. ADOQuery1.Open;. DbGrid1.Columns.Items [0]. Width: = 200;. DbGrid1.Columns. Items [1]. Width: = 200;. DbGrid1.Columns.Items [2]. Width: = 200;. DbGrid1.Columns.Items [3]. Width: = 200;. DBGrid1.Width: = 840;. Width : = 900;; TForm8.N3Click (Sender: TObject);. Active: = false;. SQL.Clear;. SQL.Add ('SELECT * FROM inspekciya 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;; TForm8.N4Click (Sender: TObject);. Show;. Edit1.Text: ='';. ComboBox1.Items [0]: = 'Шифр';. ComboBox1.Items [1]: = 'Тип';. ComboBox1.Items [...
