mdimain.frm

党务管理是一种人事管理

VERSION 5.00
Begin VB.MDIForm mdimain 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   4980
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   7440
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu xtwh 
      Caption         =   "系统维护(&S)"
      WindowList      =   -1  'True
      Begin VB.Menu yhgl 
         Caption         =   "用户管理"
         Shortcut        =   ^U
      End
      Begin VB.Menu line1 
         Caption         =   "-"
      End
      Begin VB.Menu reset 
         Caption         =   "注销"
         Shortcut        =   ^R
      End
      Begin VB.Menu line2 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu dwgl 
      Caption         =   "党务管理(&M)"
      Begin VB.Menu jsdy 
         Caption         =   "教师党员"
         Shortcut        =   ^T
      End
      Begin VB.Menu line3 
         Caption         =   "-"
      End
      Begin VB.Menu xsdy 
         Caption         =   "学生党员"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu index 
         Caption         =   "索引"
         Shortcut        =   ^I
      End
      Begin VB.Menu about 
         Caption         =   "关于"
         Shortcut        =   ^A
      End
   End
End
Attribute VB_Name = "mdimain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public mnusername As String
Public mnusertype As Integer

Private Sub about_Click()
  Load frmsplash
  frmsplash.mbabout = True
  frmsplash.Show vbModal
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub index_Click()
MsgBox "对不起，您要找的帮助文件可能已经删除！", vbInformation, "提示"
End Sub

Private Sub jsdy_Click()
If mnusertype = 0 Then
   frmteacher.Show
Else
   If mnusertype = 1 Then
      frmtealook.Show
   End If
End If
End Sub

Private Sub MDIForm_Activate()
Select Case mnusertype
        Case 0:
            jsdy.Visible = True
            xsdy.Visible = True
            line3.Visible = True
            yhgl.Visible = True
            reset.Visible = True
            line1.Visible = True
        Case 1:
            yhgl.Visible = False
            line1.Visible = False
            jsdy.Visible = True
            xsdy.Visible = False
            line3.Visible = False
        Case 2:
            yhgl.Visible = False
            line1.Visible = False
            line3.Visible = False
            jsdy.Visible = False
            xsdy.Visible = True
End Select
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 If MsgBox("真的要退出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then
    Cancel = 1
 End If
End Sub

Private Sub reset_Click()
If MsgBox("若重新登录，所有窗体都将关闭！是否重新登录？", vbQuestion + vbYesNo + vbDefaultButton2, "重新登录") = vbYes Then
  Unload mdimain
  frmlogin.Show
End If
End Sub

Private Sub xsdy_Click()
If mnusertype = 0 Then
   frmstudent.Show
Else
   If mnusertype = 2 Then
      frmstulook.Show
   End If
End If
End Sub

Private Sub yhgl_Click()
  frmmanage.Show
End Sub