急急急,连接数据库的密码不对,怎么处理异常!
火云洞红孩儿 博客专家认证 2003-08-22 07:11:30 急急急,连接数据库的密码不对,怎么处理异常!
请看代码:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Apath:String;
begin
if edit1.Text='' then
begin
showmessage('请输入管理账号');
abort;
end;
if edit2.text='' then
begin
showmessage('请输入管理密码');
abort;
end;
try
ADOConnection1.Close;
Apath:=ExtractFilePath(Application.ExeName);
ADOConnection1.ConnectionString:='Driver={Microsoft Access Driver (*.mdb)};DBQ='+Apath+'caiwu.mdb;pwd='+Edit1.Text;
ADOConnection1.Connected:=true
except
ON ADOConnection1.Error do
form5.ShowModal;
end;
end;
注:输入框Edit1里输入密码。如果输对,程序运行正常,可是如果输错。就不会出现FROM5,而出现了异常!!!!!!!!!
怎么处理。我想要弹出Form5