leasecar.cls

机动车租赁管理就是对车辆信息和客户信息的管理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "LeaseCar"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public ContractNo As String
Public CarNo As String
Public CustId As String
Public LeaseTime As String
Public LeaseMode As String
Public Price1 As Long
Public Price2 As Long
Public WorkDays As Integer
Public WeekEndCount As Integer
Public Deposit As Long
Public DayKM As Integer
Public OutKM As Long
Public OPrice1 As Long
Public OPrice2 As Long
Public ReturnTime As String
Public ReturnKM As Long
Public OtherCost As Long
Public Rate As Long
Public Payment As Long
Public Total As Long
Public Status As String
Public CreateDate As String
Public UserName As String
Public RealRTime As String

Public Sub Init()
  ContractNo = ""
  CarNo = ""
  CustId = ""
  LeaseTime = Date
  LeaseMode = ""
  Price1 = 0
  Price2 = 0
  WorkDays = 0
  WeekEndCount = 0
  Deposit = 0
  DayKM = 0
  OutKM = 0
  OPrice1 = 0
  OPrice2 = 0
  ReturnTime = ""
  ReturnKM = 0
  OtherCost = 0
  Rate = 1
  Payment = 0
  Total = 0
  Status = "出租"
  CreateDate = Date
  UserName = ""
  RealRTime = ""
End Sub

Public Sub Delete(ByVal TmpCNo As String)
  SqlStmt = "Delete FROM Lease WHERE ContractNo='" + Trim(TmpCNo) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpCNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  ContractNo = TmpCNo
  SqlStmt = "SELECT * FROM Lease WHERE ContractNo='" + Trim(TmpCNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    GetInfo = False
    Exit Function
  Else
    If IsNull(rs.Fields(1)) Then
      CarNo = ""
    Else
      CarNo = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      CustId = ""
    Else
      CustId = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      LeaseTime = ""
    Else
      LeaseTime = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      LeaseMode = ""
    Else
      LeaseMode = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      Price1 = 0
    Else
      Price1 = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      Price2 = 0
    Else
      Price2 = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      WorkDays = 0
    Else
      WorkDays = rs.Fields(7)
    End If
    If IsNull(rs.Fields(8)) Then
      WeekEndCount = 0
    Else
      WeekEndCount = rs.Fields(8)
    End If

    If IsNull(rs.Fields(9)) Then
      Deposit = 0
    Else
      Deposit = rs.Fields(9)
    End If
    If IsNull(rs.Fields(10)) Then
      DayKM = 0
    Else
      DayKM = rs.Fields(10)
    End If
    
    If IsNull(rs.Fields(11)) Then
      OutKM = 0
    Else
      OutKM = rs.Fields(11)
    End If
    If IsNull(rs.Fields(12)) Then
      OPrice1 = 0
    Else
      OPrice1 = rs.Fields(12)
    End If
    If IsNull(rs.Fields(13)) Then
      OPrice2 = 0
    Else
      OPrice2 = rs.Fields(13)
    End If
    If IsNull(rs.Fields(14)) Then
      ReturnTime = ""
    Else
      ReturnTime = rs.Fields(14)
    End If
    If IsNull(rs.Fields(15)) Then
      ReturnKM = 0
    Else
      ReturnKM = rs.Fields(15)
    End If
    If IsNull(rs.Fields(16)) Then
      OtherCost = 0
    Else
      OtherCost = rs.Fields(16)
    End If
    If IsNull(rs.Fields(17)) Then
      Rate = 1
    Else
      Rate = rs.Fields(17)
    End If
    If IsNull(rs.Fields(18)) Then
      Payment = 0
    Else
      Payment = rs.Fields(18)
    End If
    If IsNull(rs.Fields(19)) Then
      Total = 0
    Else
      Total = rs.Fields(19)
    End If
    
    If IsNull(rs.Fields(20)) Then
      Status = ""
    Else
      Status = rs.Fields(20)
    End If
    If IsNull(rs.Fields(21)) Then
      CreateDate = ""
    Else
      CreateDate = rs.Fields(21)
    End If
    If IsNull(rs.Fields(22)) Then
      UserName = ""
    Else
      UserName = rs.Fields(22)
    End If
    If IsNull(rs.Fields(23)) Then
      RealRTime = ""
    Else
      RealRTime = rs.Fields(23)
    End If
   
  End If
  GetInfo = True
End Function
Public Function In_DB(ByVal TmpCNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Lease WHERE ContractNo='" + Trim(TmpCNo) + "'"
  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 Lease(ContractNo,CarNo,CustId,LeaseTime," & _
     "LeaseMode,Price1,Price2,Rate," & _
     "WorkDays,WeekEndCount,Deposit,DayKM,OutKM,OPrice1,OPrice2," & _
     "ReturnTime,ReturnKM,OtherCost,Payment,Total,Status,CreateDate,UserName)" & _
     " Values('" + Trim(ContractNo) + "','" + Trim(CarNo) + "','" + Trim(CustId) + "','" & _
     Trim(LeaseTime) + "','" + Trim(LeaseMode) + "'," & _
     Trim(Price1) + "," + Trim(Price2) + "," + Trim(Rate) + "," & _
     Trim(WorkDays) + "," + Trim(WeekEndCount) + "," & _
     Trim(Deposit) + "," + Trim(DayKM) + "," + Trim(OutKM) + "," & _
     Trim(OPrice1) + "," + Trim(OPrice2) + ",'" & _
     Trim(ReturnTime) + "'," + Trim(ReturnKM) + "," & _
     Trim(OtherCost) + "," + Trim(Payment) + "," + Trim(Total) + ",'" & _
     Trim(Status) + "','" + Trim(Date) + "','" + Trim(UserName) + "')"
  SQLExt (SqlStmt)
End Sub
Public Sub Update(ByVal TmpCNo As String)
  SqlStmt = "Update Lease Set CarNo='" + Trim(CarNo) + "'," _
     + "CustId='" + Trim(CustId) + "',LeaseTime='" + Trim(LeaseTime) _
     + "',LeaseMode='" + Trim(LeaseMode) + "',Price1=" + Trim(Price1) + "," _
     + "Price2=" + Trim(Price2) + ",WorkDays=" + Trim(WorkDays) + "," _
     + "WeekEndCount=" + Trim(WeekEndCount) + ",Deposit=" + Trim(Deposit) _
     + ",DayKM=" + Trim(DayKM) _
     + ",OutKM=" + Trim(OutKM) + ",ReturnTime='" + Trim(ReturnTime) + "'," _
     + "ReturnKM=" + Trim(ReturnKM) + ",OtherCost=" + Trim(OtherCost) + "," _
     + "Rate=" + Trim(Rate) + ",Payment=" + Trim(Payment) _
     + ",OPrice1=" + Trim(OPrice1) + ",OPrice2=" + Trim(OPrice2) + "," _
     + "Total=" + Trim(Total) + ",Status='" + Trim(Status) + "'," _
     + "UserName='" + Trim(UserName) + "' WHERE ContractNo='" + Trim(TmpCNo) + "'"
  SQLExt (SqlStmt)
End Sub
Public Sub UpdateStatus(ByVal TmpCNo As String)
  SqlStmt = "Update Lease Set Status='" + Trim(Status) + "' WHERE ContractNo='" + Trim(TmpCNo) + "'"
  SQLExt (SqlStmt)
End Sub

Public Sub UpdateAddStatus(ByVal TmpCNo As String)
  SqlStmt = "Update Lease Set Status='续租',ReturnTime='" + Trim(ReturnTime) + "'," _
      + "WorkDays=" + Trim(WorkDays) + ",WeekEndCount=" + Trim(WeekEndCount) + "," _
      + "Total=" + Trim(Total) + ",UserName='" + Trim(UserName) + "'" _
      + "WHERE ContractNo='" + Trim(TmpCNo) + "'"
  SQLExt (SqlStmt)
End Sub
Public Sub UpdateSettleAccount(ByVal TmpCNo As String)
  SqlStmt = "Update Lease Set RealRTime='" + Trim(RealRTime) + "'," _
     + "ReturnKM=" + Trim(ReturnKM) + ",OtherCost=" + Trim(OtherCost) + "," _
     + "Payment=" + Trim(Payment) + "," _
     + "Total=" + Trim(Total) + ",Status='" + Trim(Status) + "'," _
     + "UserName='" + Trim(UserName) + "' WHERE ContractNo='" + Trim(TmpCNo) + "'"
  SQLExt (SqlStmt)
End Sub