?? mdimainform.frm
字號:
VERSION 5.00
Begin VB.MDIForm MDIMainForm
BackColor = &H8000000C&
Caption = "MDIMainForm"
ClientHeight = 5730
ClientLeft = 165
ClientTop = 735
ClientWidth = 8085
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin VB.Menu 系統(tǒng)管理
Caption = "系統(tǒng)管理"
Begin VB.Menu Logout
Caption = "注銷"
End
Begin VB.Menu editPwd
Caption = "修改密碼"
End
Begin VB.Menu addUser
Caption = "添加用戶"
End
End
Begin VB.Menu sportCfg
Caption = "運動會設(shè)置"
Begin VB.Menu sportPrjCfg
Caption = "運動項目管理"
End
Begin VB.Menu classCdf
Caption = "班級管理"
End
Begin VB.Menu sportorCfg
Caption = "選手管理"
End
Begin VB.Menu sportsScord
Caption = "項目積分設(shè)置"
End
End
Begin VB.Menu applyCfg
Caption = "報名管理"
Begin VB.Menu applyTb
Caption = "報名表"
End
End
Begin VB.Menu resultCfg
Caption = "成績管理"
Begin VB.Menu resultInput
Caption = "成績錄入"
End
Begin VB.Menu resultQuery
Caption = "成績查詢"
End
End
End
Attribute VB_Name = "MDIMainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addUser_Click()
UserForm.Show
UserForm.classshowtitle
UserForm.classshowdata
End Sub
Private Sub applyTb_Click()
applyForm.Show
applyForm.init
applyForm.classshowtitle
applyForm.classshowdata
End Sub
Private Sub classCdf_Click()
classForm.Show
classForm.classshowtitle
classForm.classshowdata
End Sub
Private Sub editPwd_Click()
editPwdForm.Show
End Sub
Private Sub Logout_Click()
If MsgBox("確定要注銷嗎?", vbExclamation + vbOKCancel, "警告") = vbOK Then
LoginForm.Show
Unload Me
End If
End Sub
Private Sub resultInput_Click()
resultForm.Show
resultForm.classshowtitle
resultForm.classshowdata
End Sub
Private Sub resultQuery_Click()
resultQueryForm.Show
resultQueryForm.classshowtitle
resultQueryForm.classshowdata
End Sub
Private Sub sportorCfg_Click()
sportorForm.Show
sportorForm.classshowtitle
sportorForm.classshowdata
End Sub
Private Sub sportPrjCfg_Click()
sportsForm.Show
sportsForm.classshowtitle
sportsForm.classshowdata
End Sub
Private Sub sportsScord_Click()
ScordForm.Show
ScordForm.init
ScordForm.classshowtitle
ScordForm.classshowdata
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -