housestyle.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 = "HouseStyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   StyleId 自动编号    户型编号
'2   StyleName   文本 长度 50 户型名称
'3   Area1   数字  建筑面积
'4   Area2   数字  使用面积
'5   Memos    文本 长度200    备注信息

Public StyleId As Long
Public StyleName As String
Public Area1 As Double
Public Area2 As Double
Public Memos As String

Public Sub Init()
  StyleId = 0
  StyleName = ""
  Area1 = 0
  Area2 = 0
  Memos = ""
End Sub

'删除
Public Sub Delete(ByVal TmpId As Integer)
  SqlStmt = "DELETE FROM HouseStyle WHERE StyleId=" + Trim(TmpId)
  SQLExt (SqlStmt)
End Sub

Public Sub GetInfo(ByVal TmpId As Integer)
  Dim rs As New ADODB.Recordset
  StyleId = TmpId
  If TmpId = 0 Then
    Init
    Exit Sub
  End If
  
  SqlStmt = "SELECT * FROM HouseStyle WHERE StyleId=" + Trim(TmpId)
  Set rs = QueryExt(SqlStmt)
  If Not rs.EOF Then
    StyleName = Trim(rs.Fields(1))
    Area1 = rs.Fields(2)
    Area2 = rs.Fields(3)
    Memos = Trim(rs.Fields(4))
  Else
    Init
  End If
End Sub

Public Function In_DB(ByVal TmpStyleName As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT StyleId FROM HouseStyle WHERE StyleName='" _
          + Trim(TmpStyleName) + "'"
  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 HouseStyle (StyleName, Area1," _
          + " Area2, Memos)" + " VALUES('" + Trim(StyleName) _
          + "'," + Trim(Str(Area1)) + "," + Trim(Area2) _
          + ",'" + Trim(Memos) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpId As Integer)
  SqlStmt = "UPDATE HouseStyle SET StyleName='" + Trim(StyleName) _
          + "', Area1=" + Trim(Area1) + ", Area2=" + Trim(Area2) _
          + ",Memos='" + Trim(Memos) + "' WHERE StyleId=" + Trim(Str(TmpId))
  SQLExt (SqlStmt)
End Sub