用delphi做了一个霸气的登陆界面
用数据库记录账号的登陆功能的实现
第一步配置con1控件
第二步配置adoquery1属性
第三步：添加按钮点击事件
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
procedure
TForm2
.
btn1Click(Sender: TObject);
begin
if
(edt1
.
Text =
''
)
or
(edt2
.
Text =
''
)
then
ShowMessage(
'账号或密码不能为空'
)
else
begin
With
ADOQuery1
do
begin
close;
SQL
.
Clear;
SQL
.
Add(
'select * from admins where 学号='
''
+edt1
.
text+
''
' and 密码='
''
+edt2
.
text+
''
''
);
Open;
if
Eof
then
begin
ShowMessage(
'账号或密码错误'
);
exit;
end
else
begin
//界面跳转
Form2
.
Hide;
//当前窗口隐藏
Form1
.
Show;
//要跳转到的窗口显示
Form1
.
stat1
.
Panels[
1
].Text := edt1
.
Text;
Form1
.
stat1
.
Panels[
3
].Text := FieldValues[
'权限'
];
Form1
.
stat1
.
Panels[
5
].Text := getTimeNow();
end
;
end
;
end
;
end
;
|
这样一个登陆界面登陆及跳转就实现了
本文转自lilin9105 51CTO博客，原文链接：http://blog.51cto.com/7071976/1220038，如需转载请自行联系原作者
