开发学院软件开发 Delphi ADO带密码的数据连接、查询一个记录集、执行一SQL... 阅读

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

　2006-02-04 13:51:18　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劕鎼痪褔鏌曟繝蹇曠窗闁煎壊浜滈—鍐偓锝庡墮娴犙勭箾閸喎鐏ユい鏇樺劦椤㈡瑩鎮℃惔銇帮拷

核心提示：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;