www.pudn.com > vb625557712344.rar > LeaseCar.cls, change:2004-05-05,size:7502b

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