ADO帶密碼的數據連接、查詢一個記錄集、執行一SQL語句

　　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.