База данных(Стрельников) / UnitDModul

unit UnitDModul;

interface

uses
SysUtils, Classes, DB, DBTables;

type
TDataModule1 = class(TDataModule)
Database1: TDatabase;
TableMatch: TTable;
DS_Match: TDataSource;
DS_Team: TDataSource;
DS_Goal: TDataSource;
TableGoal: TTable;
TableTeam: TTable;
TableTeamID_T: TFloatField;
TableTeamNAME_T: TStringField;
TableTeamSTAT_T: TStringField;
TableTeamTRAINER_T: TStringField;
TableMatchID_M: TFloatField;
TableMatchDAT_M: TDateField;
TableMatchHOST_M: TFloatField;
TableMatchGUEST_M: TFloatField;
TableGoalID_G: TFloatField;
TableGoalDAT_G: TStringField;
TableGoalPR_G: TStringField;
TableGoalKOL_G: TFloatField;
DS_Table: TDataSource;
TableT: TTable;
private
{ Private declarations }
public
{ Public declarations }
end;

var
DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.