roles.cls

来自「软件项目管理的基本功能」· CLS 代码 · 共 62 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Roles"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1   RoleId  数字 自动编号 角色ID
'2   RoleName 文本 长度50 角色名称
'3   RoleTask  文本 长度200 角色任务

Public RoleId As Long
Public RoleName As String
Public RoleTask As String

Public Sub Init()
  RoleId = 0
  RoleName = ""
  RoleTask = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpRoleId As Long)
  SqlStmt = "DELETE FROM Roles WHERE RoleId=" + Trim(TmpRoleId)
  SQLExt (SqlStmt)
End Sub

Public Function GetInfo(ByVal TmpRoleId As Long) As Boolean
  RoleId = TmpRoleId
  Dim rs As New ADODB.Recordset
  
  SqlStmt = "SELECT * FROM Roles WHERE RoleId=" + Trim(TmpRoleId)
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
    RoleName = Trim(rs.Fields(1))
    RoleTask = Trim(rs.Fields(2))
  End If
  
  GetInfo = True
End Function

Public Sub Insert()
  SqlStmt = "INSERT INTO Roles(RoleName,RoleTask) Values('" + Trim(RoleName) _
     + "','" + Trim(RoleTask) + "')"
  SQLExt (SqlStmt)
End Sub

Public Sub Update(ByVal TmpRoleId As Long)
  SqlStmt = "Update Roles Set RoleName='" + Trim(RoleName) _
          + "',RoleTask='" + Trim(RoleTask) + "' WHERE RoleId=" + Trim(TmpRoleId)
  SQLExt (SqlStmt)
End Sub