查看: 136|回复: 0

UniGUI之Login窗口(10)

[复制链接]
发表于 2020-2-15 22:56:15 | 显示全部楼层 |阅读模式
在UniGUI的CHM帮助里读到的。
一定要新建一个其他空白的工程,然后再添加LoginForm
LoginForm 是另一种特殊的表单类型, 仅用于登录目的。

  


此操作将创建一个与常规窗体外观相同的空白 LoginForm:


LoginForm 是一个名为 TUniLoginForm 的内置类的后代.每个应用程序只能有一个 LoginForm。 添加 LoginForm 后, 应用程序将在新会话开始时表现此窗体。 您需要添加控件、事件处理程序和所需的所有内容, 以实现所需的功能。 登录举动是使用窗体的 ModalResult 控制的。 如果 LoginForm 返回mrOK,则表现成功登录, 将创建并激活新 MainForm。 当 ModalResult 返回 mrCancel 时, 它将终止会话。 如果我们使用只有两个按钮的表单 (一个用于成功登录, 另一个用于失败), 下面的代码将实行以下操作:
  1. procedure TUniLoginForm1.UniButton1Click(Sender: TObject);begin  ModalResult := mrOK;  // Login is valid so proceed to MainFormend; procedure TUniLoginForm1.UniButton2Click(Sender: TObject);begin  ModalResult := mrCancel; // Invalid Login exit from append;
复制代码
一旦用户登录并表现 MainForm, 就有两种方法可以终止会话。 您可以终止会话并返回到 LoginForm, 将mrOK作为 ModalResult 返回, 或通过返回mrCancel终止会话。 出于安全原因, 现有会话总是在表现 LoginForm 之前终止, 即每个新登录都启动一个新会话。
保存登录信息七天。
  1.   if sameText(UniEdit1.Text, 'demo1') and sameText(UniEdit1.Text, 'demo1') then  begin    UniMainModule.LoggedUser := UniEdit1.Text;    if UniCheckBox1.Checked then    begin      UniApplication.Cookies.SetCookie('_loginname', UniEdit1.Text, Date + 7.0); // Expires 7 days from now      UniApplication.Cookies.SetCookie('_pwd', UniEdit2.Text, Date + 7.0);    end;    ModalResult := mrOK;  end;
复制代码
登录配景图片设置 :

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?用户注册

x

天涯海角也要找到Ni:UniGUI之Login窗口(10)

中发现Ni: UniGUI之Login窗口(10)
中发现Ni: UniGUI之Login窗口(10)
中发现Ni: UniGUI之Login窗口(10)
中发现Ni: UniGUI之Login窗口(10)
中发现Ni: UniGUI之Login窗口(10)
中发现Ni: UniGUI之Login窗口(10)
相关技术服务需求,请联系管理员和客服QQ:2753533861或QQ:619920289
您需要登录后才可以回帖 登录 | 用户注册

本版积分规则

帖子推荐:
客服咨询

QQ:2753533861

服务时间 9:00-22:00

快速回复 返回顶部 返回列表