?? lzxmenu.frm
字號:
VERSION 5.00
Begin VB.Form 主窗體
BackColor = &H00FF8080&
Caption = "學生學籍管理"
ClientHeight = 3375
ClientLeft = 165
ClientTop = 735
ClientWidth = 7335
LinkTopic = "Form1"
ScaleHeight = 3375
ScaleWidth = 7335
StartUpPosition = 3 '窗口缺省
Begin VB.Menu xtgl
Caption = "系統管理"
Index = 0
NegotiatePosition= 2 'Middle
Begin VB.Menu tjyh
Caption = "添加用戶"
Index = 0
End
Begin VB.Menu scyh
Caption = "刪除用戶"
HelpContextID = 19
Index = 0
End
Begin VB.Menu xgmm
Caption = "修改密碼"
Index = 0
End
Begin VB.Menu cxdl
Caption = "重新登錄"
Index = 0
End
End
Begin VB.Menu yxzygl
Caption = "院系、專業管理"
Index = 0
Begin VB.Menu yxsz
Caption = "院系設置"
Index = 0
End
Begin VB.Menu zysz
Caption = "專業設置"
Index = 0
End
End
Begin VB.Menu bjgl
Caption = "班級管理"
Index = 0
Begin VB.Menu bjll
Caption = "班級瀏覽"
Index = 0
End
Begin VB.Menu bjtj
Caption = "班級添加"
Index = 0
End
Begin VB.Menu bjsc
Caption = "班級刪除"
Index = 0
End
Begin VB.Menu bjcx
Caption = "班級查詢"
Index = 0
End
End
Begin VB.Menu xjgl
Caption = "學籍管理"
Index = 0
Begin VB.Menu dall
Caption = "檔案瀏覽"
Index = 0
End
Begin VB.Menu datj
Caption = "檔案添加"
Index = 0
End
Begin VB.Menu dasc
Caption = "檔案刪除"
Index = 0
End
Begin VB.Menu dacx
Caption = "檔案查詢"
Index = 0
End
Begin VB.Menu daxg
Caption = "檔案修改"
Index = 0
End
End
Begin VB.Menu kcgl
Caption = "課程管理"
Index = 0
Begin VB.Menu kcsz
Caption = "課程設置"
Index = 0
End
Begin VB.Menu xqsz
Caption = "學期設置"
Index = 0
End
Begin VB.Menu xksz
Caption = "選課設置"
End
End
Begin VB.Menu cjgl
Caption = "成績管理"
Index = 0
Begin VB.Menu cjtj
Caption = "成績添加"
Index = 0
End
Begin VB.Menu cjxg
Caption = "成績修改"
HelpContextID = 23
Index = 0
End
Begin VB.Menu cjsc
Caption = "成績刪除"
Index = 0
End
Begin VB.Menu cjll
Caption = "成績瀏覽"
Index = 0
End
End
Begin VB.Menu tc
Caption = "退出"
Index = 0
End
End
Attribute VB_Name = "主窗體"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bjcx_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
班級查詢.Show
End Sub
Private Sub bjkcsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
課程設置.Show
End Sub
Private Sub bjll_Click(Index As Integer)
班級瀏覽.Show
End Sub
Private Sub bjsc_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
班級刪除.Show
End Sub
Private Sub bjtj_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
班級添加.Show
End Sub
Private Sub cjll_Click(Index As Integer)
成績瀏覽.Show
End Sub
Private Sub cjsc_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
成績刪除.Show
End Sub
Private Sub cjtj_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
成績添加.Show
End Sub
Private Sub cjxg_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
成績修改.Show
End Sub
Private Sub cxdl_Click(Index As Integer)
登錄窗口.Show
Unload Me
End Sub
Private Sub dacx_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
檔案查詢.Show
End Sub
Private Sub dall_Click(Index As Integer)
檔案瀏覽.Show
End Sub
Private Sub dasc_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
檔案刪除.Show
End Sub
Private Sub datj_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
檔案添加.Show
End Sub
Private Sub daxg_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
檔案修改.Show
End Sub
Private Sub kcsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
課程設置.Show
End Sub
Private Sub scyh_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
刪除用戶.Show
End Sub
Private Sub tc_Click(Index As Integer)
Unload Me
End Sub
Private Sub tjyh_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
添加用戶.Show
End Sub
Private Sub xgmm_Click(Index As Integer)
修改密碼.Show
End Sub
Private Sub xksz_Click()
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
選課設置.Show
End Sub
Private Sub xqsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
學期設置.Show
End Sub
Private Sub yxsz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
院系設置.Show
End Sub
Private Sub zysz_Click(Index As Integer)
If qxstra = "0" Then
MsgBox " 你沒有權限進行操作！", vbExclamation + vbOKOnly, "警告"
Exit Sub
End If
專業設置.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -