udm.pas

双色球矩阵计算程序

unit uDm;

interface

uses
  SysUtils, Classes, DB, ADODB, DBClient;

type
  TDm = class(TDataModule)
    conn: TADOConnection;
    query: TADOQuery;
    dsTemp: TDataSource;
    cdsTemp: TClientDataSet;
    cdsResult: TClientDataSet;
    dsResult: TDataSource;
    aqMatrix: TADOQuery;
    dsMatrix: TDataSource;
    cdsVerify: TClientDataSet;
    dsVerify: TDataSource;
    aqHistory: TADOQuery;
    dsHistory: TDataSource;
    aqHistoryDSDesigner: TIntegerField;
    aqHistoryDSDesigner1: TWideStringField;
    aqHistoryDSDesigner2: TWideStringField;
    aqHistoryDSDesigner3: TWideStringField;
    aqHistoryDSDesigner4: TWideStringField;
    aqHistoryDSDesigner5: TWideStringField;
    aqHistoryDSDesigner6: TWideStringField;
    aqHistoryDSDesigner7: TWideStringField;
    aqHistoryDSDesigner8: TWideStringField;
    aqHistoryDSDesigner9: TWideStringField;
    aqHistoryDSDesigner10: TWideStringField;
    aqHistoryDSDesigner11: TWideStringField;
    aqHistoryDSDesigner12: TWideStringField;
    aqHistoryDSDesigner13: TWideStringField;
    aqHistoryDSDesigner14: TWideStringField;
    aqHistoryDSDesigner15: TWideStringField;
    aqHistoryDSDesigner16: TWideStringField;
    aqHistoryDSDesigner17: TWideStringField;
    aqHistoryDSDesigner18: TWideStringField;
    aqHistoryDSDesigner19: TWideStringField;
    aqHistoryDSDesigner20: TWideStringField;
    aqHistoryDSDesigner21: TWideStringField;
    aqHistoryDSDesigner22: TWideStringField;
    aqHistoryDSDesigner23: TWideStringField;
    aqHistoryDSDesigner24: TWideStringField;
    aqHistoryDSDesigner25: TWideStringField;
    aqHistoryDSDesigner26: TWideStringField;
    aqHistoryDSDesigner27: TWideStringField;
    aqHistoryDSDesigner28: TWideStringField;
    aqHistoryDSDesigner29: TWideStringField;
    aqHistoryDSDesigner30: TWideStringField;
    aqHistoryDSDesigner31: TWideStringField;
    aqHistoryDSDesigner32: TWideStringField;
    aqHistoryDSDesigner33: TWideStringField;
    aqHistoryDSDesigner110: TIntegerField;
    aqHistoryDSDesigner210: TIntegerField;
    aqHistoryDSDesigner34: TIntegerField;
    aqHistoryDSDesigner42: TIntegerField;
    aqHistoryDSDesigner52: TIntegerField;
    aqHistoryDSDesigner62: TIntegerField;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Dm: TDm;

implementation

{$R *.dfm}

procedure TDm.DataModuleCreate(Sender: TObject);
begin
  conn.Connected := True;
end;

procedure TDm.DataModuleDestroy(Sender: TObject);
begin
  conn.Connected := False;
end;

end.