?? udm.pas
字號:
unit uDM;
interface
uses
SysUtils, Classes, DB, ADODB, Provider;
type
TDM = class(TDataModule)
adoCon: TADOConnection;
adqGoods: TADOQuery;
adqType: TADOQuery;
adqTemp: TADOQuery;
adqImport: TADOQuery;
adqExport: TADOQuery;
dsImport: TDataSource;
adqTypeID: TAutoIncField;
adqTypebh: TWideStringField;
adqTypename: TWideStringField;
dsExport: TDataSource;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OpenQuery(AADOQuery: TADOQuery; ASQlStr: string);
procedure ExecSQL(ASQlStr: string);
end;
const
ADO_STRING='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=goods.mdb;Persist Security Info=False' ;
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.DataModuleCreate(Sender: TObject);
begin
adoCon.ConnectionString:=ADO_STRING;
adqGoods.Active:=True;
end;
procedure TDM.OpenQuery(AADOQuery: TADOQuery; ASqlStr: string);
begin
with AADOQuery do
begin
if Active then Close;
Connection := adoCon;
LockType := ltBatchOptimistic;
SQL.Clear;
SQL.Text := ASqlStr;
Open;
end;
end;
procedure TDM.ExecSQL(ASQlStr: string);
var
aqExec: TADOQuery;
begin
aqExec := TADOQuery.Create(self);
with aqExec do
begin
Connection := adoCon;
SQL.Clear;
SQL.Text := ASqlStr;
ExecSQL;
end;
aqExec.Free;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -