customer.cls

汽车租赁管理系统,采用VB+SQL实现,包含源程序及数据库备份,完美运行,完整无缺.

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 Workorg 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 Sub Init()
  Id = ""
  Name = ""
  Sex = "男"
  Age = 18
  IdCard = ""
  Telephone = ""
  Workorg = ""
  Address = ""
  ZipCode = ""
  Email = ""
  LicenseNo = ""
  LicenseType = ""
  GetDate = ""
  ExpiredDate = ""
  DriverAge = 0
  Flag = 0
  TypeId = 0
  Certificate = ""
  Warrantor = ""
  WIdCard = ""
End Sub

'删除Customer数据
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
      Workorg = ""
    Else
      Workorg = 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
    
  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()
  '设置INSERT语句
  SqlStmt = "INSERT INTO Customer(Id,Name,Sex,Age,IdCard,Telephone,Workorg," & _
     "Address,ZipCode,Email,LicenseNo,LicenseType,GetDate,ExpiredDate," & _
     "DriverAge,Flag,TypeId,Certificate,Warrantor,WIdCard)" & _
     " Values('" + Trim(Id) + "','" + Trim(Name) + "','" + Trim(Sex) + "'," & _
     Trim(Age) + ",'" + Trim(IdCard) + "','" + Trim(Telephone) + "','" & _
     Trim(Workorg) + "','" + 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) + "')"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub
'更新驾驶员、会员信息
Public Sub Update(ByVal TmpId As String)
  '设置UPDATE语句
  SqlStmt = "Update Customer Set Name='" + Trim(Name) + "',Sex='" + Trim(Sex) _
     + "',Age=" + Trim(Age) + ",IdCard='" + Trim(IdCard) _
     + "',Telephone='" + Trim(Telephone) + "',Workorg='" + Trim(Workorg) _
     + "',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) _
     + "' WHERE Id='" + Trim(TmpId) + "'"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub
'更改驾驶员状态为会员
Public Sub UpdateToMember(ByVal TmpId As String)
  '设置UPDATE语句
  SqlStmt = "Update Customer Set Flag=" + Trim(Flag) _
          + ", TypeId=" + Trim(TypeId) + " WHERE Id='" + Trim(TmpId) + "'"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub