ООП / 4 / Новая папка / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB;

type
TData = class(TForm)
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
ADOConnection1: TADOConnection;
Members: TADOTable;
Winners: TADOTable;
Schools: TADOTable;
SchoolsDSDesigner: TWideStringField;
SchoolsDSDesigner2: TWideStringField;
SchoolsDSDesigner3: TWideStringField;
SchoolsDSDesigner4: TIntegerField;
SchoolsDSDesigner5: TWideStringField;
SchoolsDSDesigner6: TIntegerField;
MembersDSDesigner: TAutoIncField;
MembersDSDesigner2: TWideStringField;
MembersDSDesigner3: TWideStringField;
MembersDSDesigner4: TIntegerField;
MembersDSDesigner5: TWideStringField;
MembersDSDesigner6: TWideStringField;
WinnersDSDesigner: TAutoIncField;
WinnersDSDesigner2: TWideStringField;
WinnersDSDesigner3: TWideStringField;
WinnersDSDesigner4: TIntegerField;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Data: TData;

implementation

{$R *.dfm}

end.