recorditem.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 = "RecordItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   RecordId    Smallint    编号
'2   ItemId  Smallint    收费项目编号
'3   HouseId Smallint    房屋编号
'4   ItemNum Smallint    读表数
'5   CheckDate   Char 10 抄表日期
'6   Payflag Number 1    是否已经按此数字收费（0表示没有收费，1表示已经收费）

Public RecordId As Long
Public ItemId As Long
Public HouseId As Long
Public ItemNum As Integer
Public CheckDate As String
Public Payflag As Integer

Public Sub Init()
  ItemId = 0
  HouseId = 0
  ItemNum = 0
  CheckDate = ""
  Payflag = 0
End Sub

Public Function GetMaxNum(ByVal TmpItemId As Integer, _
                          ByVal TmpHouseId As Long, _
                          ByVal TmpFlag As Integer) As Integer
  DB_Connect
  
  SqlStmt = "SELECT Max(ItemNum) FROM RecordItem WHERE ItemId=" _
          + Trim(TmpItemId) + " And HouseId=" + Trim(TmpHouseId) _
          + " And Payflag=" + Trim(TmpFlag)
  OdbcExt (SqlStmt)
  If SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND Then
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    GetMaxNum = Val(ColVal)
  Else
    GetMaxNum = 0
  End If
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO RecordItem (RecordId,ItemId, HouseId," _
          + " ItemNum, CheckDate, Payflag)" + " VALUES(RECORDID.NEXTVAL," _
          + Trim(ItemId) + "," + Trim(HouseId) + "," _
          + Trim(ItemNum) + ",'" + Trim(CheckDate) + "'," _
          + Trim(Payflag) + ")"
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'将所有指定项目的PayFlag设置为１
Public Sub SetFlag1(ByVal TmpId As Integer, _
                    ByVal TmpHouseId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE RecordItem SET PayFlag=1 WHERE ItemId=" _
          + Trim(TmpId) + " and HouseId=" + Trim(TmpHouseId)
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
  DB_Connect
    
  SqlStmt = "UPDATE RecordItem SET ItemNum=" + Trim(ItemNum) _
          + ", CheckDate='" + Trim(CheckDate) + "' WHERE RecordId=" _
          + Trim(Str(TmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub