问题三用户标识
在多用户应用程序中,可以以编程方式标识当前登录到系统上的用户,这对于管理功能是有用的。比如用编辑好的记录来存储用户名字,从而建立一个核查线索。实现一个安全的数据库,可以迫使用户必须用预先定义的用户名和密码来登录应用程序,这样,应用程序就可以通过Workspace对象的UserNane属性来使用用户名。下面这个过程,把用户名、当前日期和时间写到指定的记录集中。
过程如下:
FunctionWriteAuditTrail(rstAsRecordset)AsInteger
OnErrorGoToErrorHandler
'编辑记录集中的当前记录
'假定Recordset(rst)包括a
'和b两个字段
rst.Edit
rst!a=Workspaces(0).UserName
rst!b=Now
rst.Update
ErrorHandler:
SelectCaseErr
Case0
WriteAuditTrail=O
EXitFunction
C...[ 查看全文 ]