0]: = 'Тип';. ComboBox1.Items [1]: = 'Адреса';. ComboBox1.Items [2]: = 'Площа'; . SelectedForm: = 6;; TForm6.N4Click (Sender: TObject);. QuickRep1.Preview;;.
// ЗаказиUnit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, Grids, DBGrids, DBTables, Menus, ExtCtrls, DBCtrls,, Mask, ADODB; = class ( TForm): TMainMenu;: TMenuItem;: TDBGrid; Zakaz: 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};: TForm7; Unit1, Unit9, Unit10, Unit14, Unit20;
{$ R *. dfm} TForm7.NChooseClick (Sender: TObject);. Show;; TForm7.NCloseClick (Sender: TObject);. Close;; TForm7.NExitClick (Sender: TObject); . Close;; TForm7.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;; TForm7.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;; TForm7.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;; TForm7.N2Click (Sender: TObject);. Show;. ADOQuery1.Close;. ADOQuery1.SQL.Text: = 'SELECT Номер, Фамілія_ІО, Посада, Назва FROM izdat, personal, zakaz WHERE (Замовив = Фамілія_ІО) and (Постачальник = Назва) 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;; TForm7.N3Click (Sender: TObject);. Active: = false;. SQL.Clear;. SQL.Add ('SELECT * FROM zakaz 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;; TForm7.N4Click (Sender: TObject);. Show;. Edit1 . Text: ='';. ComboBox1.Items [0]: = 'Номер';. ComboBox1.Items [1]: = 'Колічество_кніг';. ComboBox1.Item...
