?? frmmain.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -