houseowner.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 = "HouseOwner"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   OwnerId 自动编号    业主编号
'2   OwnerName 文本 长度 50 业主姓名
'3   Tel 文本 长度 50 联系电话
'4   BuildingNo 文本 长度20 楼房号
'5   RoomNo 文本 长度20 房间号
'6   StyleId 数字    房屋编号
'7   UnitNo 文本 长度10 单元号
'8   InDate  文本 长度20 迁入日期
'9   OutDate 文本 长度20迁出日期
'10   Memos    文本 长度 200    备注信息

Public OwnerId As Long
Public OwnerName As String
Public Tel As String
Public BuildingNo As String
Public RoomNo As String
Public StyleId As Long
Public UnitNo As String
Public InDate As String
Public OutDate As String
Public Memos As String

Public Sub Init()
  OwnerId = -1
  OwnerName = ""
  Tel = ""
  BuildingNo = ""
  RoomNo = ""
  StyleId = 0
  UnitNo = ""
  InDate = ""
  OutDate = ""
  Memos = ""
End Sub

'删除
Public Sub Delete(TmpId As Long)
  SqlStmt = "DELETE FROM HouseOwner WHERE OwnerId=" _
          + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(TmpId As Long)
  Dim rs As New ADODB.Recordset
  OwnerId = TmpId
  '如果TmpId=0，则不需要读取数据
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  '设置SELECT语句
  SqlStmt = "SELECT * FROM HouseOwner WHERE OwnerId=" _
          + Trim(Str(TmpId))
  '执行SQL语句
  Set rs = QueryExt(SqlStmt)
  '依次从结果集中读取数据
  If Not rs.EOF Then
    '业主姓名
    OwnerName = Trim(rs.Fields(1))
    '联系电话
    Tel = Trim(rs.Fields(2))
    BuildingNo = Trim(rs.Fields(3))
    RoomNo = Trim(rs.Fields(4))
    '房屋类型编号
    StyleId = rs.Fields(5)
    UnitNo = Trim(rs.Fields(6))
    '迁入日期
    InDate = Trim(rs.Fields(7))
    '迁出日期
    OutDate = Trim(rs.Fields(8))
    '备注信息
    Memos = Trim(rs.Fields(9))
  Else
    '如果结果集为空，则初始化成员变量
    Init
  End If
End Sub
'判断此楼房中已经存在此房间编号
Public Function HaveRoomNo(ByVal TmpBNo As String, _
    ByVal TmpRNo As String, ByVal TmpUNo As String) As Boolean
  Dim rs As New ADODB.Recordset
  SqlStmt = "SELECT OwnerId FROM HouseOwner WHERE BuildingNo='" + Trim(TmpBNo) + "'" _
        + " And RoomNo='" + Trim(RoomNo) + "' And UnitNo='" + Trim(UnitNo) + "'"
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    HaveRoomNo = True
  Else
    HaveRoomNo = False
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO HouseOwner (OwnerName, Tel,BuildingNo," _
          + "RoomNo,StyleId,UnitNo,InDate, OutDate, Memos)" _
          + " VALUES('" + Trim(OwnerName) + "','" + Trim(Tel) _
          + "','" + Trim(BuildingNo) + "','" + Trim(RoomNo) + "'," _
          + Trim(StyleId) + ",'" + Trim(UnitNo) + "','" + Trim(InDate) + "','" _
          + Trim(OutDate) + "','" + Trim(Memos) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Long)
  SqlStmt = "UPDATE HouseOwner SET OwnerName='" + Trim(OwnerName) _
          + "', Tel='" + Trim(Tel) + "',StyleId=" _
          + Trim(StyleId) + ",InDate='" + Trim(InDate) _
          + "',OutDate='" + Trim(OutDate) + "', Memos='" _
          + Trim(Memos) + "' WHERE OwnerId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub