我用access数据库，delphi怎么建立一个软件启动时的登录窗？(100分)

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #1

access数据库，登录用户表名为admin，用daotable来做，请问怎么才能使软件建立登录框
？下面是重点问题：
1、所有控件，dbedit？
2、怎样检测试用户和密码正确并通过？
3、最好给出源码
以上是我的问题重点，麻烦请将所有步骤（包括没有提到的）尽可能细的说一遍，谢谢

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #2

各位，帮帮我，我只是想弄懂，想和大家讨论，我会在线等的

 

X

X-man

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #3

这种很好做啊!
1:在mainfrom之前show一个login窗口,摆2个edit,录入username,password
2.用query在资料库中找资料,有的话就通过!
3....手边没有........

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #4

2.用query在资料库中找资料,有的话就通过!
第二个问题具体一些，另外是dbedit还是edit？

 

X

X-man

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #5

不用,如果query找出资料后,直接和edit1.text(username),edit2.text(passwd)比对,
如果相符就pass!不需用dbedit显示出来1

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #6

是呀，但是怎么和daoquery联系查找呢？
if XXXXXXXXXX（查找相符的代码是什么？应该怎么写？）then formX.close??

else

弹出提示？

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #7

没有人会吗？

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #8

这100分没有人要吗？

 

W

wbhuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #9

就用普通的edit框，以用户输入的名称和密码作为查询条件，在数据库中查询，如果存在符合条件的记录，登陆成功，如果不存在符合条件的记录，表示不成功，可以再试，最多只允许输三次。

 

L

La Mer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #10

很多书上都有，抄一个就成了。

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #11

wbhuang，是的，我同意你说的，但是具体一些，代码怎么写呢？
以用户输入的名称和密码作为查询条件，
在数据库中查询，如果存在符合条件的记录，登陆成功，
如果不存在符合条件的记录，表示不成功，可以再试，最多只允许输三次

？主要是如果存在符合条件的记录，相信不难，请大体给一下，谢谢

 

X

X-man

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #12

去看你另外开的帖子,希望你看得懂!

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1452757

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #13

？？我的QQ：28279656，大部分能看懂，基本上可以，可是我想知道它的过程

 

无

无疯无禄

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #14

用一个ADOConnection不行吗,

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #15

能说详细一些吗？

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #16

大家可以留下QQ，我们在线讨论：）

 

N

niceboy911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-22

• #17

没有人愿意留QQ吗？

 

陈

陈晨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #18

在一个窗体上放入adoquery,adoquery.connectionstring 设定连接到你的admin所在的数据库
放入一个datasource，放入两个dbedit，datasource.dataset指定为adoquery，
两个dbedit.datasource指定为datasource,放入两个label设定值为用户名，密码。
然后在dbedit，onkeypress事件编写代码
if key=#13 then
begin
Gi:=Gi+1;
if GI>2 then close;
adoquery.sql.add('select count(*) as coun from admin where name='+#39+dbedit1.text+#39+'and ('password='+''''+dbeidt2.text+'''');

if coun > 0 then mainform.show else close;

end;
gi为全局变量，在窗体建立的时候初始化为0；

再不会？？？··#！—·%￥*%*~！￥）

 

哈

哈利波特

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #19

就是

 

J

jierxrh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-24

• #20

在工程里写代码；
LOGFORM：=tLOGFORM。CREATE（APPLICATION）；
LOGFORM。SHOWMODAL；
IF 判断 THEN
创建主窗体。
APPLICATION。RUN
LOGFORM。FREE；