数据库中有一个Table表:UserInfo
其字段:
NameCode  varchar(20) 主键 Not NULL
Name      varchar(50)      Not NULL
Password  varchar(50)      NULL
这个是登录窗口的数据库表,现在我需要用dephi做一个登录界面,连接数据库用ado,我希望有具体的代码和解释,以及步骤。如有需要请加我QQ574015671 我是新手,刚接触dephi,现在急需知道dephi的项目流程

解决方案 »

  1.   

    晕。随便在网上找一个 Delphi数据库编程 相关的例子。多学习。
      

  2.   

    登陆界面上拉以下几个控件
    Combobox  edit    1个BUTTON
    登陆窗体创建的时候连接数据库读入用户名称等到一个Combobox里,选取Combobox里的一个用户,在Edit中输入密码后,按BUTTON 检查EDIT的内容与数据库中密码是否一致,一至就登陆,不一至就退出噻
      

  3.   


    procedure Tlogin.FormCreate(Sender: TObject);
    begin
      with dm.aq_login do
        begin
          close;
          SQL.Clear;
          SQL.Add('select * from users');
          Open;
          combobox1.Items.Clear;
          while not Eof do
            begin
              combobox1.Items.Add(FieldByName('users').AsString);
              next;
            end;
        end;
    end;procedure Tlogin.Button1Click(Sender: TObject);
    begin
      with dm.aq_login do
        begin
          if locate('users;password',vararrayof([combobox1.Text,edit1.Text]),[]) then
            begin
              zhu.Show;
              unit1.login.hide;
            end
            else
            showmessage('用户名或密码错误!');
            edit1.Clear;
        end;
    end;
    上个月的这个时候我也问过类似的问题。。苦于没人回答。。百度到的都是大项目一点都看不懂给你贴个我写的吧dm(是数据模块窗口名)。aq_……是adoquery组件。