在线等 ···救急····

我做了一个登陆界面····用了一个CheckBox来选择是否自动登陆````密码和ID是保存在ini文件里的``````可我每次选择自动登陆后`````重新打开程序``都不能自动登陆````求达人哥哥指点一下啊````急`````

解决方案 »

  1.   

    1、是否成功保存到INI文件了
    2、重新登录是否从INI文件成功取出用户名密码了
    3、根据用户名密码自动登录的判断
      

  2.   

    保存CheckBox的值到ini,运行时,先读取这个值
      

  3.   

    登录成功要将用户名密码保存在ini文件中，自动登录时读取这个值。
      

  4.   

    用户名密码成功保存在ini文件中，就是不知道怎样设置自动登陆时程序自动读取````
      

  5.   


    這個是我的代碼,你參考一下.
    procedure Tloginfrm.FormCreate(Sender: TObject);
    begin
       ini:=Tinifile.Create(ExtractFilePath(application.ExeName)+'my.ini');
       edit1.Text:=ini.ReadString('aps','user','');   //顯示上次登錄的用戶名
    end;
      

  6.   

    窗体创建的时候读取ini文件，判断用户名和密码是否正确，如果正确则登录到系统。
      

  7.   

    procedure login.formcreate(sender:tobject);
    begin
      if checkbox1.checked  then 
       begin 
        iFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Login.ini');
        try
         Edit1.text := iFile.ReadString('System','login_nam','');
         Edit2.text := iFile.ReadString('System','password','');
         ......
         ...... 驗證就不用寫給你了吧
         finally
          iFile.Free;
        end;
       end
      else
       begin 
         ......
         ......
       end
    end;
      

  8.   

    主要知道点了 checkbox后  主要保存最后登陆的那个人的用户名和  然后下次登陆时根据用户名来 验证checkbox的值  从而读取密码  自动登陆 ···