Высокоуровневые методы информатики и программирования. Сивохин А.В - 111 стр.

UptoLike

88
{$R *.dfm}
Initialization
end.//—12. Конец модуля для работы с таблицейАукционы”.
unit OrlovBuyersUnit;//—13. Модуль для работы с таблицей
Покупатели”:
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls;
type
TOrlovBuyersForm = class(TForm)
OrlovBuyresPanel1: TPanel;
OrlovBuyersPanel2: TPanel;
OrlovBuyersTable: TTable;
OrlovBuyersDataSource: TDataSource;
OrlovBuyersDBGrid: TDBGrid;
OrlovBuyersDBNavigator: TDBNavigator;
private
{ Private declarations }
public
{ Public declarations }
end;
var
OrlovBuyersForm: TOrlovBuyersForm;
implementation
{$R *.dfm}
Initialization
end.//—13. Конец модуля для работы с таблицейПокупатели”.
     {$R *.dfm}

     Initialization
     end.//—12. Конец модуля для работы с таблицей “Аукционы”.




    unit OrlovBuyersUnit;//—13.          Модуль     для     работы     с    таблицей
“Покупатели”:

     interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls;

     type
      TOrlovBuyersForm = class(TForm)
       OrlovBuyresPanel1: TPanel;
       OrlovBuyersPanel2: TPanel;
       OrlovBuyersTable: TTable;
       OrlovBuyersDataSource: TDataSource;
       OrlovBuyersDBGrid: TDBGrid;
       OrlovBuyersDBNavigator: TDBNavigator;
      private
       { Private declarations }
      public
       { Public declarations }
      end;

     var
      OrlovBuyersForm: TOrlovBuyersForm;

     implementation

     {$R *.dfm}

     Initialization
     end.//—13. Конец модуля для работы с таблицей “Покупатели”.




88