運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設置，在這模塊中可以把專業、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質和考試性質等信息輸入，以便使用。
下面為其代碼：
Private Sub Command1_Click()
Dim myCon As New ADODB.Connection
Dim myRs As New ADODB.Recordset
Dim ZhuanYe, NianJi, XueQi, KeCheng, JiaoCai, RenKLS, KeShi, ShangKeDD, KeChengXZ, KaoShiXZ As String
ZhuanYe = Text1.Text
NianJi = Text2.Text
XueQi = DTPicker1.Value
KeCheng = Text4.Text
JiaoCai = Text5.Text
RenKLS = Text6.Text
KeShi = Text7.Text
ShangKeDD = Text8.Text
KeChengXZ = Combo1.Text
KaoShiXZ = Combo2.Text
If Trim(ZhuanYe) = "" Or Trim(NianJi) = "" Or Trim(XueQi) = "" Or Trim(KeCheng) = "" Or Trim(JiaoCai) = "" Or Trim(RenKLS) = "" Or Trim(KeShi) = "" Or Trim(ShangKeDD) = "" Or Trim(KeChengXZ) = "" Or Trim(KaoShiXZ) = "" Then
    MsgBox "請填寫要修改課程資料的內容！"
    Combo1.Text = ""
    Combo2.Text = ""
    Exit Sub
End If

myCon.Open "dsn=信息"
myRs.Open "select * from 課程表 where 專業='" & Text1.Text & "'", myCon, 3, 2
    myRs!年級 = Text2.Text
    myRs!學期 = DTPicker1.Value
    myRs!課程名稱 = Text4.Text
    myRs!教材 = Text5.Text
    myRs!任課老師 = Text6.Text
    myRs!課時 = Text7.Text
    myRs!上課地點 = Text8.Text
    myRs!課程性質 = Combo1.Text
    myRs!考試性質 = Combo2.Text
myRs.Update
myRs.Close
myCon.Close
MsgBox "您確定要修改嗎？", vbYesNo, "提示"
Frm_UpdateGrean.Adodc1.Refresh
Frm_UpdateGrean.DataGrid1.Refresh

Text1.Text = ""
Text2.Text = ""
'Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = ""
Combo2.Text = ""
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
    Unload Me
    Frm_FindGrean.Show 1
End Sub

Private Sub DataGrid1_Click()
'Frm_UpdateGrean.Adodc1.RecordSource = "select * from 課程表 where 專業 = '" & Trim(DataGrid1.Row) & "'"
'Text1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("專業")
'Text2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("年級")
'Text3.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("學期")
'Text4.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課程名稱")
'Text5.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("教材")
'Text6.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("任課老師")
'Text7.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課時")
'Text8.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("上課地點")
'Combo1.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("課程性質")
'Combo2.Text = Frm_UpdateGrean.Adodc1.Recordset.Fields("考試性質")
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub Form_Activate()
Frm_FindGrean.Adodc1.RecordSource = strTiaoJian
Frm_FindGrean.Adodc1.Refresh
Set DataGrid1.DataSource = Frm_FindGrean.Adodc1
End Sub

Private Sub Form_Load()
Combo1.AddItem ("必修")
Combo1.AddItem ("選修")
Combo1.AddItem ("自開")
Combo2.AddItem ("考試")
Combo2.AddItem ("查考")
Text1.Text = ""
Text2.Text = ""
'Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = ""
Combo2.Text = ""
End Sub

Private Sub Text1_Change()

End Sub

Private Sub Text2_Change()

End Sub

Private Sub Text8_Change()

End Sub
課程管理：課程查詢（如：界面如圖三）
 （圖三）
當輸入查詢類別、運算符和條件后可以查找到所需要的課程設置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設置。
代碼如下：
Dim sqlstr As String

Private Sub Combo1_Change()

End Sub

Private Sub Combo2_Change()

End Sub

Private Sub Combo4_Change()

End Sub

Private Sub Combo5_Change()

End Sub

Private Sub Combo7_Change()

End Sub

Private Sub Command1_Click()
Dim a As String
Dim KCCX1 As String
Dim KCCX2 As String
Dim str1 As String
Dim str2 As String

If Option3.Value = True Then
a = Trim(Combo2)
Select Case a
    Case "="
        KCCX1 = "" & Combo1.Text & " " & Combo2.Text & " '" & Trim(Text1) & "'"
    Case "like"
        KCCX1 = "Instr(1," & Combo1.Text & ",'" & Trim(Text1.Text) & "')<>0 "
End Select
    
a = Trim(Combo4)
Select Case a
    Case "="
        KCCX2 = "" & Combo3.Text & " " & Combo4.Text & " '" & Trim(Text2) & "'"
    Case "like"
        KCCX2 = "Instr(1," & Combo3.Text & ",'" & Trim(Text2.Text) & "')<>0 "
End Select
    
If Option1.Value = True Then
    If KCCX1 = "" Then
            strTiaoJian = "select * from 課程表 where " & KCCX2
    ElseIf KCCX2 = "" Then
            strTiaoJian = "select * from 課程表 where " & KCCX1
        Else
            strTiaoJian = "select * from 課程表 where " & KCCX1 & "and " & KCCX2
    End If
ElseIf Option2.Value = True Then
    If KCCX1 = "" Then
            strTiaoJian = "select * from 課程表 where " & KCCX2
    ElseIf KCCX2 = "" Then
            strTiaoJian = "select * from 課程表 where " & KCCX1
        Else
            strTiaoJian = "select * from 課程表 where " & KCCX1 & "or " & KCCX2
    End If
Else
    If KCCX1 = "" Then
        strTiaoJian = "select * from 課程表 where " & KCCX2
    ElseIf KCCX2 = "" Then
        strTiaoJian = "select * from 課程表 where " & KCCX1
    Else
        MsgBox "請選擇連接方式！", vbOKOnly, "警告"
    Exit Sub
    End If
End If
    
If (KCCX1 & KCCX2) = "" Then
    MsgBox "請輸入查詢類別！", vbOKOnly, "警告"
Exit Sub
Else
    Unload Me
    Frm_UpdateGrean.Show 1
End If
End If

If Option4.Value = True Then
    If Val(Combo6) > Val(Combo9) Then
        MsgBox "請正確選擇年份！", vbOKOnly + vbExclamation, "信息提示"
        Combo6.SetFocus
        Exit Sub
    Else
    If Val(Combo6) = Val(Combo9) Then
        If Val(Combo7) > Val(Combo10) Then
            MsgBox "請正確選擇月份！", vbOKOnly + vbExclamation, "信息提示"
            Combo7.SetFocus
            Exit Sub
        Else
            If Val(Combo7) = Val(Combo10) Then
                If Val(Combo8) > Val(Combo11) Then
                    MsgBox "請正確選擇日期！", vbOKOnly + vbExclamation, "信息提示"
                    Combo8.SetFocus
                    Exit Sub
                End If
            End If
        End If
    End If
    End If

    If Combo6.Text = "" Or Combo7.Text = "" Or Combo8.Text = "" Or Combo9.Text = "" Or Combo10.Text = "" Or Combo11.Text = "" Then
        MsgBox "請輸入完整的日期", vbOKOnly, "警告"
        Exit Sub
    End If
        
    str1 = Trim(Combo6) & "-" & Trim(Combo7) & "-" & Trim(Combo8)
    str2 = Trim(Combo9) & "-" & Trim(Combo10) & "-" & Trim(Combo11)
    str1 = Format(str1, "yyyy-mm-dd")
    str2 = Format(str2, "yyyy-mm-dd")
        
    If sqlstr = "" Then
        sqlstr = "" & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#"
    Else
        sqlstr = sqlstr & " and " & Trim(Combo5.Text) & ">=#" & Format(str1, "yyyy-mm-dd") & "# and  " & Trim(Combo5.Text) & "<= #" & Format(str2, "yyyy-mm-dd") & "#"
    End If
        
    If sqlstr = "" Then
        MsgBox "請先輸入查找時間！"
        Exit Sub
    End If
        
    strTiaoJian = "select 專業,年級,學期,課程名稱,教材,任課老師,課時,上課地點,課程性質,考試性質 from 課程表 where " & sqlstr
    Unload Me
    Frm_UpdateGrean.Show 1
End If

If Option3.Value <> True And Option4.Value <> True Then
    MsgBox "請選擇查詢方式！", vbOKOnly, "警告"
    Exit Sub
End If
End Sub



Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()
Dim i, j As Integer
For i = 1999 To 2010
    Combo6.AddItem i
    Combo9.AddItem i
Next i
    Combo6.ListIndex = 0
    Combo9.ListIndex = 0
    
For i = 1 To 12
    Combo7.AddItem i
    Combo10.AddItem i
Next i
    Combo7.ListIndex = 0
    Combo10.ListIndex = 0
For i = 1 To 31
    Combo8.AddItem i
    Combo11.AddItem i
Next i
    Combo8.ListIndex = 0
    Combo11.ListIndex = 0
Combo1.AddItem ("專業")
Combo1.AddItem ("年級")
Combo1.AddItem ("課程名稱")
Combo1.AddItem ("教材")
Combo1.AddItem ("任課老師")
'Combo1.AddItem ("課時")
Combo1.AddItem ("課程性質")
Combo1.AddItem ("考試性質")
Combo2.AddItem ("=")
Combo3.AddItem ("專業")
Combo3.AddItem ("年級")
Combo3.AddItem ("課程名稱")
Combo3.AddItem ("教材")
Combo3.AddItem ("任課老師")
'Combo3.AddItem ("課時")
Combo3.AddItem ("課程性質")
Combo3.AddItem ("考試性質")
Combo4.AddItem ("=")
Combo5.AddItem ("學期")
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text2.Text = ""
Combo5.Text = ""
Combo6.Text = ""