frmmdi.frm

班主任考核管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmmdi 
   BackColor       =   &H8000000C&
   Caption         =   "班主任考核管理系统"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11205
   Icon            =   "frmmdi.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   8055
      Width           =   11205
      _ExtentX        =   19764
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   15875
            MinWidth        =   15875
            Text            =   "欢迎使用本系统，感谢您的支持"
            TextSave        =   "欢迎使用本系统，感谢您的支持"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Object.Width           =   1764
            MinWidth        =   1764
            TextSave        =   "2004-10-12"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Object.Width           =   1764
            MinWidth        =   1764
            TextSave        =   "12:29"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mun1 
      Caption         =   "班主任信息(&B)"
      Begin VB.Menu mun13 
         Caption         =   "班级设置"
         Begin VB.Menu mun131 
            Caption         =   "添加班级"
         End
         Begin VB.Menu mun132 
            Caption         =   "修改设置"
         End
         Begin VB.Menu mun133 
            Caption         =   "删除班级"
         End
      End
      Begin VB.Menu mun11 
         Caption         =   "班主任管理"
         Begin VB.Menu mun111 
            Caption         =   "添加班主任"
         End
         Begin VB.Menu mun113 
            Caption         =   "修改班主任"
         End
         Begin VB.Menu mun112 
            Caption         =   "删除班主任"
         End
      End
      Begin VB.Menu mun12 
         Caption         =   "查询"
      End
   End
   Begin VB.Menu mun2 
      Caption         =   "班主任月份考核(&M)"
      Begin VB.Menu mun21 
         Caption         =   "信息录入"
      End
      Begin VB.Menu mun24 
         Caption         =   "修改信息"
      End
      Begin VB.Menu mun22 
         Caption         =   "计算津贴"
      End
      Begin VB.Menu mun23 
         Caption         =   "浏览"
      End
   End
   Begin VB.Menu muna 
      Caption         =   "班主任学期考核(&T)"
      Begin VB.Menu muna1 
         Caption         =   "统计"
      End
      Begin VB.Menu muna2 
         Caption         =   "浏览"
      End
   End
   Begin VB.Menu mun3 
      Caption         =   "班级学期考核(&Y)"
      Begin VB.Menu mun31 
         Caption         =   "信息录入"
         Begin VB.Menu mun311 
            Caption         =   "学生会测评"
            Begin VB.Menu mun3111 
               Caption         =   "组织部"
            End
            Begin VB.Menu mun3112 
               Caption         =   "舍务部"
            End
            Begin VB.Menu mun3113 
               Caption         =   "生活部"
            End
            Begin VB.Menu mun3114 
               Caption         =   "宣传部"
            End
            Begin VB.Menu mun3115 
               Caption         =   "文艺部"
            End
            Begin VB.Menu mun3116 
               Caption         =   "体育部"
            End
            Begin VB.Menu mun3117 
               Caption         =   "舍务老师"
            End
            Begin VB.Menu mun3118 
               Caption         =   "学生会总评"
            End
         End
         Begin VB.Menu mun312 
            Caption         =   "教务处测评"
         End
         Begin VB.Menu mun313 
            Caption         =   "任课教师测评"
            Begin VB.Menu mun3131 
               Caption         =   "教师测评录入"
            End
            Begin VB.Menu mun3132 
               Caption         =   "教师总评"
            End
         End
         Begin VB.Menu mun314 
            Caption         =   "学生处测评"
         End
         Begin VB.Menu mun315 
            Caption         =   "学生测评"
         End
         Begin VB.Menu munb 
            Caption         =   "扣分情况"
         End
         Begin VB.Menu mun316 
            Caption         =   "总评"
         End
      End
      Begin VB.Menu mun32 
         Caption         =   "浏览"
      End
   End
   Begin VB.Menu mun4 
      Caption         =   "评优(&P)"
      Begin VB.Menu mun41 
         Caption         =   "信息预览"
      End
      Begin VB.Menu mun42 
         Caption         =   "评优结果"
      End
   End
   Begin VB.Menu mun7 
      Caption         =   "报表(&D)"
      Begin VB.Menu mun71 
         Caption         =   "月津贴"
      End
      Begin VB.Menu mun712 
         Caption         =   "其他"
      End
   End
   Begin VB.Menu mun5 
      Caption         =   "关于(&A)"
   End
   Begin VB.Menu mun6 
      Caption         =   "退出系统(&E)"
   End
End
Attribute VB_Name = "frmmdi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
  StatusBar1.Panels(1).Width = Me.ScaleWidth * 3 / 5
  StatusBar1.Panels(2).Width = Me.ScaleWidth / 5
  StatusBar1.Panels(3).Width = Me.ScaleWidth / 5
End Sub


Private Sub MDIForm_Unload(Cancel As Integer)
  End
End Sub

Private Sub mun111_Click()
 frmaddteacher.Show
End Sub

Private Sub mun112_Click()
  frmdelteacher.Show
End Sub

Private Sub mun113_Click()
  frmup.Show
End Sub

Private Sub mun12_Click()
  frmsel1.Show
End Sub

Private Sub mun131_Click()
  frmbanji.Show
End Sub

Private Sub mun132_Click()
  frmupbanji.Show
End Sub

Private Sub mun133_Click()
  frmdelbanji.Show
End Sub

Private Sub mun21_Click()
 frmluru.Show
End Sub

Private Sub mun22_Click()
 frmjintie.Show
End Sub

Private Sub mun23_Click()
  frmliulan.Show
End Sub

Private Sub mun24_Click()
  frmupluru.Show
End Sub

Private Sub mun3111_Click()
  frmzuzhibu.Show
End Sub

Private Sub mun3112_Click()
  frmshewubu.Show
End Sub

Private Sub mun3113_Click()
  frmshenghuobu.Show
End Sub

Private Sub mun3114_Click()
  frmxuanchuanbu.Show
End Sub

Private Sub mun3115_Click()
  frmwenyibu.Show
End Sub

Private Sub mun3116_Click()
  frmtiyubu.Show
End Sub

Private Sub mun3117_Click()
  frmshuwulaoshi.Show
End Sub

Private Sub mun3118_Click()
  frmxueshenghui.Show
End Sub

Private Sub mun312_Click()
  frmjiaowu.Show
End Sub

Private Sub mun3131_Click()
  frmjiaoshi.Show
End Sub

Private Sub mun3132_Click()
  frmjiaoshi1.Show
End Sub

Private Sub mun314_Click()
  frmxueshengchu.Show
End Sub

Private Sub mun315_Click()
  frmxuesheng.Show
End Sub

Private Sub mun316_Click()
  frmzongping.Show
  
End Sub

Private Sub mun32_Click()
  banjixueqi.Show
End Sub

Private Sub mun5_Click()
  frmAbout.Show
End Sub

Private Sub mun6_Click()
 End
End Sub


Private Sub mun71_Click()
  frmriqi.Show
End Sub

Private Sub mun712_Click()
  frmriqi1.Show
End Sub

Private Sub muna1_Click()
  frm1.Show
End Sub

Private Sub muna2_Click()
  xueqiliulan.Show
End Sub

Private Sub munb_Click()
  frmweiji.Show
End Sub