📄 adodata.pas
字号:
unit adodata;
interface
uses
SysUtils, Classes, ADODB, DB;
type
Tadodm = class(TDataModule)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DataSource2: TDataSource;
DataSource3: TDataSource;
ADOQuery3lbmc: TWideStringField;
ADOQuery3ffzq: TSmallintField;
ADOQuery3ffrq: TDateTimeField;
loadquery: TADOQuery;
loadsource: TDataSource;
ADOQuery4: TADOQuery;
DataSource4: TDataSource;
ADOQuery5: TADOQuery;
DataSource5: TDataSource;
ADOQuery6: TADOQuery;
DataSource6: TDataSource;
DataSource7: TDataSource;
ADOQuery8: TADOQuery;
DataSource8: TDataSource;
ADOQuery4bmbh: TWideStringField;
ADOQuery4bmmc: TWideStringField;
ADOQuery5xm: TWideStringField;
ADOQuery5lbmc: TWideStringField;
ADOQuery5gg: TWideStringField;
ADOQuery5sl: TFloatField;
ADOQuery6lbmc: TWideStringField;
ADOQuery6gg: TWideStringField;
ADOQuery6zsl: TFloatField;
ADOQuery9: TADOQuery;
DataSource9: TDataSource;
ADOQuery7: TADOQuery;
WideStringField1: TWideStringField;
WideStringField2: TWideStringField;
FloatField1: TFloatField;
ADOQuery8bmmc: TWideStringField;
ADOQuery8bmbh: TWideStringField;
ADOQuery10: TADOQuery;
DataSource10: TDataSource;
ADOQuery11: TADOQuery;
DataSource11: TDataSource;
ADOQuery12: TADOQuery;
DataSource12: TDataSource;
ADOQuery13: TADOQuery;
DataSource13: TDataSource;
ADOQuery14: TADOQuery;
DataSource14: TDataSource;
ADOQuery15: TADOQuery;
DataSource15: TDataSource;
ADOQuery16: TADOQuery;
DataSource16: TDataSource;
ADOQuery17: TADOQuery;
DataSource17: TDataSource;
ADOQuery10gzbh: TWideStringField;
ADOQuery10gzmc: TWideStringField;
ADOQuery11gzbh: TWideStringField;
ADOQuery11lbmc: TWideStringField;
ADOQuery11ffzq: TSmallintField;
ADOQuery13bmbh: TWideStringField;
ADOQuery13bmmc: TWideStringField;
ADOQuery14bmbh: TWideStringField;
ADOQuery14bmmc: TWideStringField;
ADOQuery16bmbh: TWideStringField;
ADOQuery16bmmc: TWideStringField;
ADOQuery15bmbh: TWideStringField;
ADOQuery15xm: TWideStringField;
ADOQuery15ygbh: TWideStringField;
ADOQuery19: TADOQuery;
WideStringField3: TWideStringField;
WideStringField4: TWideStringField;
DataSource19: TDataSource;
ADOQuery20: TADOQuery;
WideStringField5: TWideStringField;
WideStringField6: TWideStringField;
WideStringField7: TWideStringField;
WideStringField8: TWideStringField;
WideStringField9: TWideStringField;
WideStringField10: TWideStringField;
WideStringField11: TWideStringField;
WideStringField12: TWideStringField;
WideStringField13: TWideStringField;
WideStringField14: TWideStringField;
WideStringField15: TWideStringField;
WideStringField16: TWideStringField;
WideStringField17: TWideStringField;
WideStringField18: TWideStringField;
WideStringField19: TWideStringField;
DataSource20: TDataSource;
ADOQuery21: TADOQuery;
WideStringField20: TWideStringField;
SmallintField1: TSmallintField;
DateTimeField1: TDateTimeField;
DataSource21: TDataSource;
ADOQuery18: TADOQuery;
WideStringField21: TWideStringField;
WideStringField22: TWideStringField;
WideStringField23: TWideStringField;
DataSource18: TDataSource;
ADOQuery22: TADOQuery;
WideStringField24: TWideStringField;
WideStringField25: TWideStringField;
DataSource22: TDataSource;
ADOQuery23: TADOQuery;
WideStringField26: TWideStringField;
WideStringField27: TWideStringField;
WideStringField28: TWideStringField;
WideStringField29: TWideStringField;
WideStringField30: TWideStringField;
WideStringField31: TWideStringField;
DataSource23: TDataSource;
ADOQuery24: TADOQuery;
WideStringField41: TWideStringField;
WideStringField42: TWideStringField;
WideStringField43: TWideStringField;
FloatField2: TFloatField;
DataSource24: TDataSource;
ADOQuery24ygbh: TWideStringField;
ADOQuery25: TADOQuery;
DataSource25: TDataSource;
ADOQuery25lbmc: TWideStringField;
ADOQuery25gg: TWideStringField;
ADOQuery25zsl: TFloatField;
ADOQuery15xmdm: TWideStringField;
ADOQuery15xb: TWideStringField;
ADOQuery15gzbh: TWideStringField;
ADOTable2: TADOTable;
ADOQuery26: TADOQuery;
DataSource26: TDataSource;
ADOQuery21id: TAutoIncField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
adodm: Tadodm;
implementation
{$R *.dfm}
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -