加载中…
个人资料
萧无阻
萧无阻
  • 博客等级:
  • 博客积分:0
  • 博客访问:31,000
  • 关注人气:8
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

用delphi 7 制作登录窗口的过程

(2008-05-22 09:05:37)
标签:

it

一、设计窗口

1) file---new--Application,新建一个窗体,设置该窗体的属性:Caption==登录窗口,Name==alogo。

2)在窗体上加入两个Label和两个Bitbtn控件分别设置它们的属性为“用户名”,“密码”,“登录”,“退出”。

3)再加入Edit、Combobox控件。

4)在sql2000中建立一个名为lrbrary的数据库,并在该库中新建一个名为user_master的表。设置该表的字段列名分别为a,b。

5)再加入ADOquery、ADOconnection空间分别设置它们的属性,前者的connection=ADOconnection,后者设置connectionstring,按照提示依次设置连接好4)中建立的数据库。

6)需要再建立一个name名为amian的form窗体用来作为登录正确后显示的窗体

7)窗口界面如下:

                      用delphi <wbr>7 <wbr>制作登录窗口的过程

二、代码输入。

var
  Alogo: TAlogo;

implementation

uses main;
var
  username,password:string;

{$R *.dfm}

procedure TAlogo.BitBtn2Click(Sender: TObject);
begin
alogo.Close;
end;

procedure TAlogo.BitBtn1Click(Sender: TObject);
begin
try
    with adoquery1 do
    begin
      close;
      sql.clear;
      sql.add('select * from user_master where a=:a and b=:b ');
      parameters.ParamByName('a').Value:=trim(combobox1.Text);
      parameters.ParamByName('b').Value:=trim(edit1.Text);
      if combobox1.Text ='' then
        begin
          application.MessageBox('请输入用户名','提示信息',64);
          combobox1.SetFocus;
          exit;
        end;
      if edit1.Text ='' then
        begin
          application.MessageBox('请输入密码','提示信息',64);
          edit1.SetFocus;
          exit;
        end;
      open;
      end;
      if adoquery1.RecordCount<>0 then
        begin
          Username:=combobox1.Text;
          Password:=edit1.Text;
          application.MessageBox('登陆成功','提示信息',64);
          amain.show;//需要再建立一个form窗口用来作为登录正确后显示的窗体
          self.Hide;
        end
      else
        application.MessageBox('输入的用户名或密码错误','提示信息',64);
  except
    application.MessageBox('登陆失败','提示信息',64);
  end;
end;

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
后一篇:烦死了
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

    后一篇 >烦死了
      

    新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有