driver.cls

主要实现5个大的功能模块：基本信息的管理、客户会员管理、常业务管理、系统用户管理、系统帮助信息。每个模块有分成多详细的功能子模块

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Driver"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id 数字 长整型 自动编号
'2 Name  文本 50 驾驶员姓名
'3 Sex 文本 10 性别
'4 Age 数字 整型 年龄
'5 IdCard  文本 20 身份证号
'6 Telephone  文本 50 电话
'7 Address 文本 50 地址
'8 LicenseNo 文本 50  驾驶证号
'9 EngageDate 文本 20 聘用时间
'10 Status 文本 20 状态

Public Id As Long
Public Name As String
Public Sex As String
Public Age As Integer
Public IdCard As String
Public Telephone As String
Public Address As String
Public LicenseNo As String
Public EngageDate As String
Public Status As String

Public Sub Init()
  Id = -1
  Name = ""
  Sex = "男"
  Age = 18
  IdCard = ""
  Telephone = ""
  Address = ""
  LicenseNo = ""
  EngageDate = ""
  Status = ""
End Sub

'删除Driver数据
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "Delete FROM Driver WHERE Id=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Driver WHERE Id=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    GetInfo = False
    Exit Function
  Else
    If IsNull(rs.Fields(0)) Then
      Id = 0
    Else
      Id = rs.Fields(0)
    End If
    If IsNull(rs.Fields(1)) Then
      Name = ""
    Else
      Name = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      Sex = "男"
    Else
      Sex = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      Age = 18
    Else
      Age = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      IdCard = ""
    Else
      IdCard = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      Telephone = ""
    Else
      Telephone = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      Address = ""
    Else
      Address = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      LicenseNo = ""
    Else
      LicenseNo = rs.Fields(7)
    End If
    If IsNull(rs.Fields(8)) Then
      EngageDate = ""
    Else
      EngageDate = rs.Fields(8)
    End If
    If IsNull(rs.Fields(9)) Then
      Status = ""
    Else
      Status = rs.Fields(9)
    End If
  End If
  GetInfo = True
End Function
'判断是否已经存在此驾驶号
Public Function In_DB(ByVal TmpId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Driver WHERE Id=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function

Public Sub Insert()
  '设置INSERT语句
  SqlStmt = "INSERT INTO Driver(Name,Sex,Age,IdCard,Telephone,Address," & _
     "LicenseNo,EngageDate,Status)" & _
     " Values('" + Trim(Name) + "','" + Trim(Sex) + "'," & _
     Trim(Age) + ",'" + Trim(IdCard) + "','" + Trim(Telephone) + "','" & _
     Trim(Address) + "','" + Trim(LicenseNo) + "','" + Trim(EngageDate) + "','" & _
     Trim(Status) + "')"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub
'更新驾驶员信息
Public Sub Update(ByVal TmpId As Long)
  '设置UPDATE语句
  SqlStmt = "Update Driver Set Name='" + Trim(Name) + "',Sex='" + Trim(Sex) _
     + "',Age=" + Trim(Age) + ",IdCard='" + Trim(IdCard) _
     + "',Telephone='" + Trim(Telephone) + "',Address='" + Trim(Address) _
     + "',LicenseNo='" + Trim(LicenseNo) + "'," + "EngageDate='" + Trim(EngageDate) + "'," _
     + "Status='" + Trim(Status) + "' " _
     + " WHERE Id=" + Trim(TmpId)
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub
'更改驾驶员状态
Public Sub UpdateStatus(ByVal TmpId As Long)
  '设置UPDATE语句
  SqlStmt = "Update Driver Set Status='" + Trim(Status) + "'" _
          + " WHERE Id=" + Trim(TmpId)
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub