module1.bas

访问管理系统是使用VB和ACCESS数据库的 很好

Attribute VB_Name = "Mdl_Public"
'定义全局标量用于连接数据库
Public DBCnn As New ADODB.Connection

'定义全局变量UserNow为UserType类型
Public UserNow As UserType

'自定义用户类型
Type UserType
    ID As String    '用户ID
    Type As Integer '用户类型
End Type

'********************************************************************
'用户操作记录入库函数 AddRec
'功能：将操作记录入库，以便查询。
'输入：操作类型RecType，Integer类型
'      1＝登记访客资料  2=查询访客资料 3=更改密码
'      4=添加新用户 5=查看用户资料 6=查看操作记录
'输出：无
'********************************************************************
Public Sub AddRec(ByVal RecType As Integer)
Dim AddUserRec As New ADODB.Recordset
Dim DBstr As String

    DBstr = "select * from UserRecord"
    '打开数据集
    AddUserRec.Open DBstr, DBCnn, adOpenForwardOnly, adLockOptimistic
    '添加新记录
    AddUserRec.AddNew
        AddUserRec.Fields("UserID") = UserNow.ID
        AddUserRec.Fields("UserTime") = Now
        AddUserRec.Fields("UserOperate") = RecType
    '更新数据集
    AddUserRec.Update
    '关闭数据集
    AddUserRec.Close

End Sub