department.cls

来自「办公用品管理系统」· CLS 代码 · 共 83 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Department"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public DepId As Long
Public DepName As String

Public Sub Init()
  DepName = ""
End Sub

'删除Type
Public Sub Delete(ByVal TmpDepId As Long)
  SqlStmt = "DELETE FROM Department WHERE DepId=" + Trim(TmpDepId)
  SQLExt (SqlStmt)
End Sub

Public Function In_DB(ByVal TmpDepName As String) As Boolean
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Department WHERE DepName='" + Trim(TmpDepName) + "'"
  Set rs = QueryExt(SqlStmt)
  If rs.EOF = True Then
    In_DB = False
  Else
    In_DB = True
  End If
End Function

Public Function GetInfo(ByVal TmpDepId As Long) As Boolean
  Dim rs As New ADODB.Recordset  '定义结果集对象
  
  '设置SELECT语句，读取编号为TmpDepId的记录
  SqlStmt = "SELECT * FROM Department WHERE DepId=" + Trim(TmpDepId)
  '将结果集读取到rs中
  Set rs = QueryExt(SqlStmt)

  If rs.EOF Then
    '如果结果集为空，则初始化
    Init
    GetInfo = False
  Else
    '将结果集中的数据赋值到成员变量中
    If IsNull(rs.Fields(0)) Then   '类型编号
      DepId = 0
    Else
      DepId = rs.Fields(0)
    End If
   
    If IsNull(rs.Fields(1)) Then   '类型名称
      DepName = ""
    Else
      DepName = Trim(rs.Fields(1))
    End If
    GetInfo = True
  End If
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Department(DepName) VALUES('" _
       + Trim(DepName) + "')"
  SQLExt (SqlStmt)
End Sub

'更新数据
Public Sub Update(ByVal TmpDepId As Long)
   SqlStmt = "UPDATE Department SET DepName='" + Trim(DepName) _
          + "' Where DepId = " + Trim(Str(TmpDepId))
  SQLExt (SqlStmt)
End Sub