charging.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 = "Charging"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ChargeId    自动编号   收费编号
'2   OwnerId 数字    业主编号
'3   ItemId  数字    收费项目编号
'4   UnitPrice   数字 双精度 单价
'5   UnitNum 数字 整型    数量
'6   Amount1 数字 整型 实收金额
'7   PayDate 文本 长度 20 收费日期
'8   Receiver  文本 长度  20 收款人

Public ChargeId As Long
Public OwnerId As Long
Public ItemId As Long
Public UnitPrice As Double
Public UnitNum As Integer
Public Amount1 As Double
Public PayDate As String
Public Receiver As String

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

'删除
Public Sub Delete(ByVal TmpId As Long)
  SqlStmt = "DELETE FROM Charging WHERE ChargeId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(ByVal TmpId As Long)
  Dim rs As New ADODB.Recordset
  ChargeId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  
  SqlStmt = "SELECT * FROM Charging WHERE ChargeId=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    OwnerId = rs.Fields(1)
    ItemId = rs.Fields(2)
    UnitPrice = rs.Fields(3)
    UnitNum = rs.Fields(4)
    Amount1 = rs.Fields(5)
    PayDate = Trim(rs.Fields(6))
    Receiver = Trim(rs.Fields(7))
  Else
    Init
  End If
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO Charging (OwnerId, ItemId, UnitPrice, UnitNum," _
          + " Amount1, PayDate, Receiver) VALUES(" + Trim(Str(OwnerId)) _
          + "," + Trim(ItemId) + "," + Trim(UnitPrice) + "," + Trim(UnitNum) _
          + "," + Trim(Amount1) + ",'" + Trim(PayDate) + "','" + Trim(Receiver) + "')"
  SQLExt (SqlStmt)
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Long)
  SqlStmt = "UPDATE Charging SET OwnerId=" + Trim(OwnerId) _
          + ", ItemId=" + Trim(ItemId) + ", UnitPrice=" _
          + Trim(UnitPrice) + ", UnitNum=" + Trim(UnitNum) _
          + ",Amount1=" + Trim(Amount1) + ",PayDate='" _
          + Trim(PayDate) + "', Receiver='" + Trim(Receiver) _
          + "' WHERE ChargeId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub