VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm mdiFrm 
   BackColor       =   &H80000001&
   Caption         =   "學生選課管理系統"
   ClientHeight    =   8130
   ClientLeft      =   60
   ClientTop       =   705
   ClientWidth     =   11235
   HelpContextID   =   1
   Icon            =   "mdiFrm.frx":0000
   StartUpPosition =   2  '屏幕中心
   WhatsThisHelp   =   -1  'True
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar stb 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   0
      Top             =   7830
      Width           =   11235
      _ExtentX        =   19817
      _ExtentY        =   529
      SimpleText      =   "就緒"
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Menu menuStu 
      Caption         =   "學生管理(&S)"
      Begin VB.Menu itemStuAdd 
         Caption         =   "添加學生信息..."
      End
      Begin VB.Menu itemStuAdmin 
         Caption         =   "學生信息管理..."
      End
      Begin VB.Menu itemsps 
         Caption         =   "-"
      End
      Begin VB.Menu itemExit 
         Caption         =   "退出系統(&X)"
      End
   End
   Begin VB.Menu menuCourse 
      Caption         =   "課程管理(&C)"
      Begin VB.Menu itemCourseAdd 
         Caption         =   "添加課程信息..."
      End
      Begin VB.Menu itemCourseAdmin 
         Caption         =   "管理課程信息..."
      End
   End
   Begin VB.Menu menuSc 
      Caption         =   "選課管理(&G)"
      Begin VB.Menu itemScAdd 
         Caption         =   "添加選課信息..."
      End
      Begin VB.Menu itemScAdmin 
         Caption         =   "管理選課信息..."
      End
      Begin VB.Menu itemspg 
         Caption         =   "-"
      End
      Begin VB.Menu itemInit 
         Caption         =   "初始化(&I)..."
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "幫助(&H)"
      Begin VB.Menu itmeContent 
         Caption         =   "幫助主題(&C)..."
      End
      Begin VB.Menu itemspa 
         Caption         =   "-"
      End
      Begin VB.Menu itemAbout 
         Caption         =   "關于本系統(&A)..."
      End
   End
End
Attribute VB_Name = "mdiFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub itemAbout_Click()
    stb.SimpleText = "本程序的相關信息 ..."
    Dim strVersion As String
    strVersion = " Version" & App.Major & "." & App.Minor & "." & App.Revision
    Call ShellAbout(hwnd, "學生選課管理系統" & strVersion, "歡迎訪問我的個人網站：http://www.jiucai.net", Me.Icon)

End Sub

Private Sub itemCourseAdd_Click()
     frmAddcourse.Show
     stb.SimpleText = "添加課程信息 ..."
End Sub


Private Sub itemCourseAdmin_Click()
     frmCourseAdmin.Show '顯示課程管理窗體
     stb.SimpleText = "管理課程信息 ..."
End Sub

Private Sub itemExit_Click()
    If cnn.State <> 0 Then '已經使用過Cnn
        cnn.Close
    End If
    Set cnn = Nothing
    Unload Me
End Sub

Private Sub itemInit_Click()
    frmInit.Show
    
End Sub

Private Sub itemScAdd_Click()
    frmScAdd.Show
    stb.SimpleText = "添加選課信息 ..."
End Sub

Private Sub itemScAdmin_Click()
     frmSc.Show
     stb.SimpleText = "管理選課信息 ..."
End Sub

Private Sub itemStuAdd_Click()
     frmStuAdd.Show  '顯示添加學生信息窗體
     stb.SimpleText = "添加學生信息 ..."
End Sub

Private Sub itemStuAdmin_Click()
    frmStuAdmin.Show
    stb.SimpleText = "管理學生信息 ..."
End Sub

Private Sub itmeContent_Click()
    stb.SimpleText = "系統相關幫助 ..."
    'Dim a As Long
    'Dim b As String
    'b = App.Path & "\jc.chm" '用變量b記錄與主程序同目錄下的help.chm幫助文件
    'On Error GoTo NotFindHelp
    'a = ShellExecute(0, "open", b, "", "", SW_SHOWNORMAL)
    
    Dim i As String
    i = App.Path & "\jc.chm" '用變量i記錄與主程序同目錄下的help.chm幫助文件
    On Error GoTo NotFindHelp
    HtmlHelpA hwnd, i, 0, 0

    Exit Sub
    
NotFindHelp:
    Call showMsg("無法找到或打開幫助文件 ！", 0)
    stb.SimpleText = "就緒"
    
End Sub

Private Sub MDIForm_Load()
     stb.Style = sbrSimple
     stb.SimpleText = "就緒"
    ' MsgBox "您可以在菜單中選擇相應的功能進行操作．", vbOKOnly + vbInformation, "歡迎您"
    
     
End Sub

Private Sub MDIForm_Terminate()

    If cnn.State <> 0 Then '已經使用過Cnn
        cnn.Close
    End If
    Set cnn = Nothing
End Sub