VERSION 5.00
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "學生檔案管理系統"
   ClientHeight    =   3555
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6405
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu System 
      Caption         =   "系統"
      Index           =   1
      Begin VB.Menu Add_User 
         Caption         =   "添加用戶"
      End
      Begin VB.Menu Change_PWD 
         Caption         =   "修改密碼"
      End
      Begin VB.Menu System_EXIT 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu Stuff_Info 
      Caption         =   "學生基本信息"
      Index           =   2
      Begin VB.Menu Add_Stuff 
         Caption         =   "添加學生信息"
      End
      Begin VB.Menu Change_Stuff 
         Caption         =   "修改學生信息"
      End
      Begin VB.Menu Check_Stuff 
         Caption         =   "查詢學生信息"
      End
      Begin VB.Menu Del_Stuff 
         Caption         =   "刪除學生信息"
      End
   End
   Begin VB.Menu Stuff_Checkin 
      Caption         =   "學生出勤信息"
      Index           =   3
      Begin VB.Menu Add_Checkin 
         Caption         =   "添加出勤信息"
         Begin VB.Menu AddAttendance 
            Caption         =   "添加上下學信息"
         End
         Begin VB.Menu AddOtherKQ 
            Caption         =   "添加其他出勤信息"
         End
      End
      Begin VB.Menu Change_Checkin 
         Caption         =   "修改出勤信息"
         Begin VB.Menu ChangeAttendance 
            Caption         =   "修改上下學信息"
         End
         Begin VB.Menu ChangeOtherKQ 
            Caption         =   "修改其他出勤信息"
         End
      End
      Begin VB.Menu Check_Checkin 
         Caption         =   "查詢出勤信息"
      End
      Begin VB.Menu Del_Checkin 
         Caption         =   "刪除出勤信息"
         Begin VB.Menu delInOut 
            Caption         =   "刪除上下學信息"
         End
         Begin VB.Menu delOtherKQ 
            Caption         =   "刪除其他出勤信息"
         End
      End
      Begin VB.Menu SetTime 
         Caption         =   "設置上下學時間"
      End
   End
   Begin VB.Menu Stuff_Alteration 
      Caption         =   "學生調動信息"
      Index           =   4
      Begin VB.Menu Add_Alter 
         Caption         =   "添加調動信息"
      End
      Begin VB.Menu Chage_Alter 
         Caption         =   "修改調動信息"
      End
      Begin VB.Menu Check_Alter 
         Caption         =   "查詢調動信息"
      End
      Begin VB.Menu Del_Alter 
         Caption         =   "刪除調動信息"
      End
   End
   Begin VB.Menu System_Help 
      Caption         =   "幫助"
      Index           =   6
      Begin VB.Menu About 
         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 SQL As String

Private Sub About_Click()                         '關于窗體
    frmAbout.Show
    frmAbout.ZOrder 0
End Sub

Private Sub Add_Alter_Click()                     '添加調動信息
    flag = 1
    frmAlteration.Caption = "添加學生調動信息"
    frmAlteration.Show
    frmAlteration.ZOrder 0
End Sub

Private Sub Add_Stuff_Click()                      '添加員工信息
    flag = 1
    frmStuff_info.Show
    frmStuff_info.ZOrder 0
End Sub

Private Sub Add_User_Click()                       '添加用戶
    Dim fAdd As New frmAddUser
    fAdd.Show
    fAdd.ZOrder 0
End Sub

Private Sub AddAttendance_Click()                  '添加上下學信息
    flag = 1
    FrmAttendance.Show
    FrmAttendance.ZOrder 0
End Sub

Private Sub AddOtherKQ_Click()                     '添加其他考勤信息
    flag = 1
    frmOtherKQ.Show
    frmOtherKQ.ZOrder 0
End Sub

Private Sub Chage_Alter_Click()                     '修改調動信息
    frmAlterationResult.Show
    frmAlterationResult.ZOrder 0
End Sub

Private Sub Change_PWD_Click()                      '修改密碼
    Dim fChangePWD As New frmChangePWD
    fChangePWD.Show
End Sub

Private Sub Change_Stuff_Click()                    '修改員工信息
    frmCheckStuff.topic = "選擇修改條件"
    frmCheckStuff.Caption = "修改學生基本信息"
    SQL = "select * from StuffInfo order by SID"
    frmResult.createList (SQL)
    frmResult.Show
    frmResult.ZOrder 0
    frmCheckStuff.Show
    frmCheckStuff.ZOrder 0
End Sub

Private Sub ChangeAttendance_Click()                 '修改上下學信息
    frmAResult.Show
    'frmAResult.ZOrder 0
End Sub

Private Sub changeOtherKQ_Click()                    '修改其他考勤信息
    frmOKQResult.Show
    frmOKQResult.ZOrder 0
End Sub

Private Sub Check_Alter_Click()                       '查詢調動信息
    frmCheckAlter.Show
    frmCheckAlter.ZOrder 0
End Sub

Private Sub Check_Checkin_Click()                    '查詢其他考勤信息
    frmCheckKQ.Show
    frmCheckKQ.ZOrder 0
End Sub

Private Sub Check_Stuff_Click()                       '查詢員工信息
    SQL = "select * from StuffInfo"
    frmResult.createList (SQL)
    frmResult.Show
    frmCheckStuff.Show
    frmResult.ZOrder 1
    frmCheckStuff.ZOrder 0
End Sub

Private Sub Del_Alter_Click()                          '刪除調動信息
    frmAlterationResult.Show
    frmAlterationResult.ZOrder 0
End Sub

Private Sub Del_Stuff_Click()                          '刪除員工信息
    frmCheckStuff.topic = "選擇刪除條件"
    frmCheckStuff.Caption = "刪除學生基本信息"
    SQL = "select * from StuffInfo"
    frmResult.createList (SQL)
    frmResult.Show
    frmCheckStuff.Show
    frmResult.ZOrder 1
    frmCheckStuff.ZOrder 0
End Sub

Private Sub delInOut_Click()                            '刪除上下學信息
    Dim SQL As String
    SQL = "select * from AttendanceInfo order by ID desc"
    Call frmAResult.ListTopic
    Call frmAResult.ShowData(SQL)
    frmAResult.Show
    frmAResult.ZOrder 0
End Sub

Private Sub delOtherKQ_Click()                            '刪除其他考勤信息
    frmOKQResult.Show
    frmOKQResult.ZOrder 0
End Sub

Private Sub SetTime_Click()                               '設置上下學時間
    frmSetTime.Show
    frmSetTime.ZOrder 0
End Sub

Private Sub System_EXIT_Click()
    Unload Me
    Exit Sub
End Sub