机房收费系统----数据库添加登录人ID和电脑用户名显示在数据库里

第一个问题：

在“增”这个操作的时候，增加信息的同时，找到执行“增加”操作人的信息，存入到数据库的实现

举一个例子：操作员注册信息的时候，在添加了UserID、 PWD 、LEVEl 、Username 后 点击添加的同时，数据表中的head列 也添加了 登录人的ID 



想法一：调用表，查询登录信息: 利用mrc（注册表）.field(4)=mrc1(登录表).field(0)  ，这样需要遇到一个添加一部分代码
学生上机系统的办法：在登录的时候，捕捉信息UserName= trim（txtUserName.Text），公共声明变量username 所有类似添加都用;mrc(注册表).field(4)=username  就可以了
好比：一个容器里面有很多地方都需要应用的物品，那么它就把这个物品告诉所有需要的人，它叫username，无论谁需要，直接用这个名字，就可以捕捉到它再放到其他的容器里。这就是我们模块里面应用比较多的public 声明

第二个问题：

登录的同时，除了搜索数据库User_Info 验证信息正确否，还要在Worklog 和OnWorkLog数据库表里添加当前信息，其中包含当前登录的computer是什么，这是怎么实现的？

应用一句代码就可以实现了：变量名 = VBA.Environ("computername")

综上部分代码实现：

'登录的同时，要在Worklog表上有登录的部分信息
txtsql2 = "select * from Worklog_info "
Set mrc2 = ExecuteSQL(txtsql2, msgtext2)
'让电脑名称存在comptname里
ComptName = VBA.Environ("computername")
mrc2.AddNew
mrc2.Fields(1) = Trim(txtUserName)
mrc2.Fields(2) = Trim(mrc.Fields(2))
mrc2.Fields(3) = Date
mrc2.Fields(4) = Time
mrc2.Fields(7) = Trim(ComptName)
mrc2.Fields(8) = "True"
mrc2.Update
mrc2.Close
mrc.Close
Me.Hide
'登录窗体隐藏，主窗体显示之前进行赋值
UserName = Trim(txtUserName.Text)
rmMain.Show

4000