机房收费-----改密码时如何得知目前登录的账户名？

学生系统也有这个功能，但是自己当时都是直接敲过去，只能知道有这么一个东西，却不知道，他是怎么来的，经过今天的重返代码，知道了这个问题是怎么解决的。

原理：

通过公共模块的中一个变量来存储用户名的信息。在使用时直接调用该信息

方法：

1。首先在模块中定义UserName变量

            Public UserName As String

2.在登陆窗体前出现该变量，在确定登录的是该用户时让其值等于用户名

Private Sub CmdOk_Click()
        
    各种dim .........
    
    UserName = " "        ' 用来存放账户名
    
    
    一堆判断该用户能够登录的代码......
     确定登录的是该用户后
    UserName=Trim(TxtUserName.Text)
    判断用户的等级
    
End sub

使用

修改密码时，可直接根据当前登录的用户名在user_info 表中进行查询

        TxtSql = "select * from user_info where userID='" & UserName & "'"