📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "考试分析系统 V0.6.0"
ClientHeight = 7755
ClientLeft = 60
ClientTop = 645
ClientWidth = 11265
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar SBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7380
Width = 11265
_ExtentX = 19870
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 4
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 8849
MinWidth = 7182
Picture = "MDIForm1.frx":030A
Text = "知更鸟（Robin）版权所有,2003。"
TextSave = "知更鸟（Robin）版权所有,2003。"
Object.ToolTipText = "知更鸟（Robin）版权所有,2003。"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 7408
MinWidth = 7408
Text = "EMAIL：gen2star@tom.com，电话：13912265004"
TextSave = "EMAIL：gen2star@tom.com，电话：13912265004"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
Object.Width = 1764
MinWidth = 1764
TextSave = "2003-12-4"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
Object.Width = 1235
MinWidth = 1235
TextSave = "10:42"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Tbar
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 1
Top = 0
Width = 11265
_ExtentX = 19870
_ExtentY = 979
ButtonWidth = 1879
ButtonHeight = 926
Wrappable = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 64
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":107E
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1312
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":15A6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":183A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1ACE
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1D62
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1FF6
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":228A
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu Ksxxgl
Caption = "考生信息管理(&S)"
Begin VB.Menu Ksdj
Caption = "考生登记"
End
Begin VB.Menu a1
Caption = "-"
End
Begin VB.Menu Ksxxcx
Caption = "考生信息查询"
End
Begin VB.Menu a2
Caption = "-"
End
Begin VB.Menu KsxxIn
Caption = "考生信息导入"
End
Begin VB.Menu KsxxOut
Caption = "考生信息导出"
End
End
Begin VB.Menu Kscjgl
Caption = "考试成绩管理(&E)"
Begin VB.Menu Cjlr
Caption = "成绩录入"
End
Begin VB.Menu b1
Caption = "-"
End
Begin VB.Menu Kscjcx
Caption = "考试成绩查询"
End
Begin VB.Menu b2
Caption = "-"
End
Begin VB.Menu KscjIn
Caption = "考试成绩导入"
End
Begin VB.Menu KscjOut
Caption = "考试成绩导出"
End
End
Begin VB.Menu Cjfxtj
Caption = "成绩分析统计(&A)"
Begin VB.Menu Bjxkfx
Caption = "班级学科分析"
End
Begin VB.Menu Njxkfx
Caption = "年级学科分析"
End
Begin VB.Menu c1
Caption = "-"
End
Begin VB.Menu Bjfsdtj
Caption = "班级分数段统计"
End
Begin VB.Menu Njfsdtj
Caption = "年级分数段统计"
End
Begin VB.Menu c2
Caption = "-"
End
Begin VB.Menu Cjbb
Caption = "成绩报表"
Begin VB.Menu Bjcjbb
Caption = "班级成绩报表"
End
Begin VB.Menu Xkfxbb
Caption = "学科分析报表"
End
Begin VB.Menu Fsdfxbb
Caption = "分数段分析报表"
End
End
End
Begin VB.Menu Jcsjwh
Caption = "基础数据维护(&M)"
Begin VB.Menu njxxwh
Caption = "年级信息维护"
End
Begin VB.Menu Bjsjwh
Caption = "班级数据维护"
End
Begin VB.Menu d3
Caption = "-"
End
Begin VB.Menu Kcxxwh
Caption = "课程信息维护"
End
Begin VB.Menu d1
Caption = "-"
End
Begin VB.Menu Ksmcgl
Caption = "考试名称管理"
End
Begin VB.Menu Ksxmgl
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 e1
Caption = "-"
End
Begin VB.Menu Xtgl
Caption = "系统管理"
End
Begin VB.Menu Rzgl
Caption = "日志管理"
End
Begin VB.Menu e2
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 f1
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
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 Kcsjwh_Click()
FrmKcsjwh.Show vbModal, MDIForm1
End Sub
Private Sub Bjsjwh_Click()
FrmBjxxwh.Show vbModal, MDIForm1
End Sub
Private Sub Cjlr_Click()
FrmCjlr.Show
End Sub
Private Sub Kcxxwh_Click()
FrmKcxwh.Show vbModal, MDIForm1
End Sub
Private Sub Ksdj_Click()
FrmKsdj.Show
End Sub
Private Sub Ksmcgl_Click()
Frmksmcgl.Show vbModal, MDIForm1
End Sub
Private Sub Ksxmgl_Click()
Frmksxmwh.Show vbModal, MDIForm1
End Sub
Private Sub MDIForm_Load()
Me.Caption = App.Title
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If vbNo = MsgBox("确认退出本应用程序么？", vbYesNo, "退出对话框") Then
Cancel = 1
Exit Sub
End If
'彻底卸载所有窗体并退出程序
ReleaseResource
End Sub
Private Sub njxxwh_Click()
FrmNjxxwh.Show vbModal, MDIForm1
End Sub
Private Sub Rjyl_Click()
frmTip.Show
End Sub
Private Sub Rzgl_Click()
Frmbook.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 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -