repair.cls

Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物业管理系统》,界面还行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Repair"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   RepairId    Smallint    报修编号
'2   HouseId Smallint    报修业主的房屋编号
'3   RepairItem  Varchar2 200    报修项目
'4   RecordDate  Char 10 报修日期
'5   RepairEmp   Varchar2 50 维修人员
'6   FinishDate  Char 10 完成日期
'7   Servicefee  Number 8,2  服务费
'8   Materialfee Number 8,2  材料费

Public RepairId As Long
Public HouseId As Long
Public RepairItem As String
Public RecordDate As String
Public RepairEmp As String
Public FinishDate As String
Public Servicefee As Single
Public Materialfee As Single

Public Sub Init()
  RepairId = 0
  HouseId = 0
  RepairItem = ""
  RecordDate = ""
  RepairEmp = ""
  FinishDate = ""
  Servicefee = 0
  Materialfee = 0
End Sub

'删除
Public Sub Delete(TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Repair WHERE RepairId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub GetInfo(TmpId As Long)
  RepairId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Repair WHERE RepairId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Len(ColVal), pcblen)
    HouseId = Val(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    RepairItem = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    RecordDate = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    RepairEmp = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    FinishDate = TrimStr(ColVal)
    
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    Servicefee = Val(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Materialfee = Val(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Repair (RepairId,HouseId, RepairItem," _
          + " RecordDate, RepairEmp, FinishDate, Servicefee, Materialfee)" _
          + " VALUES(REPAIRID.NEXTVAL," + Trim(HouseId) + ",'" + Trim(RepairItem) _
          + "','" + Trim(RecordDate) + "','" + Trim(RepairEmp) + "','" _
          + Trim(FinishDate) + "'," + Trim(Servicefee) + "," + Trim(Materialfee) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Repair SET HouseId=" + Trim(HouseId) _
          + ", RepairItem='" + Trim(RepairItem) + "', RecordDate='" _
          + Trim(RecordDate) + "', RepairEmp='" + Trim(RepairEmp) _
          + "',FinishDate='" + Trim(FinishDate) + "', Servicefee=" _
          + Trim(Servicefee) + ", Materialfee=" + Trim(Materialfee) _
          + " WHERE RepairId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub