delphi 数据库 ado技术

2016-08-22 10:22:38来源:http://7071976.blog.51cto.com/7061976/1220038作者:lilin9105人点击


用delphi做了一个霸气的登陆界面

用数据库记录账号的登陆功能的实现

第一步配置con1控件

第二步配置adoquery1属性

第三步:添加按钮点击事件

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;

这样一个登陆界面登陆及跳转就实现了


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台