chargeitem.cls

来自「图书管理系统,用VB做的,可以使用,用于课程设计」· CLS 代码 · 共 89 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ChargeItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   ItemId  自动编号    收费项目编号
'2   ItemName    文本 长度 50 收费项目名称
'3   UnitPrice   数字 双精度 费用单价
'4   ItemType    数字 字节 收费单位类型（0-按建筑面积、1-按抄表刻度、2-按总费用）
'5   PayCycle   文本 长度 20 收费周期（每周、每月、每季、每半年、每年、一次性收费）

Public ItemId As Long
Public ItemName As String
Public UnitPrice As Single
Public ItemType As Integer
Public PayCycle As String

Public Sub Init()
  ItemId = 0
  ItemName = ""
  UnitPrice = 0
  ItemType = 0
  PayCycle = ""
End Sub

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

Public Sub GetInfo(ByVal TmpId As Long)
  Dim rs As New ADODB.Recordset
  ItemId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  
  SqlStmt = "SELECT * FROM ChargeItem WHERE ItemId=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    ItemName = Trim(rs.Fields(1))
    UnitPrice = rs.Fields(2)
    ItemType = rs.Fields(3)
    PayCycle = Trim(rs.Fields(4))
  Else
    Init
  End If
End Sub

Public Function In_DB(ByVal TmpItemName As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT ItemId FROM ChargeItem WHERE ItemName='" _
          + Trim(TmpItemName) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO ChargeItem (ItemName, UnitPrice," _
          + " ItemType, PayCycle)" + " VALUES('" _
          + Trim(ItemName) + "'," + Trim(Str(UnitPrice)) + "," _
          + Trim(ItemType) + ",'" + Trim(PayCycle) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
  SqlStmt = "UPDATE ChargeItem SET ItemName='" + Trim(ItemName) _
          + "', UnitPrice=" + Trim(UnitPrice) + ", ItemType=" + Trim(ItemType) _
          + ", PayCycle='" + Trim(PayCycle) + "' WHERE ItemId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub