作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

unit UDataModule;

interface

uses
   Controls,SysUtils, Classes, DB, ADODB,windows,forms,CustomCom_TLB;

type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    dsDataSet: TADODataSet;
    ADOQuery1: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    ConnOK:boolean;
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;
  loginMan : string;
  loginManID:integer;
  isManager:boolean;
  myCom : ICustomMG ; // COM 对象
  function OpenSQL(s: string;query:TADODataSet):integer;
  function DoSQL(s: string;query:TADOQuery):boolean;
 
implementation

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var SQL,pwd:string;
begin
  //连接ADO
  try
    pwd := 'deliSerial';
    SQL := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
         extractfilepath(paramstr(0))+'SerialInfo.mdb'+
         ';Persist Security Info=False;'  +
         'Jet OLEDB:Database Password="'+pwd+'"';
    ADOConnection1.Connected := false;
    ADOConnection1.ConnectionString := SQL;
    ADOConnection1.Connected := true;
    ConnOK:=true;
  except
    ConnOK:=false;
  end;
end;

function OpenSQL(s: string;query:TADODataSet):integer;
var old_Cursor:TCursor;
begin
  old_Cursor:=screen.cursor;
  screen.cursor:=crSQLWait;
  try
    try
      with query do
      begin
        close;
        commandtext:=s;
        open;
        result:=query.recordcount;
      end;
    except
     result:=0;
    end;
  finally
    screen.cursor:=old_Cursor;
  end;
end;

function DoSQL(s: string;query:TADOQuery):boolean;
var old_Cursor:TCursor;
begin
  result:=true;
  old_Cursor:=screen.cursor;
  screen.cursor:=crSQLWait;
  try
    try
      with query do
      begin
        close;
        SQL.Clear ;
        SQL.Add(s);
        ExecSQL;
      end;
    except
      result:=false;
    end;
  finally
    screen.cursor:=old_Cursor;
  end;
end;

end.

相关软件：