1.用inputbox函数输入口令 password:=inputbox('输入口令','口令:',''); session.addpassword(password); //paradox数据库有效 2.用passworddialog函数输入口令 if passworddialog(Session) then table.open; else .... end;
delphi自带的adotest中有这个事件 你可以去查一下
首先,先在单元文件中包含AdoConEd; if EditConnectionString(ADOConnection1) then begin //display the resulting ADO Connect String, just for fun. ShowMessage(ADOConnection1.ConnectionString); end;
password:=inputbox('输入口令','口令:','');
session.addpassword(password); //paradox数据库有效
2.用passworddialog函数输入口令
if passworddialog(Session) then
table.open;
else
....
end;
你可以去查一下
begin
//display the resulting ADO Connect String, just for fun.
ShowMessage(ADOConnection1.ConnectionString); end;