?? unitdm.pas
字號:
unit UnitDM;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
Con: TADOConnection;
AllFilmDS: TADODataSet;
AllFilmDSrc: TDataSource;
AllFilmDSDSDesigner: TWideStringField;
AllFilmDSDSDesigner2: TWideStringField;
AllFilmDSDSDesigner3: TWideStringField;
AllFilmDSDSDesigner4: TWideStringField;
AllFilmDSDSDesigner5: TBCDField;
AllFilmDSDSDesigner6: TBCDField;
AllFilmDSDSDesigner7: TWordField;
AllFilmDSDSDesigner8: TDateTimeField;
AllFilmDSDSDesigner9: TWideStringField;
AllFilmDSDSDesigner10: TWideStringField;
TypeDS: TADODataSet;
TypeDSrc: TDataSource;
MenberDS: TADODataSet;
MenberDSrc: TDataSource;
TypeDSDSDesigner: TWideStringField;
TypeDSDSDesigner2: TBCDField;
TypeDSDSDesigner3: TSmallintField;
TypeDSDSDesigner4: TWideStringField;
MenberDSDSDesigner: TWideStringField;
MenberDSDSDesigner2: TWideStringField;
MenberDSDSDesigner3: TWideStringField;
MenberDSDSDesigner4: TWideStringField;
MenberDSDSDesigner5: TDateTimeField;
MenberDSDSDesigner6: TSmallintField;
MenberDSDSDesigner7: TWideStringField;
ComCZDS: TADODataSet;
ComCZDSrc: TDataSource;
MenCZDS: TADODataSet;
MenCZDSrc: TDataSource;
ComCZDSDSDesigner: TAutoIncField;
ComCZDSDSDesigner2: TWideStringField;
ComCZDSDSDesigner3: TBCDField;
ComCZDSDSDesigner4: TDateTimeField;
ComCZDSDSDesigner5: TDateTimeField;
ComCZDSDSDesigner6: TBCDField;
ComCZDSDSDesigner7: TWideStringField;
ComCZDSDSDesigner8: TBooleanField;
MenCZDSDSDesigner: TAutoIncField;
MenCZDSDSDesigner2: TWideStringField;
MenCZDSDSDesigner3: TDateTimeField;
MenCZDSDSDesigner4: TDateTimeField;
MenCZDSDSDesigner5: TWideStringField;
MenCZDSDSDesigner6: TBCDField;
MenCZDSDSDesigner7: TWordField;
MenCZDSDSDesigner8: TWideStringField;
MenCZDSDSDesigner9: TBooleanField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -