houseinfo.cls

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

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "HouseInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   HouseId 自动编号    房屋编号
'2   BuildingNo  文本 长度 20    楼房号
'3   HouseUnit   文本 长度 20 楼房单元
'4   RoomNo  文本 长度 10 房间号
'5   StyleId 数字   户型编号
'6   Ownership  文本 长度 20 产权
'7   Memos 文本 长度 200  备注信息

Public HouseId As Long
Public BuildingNo As String
Public HouseUnit As String
Public RoomNo As String
Public StyleId As Long
Public Ownership As String
Public Memos As String

Public Sub Init()
  HouseId = -1
  BuildingNo = ""
  HouseUnit = ""
  RoomNo = ""
  StyleId = 0
  Ownership = ""
  Memos = ""
End Sub

'删除
Public Sub Delete(TmpId As Long)
  '设置SQL语句，删除指定的记录
  SqlStmt = "DELETE FROM HouseInfo WHERE HouseId=" _
          + Trim(Str(TmpId))
  '执行SQL语句
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(TmpId As Long)
  Dim rs As New ADODB.Recordset
  HouseId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  
  SqlStmt = "SELECT * FROM HouseInfo WHERE HouseId=" _
          + Trim(Str(TmpId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    BuildingNo = Trim(rs.Fields(1))
    HouseUnit = Trim(rs.Fields(2))
    RoomNo = Trim(rs.Fields(3))
    StyleId = rs.Fields(4)
    Ownership = Trim(rs.Fields(5))
    Memos = Trim(rs.Fields(6))
  Else
    Init
  End If
End Sub
Public Function HaveStyle(TmpSId As Long) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM HouseInfo WHERE StyleId=" _
          + Trim(Str(TmpSId))
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    HaveStyle = True
  Else
    HaveStyle = False
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO HouseInfo (BuildingNo, HouseUnit," _
          + " RoomNo, StyleId, Ownership, Memos)" _
          + " VALUES('" + Trim(BuildingNo) + "','" + Trim(HouseUnit) _
          + "','" + Trim(RoomNo) + "','" + Trim(StyleId) _
          + "','" + Trim(Ownership) + "','" + Trim(Memos) + "')"
  SQLExt (SqlStmt)
End Sub

'更新地域数据
Public Sub Update(ByVal TmpId As Long)
  
  SqlStmt = "UPDATE HouseInfo SET BuildingNo='" + Trim(BuildingNo) _
          + "', HouseUnit='" + Trim(HouseUnit) + "',RoomNo='" + Trim(RoomNo) _
          + "',StyleId=" + Trim(StyleId) + ", Ownership='" + Trim(Ownership) _
          + "',Memos='" + Trim(Memos) + "' WHERE HouseId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub