📄 mdiformmain.frm

📁 学生信息管理系统
💻 FRM
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIFormMain 
   BackColor       =   &H8000000C&
   Caption         =   "学生信息管理系统"
   ClientHeight    =   7185
   ClientLeft      =   2910
   ClientTop       =   1500
   ClientWidth     =   11880
   Icon            =   "MDIFormMain.frx":0000
   LinkTopic       =   "MDIForm1"
   ScrollBars      =   0   'False
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   6870
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   15293
            Text            =   "NEUQ东北大学秦皇岛分校学生信息管理系统"
            TextSave        =   "NEUQ东北大学秦皇岛分校学生信息管理系统"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "2005-6-18"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "17:22"
         EndProperty
      EndProperty
   End
   Begin VB.Menu jiben 
      Caption         =   "基本信息管理 &(J)"
      Begin VB.Menu dangru 
         Caption         =   "档案录入"
         Shortcut        =   ^A
      End
      Begin VB.Menu dangchu 
         Caption         =   "档案删除"
         Shortcut        =   ^B
      End
      Begin VB.Menu danggai 
         Caption         =   "档案修改"
         Shortcut        =   ^D
      End
      Begin VB.Menu dangxun 
         Caption         =   "档案查询"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu banji 
      Caption         =   "班级信息管理 &(B)"
      Begin VB.Menu bantian 
         Caption         =   "班级添加"
         Shortcut        =   ^F
      End
      Begin VB.Menu banchu 
         Caption         =   "班级移除"
         Shortcut        =   ^G
      End
      Begin VB.Menu bangai 
         Caption         =   "班级修改"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu chengji 
      Caption         =   "成绩信息管理 &(C)"
      Begin VB.Menu chenglu 
         Caption         =   "成绩录入"
         Shortcut        =   ^I
      End
      Begin VB.Menu chengshan 
         Caption         =   "成绩删除"
         Shortcut        =   ^J
      End
      Begin VB.Menu chenggai 
         Caption         =   "成绩修改"
         Shortcut        =   ^K
      End
      Begin VB.Menu chengxun 
         Caption         =   "成绩查询"
         Shortcut        =   ^L
      End
   End
   Begin VB.Menu xueji 
      Caption         =   "学籍变动管理 &(X)"
      Begin VB.Menu tuixue 
         Caption         =   "退学登记"
         Shortcut        =   ^M
      End
      Begin VB.Menu zhuanxue 
         Caption         =   "转学登记"
         Shortcut        =   ^N
      End
      Begin VB.Menu jiangji 
         Caption         =   "降级登记"
         Shortcut        =   ^O
      End
      Begin VB.Menu xuejishanchu 
         Caption         =   "学籍变动删除"
         Shortcut        =   ^P
      End
      Begin VB.Menu xuejixiugai 
         Caption         =   "学籍变动修改"
         Shortcut        =   ^Q
      End
      Begin VB.Menu xuejichaxun 
         Caption         =   "学籍变动查询"
         Shortcut        =   ^R
      End
   End
   Begin VB.Menu zaxiang 
      Caption         =   "其它管理 &(Z)"
      Begin VB.Menu tianjiazaxian 
         Caption         =   "添加信息"
         Shortcut        =   ^S
      End
      Begin VB.Menu zachu 
         Caption         =   "其它信息删除"
         Shortcut        =   ^T
      End
      Begin VB.Menu zagai 
         Caption         =   "其他信息修改"
         Shortcut        =   ^U
      End
      Begin VB.Menu zaxun 
         Caption         =   "其它信息查询 "
         Shortcut        =   ^V
      End
   End
   Begin VB.Menu guanliyuan 
      Caption         =   "管理员管理 &(T)"
      Begin VB.Menu tianyuan 
         Caption         =   "添加管理员"
         Shortcut        =   ^W
      End
      Begin VB.Menu xiumi 
         Caption         =   "修改密码"
         Shortcut        =   ^X
      End
   End
   Begin VB.Menu xitong 
      Caption         =   "系统管理&(G)"
      Begin VB.Menu banzhuzhuti 
         Caption         =   "帮助主题"
         Shortcut        =   {F1}
      End
      Begin VB.Menu guanyu 
         Caption         =   "关于"
         Shortcut        =   ^Y
      End
      Begin VB.Menu fanhui 
         Caption         =   "返回"
         Shortcut        =   {F2}
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出"
         Shortcut        =   {F3}
      End
   End
End
Attribute VB_Name = "MDIFormMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub banchu_Click()
    Formbanjia.Visible = True
    Formbanjia.Picture1(0).Visible = False
    Formbanjia.Picture1(2).Visible = True
    Formbanjia.Picture1(1).Visible = False
End Sub

Private Sub bangai_Click()
    Formbanjia.Visible = True
    Formbanjia.Picture1(0).Visible = False
    Formbanjia.Picture1(1).Visible = True
    Formbanjia.Picture1(2).Visible = False
End Sub


Private Sub bantian_Click()
    Formbanjia.Visible = True
    Formbanjia.Picture1(0).Visible = True
    Formbanjia.Picture1(1).Visible = False
    Formbanjia.Picture1(2).Visible = False
End Sub

Private Sub chenggai_Click()
    Formchengji.Visible = True
    Formchengji.Picture1(0).Visible = False
    Formchengji.Picture1(1).Visible = True
    Formchengji.Picture1(2).Visible = False
    Formchengji.Picture1(3).Visible = False
End Sub

Private Sub chenglu_Click()
    Formchengji.Visible = True
    Formchengji.Picture1(0).Visible = True
    Formchengji.Picture1(1).Visible = False
    Formchengji.Picture1(2).Visible = False
    Formchengji.Picture1(3).Visible = False
End Sub

Private Sub chengxun_Click()
    Formchengji.Visible = True
    Formchengji.Picture1(0).Visible = False
    Formchengji.Picture1(1).Visible = False
    Formchengji.Picture1(2).Visible = False
    Formchengji.Picture1(3).Visible = True
End Sub

Private Sub chengshan_Click()

    Formchengji.Visible = True
    Formchengji.Picture1(0).Visible = False
    Formchengji.Picture1(1).Visible = False
    Formchengji.Picture1(2).Visible = True
    Formchengji.Picture1(3).Visible = False
End Sub
Private Sub dangchu_Click()
    FormChangestu.Command3.Visible = True
    FormChangestu.Command1.Visible = False
    FormChangestu.Visible = True
    FormChangestu.Caption = "档案删除"
End Sub

Private Sub danggai_Click()
    FormChangestu.Visible = True
    FormChangestu.Command1.Visible = True
    FormChangestu.Command3.Visible = False
    FormChangestu.Caption = "档案修改"
End Sub
Private Sub dangru_Click()
      FormAddstu.Visible = True
End Sub

Private Sub dangxun_Click()
    FormDel.Visible = True
End Sub


Private Sub fanhui_Click()
    Unload MDIFormMain
    Load FormLanding
    FormLanding.cmdOK.Visible = True
    FormLanding.Command2.Visible = True
    FormLanding.txtPassword.Text = ""
    FormLanding.txtUserName.Text = ""
    FormLanding.Visible = True
End Sub

Private Sub guanyu_Click()
Formabout.Visible = True
End Sub

Private Sub jiangji_Click()
    FormChange.Visible = True
    FormChange.Combo1.Text = "降级"
    FormChange.Frame1.Visible = True
    FormChange.Frame2.Visible = False
End Sub

Private Sub MDIForm_Load()
    dColor.Show
    MDIFormMain.banzhuzhuti.Enabled = False
    MDIFormMain.xuejishanchu.Enabled = False
    MDIFormMain.xuejixiugai.Enabled = False
    MDIFormMain.zachu.Enabled = False
    MDIFormMain.zagai.Enabled = False
End Sub

Private Sub MDIForm_Resize()
    If Me.Height > 1000 Then
        dColor.Height = Me.Height - 1100
    End If
    If Me.Width > 180 Then
        dColor.Width = Me.Width - 180
    End If
End Sub

Private Sub tianjiazaxian_Click()
  FormOther.Frame1.Visible = False
  FormOther.Frame4.Visible = True
  FormOther.Visible = True
  FormOther.MSFlexGrid1.Visible = False
End Sub

Private Sub tianyuan_Click()
    FormSystem.Visible = True
    FormSystem.Frame1.Visible = True
    FormSystem.Frame2.Visible = False
End Sub

Private Sub tuichu_Click()
    Unload MDIFormMain
    Unload FormLanding
End Sub

Private Sub tuixue_Click()
    FormChange.Visible = True
    FormChange.Combo1.Text = "退学"
    FormChange.Frame1.Visible = True
    FormChange.Frame2.Visible = False
End Sub

Private Sub xiumi_Click()
    FormSystem.Frame2.Visible = True
    FormSystem.Visible = True
    FormSystem.Frame1.Visible = False
End Sub

Private Sub xuejichaxun_Click()
    FormChange.Frame1.Visible = False
    FormChange.Frame2.Visible = True
End Sub

Private Sub zaxun_Click()
    FormOther.Frame1.Visible = True
    FormOther.Visible = True
    FormOther.Frame4.Visible = False
    FormOther.MSFlexGrid1.Visible = True
End Sub

Private Sub zhuanxue_Click()
    FormChange.Visible = True
    FormChange.Combo1.Text = "转学"
    FormChange.Frame1.Visible = True
    FormChange.Frame2.Visible = False
End Sub

Private Sub zhucha_Click()
    FormOther.Visible = True
    FormOther.Frame1.Visible = False
    FormOther.Frame4.Visible = False
End Sub
💿 文件大小 886 K
👤 上传用户 fsweb
📂 所属分类教育系统应用
🏷️ 相关标签

#信息管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -