?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -