frmmain.frm

来自「学生信息管理系统,学生入学时间及毕业时间,学生成绩,学生所在系」· FRM 代码 · 共 343 行

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         =   "学生学籍管理系统"
   ClientHeight    =   8190
   ClientLeft      =   60
   ClientTop       =   525
   ClientWidth     =   11880
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Picture         =   "FrmMain.frx":113A
   StartUpPosition =   2  '屏幕中心
   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":47C70
      Key:1           =   "#mnuExit"
      Bmp:2           =   "FrmMain.frx":48098
      Key:2           =   "#mnuBackUpDB"
      Bmp:3           =   "FrmMain.frx":484C0
      Key:3           =   "#mnuRestoreDB"
      Bmp:4           =   "FrmMain.frx":488E8
      Key:4           =   "#mnuLogoff"
      Bmp:5           =   "FrmMain.frx":48D10
      Key:5           =   "#mnu"
      Bmp:6           =   "FrmMain.frx":49138
      Key:6           =   "#mnuMatter"
      Bmp:7           =   "FrmMain.frx":49560
      Key:7           =   "#mnuClassReport"
      Bmp:8           =   "FrmMain.frx":49988
      Key:8           =   "#mnuStudentReport"
      Bmp:9           =   "FrmMain.frx":49DB0
      Key:9           =   "#mnuClassQuery"
      Bmp:10          =   "FrmMain.frx":4A1D8
      Mask:10         =   8736516
      Key:10          =   "#mnuCourseQuery"
      Bmp:11          =   "FrmMain.frx":4A600
      Key:11          =   "#mnuResultQuery"
      Bmp:12          =   "FrmMain.frx":4AA28
      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         =   "文件"
      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
   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 mnuAddLiuji 
         Caption         =   "留级处理"
      End
      Begin VB.Menu mnuAddStudentInfo 
         Caption         =   "学籍信息设置"
      End
   End
   Begin VB.Menu mnuResult 
      Caption         =   "成绩信息管理"
      Begin VB.Menu mnuAddNum 
         Caption         =   "成绩排名"
      End
      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
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 Frmnum_Click()
FrmNum.Show
End Sub

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, "学生学籍管理系统", "05090401X" & vbCrLf & "开发:王涛、常周庆、栗永强、白斌、王志鹏", Me.Icon
End Sub

Private Sub mnuAddLiuji_Click()
FrmLiuji.Show
End Sub

Private Sub mnuAddNum_Click()
FrmNum.Show
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 mnuExam_Click()
FrmExam.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 mnuFrmnum_Click()
FrmNum.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