主题：[求助]注册窗口如何实现自定义管理员进行审核

设计了【注册窗口】、【登录窗口】、【密码找回】、【用户管理】（参考帮助文件），并在在外部表建立了数据源“User”,表列名有[account][password][name][phone][注册审核（逻辑列）]

1、如何实现发布后的程序定义管理员（这里的管理员是外部表某列的用户，如admin）拥有审核注册的权限

2、如何实现窗口登录后，显示当前登录的用户信息：如[accout]的值 ；当前系统时间（已解决）

3、如何实现，用户通过[account][phone]两列的值修改对应[account]的密码，相当于密码找回功能

能否提供类似的例子，或者帮助文件或代码

全局代码中需要定义哪些变量？参考帮助，是否需要定义_Useraccount , _Userphone两变量即可？

Bin大，根据您的方法，我设置完毕以后，当前用户是空白，如果按照帮助中进行设置，我当前用户显示的就是我在系统用户创建的用户“操作员（默认）”

此主题相关图片如下：pic001.png


此主题相关图片如下：pic002.jpg

此主题相关图片如下：pic003.jpg

此主题相关图片如下：pic0004.jpg

 登陆的时候，你有给变量赋值吗？如 _UserAccount = dr("Account")

你登陆窗口不是有确认按钮的么？确认按钮不是要查出用户信息的么？那个时候赋值。

这是登录窗口确认按钮的代码，应该已经赋值了！

Dim us As String = e.Form.Controls("UserAccount").Value
Dim dr As DataRow
If us = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[Account] = '" & us & "'")  'SQLFind 语句使用方法,用DataTables引用外部表数据.sqlfind查找对应字段
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserAccount = us
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

此主题相关图片如下：qq截图20150716155129.jpg

创建Label11控件 然后对其赋值 

写在窗口的afterload事件中：

代码：e.form.controls("Label11").text= _UserAccount

此主题相关图片如下：20157151222198677.jpg
 

如果代码写为：e.form.controls("Label11").text= User.Name 显示出来的是foxtable自带的用户管理里面的默认用户。即我创建的“操作员”用户

此主题相关图片如下：abcd1234.jpg

 

 Label12、Label13控件设置的时间和日期，代码在TimerTick中，正常

=============================

请教，如何改写代码？

下面这句代码如果写入timertick事件呢？

e.form.controls("Label11").text= _UserAccount