学生系统也有这个功能，但是自己当时都是直接敲过去，只能知道有这么一个东西，却不知道，他是怎么来的，经过今天的重返代码，知道了这个问题是怎么解决的。
原理：
通过公共模块的中一个变量来存储用户名的信息。在使用时直接调用该信息
方法：
1。首先在模块中定义UserName变量
Public UserName As String2.在登陆窗体前出现该变量，在确定登录的是该用户时让其值等于用户名
Private Sub CmdOk_Click()
各种dim .........
UserName = " " ' 用来存放账户名
一堆判断该用户能够登录的代码......
确定登录的是该用户后
UserName=Trim(TxtUserName.Text)
判断用户的等级
End sub
使用
修改密码时，可直接根据当前登录的用户名在user_info 表中进行查询
TxtSql = "select * from user_info where userID='" & UserName & "'"
