📄 frmmain.frm
字号:
VERSION 5.00
Object = "{74238AF8-8108-44A9-B3DE-D652F61AB8DC}#2.3#0"; "NetMenu.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm FrmMain
BackColor = &H8000000F&
Caption = "学生信息管理系统1.0"
ClientHeight = 8190
ClientLeft = 60
ClientTop = 525
ClientWidth = 11880
Icon = "FrmMain.frx":0000
LinkTopic = "MDIForm1"
Picture = "FrmMain.frx":113A
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 150
Left = 9840
Top = 480
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 7815
Width = 11880
_ExtentX = 20955
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
EndProperty
End
Begin yfDNetMenu.DNetMenu DNetMenu1
Left = 10560
Top = 360
_ExtentX = 847
_ExtentY = 847
SelectDisabled = 0 'False
BmpCount = 12
Bmp:1 = "FrmMain.frx":13B9F
Key:1 = "#mnuExit"
Bmp:2 = "FrmMain.frx":13FC7
Key:2 = "#mnuBackUpDB"
Bmp:3 = "FrmMain.frx":143EF
Key:3 = "#mnuRestoreDB"
Bmp:4 = "FrmMain.frx":14817
Key:4 = "#mnuLogoff"
Bmp:5 = "FrmMain.frx":14C3F
Key:5 = "#mnu"
Bmp:6 = "FrmMain.frx":15067
Key:6 = "#mnuMatter"
Bmp:7 = "FrmMain.frx":1548F
Key:7 = "#mnuClassReport"
Bmp:8 = "FrmMain.frx":158B7
Key:8 = "#mnuStudentReport"
Bmp:9 = "FrmMain.frx":15CDF
Key:9 = "#mnuClassQuery"
Bmp:10 = "FrmMain.frx":16107
Mask:10 = 8736516
Key:10 = "#mnuCourseQuery"
Bmp:11 = "FrmMain.frx":1652F
Key:11 = "#mnuResultQuery"
Bmp:12 = "FrmMain.frx":16957
Mask:12 = 1793258
Key:12 = "#mnuStudentQuery"
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 mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuBackUpDB
Caption = "备份数据库"
End
Begin VB.Menu mnuRestoreDB
Caption = "还原数据库"
End
Begin VB.Menu mnuline1
Caption = "-"
End
Begin VB.Menu mnuLogoff
Caption = "注销"
End
Begin VB.Menu mnuExit
Caption = "退出系统"
End
End
Begin VB.Menu mnuUserManage
Caption = "用户管理"
Begin VB.Menu mnuAddUser
Caption = "用户添加"
End
Begin VB.Menu mnuDeleteUser
Caption = "用户删除"
End
Begin VB.Menu mnuModiPwd
Caption = "密码修改"
End
End
Begin VB.Menu mnuGrade
Caption = "年级信息管理"
Begin VB.Menu mnuSetGrade
Caption = "学校年级设置"
End
Begin VB.Menu mnuLine
Caption = "-"
End
Begin VB.Menu mnuSchoolSet
Caption = "学校信息设置"
End
End
Begin VB.Menu mnuClass
Caption = "班级信息管理"
Begin VB.Menu mnuSetClass
Caption = "班级信息设置"
End
End
Begin VB.Menu mnuCourseInfo
Caption = "课程信息管理"
Begin VB.Menu mnuSetCourseInfo
Caption = "课程信息设置"
End
Begin VB.Menu mnuSetCourse
Caption = "年级课程开设"
End
End
Begin VB.Menu mnuStudentInfo
Caption = "学籍信息管理"
Begin VB.Menu mnuAddStudentInfo
Caption = "学籍信息设置"
End
End
Begin VB.Menu mnuResult
Caption = "成绩信息管理"
Begin VB.Menu mnuAddResult
Caption = "成绩信息设置"
End
End
Begin VB.Menu mnuQuery
Caption = "查询管理"
Begin VB.Menu mnuClassQuery
Caption = "班级信息查询"
End
Begin VB.Menu mnuCourseQuery
Caption = "课程信息查询"
End
Begin VB.Menu mnuResultQuery
Caption = "成绩信息查询"
End
Begin VB.Menu mnuStudentQuery
Caption = "学籍信息查询"
End
End
Begin VB.Menu mnuReport
Caption = "统计报表中心"
Begin VB.Menu mnuClassReport
Caption = "班级信息统计报表"
End
Begin VB.Menu mnuStudentReport
Caption = "学生信息统计报表"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuAbout
Caption = "关于(&A)..."
End
Begin VB.Menu mnuMatter
Caption = "内容(&C)..."
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Myinfo As String
Dim success As Long
Dim Classprint As OpenRs
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 MDIForm_Load()
Set Classprint = New OpenRs
Timer1.Enabled = True
Dim mypanel As Panel
Set mypanel = StatusBar1.Panels.Add(1, , , sbrDate) '状态栏1显示日期
Set mypanel = StatusBar1.Panels.Add(2) '状态栏2显示星期几
Call MyWeekDay
Set mypanel = StatusBar1.Panels.Add(3)
StatusBar1.Panels(3).Text = "当前用户：" & FrmLogin.CurrentUser
mypanel.AutoSize = sbrContents
Set mypanel = StatusBar1.Panels.Add(4) '状态栏3显示文本消息
mypanel.AutoSize = sbrSpring
End Sub
Private Sub mnuAbout_Click()
ShellAbout Me.hwnd, "学生信息管理系统1.0", "版权所有(C) 2003-2004 ACCP2002-A8班" & vbCrLf & "开发:蔡容森、欧嘉俊、覃能华、曾威、廖志坚、陈杰", Me.Icon
End Sub
Private Sub mnuAddResult_Click()
Frmresult.Show
End Sub
Private Sub mnuClassQuery_Click()
FrmClassQuery.Show
End Sub
Private Sub mnuClassReport_Click()
Classprint.rsDK1 "select c.class_no,s.grade_no,grade_name,u.user_id,user_name from class_info c inner join schoolgrade_info s on c.grade_no=s.grade_no inner join user_info u on c.user_id=u.user_id"
ClassReport.Show
Set ClassReport.DataSource = Classprint.rs1
End Sub
Private Sub mnuCourseQuery_Click()
FrmCourseQuery.Show
End Sub
Private Sub mnuMatter_Click()
htmlhelp hwnd, "sims.chm", 0, 0
End Sub
Private Sub mnuResultQuery_Click()
FrmResultQuery.Show
End Sub
Private Sub mnuSchoolSet_Click()
FrmSchoolInfo.Show
End Sub
Private Sub mnuSetClass_Click()
FrmClassInfo.Show
End Sub
Private Sub mnuAddStudentInfo_Click()
FrmAddStudentInfo.Show
End Sub
Private Sub mnuAddUser_Click()
FrmAddUser.Show
End Sub
Private Sub mnuBackUpDB_Click()
FrmBackUp.Show
End Sub
Private Sub mnuDeleteUser_Click()
FrmDelUser.Show
End Sub
Private Sub mnuExit_Click()
If MsgBox("要退出系统吗？", vbYesNo + vbInformation, "退出") = vbYes Then
Unload FrmMain
End If
End Sub
Private Sub mnuLogoff_Click()
If MsgBox("要注销系统吗？", vbYesNo + vbInformation, "注销") = vbYes Then
Unload FrmMain
FrmLogin.Show
End If
End Sub
Private Sub mnuModiPwd_Click()
FrmModiPass.Show
End Sub
Private Sub mnuRestoreDB_Click()
If MsgBox("是否现在就执行还原数据库的操作？", vbYesNo + vbInformation, "还原数据库") = vbYes Then
success = WritePrivateProfileString("BackUp", "Restore", "True", App.Path & "\Sims.ini")
Unload Me
Shell "Restore.exe"
End If
End Sub
Private Sub mnuSetCourse_Click()
FrmGradecourse.Show
End Sub
Private Sub mnuSetCourseInfo_Click()
FrmCourse.Show
End Sub
Private Sub mnuSetGrade_Click()
FrmGradeInfo.Show
End Sub
Private Sub mnuStudentQuery_Click()
FrmStuInfoQuery.Show
End Sub
Private Sub mnuStudentReport_Click()
Classprint.rsDK1 "select * from student_info"
Set StudentReport.DataSource = Classprint.rs1
StudentReport.Show
End Sub
Private Sub Timer1_Timer()
If Myinfo = "" Then
Myinfo = Space(85) & "欢迎使用学生信息管理系统！"
End If
Myinfo = Right(Myinfo, Len(Myinfo) - 1)
StatusBar1.Panels(4).Text = Myinfo
End Sub
Private Sub MyWeekDay()
Select Case Weekday(Date)
Case 1
StatusBar1.Panels(2).Text = "星期日"
Case 2
StatusBar1.Panels(2).Text = "星期一"
Case 3
StatusBar1.Panels(2).Text = "星期二"
Case 4
StatusBar1.Panels(2).Text = "星期三"
Case 5
StatusBar1.Panels(2).Text = "星期四"
Case 6
StatusBar1.Panels(2).Text = "星期五"
Case 7
StatusBar1.Panels(2).Text = "星期六"
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -