cars.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 = "Cars"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 CarNo  文本 20  车牌号码
'2 TypeId 数字  分类编号
'3 CarName  文本 50 车辆名称
'4 Color 文本 50  车辆颜色
'5 OilNo  文本 20 燃油编号
'6 EngineNo  文本 50 发动机号
'7 CarCase 文本 50 车架号
'8 SaleId 数字 长整型 销售商编号
'9 BuyDate 日期/时间  购买日期
'10 InsurNo 文本 50 保单编号
'11 InsurId  数字 长整型 保险公司编号
'12 InsurType 文本 50 保险分类
'13 InsurSdate 日期/时间 保险开始日期
'14 InsurEdate 日期/时间 保险结束日期
'15 Deposit 数字 长整型 押金
'16 DayPrice 数字 长整型 日租金
'17 WeekEndPrice 数字 长整型 周末租金
'18 WeekPrice 数字 长整型 周租金
'19 MonthPrice 数字 长整型 月租金
'20 DayKM 数字 长整型 日限制公里数
'21 OverTimePrice 数字 长整型 超时租金
'22 OverKMPrice  数字 长整型 超公里租金
'23 Status  文本 20 当前状态
'24 Comment 备注  车辆介绍


Public CarNo As String
Public TypeId As Long
Public CarName As String
Public Color As String
Public OilNo As String
Public EngineNo As String
Public CarCase As String
Public SaleId As Integer
Public BuyDate As String
Public InsurNo As String
Public InsurId As Long
Public InsurType As String
Public InsurSdate As String
Public InsurEdate As String
Public Deposit As Long
Public DayPrice As Long
Public WeekEndPrice As Long
Public WeekPrice As Long
Public MonthPrice As Long
Public DayKM As Long
Public OverTimePrice As Long
Public OverKMPrice As Long
Public Status As String
Public Comment As String

Public Sub Init()
  CarNo = ""
  TypeId = 0
  CarName = ""
  Color = ""
  OilNo = ""
  EngineNo = ""
  CarCase = ""
  SaleId = 0
  BuyDate = ""
  InsurNo = ""
  InsurId = 0
  InsurType = ""
  InsurSdate = ""
  InsurEdate = ""
  Deposit = 0
  DayPrice = 0
  WeekEndPrice = 0
  WeekPrice = 0
  MonthPrice = 0
  DayKM = 0
  OverTimePrice = 0
  OverKMPrice = 0
  Status = "待命"
  Comment = ""
End Sub

'删除Cars数据
Public Sub Delete(ByVal TmpCarNo As String)
  SqlStmt = "Delete FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpCarNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    GetInfo = False
    Exit Function
  Else
    If IsNull(rs.Fields(0)) Then
      CarNo = ""
    Else
      CarNo = rs.Fields(0)
    End If
    If IsNull(rs.Fields(1)) Then
      TypeId = 0
    Else
      TypeId = rs.Fields(1)
    End If
    If IsNull(rs.Fields(2)) Then
      CarName = ""
    Else
      CarName = rs.Fields(2)
    End If
    If IsNull(rs.Fields(3)) Then
      Color = ""
    Else
      Color = rs.Fields(3)
    End If
    If IsNull(rs.Fields(4)) Then
      OilNo = ""
    Else
      OilNo = rs.Fields(4)
    End If
    If IsNull(rs.Fields(5)) Then
      EngineNo = ""
    Else
      EngineNo = rs.Fields(5)
    End If
    If IsNull(rs.Fields(6)) Then
      CarCase = ""
    Else
      CarCase = rs.Fields(6)
    End If
    If IsNull(rs.Fields(7)) Then
      SaleId = 0
    Else
      SaleId = rs.Fields(7)
    End If
    If IsNull(rs.Fields(8)) Then
      BuyDate = ""
    Else
      BuyDate = rs.Fields(8)
    End If
    If IsNull(rs.Fields(9)) Then
      InsurNo = ""
    Else
      InsurNo = rs.Fields(9)
    End If
    If IsNull(rs.Fields(10)) Then
      InsurId = 0
    Else
      InsurId = rs.Fields(10)
    End If
     If IsNull(rs.Fields(11)) Then
      InsurType = ""
    Else
      InsurType = rs.Fields(11)
    End If
    If IsNull(rs.Fields(12)) Then
      InsurSdate = ""
    Else
      InsurSdate = rs.Fields(12)
    End If
    If IsNull(rs.Fields(13)) Then
      InsurEdate = ""
    Else
      InsurEdate = rs.Fields(13)
    End If
    If IsNull(rs.Fields(14)) Then
      Deposit = 0
    Else
      Deposit = rs.Fields(14)
    End If
    If IsNull(rs.Fields(15)) Then
      DayPrice = 0
    Else
      DayPrice = rs.Fields(15)
    End If
    If IsNull(rs.Fields(16)) Then
      WeekEndPrice = 0
    Else
      WeekEndPrice = rs.Fields(16)
    End If
    If IsNull(rs.Fields(17)) Then
      WeekPrice = 0
    Else
      WeekPrice = rs.Fields(17)
    End If
    If IsNull(rs.Fields(18)) Then
      MonthPrice = 0
    Else
      MonthPrice = rs.Fields(18)
    End If
    If IsNull(rs.Fields(19)) Then
      DayKM = 0
    Else
      DayKM = rs.Fields(19)
    End If
    If IsNull(rs.Fields(20)) Then
      OverTimePrice = 0
    Else
      OverTimePrice = rs.Fields(20)
    End If
    If IsNull(rs.Fields(21)) Then
      OverKMPrice = 0
    Else
      OverKMPrice = rs.Fields(21)
    End If
    If IsNull(rs.Fields(22)) Then
      Status = ""
    Else
      Status = rs.Fields(22)
    End If
    If IsNull(rs.Fields(23)) Then
      Comment = ""
    Else
      Comment = rs.Fields(23)
    End If
  End If
  GetInfo = True
End Function
'判断是否已经存在此车牌号码
Public Function In_DB(ByVal TmpCarNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT * FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'"
  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 Cars(CarNo,TypeId, CarName,Color,OilNo,EngineNo,CarCase," & _
     "SaleId,BuyDate,InsurNo,InsurId,InsurType,InsurSdate,InsurEdate,Deposit," & _
     "DayPrice,WeekEndPrice,WeekPrice,MonthPrice,DayKM,OverTimePrice,OverKMPrice," & _
     "Status,Comment)" & _
     " Values('" + Trim(CarNo) + "'," + Trim(TypeId) + ",'" + Trim(CarName) + "','" & _
     Trim(Color) + "','" + Trim(OilNo) + "','" + Trim(EngineNo) + "','" & _
     Trim(CarCase) + "'," + Trim(SaleId) + ",'" + Trim(BuyDate) + "','" & _
     Trim(InsurNo) + "'," + Trim(InsurId) + ",'" + Trim(InsurType) + "','" & _
     Trim(InsurSdate) + "','" + Trim(InsurEdate) + "'," + Trim(Deposit) + "," & _
     Trim(DayPrice) + "," + Trim(WeekEndPrice) + "," + Trim(WeekPrice) + "," & _
     Trim(MonthPrice) + "," & _
     Trim(DayKM) + "," + Trim(OverTimePrice) + "," + Trim(OverKMPrice) + ",'" & _
     Trim(Status) + "','" + Trim(Comment) + "')"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpCarNo As String)
  '设置UPDATE语句
  SqlStmt = "Update Cars Set TypeId=" + Trim(TypeId) _
          + ", CarName='" + Trim(CarName) + "',Color='" + Trim(Color) _
          + "',OilNo='" + Trim(OilNo) + "',EngineNo='" + Trim(EngineNo) _
          + "',CarCase='" + Trim(CarCase) + "',SaleId=" + Trim(SaleId) _
          + "SaleId=" + Trim(SaleId) + ",BuyDate='" + Trim(BuyDate) + "'," _
          + "InsurNo='" + Trim(InsurNo) + "',InsurId=" + Trim(InsurId) + "," _
          + "InsurType='" + Trim(InsurType) + "',InsurSdate='" + Trim(InsurSdate) + "'," _
          + "InsurEdate='" + Trim(InsurEdate) + "',Deposit=" + Trim(desposit) + "," _
          + "DayPrice=" + Trim(DayPrice) + ",WeekEndPrice=" + Trim(WeekEndPrice) + "," _
          + "WeekPrice=" + Trim(WeekPrice) + "," _
          + "MonthPrice=" + Trim(MonthPrice) + ",DayKM=" + Trim(DayKM) + "," _
          + "OverTimePrice=" + Trim(OverTimePrice) + ",OverKMPrice=" + Trim(OverKMPrice) + "," _
          + "Status='" + Trim(Status) + "',Comment='" + Trim(Comment) _
          + "' WHERE CarNo='" + Trim(TmpCarNo) + "'"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub
'更改车辆状态
Public Sub UpdateStatus(ByVal TmpCarNo As String, ByVal TmpStatus As String)
  '设置UPDATE语句
  SqlStmt = "Update Cars Set Status='" + Trim(TmpStatus) _
          + "' WHERE CarNo='" + Trim(TmpCarNo) + "'"
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub