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

C

cansim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #1

1。我在Formcreat事件中执行adoconnection.open，运行时是先出来登陆窗口
我用try...except来截获出错信息，
出错时执行application.messagebox('出错','xx',MB_OK)
我想在Messagebox中，当点击确定后主窗口不创建，应该如何实现
有什么更好的办法可以实现这过程吗？
也就是，先出来一个登陆的界面，如果成功就显示主窗口
否则就关闭！
2。还有ADO登陆SQLSERVER的消息窗口能不能修改？应如何改？

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #2

1, application.Terminate
2, try
.............
except on e:exception do
begin
messagebox(handle,pchar(e.message+'你要说的话'),'xx',mb_ok);
end;
end;

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #3

1：//用application.Terminate你的主窗口会闪一下；
用：
application.ShowMainForm：=FALSE；
成功再SHOW，不成功，application.Terminate
2： 设置 TADOConnection.LoginPrompt为FALSE；

 

C

cansim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #4

卡色你可能误会我的意思了,我是想自己做个登陆的界面,不是不要界面啊!

 

F

form1.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #5

1、try
.............
except on e:exception do
begin
messagebox(handle,pchar('sdffdfd'),'xx',mb_ok);
application.Terminate
end;
end;
2、好像不能修改

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #6

做个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;

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #7

Try ... Except .出错提示.end

 

H

heijuanma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #8

你可以把登录窗口在创建主窗口前面创建，通过project1下的设置下设置，
然后把用showmodal方法，那么显示的时候就会先出现登录窗口了，这样通过验证就可以再创建主窗口了。

 

N

nywjx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #9

做个login窗口，在工程文件里生成它，并判断登录是否成功，成功的话，再执行下面的

 

D

dshmily

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #10

[?][?][^][^][][][]

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #11

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;

 

C

cansim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-06

• #12

ADO登陆SQLSERVER的界面真的改不了？

 

C

cansim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #13

多人接受答案了。