?? main.frm
字號(hào):
Caption = "班級(jí)事務(wù)"
Begin VB.Menu Menu_CPYD
Caption = "車票預(yù)訂"
End
Begin VB.Menu Menu_BJCWGL
Caption = "班級(jí)財(cái)務(wù)"
End
Begin VB.Menu Menu_BJHDGL
Caption = "班級(jí)活動(dòng)"
End
Begin VB.Menu Menu_JCGL
Caption = "獎(jiǎng)懲管理"
End
End
Begin VB.Menu menu_GRPS
Caption = "綜合測(cè)評(píng)"
Begin VB.Menu Menu_TXPSB
Caption = "個(gè)人評(píng)審"
End
Begin VB.Menu Menu_DYBJHZB
Caption = "打印某學(xué)年班級(jí)匯總表"
Begin VB.Menu Menu_DYXNHZ
Caption = "第一學(xué)年"
End
Begin VB.Menu Menu_DEXNHZ
Caption = "第二學(xué)年"
End
Begin VB.Menu Menu_DSXNHZ
Caption = "第三學(xué)年"
End
Begin VB.Menu Menu_DSIXNHZ
Caption = "第四學(xué)年"
End
End
Begin VB.Menu Menu_LXZYDY
Caption = "打印某學(xué)年全部評(píng)審表"
Begin VB.Menu Menu_DYXN
Caption = "第一學(xué)年"
End
Begin VB.Menu Menu_DEXN
Caption = "第二學(xué)年"
End
Begin VB.Menu Menu_DSXN
Caption = "第三學(xué)年"
End
Begin VB.Menu Menu_DSIXN
Caption = "第四學(xué)年"
End
End
End
Begin VB.Menu menu_XTAQ
Caption = "系統(tǒng)安全"
Begin VB.Menu Menu_CXDL
Caption = "重新登錄"
End
Begin VB.Menu Menu_XGMM
Caption = "修改密碼"
End
Begin VB.Menu Menu_TJCZY
Caption = "添加操作員"
End
End
Begin VB.Menu Menu_TC
Caption = "退出"
End
Begin VB.Menu Menu_BZ
Caption = "幫助"
Begin VB.Menu Menu_F1
Caption = "請(qǐng)按“F1”鍵獲取幫助"
End
End
End
Attribute VB_Name = "MAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'加載背景圖片
MAIN.Picture = LoadPicture(App.Path & "/photos/mainbg.jpg")
'設(shè)置系統(tǒng)操作員
StatusBar_MAIN.Panels(3).Text = "操作員: " & g_XTCZY
StatusBar_MAIN.Panels(4).Text = "班級(jí)管理系統(tǒng) V 1.00"
End Sub
Private Sub menu_BJCJ_Click()
MAIN.Show
End Sub
Private Sub menu_BJCJLR_Click()
MAIN.Show
End Sub
Private Sub Menu_BJCWGL_Click()
MAIN.Show
End Sub
Private Sub Menu_BJCWXX_Click()
MAIN.Show
End Sub
Private Sub Menu_BJHDGL_Click()
MAIN.Show
End Sub
Private Sub Menu_BJHDXX_Click()
MAIN.Show
End Sub
Private Sub Menu_CPYD_Click()
MAIN.Show
End Sub
Private Sub Menu_CPYDXX_Click()
MAIN.Show
End Sub
Private Sub Menu_CXDL_Click()
Unload Me
FRM_DL.Show
End Sub
Private Sub Menu_DEXN_Click()
MAIN.Show
End Sub
Private Sub Menu_DEXNHZ_Click()
MAIN.Show
End Sub
Private Sub Menu_DSIXN_Click()
MAIN.Show
End Sub
Private Sub Menu_DSIXNHZ_Click()
MAIN.Show
End Sub
Private Sub Menu_DSXN_Click()
MAIN.Show
End Sub
Private Sub Menu_DSXNHZ_Click()
MAIN.Show
End Sub
Private Sub Menu_DYXN_Click()
MAIN.Show
End Sub
Private Sub Menu_DYXNHZ_Click()
MAIN.Show
End Sub
Private Sub menu_GRXX_Click()
MAIN.Show
End Sub
Private Sub menu_GRXXLR_Click()
MAIN.Show
End Sub
Private Sub Menu_JCGL_Click()
MAIN.Show
End Sub
Private Sub Menu_JCXX_Click()
MAIN.Show
End Sub
Private Sub menu_JCXXLR_Click()
MAIN.Show
End Sub
Private Sub menu_KMXXLR_Click()
MAIN.Show
End Sub
Private Sub menu_TC_Click()
If MsgBox("確定退出系統(tǒng)嗎?", vbYesNo + vbQuestion, "班級(jí)綜合管理系統(tǒng)") = vbYes Then
Unload Me
End
End If
End Sub
Private Sub menu_TJCZY_Click()
FRM_TJCZY.Show
End Sub
Private Sub menu_TJDPJL_Click()
MAIN.Show
End Sub
Private Sub menu_TJHDJL_Click()
MAIN.Show
End Sub
Private Sub menu_TJXFJL_Click()
MAIN.Show
End Sub
Private Sub menu_TXPSB_Click()
MAIN.Show
End Sub
Private Sub menu_XGMM_Click()
FRM_XGMM.Show
End Sub
Private Sub TB_MAIN_ButtonClick(ByVal Button As ComctlLib.Button)
'依據(jù)按下按鈕的不同,調(diào)出不同的窗體
Select Case Button.Caption
Case "個(gè)人信息"
MAIN.Show
Case "班級(jí)成績"
MAIN.Show
Case "補(bǔ)考名單"
MAIN.Show
Case "科目設(shè)置"
MAIN.Show
Case "車票預(yù)訂"
MAIN.Show
Case "班級(jí)財(cái)務(wù)"
MAIN.Show
Case "班級(jí)活動(dòng)"
MAIN.Show
Case "獎(jiǎng)懲管理"
MAIN.Show
Case "綜合測(cè)評(píng)"
MAIN.Show
Case "退出"
If MsgBox("確定退出系統(tǒng)嗎?", vbYesNo + vbQuestion) = vbYes Then
Unload Me
End
End If
End Select
End Sub
Private Sub TIM_ZTL_Timer()
'刷新系統(tǒng)日期和時(shí)間
StatusBar_MAIN.Panels(1).Text = "當(dāng)前日期: " & Format(Date, "yyyy-mm-dd")
StatusBar_MAIN.Panels(2).Text = "當(dāng)前時(shí)間: " & Time
'瀏覽狀態(tài)下設(shè)置相關(guān)操作的可用性
If g_XTCZY = "瀏覽者" Then
'權(quán)限設(shè)置
'一、菜單權(quán)限設(shè)置
'禁用信息錄入類功能
menu_GRXXLR.Enabled = False
menu_BJCJLR.Enabled = False
menu_KMXXLR.Enabled = False
menu_JCXXLR.Enabled = False
'禁用管理類功能
Menu_CPYD.Enabled = False
Menu_BJCWGL.Enabled = False
Menu_BJHDGL.Enabled = False
Menu_JCGL.Enabled = False
'禁用評(píng)審類功能
Menu_LXZYDY.Enabled = False
Menu_DYBJHZB.Enabled = False
'禁用系統(tǒng)管理類功能
Menu_TJCZY.Enabled = False
Menu_XGMM.Enabled = False
'二、工具欄權(quán)限設(shè)置
'工具欄不可用
TB_MAIN.Visible = False
End If
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -