用ADO登陆SQL SERVER2000的问题！(50分)

  • 主题发起人 主题发起人 cansim
  • 开始时间 开始时间
C

cansim

Unregistered / Unconfirmed
GUEST, unregistred user!
1。我在Formcreat事件中执行adoconnection.open，运行时是先出来登陆窗口
我用try...except来截获出错信息，
出错时执行application.messagebox('出错','xx',MB_OK)
我想在Messagebox中，当点击确定后主窗口不创建，应该如何实现
有什么更好的办法可以实现这过程吗？
也就是，先出来一个登陆的界面，如果成功就显示主窗口
否则就关闭！
2。还有ADO登陆SQLSERVER的消息窗口能不能修改？应如何改？
 
1, application.Terminate
2, try
.............
except on e:exception do
begin
messagebox(handle,pchar(e.message+'你要说的话'),'xx',mb_ok);
end;
end;
 
1：//用application.Terminate你的主窗口会闪一下；
用：
application.ShowMainForm：=FALSE；
成功再SHOW，不成功，application.Terminate
2： 设置 TADOConnection.LoginPrompt为FALSE；
 
卡色你可能误会我的意思了,我是想自己做个登陆的界面,不是不要界面啊!
 
1、try
.............
except on e:exception do
begin
messagebox(handle,pchar('sdffdfd'),'xx',mb_ok);
application.Terminate
end;
end;
2、好像不能修改
 
做个Login窗口，
Application.Initialize;
frm_login := Tfrm_login.Create(Application);
[red]if frm_login.ShowModal <> mrOK then Halt;[/red]
Application.CreateForm(Tfrm_main, frm_main);
Application.Run;
 
Try ... Except .出错提示.end
 
你可以把登录窗口在创建主窗口前面创建，通过project1下的设置下设置，
然后把用showmodal方法，那么显示的时候就会先出现登录窗口了，这样通过验证就可以再创建主窗口了。
 
做个login窗口，在工程文件里生成它，并判断登录是否成功，成功的话，再执行下面的
 
[?][?][^][^][:(][:(][:(]
 
Application.Initialize;
Application.CreateForm(Tfrm_main, frm_main);
application.ShowMainForm：=FALSE；
frm_login := Tfrm_login.Create(Application);
if frm_login.ShowModal = mrOK then
frm_main.show else
application.Terminate;
Application.Run;
 
ADO登陆SQLSERVER的界面真的改不了？
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
C
如何自己做个登陆SQL SERVER2000的界面？(50分)
回复
2
查看
127
cansim
C
S
我在前面用了一个登陆窗口,后面的表单为MDI和childform,请问如何实现最前面的登陆窗口(50分)
回复
4
查看
196
skytears
S
L
系统登陆问题(50分)
回复
10
查看
179
lornsidezhao
L
X
登陆的问题？？(50分)
回复
9
查看
95
xxwxd
X
后退
顶部