24小时热门版块排行榜

>论坛更新日志 (3436)
>文献求助 (149)
>基金申请 (81)
>休闲灌水 (77)
>导师招生 (73)
>招聘信息布告栏 (66)
>虫友互识 (61)
>论文投稿 (48)
>博后之家 (45)
>考博 (33)
>考研 (19)
>硕博家园 (18)
>公派出国 (18)
>海外博后 (17)
>教师之家 (16)
>找工作 (16)

返回列表

zyj8119

木虫 (著名写手)

应助: 65 (初中生)
贵宾: 0.003
金币: 915.1
散金: 1440
红花: 35
帖子: 2936
在线: 1329.4小时
虫号: 664177
注册: 2008-11-29
性别: GG
专业: 理论和计算化学

[交流] 【转帖】关于delphi登陆窗体连接数据库的用法已有1人参与

Delphi代码

CODE:

if Button1.Caption  =  '登陆(&L)  >' then   

      begin   

      ADOConnection1.Connected := true;   

      ADOQuery1.Active := false;   

      ADOQuery1.SQL.Clear;   

      ADOQuery1.SQL.Add('select * from users');   

      ADOQuery1.SQL.Add(' where userName = ' + quotedstr(trim(cb_username.Text)));   

      ADOQuery1.SQL.Add(' and userpwd= ' + quotedstr(trim(ed_pwd.Text)));   

      ADOQuery1.Active:= true;   

      //ADOConnection1.Connected := false;   

      //这句不能加，否则被断开连接了   

      if not ADOQuery1.Eof  then   

      begin   

           Notebook1.PageIndex :=1;   

           Button1.Enabled :=false;   

        //这句不对的， RowsAffected是对“UPDATE”和“DELETE”操作有效的，对"SELECT"无效   

        //if ADOQuery1.RowsAffected > 0 then   

        //   begin   

        //   Notebook1.PageIndex :=1;   

        //   Button1.Enabled :=false;   

        //   end   

        // else   

        //    begin   

        //      showmessage('用户名或密码错误，请重新输入');   

        //    end   

       end   

       else   

           begin   

              //showmessage('用户名或密码错误，请重新输入');   

              Application.MessageBox('用户名或密码错误，请重新输入','提示',0)   

           end   

    end   

    else   

        begin   

         Form1.Close;   

        end;  

 if Button1.Caption  =  '登陆(&L)  >' then

       begin

       ADOConnection1.Connected := true;

       ADOQuery1.Active := false;

       ADOQuery1.SQL.Clear;

       ADOQuery1.SQL.Add('select * from users');

       ADOQuery1.SQL.Add(' where userName = ' + quotedstr(trim(cb_username.Text)));

       ADOQuery1.SQL.Add(' and userpwd= ' + quotedstr(trim(ed_pwd.Text)));

       ADOQuery1.Active:= true;

       //ADOConnection1.Connected := false;

       //这句不能加，否则被断开连接了

       if not ADOQuery1.Eof  then

       begin

            Notebook1.PageIndex :=1;

            Button1.Enabled :=false;

         //这句不对的， RowsAffected是对“UPDATE”和“DELETE”操作有效的，对"SELECT"无效

         //if ADOQuery1.RowsAffected > 0 then

         //   begin

         //   Notebook1.PageIndex :=1;

         //   Button1.Enabled :=false;

         //   end

         // else

         //    begin

         //      showmessage('用户名或密码错误，请重新输入');

         //    end

        end

        else

            begin

               //showmessage('用户名或密码错误，请重新输入');

               Application.MessageBox('用户名或密码错误，请重新输入','提示',0)

            end

     end

     else

         begin

          Form1.Close;

         end; 关于delphi登陆窗体连接数据库的用法