building.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 = "Building"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   BuildingNo 文本 长度20 楼房编号（小区内每栋住宅建筑的编号）
'2   FloorNum    数字 整型    楼房层数
'3   UnitNum    数字 整型    楼房单元数量
'4   SpaceArea  数字 整型    占用面积
'5   Memoss    文本 长度 200    备注信息

Public BuildingNo As String
Public FloorNum As Integer
Public UnitNum As Integer
Public SpaceArea As Integer
Public Memos As String

Public Sub Init()
  BuildingNo = 0
  FloorNum = 1
  UnitNum = 1
  SpaceArea = 0
  Memos = ""
End Sub

'删除
Public Sub Delete(ByVal TmpNo As String)
  SqlStmt = "DELETE FROM Building WHERE BuildingNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpNo As String) As Boolean
  Dim rs As New ADODB.Recordset
   
  SqlStmt = "SELECT * FROM Building WHERE BuildingNo='" + Trim(TmpNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    In_DB = True
  Else
    In_DB = False
  End If
End Function
Public Sub GetInfo(ByVal TmpNo As String)
  Dim rs As New ADODB.Recordset
  BuildingNo = TmpNo
  If TmpNo = "" Then
    Init
    Exit Sub
  End If
    
  SqlStmt = "SELECT * FROM Building WHERE BuildingNo='" + Trim(TmpNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    FloorNum = Trim(rs.Fields(1))
    UnitNum = rs.Fields(2)
    SpaceArea = rs.Fields(3)
    Memos = Trim(rs.Fields(4))
  Else
    Init
  End If
End Sub

Public Sub Insert()
  SqlStmt = "INSERT INTO Building(BuildingNo,FloorNum, UnitNum,SpaceArea," _
     + " Memos)" + " VALUES('" + Trim(BuildingNo) + "'," + Trim(Str(FloorNum)) _
     + "," + Trim(Str(UnitNum)) + "," + Trim(Str(SpaceArea)) + ",'" + Trim(Memos) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpNo As String)
  SqlStmt = "UPDATE Building SET FloorNum='" + Trim(FloorNum) _
          + "', UnitNum=" + Trim(UnitNum) + ",SpaceArea=" _
          + Trim(SpaceArea) + ",Memos='" + Trim(Memos) _
          + "' WHERE BuildingNo='" + Trim(TmpNo) + "'"
  SQLExt (SqlStmt)
End Sub