charging.cls

来自「Visual Basic + Oracle 9i数据库应用系统开发与实例《小区物」· CLS 代码 · 共 127 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Charging"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ChargeId    Smallint    收费编号
'2   HouseId Smallint    房屋编号
'3   ItemId  Smallint    收费项目编号
'4   UnitPrice   Number 15,2 单价
'5   UnitNum Smallint    数量
'6   Amount1 Number 15,2 实收金额
'7   PayDate Char 10 收费日期
'8   Receiver    Varchar2 40 收款人

Public ChargeId As Long
Public HouseId As Long
Public ItemId As Integer
Public UnitPrice As Single
Public UnitNum As Integer
Public Amount1 As Single
Public PayDate As String
Public Receiver As String

Public Sub Init()
  ChargeId = 0
  HouseId = 0
  ItemId = 0
  UnitPrice = 0
  UnitNum = 0
  Amount1 = 0
  PayDate = ""
  Receiver = ""
End Sub

'删除
Public Sub Delete(ByVal TmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Charging WHERE ChargeId=" + Trim(TmpId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)

  DB_Disconnect
End Sub

Public Sub GetInfo(ByVal TmpId As Long)
  ChargeId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  DB_Connect
  
  SqlStmt = "SELECT * FROM Charging WHERE ChargeId=" + Trim(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(40, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Len(ColVal), pcblen)
    ItemId = Val(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Len(ColVal), pcblen)
    UnitPrice = Val(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Len(ColVal), pcblen)
    UnitNum = Val(ColVal)
  
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Len(ColVal), pcblen)
    Amount1 = Val(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 7, 1, ColVal, Len(ColVal), pcblen)
    PayDate = TrimStr(ColVal)
  
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 8, 1, ColVal, Len(ColVal), pcblen)
    Receiver = TrimStr(ColVal)
  Else
    Init
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Charging (Chargeid,HouseId, ItemId, UnitPrice, UnitNum," _
          + " Amount1, PayDate, Receiver) VALUES(CHARGEID.NEXTVAL," + Trim(Str(HouseId)) _
          + "," + Trim(ItemId) + "," + Trim(UnitPrice) + "," + Trim(UnitNum) _
          + "," + Trim(Amount1) + ",'" + Trim(PayDate) + "','" + Trim(Receiver) + "')"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE Charging SET HouseId=" + Trim(HouseId) _
          + ", ItemId=" + Trim(ItemId) + ", UnitPrice=" _
          + Trim(UnitPrice) + ", UnitNum=" + Trim(UnitNum) _
          + ",Amount1=" + Trim(Amount1) + ",PayDate='" _
          + Trim(PayDate) + "', Receiver='" + Trim(Receiver) _
          + "' WHERE ChargeId=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub