📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm Frmmain
BackColor = &H80000001&
Caption = "学生学籍管理系统 V1.0"
ClientHeight = 7365
ClientLeft = 165
ClientTop = 555
ClientWidth = 10485
Icon = "Frmmain.frx":0000
LinkTopic = "学生学籍管理系统"
StartUpPosition = 1 '所有者中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1800
Top = 2040
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList1
Left = 4560
Top = 1920
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frmmain.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frmmain.frx":0A24
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frmmain.frx":0B7E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frmmain.frx":0CD8
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frmmain.frx":0E32
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frmmain.frx":0F8C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 10485
_ExtentX = 18494
_ExtentY = 1005
ButtonWidth = 1455
ButtonHeight = 953
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "档案浏览"
Description = "学生档案管理"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查找学生"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "学籍设置"
Description = "班级设置"
ImageIndex = 3
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "fclass"
Text = "班级设置"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "fmajor"
Text = "专业设置"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "flesson"
Text = "课程设置"
EndProperty
EndProperty
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帐号管理"
Description = "用户帐号管理"
ImageIndex = 6
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Description = "系统帮助"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Description = "退出系统"
ImageIndex = 5
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 1
Top = 7050
Width = 10485
_ExtentX = 18494
_ExtentY = 556
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
Enabled = 0 'False
Object.Width = 3528
MinWidth = 3528
TextSave = "2007-6-12"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Enabled = 0 'False
Object.Width = 8820
MinWidth = 8820
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 1
Enabled = 0 'False
Object.Width = 8819
MinWidth = 8819
Text = "欢迎使用本软件"
TextSave = "欢迎使用本软件"
EndProperty
EndProperty
End
Begin VB.Menu filemenu10
Caption = "系统选项（&S）"
Begin VB.Menu filemenu11
Caption = "用户管理（&A）"
End
Begin VB.Menu filemenu12
Caption = "修改个人密码（&M）"
End
Begin VB.Menu filemenu13
Caption = "-"
End
Begin VB.Menu file
Caption = "关闭图形菜单（&C）"
End
Begin VB.Menu file00
Caption = "-"
End
Begin VB.Menu filemenu15
Caption = "重新登陆（&L）"
Shortcut = {F2}
End
Begin VB.Menu filemenu14
Caption = "退出系统（&X）"
End
End
Begin VB.Menu filemenu40
Caption = "学生信息管理（&M）"
Begin VB.Menu filemenu42
Caption = "浏览学生信息（&B）"
End
Begin VB.Menu tt
Caption = "-"
End
Begin VB.Menu filemenu45
Caption = "查询学生资料（&S）"
Shortcut = {F3}
End
End
Begin VB.Menu filemenu00
Caption = "其他信息（&O）"
Begin VB.Menu filemenu43
Caption = "班级设置（&C）"
End
Begin VB.Menu filemenu03
Caption = "专业设置（&M）"
End
Begin VB.Menu filemenu01
Caption = "课程设置（&L）"
End
Begin VB.Menu filemenu
Caption = "-"
End
Begin VB.Menu filemenu02
Caption = "成绩管理（&R）"
End
End
Begin VB.Menu filemenu30
Caption = "窗口设置（&W）"
Begin VB.Menu filemenu31
Caption = "层叠窗口（&C）"
End
Begin VB.Menu filemenu32
Caption = "水平平铺窗口（&H）"
End
Begin VB.Menu filemenu33
Caption = "垂直平铺窗口（&V）"
End
Begin VB.Menu filemenu34
Caption = "-"
End
Begin VB.Menu filemenu35
Caption = "排列所有窗口（&A）"
End
End
Begin VB.Menu filemenu20
Caption = "帮助（&H）"
Begin VB.Menu filemenu21
Caption = "帮助主题（&H）"
End
Begin VB.Menu filemenu22
Caption = "给我发邮件（&E）……"
End
Begin VB.Menu filemenu23
Caption = "-"
End
Begin VB.Menu filemenu24
Caption = "关于本软件（&A）……"
End
End
Begin VB.Menu pop
Caption = "学生信息"
Visible = 0 'False
Begin VB.Menu pop1
Caption = "查看该学生详细资料"
End
Begin VB.Menu pop2
Caption = "-"
End
Begin VB.Menu pop3
Caption = "添加学生资料"
End
Begin VB.Menu pop4
Caption = "修改学生资料"
End
Begin VB.Menu pop5
Caption = "删除学生资料"
End
End
End
Attribute VB_Name = "Frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'发邮件的库函数和帮助文件
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Private Const SW_SHOWNORMAL = 1
Private Sub file_Click()
'图形菜单
If file.Caption = "关闭图形菜单（&C）" Then
Toolbar1.Visible = False
file.Caption = "显示图形菜单（&O）"
Else
Toolbar1.Visible = True
file.Caption = "关闭图形菜单（&C）"
End If
End Sub
Private Sub filemenu01_Click()
'课程设置界面
frmlesson.Show 1
End Sub
Private Sub filemenu02_Click()
'成绩设置
frmresult.Show 1
End Sub
Private Sub filemenu03_Click()
'专业设置
frmmajor.Show 1
End Sub
Private Sub filemenu11_Click()
'用户管理界面
Frmmanage.Show 1
End Sub
Private Sub filemenu12_Click()
'修改密码界面
Frmchgpwd.Show 1
End Sub
Private Sub filemenu14_Click()
'退出系统
If MsgBox("确定要退出学生档案管理系统吗？是/否", vbYesNo + vbQuestion + vbDefaultButton1) = vbYes Then
End
End If
End Sub
Private Sub filemenu15_Click()
If MsgBox("若重新登陆，所有窗体都将关闭！是否重新登陆？", vbYesNo + vbQuestion, "重新登陆") = vbYes Then
Unload Me
Frmlogin.Show
End If
End Sub
Private Sub filemenu21_Click()
'帮助文件
'HtmlHelpA Me.hWnd, App.Path & "\help.CHM", 0, 0
' CommonDialog1.HelpFile = "help.hlp"
' CommonDialog1.HelpCommand = cdlHelpContents
' CommonDialog1.ShowHelp
ShellExecute 0, "open", App.Path & "\help.chm", "", "", SW_SHOWNORMAL
End Sub
Private Sub filemenu22_Click()
'发E-MAIL
ShellExecute Me.hwnd, "open", "mailto:datou158@etang.com", "", App.Path, 1
End Sub
Private Sub filemenu24_Click()
'显示关于系统窗口
About.Show 1
End Sub
Private Sub filemenu31_Click()
'把所有子窗口层叠
Frmmain.Arrange vbCascade
End Sub
Private Sub filemenu32_Click()
'把所有子窗口水平平铺
Frmmain.Arrange vbTileHorizontal
End Sub
Private Sub filemenu33_Click()
'把所有子窗口垂直平铺
Frmmain.Arrange vbTileVertical
End Sub
Private Sub filemenu35_Click()
'把所有子窗口排列
Frmmain.Arrange vbArrangeIcons
End Sub
Private Sub filemenu42_Click()
'浏览学生资料
Frmstu.Show
End Sub
Private Sub filemenu43_Click()
'班级设置
Frmclass.Show 1
End Sub
Private Sub filemenu45_Click()
'查找学生
frmstusearch.Show 1
End Sub
Private Sub MDIForm_Load()
StatusBar.Panels(2).Text = "当前操作员：" & LoginUser & " " & LoginPower & ""
If LoginPower = "普通用户" Then
filemenu11.Enabled = False
Toolbar1.Buttons.Item(5).Enabled = False
End If
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确定要退出学生学籍管理系统吗？是/否", vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then
Cancel = 1
End If
End Sub
Private Sub pop1_Click()
'显示详细资料
Call Frmstu.ListView_DblClick
End Sub
Private Sub pop3_Click()
'添加学生资料
Call Frmstu.AddStu
End Sub
Private Sub pop4_Click()
'修改学生资料
Call Frmstu.ModifyStu
End Sub
Private Sub pop5_Click()
'删除学生资料
Call Frmstu.DelStu
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'工具栏按钮响应代码
Select Case Button.Index
Case 1: Call filemenu42_Click '档案浏览
Case 2: Call filemenu45_Click '查找学生
'Case 4: '班级设置
Case 5: Call filemenu11_Click '帐号管理
Case 7: Call filemenu21_Click '帮助
Case 8: Call filemenu14_Click '退出系统
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
Case "fclass": Call filemenu43_Click '班级设置
Case "fmajor": Call filemenu03_Click '专业设置
Case "flesson": Call filemenu01_Click '课程设置
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -