?? unit11.pas
字號:
unit Unit11;
interface
uses
Windows,Messages,Dialogs,SysUtils,Forms,
Classes, DB, ADODB,inifiles,Controls,Variants;
type
Tmydm = class(TDataModule)
ADOConnection1: TADOConnection;
policyquery: TADOQuery;
insquery: TADOQuery;
policysrc: TDataSource;
inssrc: TDataSource;
query: TADOQuery;
DataSource1: TDataSource;
benesrc: TDataSource;
beneQuery: TADOQuery;
clasQuery: TADOQuery;
classrc: TDataSource;
userQuery: TADOQuery;
usersrc: TDataSource;
cust1query: TADOQuery;
cust1src: TDataSource;
custquery: TADOQuery;
custsrc: TDataSource;
billQuery: TADOQuery;
Billsrc: TDataSource;
fanQuery: TADOQuery;
fansrc: TDataSource;
back: TADOQuery;
guo: TADOQuery;
guosrc: TDataSource;
find: TADOQuery;
jpQuery: TADOQuery;
jpsrc: TDataSource;
bpQuery: TADOQuery;
bpsrc: TDataSource;
reQuery: TADOQuery;
resrc: TDataSource;
empQuery: TADOQuery;
empsrc: TDataSource;
compQuery: TADOQuery;
compsrc: TDataSource;
ADOQuery1: TADOQuery;
DataSource2: TDataSource;
comprepQuery: TADOQuery;
comprepsrc: TDataSource;
comp1Query: TADOQuery;
comp1src: TDataSource;
baochaquery: TADOQuery;
baochasrc: TDataSource;
billsumQuery: TADOQuery;
billsumsrc: TDataSource;
billbaoQuery: TADOQuery;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mydm: Tmydm;
implementation
//uses unit13;
{$R *.dfm}
procedure Tmydm.DataModuleCreate(Sender: TObject);
begin
with mydm do
begin
Cust1query.Active:=true;
Policyquery.Active:=true;
Insquery.Active:=true;
Benequery.Active:=true;
Clasquery.Active:=true;
Custquery.Active:=true;
Query.Active:=true;
Userquery.Active:=true;
Fanquery.Active:=true;
Billquery.Active:=true;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -