Добавил:
darya13199
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:База данных(Ульянов) / UnitDModul
.pas 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.
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.
Соседние файлы в папке База данных(Ульянов)