开发者社区> 科技小先锋> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

delphi 数据库 ado技术

简介:
+关注继续查看

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

   133641955.jpg

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

   第一步配置con1控件

   134452679.jpg

  第二步配置adoquery1属性

   134704169.jpg

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

   

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

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
Delphi 程序错误写法造成Oracle数据库负载异常
本文讲的是Delphi 程序错误写法造成Oracle数据库负载异常,在用Toad的SGA Trace工具监控我们的Oracle 9.2.0.8 Patch 31古董数据库时发现一条奇怪的SQL,它占到数据库整体逻辑读50%以上。
2480 0
我常用的delphi 第三方控件
有网友问我常用的控件及功能。我先大概整理一下,以后会在文章里面碰到时再仔细介绍。       Devexpress VCL 这个基本上覆盖了系统界面及数据库展示的方方面面,是做桌面系统必备的一套控件,目前的版本是2011.2.3, 支持win32 及win64。
1076 0
083_《Delphi数据库开发经典实例精解》
《Delphi数据库开发经典实例精解》 Delphi 教程 系列书籍 (083) 《Delphi数据库开发经典实例精解》 网友(邦)整理 EMail: shuaihj@163.
1491 0
019_《Delphi第三方控件使用大全Ⅱ》
《Delphi第三方控件使用大全Ⅱ》 Delphi 教程 系列书籍 (019) 《Delphi第三方控件使用大全Ⅱ》 网友(邦)整理 EMail: shuaihj@163.
1977 0
Delphi控件安装
2004-4-22 18:08:30     发表评语»»»      2004-4-22 18:10:15    只要在delphi中打开工程文件,编译后就可以使用了。
835 0
Delphi中的几种数据库引擎
Delphi中经常出现的词汇是ADO,BDE,dbExpress等等,那么他们之间到底有什么异同呢,Delphi中的数据库引擎又到底有多少种呢?也许应该从整体上把握一下,才能有的放矢.
1212 0
6963
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载