ADO带密码的数据连接、查询一个记录集、执行一SQL语句

核心提示：unit UDataModule;interfaceuses Controls,SysUtils, Classes, DB, ADODB,windows,forms,CustomCom_TLB;type TDataModule1 = class(TDataModule) ADOConnection1: TADOCo

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.