Adoconnection连接数据库时用Open(username,password)来打开。
如果打开错误,则记下来密码错误。再用正确的用户密码打开。把可以修改数据的部分
控件置False。如Dbgrid设置readonly等。
如果打开正确则继续进行。
ex:
ErrorUser := False; //全局变量,记录是否为正确用户密码
try
Adoconnection.Open(username,password);
except
showmessage('error username or password, so you have only navigate right!');
ErrorUser := True;
Adoconnection.open('Leo','aaa'); //用你设置的正确的用户密码打开,此用户权限为读取。
end;
最好在显示其他使用其他From前判断ErrorUser值,控制一些控件属性。
如在Form的Create。
if ErrorUser then
begin
DBGrid1.readonly := True;
ButtonAddRecord.Enable := False;
.............
end;