Insert;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;. Width: = 900;; TForm4.NDeleteClick (Sender: TObject);. Delete;. Columns.Items [0] . Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840 ;. Width: = 900;; TForm4.FormCreate (Sender: TObject);. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2] . Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;. Width: = 900;; TForm4.N2Click (Sender: TObject);. Show;. ADOQuery1.Close;. ADOQuery1.SQL.Text: = 'SELECT Назва, Фамілія_ІО FROM avtor, izdat WHERE (назва = видавництво) ORDER BY Назва';. ADOQuery1.ExecSQL;. ADOQuery1.Open;. DbGrid1.Columns.Items [0]. Width: = 200;. DbGrid1.Columns.Items [1]. Width: = 200;. DBGrid1.Width: = 440;. Width: = 500;; TForm4.N3Click (Sender: TObject);. Active: = false;. SQL. Clear;. SQL.Add ('SELECT * FROM izdat 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;. Width: = 840;. Width: = 900;; TForm4.N4Click (Sender: TObject) ;. Show;. Edit1.Text: ='';. ComboBox1.Items [0]: = 'Назва';. ComboBox1.Items [1]: = 'Адреса';. ComboBox1.Items [2]: = 'Директор ';. ComboBox1.Items [3]: =' Email ';. SelectedForm: = 4;; TForm4.N5Click (Sender: TObject);. QuickRep2.Preview;;.
// СотруднікіUnit5;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls,, Mask, ADODB; = class ( TForm): TDBGrid;: TMainMenu;: TMenuItem; Personal: 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};: TForm5; Unit1, Unit9, Unit10, Unit18;
{$ R *. dfm} TForm5.NChooseClick (Sender: TObject);. Show;; TForm5.NCloseClick (Sender: TObject);. Close;; TForm5.NExitClick (Sender: TObject); . Close;; TForm5.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;; TForm5.NDeleteClick (Sender: TObject);. Delete;. Columns.Items [0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Column...
