recorditem.cls

图书管理系统,用VB做的,可以使用,用于课程设计

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    自动编号    编号
'2   ItemId  数字    收费项目编号
'3   OwnerId 数字    业主编号
'4   ItemNum 数字 整型    读表数
'5   CheckDate   文本 长度20 抄表日期
'6   Flag 数字 字节  是否已经按此数字收费（0表示没有收费，1表示已经收费）

Public RecordId As Long
Public ItemId As Long
Public OwnerId As Long
Public ItemNum As Integer
Public CheckDate As String
Public Flag As Integer

Public Sub Init()
  ItemId = 0
  OwnerId = 0
  ItemNum = 0
  CheckDate = ""
  Flag = 0
End Sub
'根据收费项目编号、业主编号和收费标志读取最大的刻度数
Public Function GetMaxNum(ByVal TmpItemId As Long, _
                          ByVal TmpOwnerId As Long, _
                          ByVal TmpFlag As Integer) As Integer
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT Max(ItemNum) FROM RecordItem WHERE ItemId=" _
          + Trim(TmpItemId) + " And OwnerId=" + Trim(TmpOwnerId) _
          + " And Flag=" + Trim(TmpFlag)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    If IsNull(rs.Fields(0)) Then
      GetMaxNum = 0
    Else
      GetMaxNum = rs.Fields(0)
    End If
  Else
    GetMaxNum = 0
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO RecordItem (ItemId, OwnerId," _
          + " ItemNum, CheckDate, Flag)" + " VALUES(" _
          + Trim(ItemId) + "," + Trim(OwnerId) + "," _
          + Trim(ItemNum) + ",'" + Trim(CheckDate) + "'," _
          + Trim(Flag) + ")"
  SQLExt (SqlStmt)
End Sub

'将所有指定项目的Flag设置为１
Public Sub SetFlag1(ByVal TmpId As Long, _
                    ByVal TmpOwnerId As Long)
  SqlStmt = "UPDATE RecordItem SET Flag=1 WHERE ItemId=" _
          + Trim(TmpId) + " and OwnerId=" + Trim(TmpOwnerId)
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
  SqlStmt = "UPDATE RecordItem SET ItemId=" + Trim(ItemId) + ",ItemNum=" + Trim(ItemNum) _
          + ", CheckDate='" + Trim(CheckDate) + "' WHERE RecordId=" _
          + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub