procedure Tfrm_login.btn_yesClick(Sender: TObject);
begin
Guser:=trim(edt_user.Text);
Gpwd:=trim(edt_pwd.Text);
try
firstmodule.Firstconnect.Close;
firstmodule.Firstconnect.ConnectionString:=readloginparams();
firstmodule.Firstconnect.LoginPrompt:=false;
firstmodule.Firstconnect.KeepConnection:=true;
firstmodule.Firstconnect.ConnectionTimeout:=5;
firstmodule.Firstconnect.Open;
except
showmessage('数据库打开出错');
end;
frm_main.Show;
frm_login.Hide;
end;
因为输入连接数据库的用户名不正确,运行时出错,我想控制系统错误信息,于是
用以上代码,但整个没反应,请问该如何处理。。
begin
Guser:=trim(edt_user.Text);
Gpwd:=trim(edt_pwd.Text);
try
firstmodule.Firstconnect.Close;
firstmodule.Firstconnect.ConnectionString:=readloginparams();
firstmodule.Firstconnect.LoginPrompt:=false;
firstmodule.Firstconnect.KeepConnection:=true;
firstmodule.Firstconnect.ConnectionTimeout:=5;
firstmodule.Firstconnect.Open;
except
showmessage('数据库打开出错');
end;
frm_main.Show;
frm_login.Hide;
end;
因为输入连接数据库的用户名不正确,运行时出错,我想控制系统错误信息,于是
用以上代码,但整个没反应,请问该如何处理。。
解决方案 »
- 如何在ComboBox中插入从数据库中查询出的大量数据而不影响速度?
- 在ARCGIS9,能把bmp做成symbol编入shape文件吗?
- 如何调用动态库中的创建的组件对象(比如TSocketConnection实例)
- 前天我说上海要下大雪,竟被说中了!现在上海满天飞雪,屋顶都白了,爽啊,好几年没看到大雪了!
- 请问在Midas三层环境下可以用DBGrid、DBEdit等数据绑定和显示控件吗?
- 有没有工具可以把单文件EXE转为能在IE上运行
- 如何取得access表的字段属性
- 发现一个电影下载基地,好久没提问了,顺便散散分01
- 小问题,该如何办.
- 请问.bpl是什么文件,怎样看到源码。
- 如何在程序中修改IIs(或Pws)的默认web目录?
- DELPHI7好用吗?我找不到quickrep控件。
if not firstmodule.Firstconnect.Active then
showmessage('数据库打开出错');
procedure Tfrm_login.btn_yesClick(Sender: TObject);
begin
Guser:=trim(edt_user.Text);
Gpwd:=trim(edt_pwd.Text);
try
firstmodule.Firstconnect.Close;
firstmodule.Firstconnect.ConnectionString:=readloginparams();
firstmodule.Firstconnect.LoginPrompt:=false;
firstmodule.Firstconnect.KeepConnection:=true;
firstmodule.Firstconnect.ConnectionTimeout:=5;
firstmodule.Firstconnect.Open;
if not firstmodule.Firstconnect.Active then
showmessage('数据库打开出错');
else
begin
frm_main.Show;
frm_login.Hide;
end;
end;
2 单步调试一下,看看
begin
Guser:=trim(edt_user.Text);
Gpwd:=trim(edt_pwd.Text);firstmodule.Firstconnect.Close;
firstmodule.Firstconnect.ConnectionString:=readloginparams();
firstmodule.Firstconnect.LoginPrompt:=false;
firstmodule.Firstconnect.KeepConnection:=true;
firstmodule.Firstconnect.ConnectionTimeout:=5;
try
firstmodule.Firstconnect.Open;
except
showmessage('数据库打开出错');
application.terminate; //如果其frm_main调用了数据模块的话
end;
frm_main.Show;
frm_login.Hide;
end;
我想说我的是动态连接,没有加ADO控件;不知还有其他办法么,请赐教
在线等
非常感谢。。
firstmodule.Firstconnect.Open;
if not firstmodule.Firstconnect.connected then
showmessage('数据库打开出错');