mdifrmmain.frm

Visual basic + sql server2000学员管理系统原代码

VERSION 5.00
Begin VB.MDIForm MDIFrmMain 
   BackColor       =   &H8000000A&
   Caption         =   "红太阳中心学员信息系统"
   ClientHeight    =   3195
   ClientLeft      =   -5790
   ClientTop       =   210
   ClientWidth     =   4905
   Icon            =   "MDIFrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Begin VB.Menu mnuStudentManage 
      Caption         =   "学籍管理(&M)"
      Begin VB.Menu munInputStudentInfo 
         Caption         =   "学员信息编辑(&I)"
      End
      Begin VB.Menu mnuHistoryEdit 
         Caption         =   "学员历史纪录编辑(&H)"
      End
      Begin VB.Menu mnuQueryStudentInfo 
         Caption         =   "学员信息查询(&Q)"
      End
      Begin VB.Menu mnuStatInfo 
         Caption         =   "学员信息统计(&S)"
      End
   End
   Begin VB.Menu mnuSysMaintenance 
      Caption         =   "系统管理(&S)"
      Begin VB.Menu mnuEditCenter 
         Caption         =   "中心信息编辑(&A)"
      End
      Begin VB.Menu mnuEditManager 
         Caption         =   "管理员信息编辑(&D)"
      End
      Begin VB.Menu mnuModifyPassword 
         Caption         =   "修改密码(&P)"
      End
      Begin VB.Menu mnuQueryCenter 
         Caption         =   "中心信息查询(&C)"
      End
   End
   Begin VB.Menu mnuTools 
      Caption         =   "工具(&T)"
      Visible         =   0   'False
      Begin VB.Menu mnuWinStyle 
         Caption         =   "窗体风格(&W)"
      End
   End
   Begin VB.Menu mnuWindows 
      Caption         =   "窗口(&W)"
      Begin VB.Menu mnuVert 
         Caption         =   "纵向平铺(&V)"
      End
      Begin VB.Menu mnuHorz 
         Caption         =   "横向平铺(&H)"
      End
      Begin VB.Menu mnuCascade 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu mnuSep1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuArrange 
         Caption         =   "排列图标(&A)"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuContent 
         Caption         =   "内容(&C)"
      End
      Begin VB.Menu mnuSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuAbout 
         Caption         =   "关于(&A)"
      End
   End
   Begin VB.Menu mnuPop 
      Caption         =   "弹出菜单"
      Visible         =   0   'False
      Begin VB.Menu m1 
         Caption         =   "学员信息编辑"
      End
      Begin VB.Menu m2 
         Caption         =   "学员历史纪录编辑"
      End
      Begin VB.Menu m3 
         Caption         =   "学员信息查询"
      End
      Begin VB.Menu m4 
         Caption         =   "学员信息统计"
      End
      Begin VB.Menu ms 
         Caption         =   "-"
      End
      Begin VB.Menu m5 
         Caption         =   "修改密码"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub m1_Click()
frmInputStudentInfo.Show
End Sub

Private Sub m2_Click()
frmEditHistory.Show
End Sub

Private Sub m3_Click()
frmQueryStudent.Show
End Sub

Private Sub m4_Click()
frmStatStudent.Show
End Sub

Private Sub m5_Click()
frmChangePassword.Show
End Sub

Private Sub MDIForm_Load()

'在窗体标题栏显示登录者的身份
If intUserPermit = 2 Then
    mnuEditCenter.Visible = False
    mnuEditManager.Visible = False
    mnuQueryCenter.Visible = False
    MDIFrmMain.Caption = MDIFrmMain.Caption & "—当前身份：分部管理员 "
ElseIf intUserPermit = 1 Then
    mnuEditCenter.Visible = True
    mnuEditManager.Visible = True
    mnuQueryCenter.Visible = True
    MDIFrmMain.Caption = MDIFrmMain.Caption & "—当前身份：总部管理员 "
End If

Me.Width = Screen.Width * 3 / 4
Me.Height = Screen.Height * 3 / 4
Me.WindowState = 2
End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    PopupMenu mnuPop, vbPopupMenuLeftButton
End If
End Sub

Private Sub mnuAbout_Click()
frmAbout.Show
End Sub

Private Sub mnuArrange_Click()
Me.Arrange vbArrangeIcons
End Sub

Private Sub mnuCascade_Click()
Me.Arrange vbCascade
End Sub

Private Sub mnuContent_Click()
MsgBox "建设中！", vbOKOnly + vbInformation, "内容"
End Sub

Private Sub mnuEditCenter_Click()
frmEditCenter.Show
End Sub

Private Sub mnuEditManager_Click()
frmEditUser.Show
End Sub

Private Sub mnuHistoryEdit_Click()
frmEditHistory.Show
End Sub

Private Sub mnuHorz_Click()
Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuModifyPassword_Click()
frmChangePassword.Show
End Sub

Private Sub mnuQueryCenter_Click()
frmQueryCenter.Show
End Sub

Private Sub mnuQueryStudentInfo_Click()
frmQueryStudent.Show
End Sub

Private Sub mnuStatInfo_Click()
frmStatStudent.Show
End Sub

Private Sub mnuVert_Click()
Me.Arrange vbTileVertical
End Sub

Private Sub munInputStudentInfo_Click()
frmInputStudentInfo.Show
End Sub