udm.pas

非长好的DELPHI办公系统 直接可以用

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.