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.

最新文章

ADO存取数据库时如何分页显示[01-08]

ADO操作及其参数介绍[01-08]

ACCESS存储数据极限[01-08]

Access报表打印——自动分页[01-08]

Access安全吗？——Access安全性之QA详解[01-08]

Access安全吗?—Access安全性详解[01-08]

相关文章

重新编译PLSQL中无效对象或指定对象[01-08]

OpenBSD4.0 PostgreSQL8.1.5数据库的..[01-08]

PostgreSQL 最新8.2版发布[01-08]

PostgreSQL介绍及安装指南[01-08]

Windows下PostgreSQL8.1版安装图解[01-08]

postgresql+jdbc+servlet中文问题[01-08]