用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，如需转载请自行联系原作者