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

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 
 
 
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 
 
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() 
  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) + "')" 
  SQLExt (SqlStmt) 
End Sub 
 
Public Sub Update(ByVal TmpCarNo As String) 
  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) + "'" 
  SQLExt (SqlStmt) 
End Sub 
 
Public Sub UpdateStatus(ByVal TmpCarNo As String, ByVal TmpStatus As String) 
  SqlStmt = "Update Cars Set Status='" + Trim(TmpStatus) _ 
          + "' WHERE CarNo='" + Trim(TmpCarNo) + "'" 
  SQLExt (SqlStmt) 
End Sub