?? colclass.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "colclass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mcolclass As New Collection
Public Property Get count() As Long
count = mcolclass.count
End Property
Public Sub add(tmpclass As Class)
mcolclass.add tmpclass
End Sub
Public Function remove(tmp_index As Integer) As Boolean
If mcolclass.count >= 1 Then
mcolclass.remove (tmp_index)
remove = True
Else
remove = False
End If
End Function
Public Function item(ByVal index As Variant) As Class
Set item = mcolclass.item(index)
End Function
Public Sub init()
Dim SQLstmt As String '存放SQL語句的字符串
Dim msg_error As String
Dim tmp_res As ADODB.Recordset
Dim tmp_class As Class
If db.db_state > 0 Then
SQLstmt = "select * FROM class_info " '執(zhí)行SQL語句"
Set tmp_res = db.ExecuteSQL(SQLstmt, msg_error)
If InStr(msg_error, "query_ok") > 0 Then 'have record
While (tmp_res.EOF = False)
If Trim(tmp_res.Fields("director")) = login_user.user_Id Or login_user.user_Id = "admin" Then '只有對應的班主任或是admin才能訪問
Set tmp_class = New Class
tmp_class.State = 1 '有班級存在
tmp_class.class_no = tmp_res.Fields("class_no")
tmp_class.Grade = tmp_res.Fields("grade")
tmp_class.director = tmp_res("director")
tmp_class.classroom = tmp_res.Fields("classroom_no")
mcolclass.add tmp_class
Set tmp_class = Nothing
End If
tmp_res.MoveNext
Wend
End If
End If
Set tmp_res = Nothing
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -