mdiform1.frm

来自「ASP编程留言板功能强大」· FRM 代码 · 共 120 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H80000001&
   Caption         =   "学校管理系统"
   ClientHeight    =   7380
   ClientLeft      =   300
   ClientTop       =   990
   ClientWidth     =   11490
   LinkTopic       =   "MDIForm1"
   Begin VB.Menu MAINE 
      Caption         =   "编辑(&E)"
      Begin VB.Menu sube 
         Caption         =   "教师基本情况表"
         Index           =   1
      End
      Begin VB.Menu sube 
         Caption         =   "教师电话号码表"
         Index           =   2
      End
      Begin VB.Menu sube 
         Caption         =   "教师基本工资表"
         Index           =   3
      End
      Begin VB.Menu sube 
         Caption         =   "学生基本情况表"
         Index           =   4
      End
      Begin VB.Menu sube 
         Caption         =   "学生成绩表"
         Index           =   5
      End
   End
   Begin VB.Menu MAINQ 
      Caption         =   "查询(&Q)"
      Begin VB.Menu SUBQ 
         Caption         =   "教师个人资料"
         Index           =   1
      End
      Begin VB.Menu SUBQ 
         Caption         =   "学生个人资料"
         Index           =   2
      End
      Begin VB.Menu SUBQ 
         Caption         =   "教师电话"
         Index           =   3
      End
      Begin VB.Menu SUBQ 
         Caption         =   "学生成绩"
         Index           =   4
      End
   End
   Begin VB.Menu MAINR 
      Caption         =   "报表(&R)"
      Begin VB.Menu subr 
         Caption         =   "教师个人情况一览表"
         Index           =   1
      End
      Begin VB.Menu subr 
         Caption         =   "学生学籍表"
         Index           =   2
      End
      Begin VB.Menu subr 
         Caption         =   "教师工资表"
         Index           =   3
      End
   End
   Begin VB.Menu MAINX 
      Caption         =   "退出(&E)"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MAINX_Click()
  Unload MDIForm1
  End

End Sub

Private Sub MDIForm_Load()
  DataEnvironment1.Connect.Open
  
End Sub

Private Sub sube_Click(Index As Integer)
  Select Case Index
    Case 1
      Load frmteabase
      frmteabase.Show
    Case 2
      Load frmteaphone
      frmteaphone.Show
    Case 3
      Load frmteapay
      frmteapay.Show
      
  End Select
  
End Sub

Private Sub SUBQ_Click(Index As Integer)
  Select Case Index
    Case 1
      Load qteabase
      qteabase.Show
    Case 3
      Load Form3
      Form3.Show
  End Select
End Sub

Private Sub subr_Click(Index As Integer)
  Select Case Index
    Case 3
      rpteapay.Show
  End Select
End Sub