?? unit1.pas
字號:
unit Unit1;
interface
uses
SysUtils, Classes, DBXpress, FMTBcd, DB, DBClient, Provider, SqlExpr,
ADODB, ImgList, Controls;
type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
DaScreIn: TDataSource;
ImageList1: TImageList;
ADOQryIn: TADOQuery;
ADOQryInDSDesigner: TWideStringField;
ADOQryInDSDesigner2: TWideStringField;
ADOQryInDSDesigner3: TWideStringField;
ADOQryInDSDesigner4: TWideStringField;
ADOQryInDSDesigner5: TWideStringField;
ADOQryInDSDesigner6: TWideStringField;
ADOQryInDSDesigner7: TWideStringField;
ADOQryInDSDesigner8: TIntegerField;
ADOQryInDSDesigner9: TBCDField;
ADOQryInDSDesigner10: TBCDField;
ADOQryInDSDesigner11: TDateTimeField;
ADOQryInDSDesigner12: TMemoField;
ADOQrySale: TADOQuery;
DaScreSale: TDataSource;
ADOQrySaleDSDesigner: TWideStringField;
ADOQrySaleDSDesigner2: TWideStringField;
ADOQrySaleDSDesigner3: TWideStringField;
ADOQrySaleDSDesigner4: TWideStringField;
ADOQrySaleDSDesigner5: TWideStringField;
ADOQrySaleDSDesigner6: TWideStringField;
ADOQrySaleDSDesigner7: TWideStringField;
ADOQrySaleDSDesigner8: TIntegerField;
ADOQrySaleDSDesigner9: TWideStringField;
ADOQrySaleDSDesigner10: TDateTimeField;
ADOQrySaleDSDesigner11: TIntegerField;
ADOQrySaleDSDesigner12: TMemoField;
ADOQryPriSch: TADOQuery;
ADOQryCusSch: TADOQuery;
ADOQryMerSch: TADOQuery;
DaScrePriSch: TDataSource;
DaScreCusSch: TDataSource;
DaScreMerSch: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
implementation
{$R *.dfm}
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -