Дипломная работа: База данных приёмной комиссии

begin

Form3.Visible:=true;

Form3.Enabled:=true;

end;

end.

Файл dmAbiturU:

unit dmAbiturU;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDM = class(TDataModule)

Database1: TDatabase;

Spec: TTable;

DataSource1: TDataSource;

Abitur: TTable;

DataSource2: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses fmAbiturU;

{$R *.dfm}

end.

Файл Unit1: