mdifrm.frm

学生选课管理系统 实用

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