?? cls_course.cls
字號(hào):
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "Cls_Course"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Dim mycnt As Cls_Connect
Private Sub Class_Initialize()
Set mycnt = New Cls_Connect
End Sub
Public Function QueryCourseById(mystr As String)
'按課程編號(hào)查詢,用于修改和刪除
Dim i As Integer
mycnt.QryName = "select * from CourseInfo where CourseID='" & mystr & " '"
mycnt.openQry
End Function
Public Property Get GetQryCourseByIdRs() As Recordset
'返回按課程編號(hào)查詢的記錄
Set GetQryCourseByIdRs = mycnt.MQueryRs
End Property
Public Sub OpenCourse()
' 打開課程表
mycnt.RcdName = "CourseInfo "
mycnt.openRcd
End Sub
Public Property Get GetCourseRs() As Recordset
'返回課程表的記錄
Set GetCourseRs = mycnt.MRecordset
End Property
Public Function PrcCourseById(mycourseid As String)
'**該存儲(chǔ)過程的原理:**
'根據(jù) seminfo中的學(xué)期名稱,再到courseinfo表中找符合該兩表共同字段semid的記錄
mycnt.PrcName = "QueryCourse"
mycnt.PrcPra = "@pra"
mycnt.OpenPrc mycourseid
End Function
Public Property Get GetPrcCourseByIdRs() As Recordset
'返回課程表的記錄
Set GetPrcCourseByIdRs = mycnt.MStoreProcRS
End Property
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -