应用软件登录逻辑总结

//调试的时候先去掉!
  //自动登录
  v := IniItemRead(G.IniFileName, 'COMMON', 'AutoLogin', 'false');
  G.McAutoLogin := strToBoolEx(v, false);
  FmLogin := TFmLogin.Create(nil);
  try
    if G.McAutoLogin then
    begin
      FmLogin.BitBtn1Click(nil); //登录检验
      if FmLogin.ModalResult = 0 then//检验没通过
        FmLogin.ShowModal;
    end
    else
    begin
      FmLogin.ShowModal;
    end;


    if FmLogin.ModalResult = mrCancel then
    begin
      ExitProcess(0);
    end
    else
    begin
        //获取当前登录用户的控制权限项目ID
      FPrjIDs.Text := FmLogin.PrjIDs.Text;
      FPIDS.Text := FmLogin.PIDS.text;
      FRoles.Text := FmLogin.Roles.text;
      FUsers.Text := FmLogin.Users.text;
    end;
  finally
    FmLogin.Free;

  end;

 FUserInfo := TUserInfo.Create;
  if FIniFile.setAutoLogin then //自动登录
  begin
    strtemp := FUserInfo.Login(FIniFile.UseRedmineU, FIniFile.UseRedmineP);
    if UpperCase(strtemp) = 'OK' then
    begin
      Logined;
    end;
  end
  else
  begin


    FrmLogin.UserInfo := FUserInfo;
    FrmLogin.rzchckPwd.Checked := FIniFile.setRememberPwd;
    if FIniFile.setRememberPwd then
    begin
      FrmLogin.edtUser.Text := Trim(FIniFile.UseManHuaU);
      FrmLogin.edtPwd.Text := Trim(FIniFile.UseManHuaP);
    end;
    FrmLogin.rzchckAutoLogin.Checked := FIniFile.setAutoLogin;
    if FrmLogin.ShowModal = mrok then
    begin
      Logined; //登录后界面处理
    end
    else
      ExitProcess(0);


    if FrmLogin.rzchckPwd.Checked then
    begin
      FIniFile.setRememberPwd := True;
      FIniFile.UseManHuaU := Trim(FrmLogin.edtUser.Text);
      FIniFile.UseManHuaP := Trim(FrmLogin.edtPwd.Text);
    end
    else
      FIniFile.setRememberPwd := False;
    if FrmLogin.rzchckAutoLogin.Checked then
      FIniFile.setAutoLogin := True


    else
      FIniFile.setAutoLogin := False;
    FIniFile.SaveToFile(GetDataFile + 'set.ini');
  end;