mdiform1.frm

本软件为免费软件

      Begin VB.Menu d1 
         Caption         =   "-"
      End
      Begin VB.Menu Njsjwh 
         Caption         =   "年级数据维护"
      End
      Begin VB.Menu Bjsjwh 
         Caption         =   "班级数据维护"
      End
      Begin VB.Menu d2 
         Caption         =   "-"
      End
      Begin VB.Menu Sjdcxd 
         Caption         =   "数据导出向导"
      End
   End
   Begin VB.Menu Windows 
      Caption         =   "窗口(&W)"
      WindowList      =   -1  'True
      Begin VB.Menu windwosH 
         Caption         =   "水平平铺"
      End
      Begin VB.Menu windowsV 
         Caption         =   "垂直平铺"
      End
      Begin VB.Menu windowsC 
         Caption         =   "层垒排列"
      End
   End
   Begin VB.Menu Czyml 
      Caption         =   "操作员命令(&C)"
      Begin VB.Menu Rjyl 
         Caption         =   "日积月累"
      End
      Begin VB.Menu Xtbz 
         Caption         =   "系统帮助"
      End
      Begin VB.Menu e3 
         Caption         =   "-"
      End
      Begin VB.Menu Cjxs 
         Caption         =   "超级信使"
      End
      Begin VB.Menu Wllt 
         Caption         =   "网络聊天"
         Begin VB.Menu Fwq 
            Caption         =   "服务器"
         End
         Begin VB.Menu Khj 
            Caption         =   "客户机"
         End
      End
      Begin VB.Menu e2 
         Caption         =   "-"
      End
      Begin VB.Menu Xtgl 
         Caption         =   "系统管理"
      End
      Begin VB.Menu Rzgl 
         Caption         =   "日志管理"
      End
      Begin VB.Menu e1 
         Caption         =   "-"
      End
      Begin VB.Menu Tcxt 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu Pup 
      Caption         =   "弹出菜单"
      Visible         =   0   'False
      Begin VB.Menu HidePup 
         Caption         =   "隐藏助手"
      End
      Begin VB.Menu p1 
         Caption         =   "-"
      End
      Begin VB.Menu HelpXx 
         Caption         =   "选项..."
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const GWL_WNDPROC = (-4)

Private Sub Bjfsdfx_Click()
    FrmBjfsdfx.Show
End Sub

Private Sub Bjsjwh_Click()
FrmBjxxwh.Show vbModal, MDIForm1
End Sub

Private Sub Bmxxwh_Click()
FrmBmxxwh.Show vbModal, MDIForm1
End Sub

Private Sub Cjxs_Click()
FrmXS.Show
End Sub

Private Sub Fwq_Click()
frmServer.Show
End Sub

Private Sub HelpXx_Click()
If Permission = 0 Then
    MsgBox "管理员：" & LoginUser & "，您好！认识您真高兴！ ", vbOKOnly + vbExclamation, "欢迎使用“教务管理系统 V1.0.0”"
Else
    MsgBox "普通用户：" & LoginUser & "，您好！认识您真高兴！", vbOKOnly + vbExclamation, "欢迎使用“教务管理系统 V1.0.0”"
End If
End Sub

Private Sub HidePup_Click()
assist.Hide
End Sub

Private Sub Jgjbxxcx_Click()
FrmJgjbxxcx.Show
End Sub

Private Sub Jgxxgl_Click()
FrmJgxxgl.Show
End Sub

Private Sub Jxjyqkcx_Click()
FrmJxjyqkcx.Show
End Sub

Private Sub Jzgdak_Click()
FrmJgdak.Show
End Sub

Private Sub Khj_Click()
frmClient.Show
End Sub

Private Sub Kscjfx_Click()
    FrmCCount.Show
End Sub

Private Sub Lwfbqkcx_Click()
FrmFbzpqkcx.Show
End Sub

Private Sub MDIForm_Load()
    OldWindowProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
    Call SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf SubClass1_WndMessage)

    Me.Caption = App.Title
    If Permission > 0 Then
      Jcsjwh.Enabled = False
      Kscjfx.Enabled = False
      Pyckgl.Enabled = False
    End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
If vbNo = MsgBox("确认退出本应用程序么？", vbYesNo, "退出对话框") Then
   Cancel = 1
    Exit Sub
End If
Call SetWindowLong(Me.hwnd, GWL_WNDPROC, OldWindowProc)
'彻底卸载所有窗体并退出程序
ReleaseResource
End Sub

Private Sub Njfsdfx_Click()
FrmNjfsdfx.Show
End Sub

Private Sub Njsjwh_Click()
FrmNjxxwh.Show vbModal, MDIForm1
End Sub

Private Sub Pyckgl_Click()
FrmPyckgl.Show
End Sub

Private Sub Pydsc_Click()
FrmPydsc.Show
End Sub

Private Sub Pyglxt_Click()
FrmPyglxt.Show
End Sub

Private Sub Pyzhcx_Click()
FrmPycx.Show
End Sub

Private Sub Rjyl_Click()
frmTip.Show
End Sub

Private Sub Rzgl_Click()
Frmbook.Show
End Sub

Private Sub Sjdcxd_Click()
FrmSjzhxd.Show vbModal, MDIForm1
End Sub

Private Sub Tbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
   Case 1
        FrmJgxxgl.Show
   Case 2
        FrmXsxxgl.Show
   Case 3
        FrmPyglxt.Show
   Case 4
        FrmAddCj.Show vbModal, MDIForm1
   Case 6
        FrmSjzhxd.Show
   Case 7
        FrmXS.Show
   Case 8
        assist.Show
End Select
End Sub

Private Sub Tbar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
    Case "Kscjfx"
        FrmCCount.Show
    Case "Bjfsdfx"
        FrmBjfsdfx.Show
    Case "Njfsdfx"
        FrmNjfsdfx.Show
End Select
End Sub

Private Sub Tcxt_Click()
Unload Me
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub

Private Sub windowsC_Click()
    MDIForm1.Arrange (vbCascade)
End Sub

Private Sub windowsV_Click()
    MDIForm1.Arrange (vbVertical)
End Sub

Private Sub windwosH_Click()
    MDIForm1.Arrange (vbHorizontal)
End Sub

Private Sub Xshmc_Click()
FrmXshmc.Show
End Sub

Private Sub Xsxjdak_Click()
FrmXsxjdak.Show
End Sub

Private Sub Xsxxgl_Click()
FrmXsxxgl.Show
End Sub

Private Sub Xsxxzhcx_Click()
FrmXsxxzhcx.Show
End Sub

Private Sub Xtbz_Click()
 If Dir(App.Path & "\帮助文档.doc") = "" Then
     MsgBox "    帮助文件丢失，请查找 帮助文档.doc 文件！" & Chr(13) & "然后将它存放在应用程序所在的目录。", , App.Title
 Else
    Dim Scr_hDC As Long
    Dim StartDoc As Long
     Scr_hDC = GetDesktopWindow()
     StartDoc = ShellExecute(Scr_hDC, "Open", App.Path & "\帮助文档.doc", "", "C:\", 1)
 End If
End Sub

Private Sub Xtgl_Click()
    FrmManage.Show
End Sub

Private Sub zhcjcx_Click()
    FrmZhcjcx.Show
End Sub

Private Sub Zncjsr_Click()
    FrmAddCj.Show vbModal, MDIForm1
End Sub