📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{74238AF8-8108-44A9-B3DE-D652F61AB8DC}#2.3#0"; "NetMenu.ocx"
Begin VB.MDIForm FrmMain
BackColor = &H80000003&
Caption = "学生信息管理系统"
ClientHeight = 7800
ClientLeft = 165
ClientTop = 855
ClientWidth = 10650
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
Moveable = 0 'False
Picture = "MDIForm1.frx":113A
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7425
Width = 10650
_ExtentX = 18785
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
EndProperty
End
Begin VB.Timer Timer1
Interval = 150
Left = 0
Top = 0
End
Begin yfDNetMenu.DNetMenu DNetMenu1
Left = 0
Top = 480
_ExtentX = 847
_ExtentY = 847
BitmapSize = 32
BmpCount = 23
Bmp:1 = "MDIForm1.frx":C779
Mask:1 = 16777215
Key:1 = "#useradd"
Bmp:2 = "MDIForm1.frx":CFCB
Key:2 = "#modipass"
Bmp:3 = "MDIForm1.frx":DD33
Mask:3 = 16777215
Key:3 = "#denglu2"
Bmp:4 = "MDIForm1.frx":E585
Mask:4 = 16383743
Key:4 = "#exit"
Bmp:5 = "MDIForm1.frx":F1D7
Mask:5 = 16777215
Key:5 = "#stuadd"
Bmp:6 = "MDIForm1.frx":FA29
Key:6 = "#stufind"
Bmp:7 = "MDIForm1.frx":10791
Mask:7 = 16777215
Key:7 = "#modi"
Bmp:8 = "MDIForm1.frx":10FE3
Key:8 = "#stubrow"
Bmp:9 = "MDIForm1.frx":11D4B
Mask:9 = 16777215
Key:9 = "#addclassinfo"
Bmp:10 = "MDIForm1.frx":1259D
Mask:10 = 6894853
Key:10 = "#class_query"
Bmp:11 = "MDIForm1.frx":13305
Mask:11 = 16777215
Key:11 = "#classmodinfo"
Bmp:12 = "MDIForm1.frx":13B57
Key:12 = "#delclassinfo"
Bmp:13 = "MDIForm1.frx":148BF
Mask:13 = 16777215
Key:13 = "#adddepinfo"
Bmp:14 = "MDIForm1.frx":15111
Key:14 = "#dep_query"
Bmp:15 = "MDIForm1.frx":15E79
Mask:15 = 16777215
Key:15 = "#depmodiinfo"
Bmp:16 = "MDIForm1.frx":166CB
Key:16 = "#deldepinfo"
Bmp:17 = "MDIForm1.frx":17433
Key:17 = "#stuchange"
Bmp:18 = "MDIForm1.frx":1819B
Key:18 = "#stujl"
Bmp:19 = "MDIForm1.frx":18F03
Key:19 = "#stusq"
Bmp:20 = "MDIForm1.frx":19C6B
Mask:20 = 16777215
Key:20 = "#stuqf"
Bmp:21 = "MDIForm1.frx":1A4BD
Mask:21 = 16777215
Key:21 = "#about"
Bmp:22 = "MDIForm1.frx":1AE1F
Key:22 = "#dbbackup"
Bmp:23 = "MDIForm1.frx":1BB87
Key:23 = "#dbrestore"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Menu system
Caption = "系统管理(&O)"
NegotiatePosition= 2 'Middle
Begin VB.Menu useradd
Caption = "添加用户"
Shortcut = ^U
End
Begin VB.Menu modipass
Caption = "修改密码"
Shortcut = ^B
End
Begin VB.Menu denglu2
Caption = "重新登陆"
Shortcut = ^{F1}
End
Begin VB.Menu exit
Caption = "退出系统"
Shortcut = ^X
End
End
Begin VB.Menu dangan
Caption = "学生信息管理(&T) "
Begin VB.Menu stuadd
Caption = "学生注册"
Shortcut = ^F
End
Begin VB.Menu stufind
Caption = "学生信息查询"
Shortcut = ^H
End
Begin VB.Menu modi
Caption = "学生信息修改"
Shortcut = ^M
End
Begin VB.Menu stubrow
Caption = "学生信息删除"
Shortcut = ^G
End
End
Begin VB.Menu classinfo
Caption = "班级信息管理(&B)"
Begin VB.Menu addclassinfo
Caption = "添加班级"
Shortcut = ^C
End
Begin VB.Menu class_query
Caption = "班级信息查询"
Shortcut = ^{F2}
End
Begin VB.Menu classmodinfo
Caption = "班级信息修改"
Shortcut = +{F4}
End
Begin VB.Menu delclassinfo
Caption = "班级信息删除"
Shortcut = ^{F3}
End
End
Begin VB.Menu depinfo
Caption = "院系信息管理(&G)"
Begin VB.Menu adddepinfo
Caption = "添加院系"
Shortcut = ^{F5}
End
Begin VB.Menu dep_query
Caption = "院系信息查询"
Shortcut = ^{F6}
End
Begin VB.Menu depmodiinfo
Caption = "院系信息修改"
Shortcut = ^{F8}
End
Begin VB.Menu deldepinfo
Caption = "院系信息删除"
Shortcut = ^{F7}
End
End
Begin VB.Menu teachinfo
Caption = "教务信息管理(&M)"
Begin VB.Menu stuchange
Caption = "学籍变更"
Shortcut = ^I
End
Begin VB.Menu stujl
Caption = "奖励记录"
Shortcut = ^J
End
Begin VB.Menu stuqf
Caption = "处分记录"
Shortcut = ^Q
End
Begin VB.Menu stusq
Caption = "处分消除"
Shortcut = ^S
End
End
Begin VB.Menu dbmanger
Caption = "数据库管理(&D)"
Begin VB.Menu dbbackup
Caption = "数据库备份"
Shortcut = +{F1}
End
Begin VB.Menu dbrestore
Caption = "数据库还原"
Shortcut = +{F2}
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu about
Caption = "关于..."
Shortcut = ^A
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public msUserName As String
Dim Myinfo As String
Private Declare Function htmlhelp Lib "hhctrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As Long
Private Sub about_Click()
ShellAbout Me.hwnd, "学生信息管理系统1.0", "版权所有(C) 2004-2005 计算机六班:刘志彪" & vbCrLf & " ", Me.Icon
End Sub
Private Sub adddep_Click()
Frmdep.Show
End Sub
Private Sub addclassinfo_Click()
addclass.Show
End Sub
Private Sub adddepinfo_Click()
adddep.Show
End Sub
Private Sub class_query_Click()
classquery.Show
End Sub
Private Sub classmodi_Click()
classmodi.Show
End Sub
Private Sub classmodinfo_Click()
classmodi.Show
End Sub
Private Sub dbbackup_Click()
FrmBackUp.Show
End Sub
Private Sub dbrestore_Click()
If MsgBox("是否现在就执行还原数据库的操作？", vbYesNo + vbInformation, "还原数据库") = vbYes Then
success = WritePrivateProfileString("BackUp", "Restore", "True", App.Path & "\student_info.ini")
Unload Me
Shell "Restore.exe"
End If
End Sub
Private Sub delclassinfo_Click()
delclass.Show
End Sub
Private Sub deldepinfo_Click()
deldep.Show
End Sub
Private Sub denglu2_Click()
If MsgBox("若重新登录，所有窗体都将关闭！是否重新登录？", _
vbQuestion + vbYesNo + vbDefaultButton2, "重新登录") = vbYes Then
Unload FrmMain
FrmLogin.Show
End If
End Sub
Private Sub dep_query_Click()
depquery.Show
End Sub
Private Sub depmodiinfo_Click()
depmodi.Show
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub modi_Click()
stumodi.Show
End Sub
Private Sub modipass_Click()
setpass.Show
End Sub
Private Sub stuadd_Click()
addstu.Show
End Sub
Private Sub stubrow_Click()
infobrow.Show
End Sub
Private Sub stuchange_Click()
change.Show
End Sub
Private Sub stufind_Click()
stuquery.Show
End Sub
Private Sub stujl_Click()
reward.Show
End Sub
Private Sub stuqf_Click()
punishment.Show
End Sub
Private Sub stusq_Click()
quxiao.Show
End Sub
Private Sub useradd_Click()
adduser.Show
End Sub
Private Sub MyWeekDay()
Select Case Weekday(Date)
Case 1
StatusBar1.Panels(5).Text = "星期日"
Case 2
StatusBar1.Panels(5).Text = "星期一"
Case 3
StatusBar1.Panels(5).Text = "星期二"
Case 4
StatusBar1.Panels(5).Text = "星期三"
Case 5
StatusBar1.Panels(5).Text = "星期四"
Case 6
StatusBar1.Panels(5).Text = "星期五"
Case 7
StatusBar1.Panels(5).Text = "星期六"
End Select
End Sub
Private Sub MDIForm_Load()
Timer1.Enabled = True
Dim mypanel As Panel
Set mypanel = StatusBar1.Panels.Add(1)
StatusBar1.Panels(1).Text = "学生信息管理系统┅┅刘志彪"
mypanel.AutoSize = sbrContents
Set mypanel = StatusBar1.Panels.Add(2)
StatusBar1.Panels(2).Text = "当前用户：" & Trim(dluser)
mypanel.AutoSize = sbrContents
Set mypanel = StatusBar1.Panels.Add(3) '状态栏3显示文本消息
mypanel.AutoSize = sbrSpring
Set mypanel = StatusBar1.Panels.Add(4, , , sbrDate) '状态栏4显示日期
mypanel.AutoSize = sbrContents
Set mypanel = StatusBar1.Panels.Add(5) '状态栏5显示星期几
mypanel.AutoSize = sbrContents
Call MyWeekDay
Set mypanel = StatusBar1.Panels.Add(6, , , sbrTime) '状态栏6显示时间
mypanel.AutoSize = sbrContents
End Sub
Private Sub Timer1_Timer()
If Myinfo = "" Then
Myinfo = Space(85) & "欢迎使用学生信息管理系统！"
End If
Myinfo = Right(Myinfo, Len(Myinfo) - 1)
StatusBar1.Panels(3).Text = Myinfo
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的要对出本系统吗？", vbQuestion + vbYesNo + vbDefaultButton2, "退出") = vbNo Then
Cancel = 1
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -