多客户环境下VB数据库编程之（10）

多用户应用程序中应注意的其它问题(3)

　　问题三 用户标识

　　在多用户应用程序中，可以以编程方式标识当前登录到系统上的用户，这对于管理功能是有用的。比如用编辑好的记录来存储用户名字，从而建立一个核查线索。实现一个安全的数据库，可以迫使用户必须用预先定义的用户名和密码来登录应用程序，这样，应用程序就可以通过Workspace对象的UserNane属性来使用用户名。下面这个过程，把用户名、当前日期和时间写到指定的记录集中。

　　过程如下：

　　Function WriteAuditTrail(rst As Recordset) As Integer

　　　On Error GoTo ErrorHandler

　　　'编辑记录集中的当前记录

　　　'假定Recordset(rst)包括a

　　　'和b两个字段

　　　rst.Edit

　　　st!a＝Workspaces(0).UserName

　　　rst!b＝Now

　　　rst.Update

ErrorHandler：

　　　SelectCaseErr

　　　　　Case 0

　　　　　　WriteAuditTrail＝O

　　　　　　EXit Function

　　　　　Case Else

　　　　　　MsgBox "Error" & Err & ":" & Error，vbOKOnlv

　　　　　　WriteAuditTrail＝Err

　　　　　　EXit Function

　　　End Select

　　End Function

上述过程把用户、系统当前日期和时间写入一个记录集中。如果写入成功，则过程返回0，否则返回相应的错误代码。