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