我用的是一个数据表来放用户名和密码的
有一段代码不知怎么样写
意思是:当数据表中的某一行的name字段等于edit1.text、password字段等于edit2.text
然后执行XX
否则执行XX

解决方案 »

  1.   

    有很多方法,如果要用程序写可以这样:
    if cilentdataset.locate(用户名的字端名,edit1.text,[]) then
      if cilentdataset.fieldbyname(密码的字段名).asstring = edit2.text then
        begin
          验证成功;
        end
        else
          密码不正确
      else
        用户名不存在
    这种程序很容易找到啊....老大
      

  2.   

    用Select Count(*) from tableName where name = edit1.text and pass = edit2.text取数据
    如果返回的结果为1,那么就算登陆成功!
      

  3.   

    两位大哥,是不是代码有字母写错了cilentdataset报错啊!
      

  4.   

    ....你还真的照抄不误啊?????????????????
    cilentdataset我指的是用TCilentdataset的控件名字。你有没有丢这样一个控件上去啊?
    你看不看出错提示的??
    我都写得这么清楚了,如果你还搞不定,难道要我发源代码给你?
    补补基础知识去吧......
      

  5.   

    这样的问题都有的
    现在不想动脑子的人太多了~http://lysoft.7u7.net
      

  6.   

    cilentdataset当然报错了啊,应该是clientdataset,名字都写错了!
    ===或者这样子===>
    With AdoQuery do
     begin
       close;
       Sql.Clear;
       Sql.Add('Select * from TableName where Name=Trim(edit1.text) and PassWord=Trim(edit2.text)');
       open;
      If RecordCount>0 then
        begin
          //执行XX
        end
      Else
        begin
         //执行YY
        end;
    end;
    实现方法太多了,随你喜欢,呵呵
      

  7.   

    我可以告诉各位大哥们,我是初学的,一直找不到好的入门方法
    只有一边做一些小程序一边学,这样容易记住,但没基础雨步难行
    大哥们能告诉我如何入门才是好啊,有没有一边做一边学的教程这种更合适我的学习方法。
    先谢谢大家的指导!^_^
    有这样的入门教程希望大家高抬贵手发我一份:[email protected]
    谢谢
      

  8.   

    支持新人!
     begin
     with table1 do
     if (edit1.text<>'')and (edit2.text<>'') then   //当姓名和密码都不为空时
       begin
         open;                                      //打开表
         if locate('xingming',edit1.text,[])=true then     //查找表中姓名是否相同
           begin
            if fieldbyname('mima').value=trim(edit2.text) then  //密码也相同时
             from2.show;  // 窗体2打开
             end
            else
           from1.close;
          end
          else
         showmessage('请输入你的姓名和密码,谢谢!');
    end;