module1.bas

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

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

'============================================
'功能：系统启动入口函数
'============================================
Public Sub Main()
  Dim SqlStr As String

  '确定该程序没有被启动过
  If App.PrevInstance Then
    MsgBox "您已经启动过了本程序!"
    End
  End If

  '连接数据库
  SqlStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mdb\ParkingCharge.mdb;Persist Security Info=False"

  On Error GoTo ErrProcess
  DBCnn.Open SqlStr

  '显示登录对话框
  frmLogin.Show
  Exit Sub
  '错误处理
ErrProcess:
  MsgBox Err.Description

End Sub

'********************************************************************
'用户操作记录入库函数 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