customer.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 = "Customer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public Id As String
Public Name As String
Public Sex As String
Public Age As Integer
Public IdCard As String
Public Telephone As String
Public WorkPlace As String
Public Address As String
Public ZipCode As String
Public Email As String
Public LicenseNo As String
Public LicenseType As String
Public GetDate As String
Public ExpiredDate As String
Public DriverAge As Integer
Public Flag As Integer
Public TypeId As Long
Public Certificate As String
Public Warrantor As String
Public WIdCard As String
Public WWorkPlace As String

Public Sub Init()
  Id = ""
  Name = ""
  Sex = "男"
  Age = 18
  IdCard = ""
  Telephone = ""
  WorkPlace = ""
  Address = ""
  ZipCode = ""
  Email = ""
  LicenseNo = ""
  LicenseType = ""
  GetDate = ""
  ExpiredDate = ""
  DriverAge = 0
  Flag = 0
  TypeId = 0
  Certificate = ""
  Warrantor = ""
  WIdCard = ""
  WWorkPlace = ""
End Sub

Public Sub Delete(ByVal TmpId As String)
  SqlStmt = "Delete FROM Customer WHERE Id='" + Trim(TmpId) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpId As String) As Boolean
  Dim rs As New ADODB.Recordset
  Id = TmpId
  SqlStmt = "SELECT * FROM Customer WHERE Id='" + Trim(TmpId) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    GetInfo = False
    Exit Function
  Else
    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
      WorkPlace = ""
    Else
      WorkPlace = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      Address = ""
    Else
      Address = rs.Fields(7)
    End If
    If IsNull(rs.Fields(8)) Then
      ZipCode = ""
    Else
      ZipCode = rs.Fields(8)
    End If
    If IsNull(rs.Fields(9)) Then
      Email = ""
    Else
      Email = rs.Fields(9)
    End If
    If IsNull(rs.Fields(10)) Then
      LicenseNo = ""
    Else
      LicenseNo = rs.Fields(10)
    End If
    If IsNull(rs.Fields(11)) Then
      LicenseType = ""
    Else
      LicenseType = rs.Fields(11)
    End If
     
     If IsNull(rs.Fields(12)) Then
      GetDate = ""
    Else
      GetDate = rs.Fields(12)
    End If
    If IsNull(rs.Fields(13)) Then
      ExpiredDate = ""
    Else
      ExpiredDate = rs.Fields(13)
    End If
    If IsNull(rs.Fields(14)) Then
      DriverAge = 0
    Else
      DriverAge = rs.Fields(14)
    End If
    If IsNull(rs.Fields(15)) Then
      Flag = 0
    Else
      Flag = rs.Fields(15)
    End If
    If IsNull(rs.Fields(16)) Then
      TypeId = 0
    Else
      TypeId = rs.Fields(16)
    End If
    If IsNull(rs.Fields(17)) Then
      Certificate = ""
    Else
      Certificate = rs.Fields(17)
    End If
    If IsNull(rs.Fields(18)) Then
      Warrantor = ""
    Else
      Warrantor = rs.Fields(18)
    End If
    If IsNull(rs.Fields(19)) Then
      WIdCard = ""
    Else
      WIdCard = rs.Fields(19)
    End If
    If IsNull(rs.Fields(20)) Then
      WWorkPlace = ""
    Else
      WWorkPlace = rs.Fields(20)
    End If
    
  End If
  GetInfo = True
End Function
Public Function In_DB(ByVal TmpId As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Customer 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()
  SqlStmt = "INSERT INTO Customer(Id,Name,Sex,Age,IdCard,Telephone,WorkPlace," & _
     "Address,ZipCode,Email,LicenseNo,LicenseType,GetDate,ExpiredDate," & _
     "DriverAge,Flag,TypeId,Certificate,Warrantor,WIdCard,WWorkPlace)" & _
     " Values('" + Trim(Id) + "','" + Trim(Name) + "','" + Trim(Sex) + "'," & _
     Trim(Age) + ",'" + Trim(IdCard) + "','" + Trim(Telephone) + "','" & _
     Trim(WorkPlace) + "','" + Trim(Address) + "','" + Trim(ZipCode) + "','" & _
     Trim(Email) + "','" + Trim(LicenseNo) + "','" + Trim(LicenseType) + "','" & _
     Trim(GetDate) + "','" + Trim(ExpiredDate) + "'," + Trim(DriverAge) + "," & _
     Trim(Flag) + "," + Trim(TypeId) + ",'" + Trim(Certificate) + "','" & _
     Trim(Warrantor) + "','" + Trim(WIdCard) + "','" + Trim(WWorkPlace) + "')"
  SQLExt (SqlStmt)
End Sub
Public Sub Update(ByVal TmpId As String)
  SqlStmt = "Update Customer Set Name='" + Trim(Name) + "',Sex='" + Trim(Sex) _
     + "',Age=" + Trim(Age) + ",IdCard='" + Trim(IdCard) _
     + "',Telephone='" + Trim(Telephone) + "',WorkPlace='" + Trim(WorkPlace) _
     + "',Address='" + Trim(Address) + "',ZipCode='" + Trim(ZipCode) + "'," _
     + "Email='" + Trim(Email) + "',LicenseNo='" + Trim(LicenseNo) + "'," _
     + "LicenseType='" + Trim(LicenseType) + "',GetDate='" + Trim(GetDate) + "'," _
     + "ExpiredDate='" + Trim(ExpiredDate) + "'," _
     + "DriverAge=" + Trim(DriverAge) + ",Flag=" + Trim(Flag) + "," _
     + "TypeId=" + Trim(TypeId) + ",Certificate='" + Trim(Certificate) + "'," _
     + "Warrantor='" + Trim(Warrantor) + "',WIdCard='" + Trim(WIdCard) + "'," _
     + "WWorkPlace='" + Trim(WWorkPlace) + "'" _
     + " WHERE Id='" + Trim(TmpId) + "'"
  SQLExt (SqlStmt)
End Sub
Public Sub UpdateToMember(ByVal TmpId As String)
  SqlStmt = "Update Customer Set Flag=1," _
          + "TypeId=" + Trim(TypeId) _
          + " WHERE Id='" + Trim(TmpId) + "'"
  SQLExt (SqlStmt)
End Sub