2
Форма для приміщення компонентів, що дозволяє зв'язати базу даних в Access з Delphi.
unit Unit2;, Classes, DB, ADODB; = class (TDataModule): TADOTable;: TDataSource;: TADOTable;: TDataSource;: TADOTable;: TDataSource;: TADOTable;: TDataSource;: TADOTable; : TDataSource;: TADOTable;: TDataSource;: TADOTable;: TDataSource;: TADOTable;: TDataSource;: TADOConnection;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;
{Private declarations}
{Public declarations};: TDataModule2;
{$ R *. dfm}
end.
Програмний код для Форми № 3
Форма таблиці "Склад".
unit Unit3;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, unit2, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, ComObj; = class (TForm): TDBGrid;: TDBNavigator; : TButton; Button1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);
{Private declarations}
{Public declarations};: TFormSklad; Unit1;
{$ R *. dfm} TFormSklad.Button1Click (Sender: TObject);. Close;// Закрити форму "Склад"
Form1.Visible: = true;// Показати Головну форму
end; TFormSklad.FormClose (Sender: TObject; var Action: TCloseAction);. Visible: = true;; end.
Програмний код для форми № 11
Форма для запиту "Інформація про деталі".
unit Unit11;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, unit2, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, ComObj; = class (TForm): TDBGrid;: TButton;: TButton; Button1Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); FormActivate (Sender: TObject); Button2Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm11; Unit1;
{$ R *. dfm} TForm11.Button1Click (Sender: TObject);
begin.Close;// Закрити запит "Інформація про деталі"
Form1.Visible: = true;; TForm11.Button2Click (Sender: TObject);// Процедура виконання
Sheet.Cells [1,2]: = 'Інформація про деталі';. Cells [2,1]: = 'Постачальник';. Cells [2,2]: = '№ постачальника' ;. Cells [2,3]: = 'Кількість';. Cells [2,4]: = 'Вартість';
Sheet.Cells [2,5]: = 'Назва';: = 3;. ADOQuery1.First; i: = 0 to DataModule2.ADOQuery1.RecordCount-1 TObject; var Action: TCloseAction);. Visible: = true;;
end.
