W
wolf_101
Unregistered / Unconfirmed
GUEST, unregistred user!
各位大哥：我是一个新手，今天想做一个登陆界面，不知道用户名，密码问题怎么解决！
求救！！！！！！！！！[^][^][^]
求救！！！！！！！！！[^][^][^]
S
stuwe
Unregistered / Unconfirmed
GUEST, unregistred user!
用Edit就行
密碼的Edit屬性PasswordChar:='*'
密碼的Edit屬性PasswordChar:='*'
W
wolf_101
Unregistered / Unconfirmed
GUEST, unregistred user!
我是想问用户名，密码这些数据放在哪里。还有怎么调用他们！！！！！！[
][][]
][][]
W
wolf_101
Unregistered / Unconfirmed
GUEST, unregistred user!
我在线等待！！！！
J
jianl
Unregistered / Unconfirmed
GUEST, unregistred user!
>我是想问用户名，密码这些数据放在哪里
一般是放在数据库里的
create table operator
( username:vchar(20)
password:vchar(30)
)
一般是放在数据库里的
create table operator
( username:vchar(20)
password:vchar(30)
)
H
hjybh
Unregistered / Unconfirmed
GUEST, unregistred user!
用户名和密码可以存放在数据库里面，当然密码应该加密。
至于怎么调用请看看数据库编程。
至于怎么调用请看看数据库编程。
M
Mymm
Unregistered / Unconfirmed
GUEST, unregistred user!
简单的放在注册表里
复杂的加密一下放在数据库里
复杂的加密一下放在数据库里
Y
yczjs
Unregistered / Unconfirmed
GUEST, unregistred user!
到论坛里搜吧
H
heipi2002
Unregistered / Unconfirmed
GUEST, unregistred user!
提的问题都听不懂[]
]
W
wolf_101
Unregistered / Unconfirmed
GUEST, unregistred user!
还不是很清楚。能不能具体点
S
stuwe
Unregistered / Unconfirmed
GUEST, unregistred user!
用數據庫保存用戶名和密碼
登錄的時候找對應的用戶名和密碼
正確就可進入﹐不正確就退出
登錄的時候找對應的用戶名和密碼
正確就可進入﹐不正確就退出
W
wolf_101
Unregistered / Unconfirmed
GUEST, unregistred user!
xiexie
X
xyf2001721
Unregistered / Unconfirmed
GUEST, unregistred user!
帮你up
P
pihome
Unregistered / Unconfirmed
GUEST, unregistred user!
给你一个以前的很早以前写的登录代码吧
function LoginUser(UserName, PassWord: String):Boolean;
//用户登录： 用户名；用户密码
var
i: Integer;
begin
Result:=False;
try
Query.Close;
Query.SQl.Clear;
Query.SQL.Add('Select * from [用户管理表] where [用户姓名]='''
+Encode(UserName)+'''');
if PassWord='' then
Query.SQL.Add(' and ([用户密码]='''' or [用户密码] is NULL)')
else
Query.SQL.Add(' and [用户密码]='''+Encode(PassWord)+'''');
Query.Open;
if Query.isEmpty then
begin
LogTimes:=LogTimes+1;
if LogTimes>2 then
begin
MessageBox(Application.Handle,PChar('用户名或密码错误，无法登录系统！'
+' '+#13#13'错误次数已达3次，即将退出系统！'),'提示',MB_OK+
MB_ICONINFORMATION);
Application.Terminate;
end
else
MessageBox(Application.Handle,'用户名或密码错误，无法登录系统！ ',
'提示',MB_OK+MB_ICONINFORMATION);
Exit;
end
Result:=True;
Query.Close;
except
on E:Exception do
ErrMsg(E);
end;
end;
function LoginUser(UserName, PassWord: String):Boolean;
//用户登录： 用户名；用户密码
var
i: Integer;
begin
Result:=False;
try
Query.Close;
Query.SQl.Clear;
Query.SQL.Add('Select * from [用户管理表] where [用户姓名]='''
+Encode(UserName)+'''');
if PassWord='' then
Query.SQL.Add(' and ([用户密码]='''' or [用户密码] is NULL)')
else
Query.SQL.Add(' and [用户密码]='''+Encode(PassWord)+'''');
Query.Open;
if Query.isEmpty then
begin
LogTimes:=LogTimes+1;
if LogTimes>2 then
begin
MessageBox(Application.Handle,PChar('用户名或密码错误，无法登录系统！'
+' '+#13#13'错误次数已达3次，即将退出系统！'),'提示',MB_OK+
MB_ICONINFORMATION);
Application.Terminate;
end
else
MessageBox(Application.Handle,'用户名或密码错误，无法登录系统！ ',
'提示',MB_OK+MB_ICONINFORMATION);
Exit;
end
Result:=True;
Query.Close;
except
on E:Exception do
ErrMsg(E);
end;
end;
H
hyperbrain
Unregistered / Unconfirmed
GUEST, unregistred user!
用数据库建两张表不一下子搞定了吗？
F
fancy105
Unregistered / Unconfirmed
GUEST, unregistred user!
做登录对话框要注意的问题：
1、字体（至少要让人看得舒服），密码的屏蔽（至少不能让人直接看到）。
2、处理好取消和确定，取消（不要忽略了对话框的[关闭]按钮，可以与取消同效！）
做什么？确定做什么？
3、确定用户帐号及密码，焦点的转移，最好能实现不需要鼠标完成整个登录过程；
4、帐号信息的正确和错误的必要提示，不要让人莫名其妙，错了什么都不知道，搞得像攻
密码窃密那样；
5、要有登录次数等必要的限制，最好能设置并利用帐号的其它的一些属性，如锁定等；
6、提供一个良好的接口，即你的登录对话框结束后，是什么结果，让调用的程序知道怎么
作出相应的动作！
以上为本人的几点意见，疏漏之处请大家继续补充！
1、字体（至少要让人看得舒服），密码的屏蔽（至少不能让人直接看到）。
2、处理好取消和确定，取消（不要忽略了对话框的[关闭]按钮，可以与取消同效！）
做什么？确定做什么？
3、确定用户帐号及密码，焦点的转移，最好能实现不需要鼠标完成整个登录过程；
4、帐号信息的正确和错误的必要提示，不要让人莫名其妙，错了什么都不知道，搞得像攻
密码窃密那样；
5、要有登录次数等必要的限制，最好能设置并利用帐号的其它的一些属性，如锁定等；
6、提供一个良好的接口，即你的登录对话框结束后，是什么结果，让调用的程序知道怎么
作出相应的动作！
以上为本人的几点意见，疏漏之处请大家继续补充！
A
Arrunduo
Unregistered / Unconfirmed
GUEST, unregistred user!
用 ACCESS作为数据库较为简单也较易实现，加上Pihome的原代码作为控制登录的函数，可用
两个EDIT控件，一个作为用户名userName:=editUsername.Text，一个作为密码
password:=editPassword.Text。当按下确定键时，
if LoginUser(UserName, PassWord: String)//当正确时
else //否则。。。
至于怎么连接数据库，用QUERY控件等请参考Delphi6从入门到精通第十三章
两个EDIT控件，一个作为用户名userName:=editUsername.Text，一个作为密码
password:=editPassword.Text。当按下确定键时，
if LoginUser(UserName, PassWord: String)//当正确时
else //否则。。。
至于怎么连接数据库，用QUERY控件等请参考Delphi6从入门到精通第十三章
W
wolf_101
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
W
wolaixue
Unregistered / Unconfirmed
GUEST, unregistred user!
0