u_datamodule.pas

很好地delphi书籍源码

unit U_DataModule;

interface

uses
  SysUtils, Classes, ActnList, DBTables, DB;

type
  TDM = class(TDataModule)
    WriteTable: TTable;
    TeamTable: TTable;
    DSWriteTable: TDataSource;
    DSTeamTable: TDataSource;
    DSMatchTable: TDataSource;
    MatchTable: TTable;
    Query1: TQuery;
    DSQuery1: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

  DBase_Location:string;

 const Nation:array[1..6] of string=('意甲','德甲','英超','法甲',
                                        '西甲','中超');

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  DBase_Location:=GetCurrentDir+'\MyDatabase';
  with  WriteTable do
  begin
    Close;
    DatabaseName:=DBase_Location;
    TableName:='投注表.db';
    Open;
  end;
  with  TeamTable do
  begin
    Close;
    DatabaseName:=DBase_Location;
    TableName:='球队.db';
    Open;
  end;
  with  MatchTable do
  begin
    Close;
    DatabaseName:=DBase_Location;
    TableName:='对阵表.db';
    Open;
  end;
  Query1.Close;
  Query1.DatabaseName:=DBase_Location;
end;

end.