急急急,连接数据库的密码不对,怎么处理异常!

火云洞红孩儿
博客专家认证
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
...全文
87 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
hiflower 2003-08-22
  • 打赏
  • 举报
回复
ON ADOConnection1.Error do //???编译能通过??on 后面应该是个 异常类型 !!!

如果用 huojiehai(海天子) 的方法仍出现异常消息,是因为在调试模式的原理,EXE 文件运行就不会出现了。也可以在调试模式下抑制此消息,Tools|Debugger Options-->Language Exception 对话框中添加你的异常类型。
火云洞红孩儿 2003-08-22
  • 打赏
  • 举报
回复
还是出现异常呀!
huojiehai 2003-08-22
  • 打赏
  • 举报
回复
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;
exit;
end;

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧