?? 學生檔案管理.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form 學生檔案管理
Caption = "學生檔案管理"
ClientHeight = 6030
ClientLeft = 60
ClientTop = 630
ClientWidth = 8745
LinkTopic = "Form1"
ScaleHeight = 6030
ScaleWidth = 8745
Begin VB.PictureBox Picture1
Height = 4815
Left = 0
ScaleHeight = 4755
ScaleWidth = 8595
TabIndex = 2
Top = 1080
Width = 8655
End
Begin VB.Frame Frame1
Height = 975
Left = 0
TabIndex = 0
Top = 0
Width = 8655
Begin MSComctlLib.Toolbar Toolbar1
Height = 810
Left = 120
TabIndex = 1
Top = 120
Width = 6975
_ExtentX = 12303
_ExtentY = 1429
ButtonWidth = 1455
ButtonHeight = 1376
Style = 1
ImageList = "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "班級設置"
Key = "班級設置"
Object.ToolTipText = "班級設置"
ImageIndex = 5
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "學生注冊"
Key = "學生注冊"
Object.ToolTipText = "學生注冊"
ImageIndex = 7
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "基本信息"
Key = "基本信息"
Object.ToolTipText = "基本信息"
ImageIndex = 1
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新增課程"
Key = "新增課程"
Object.ToolTipText = "新增課程"
ImageIndex = 2
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "成績錄入"
Key = "成績錄入"
Object.ToolTipText = "成績錄入"
ImageIndex = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "用戶管理"
Key = "用戶管理"
Object.ToolTipText = "用戶管理"
ImageIndex = 10
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "重新登錄"
Key = "重新登錄"
Object.ToolTipText = "重新登錄"
ImageIndex = 6
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
EndProperty
BorderStyle = 1
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 2280
Top = 5040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":0856
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":137C
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":1D26
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":257C
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":2E4A
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":3718
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":4142
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":4AEC
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":53CA
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "學生檔案管理.frx":5BE4
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu 機構設置
Caption = "【機構設置】"
Begin VB.Menu 院設置
Caption = "院設置"
End
Begin VB.Menu 系設置
Caption = "系設置"
End
Begin VB.Menu 班級設置
Caption = "班級設置(B)"
Shortcut = ^B
End
End
Begin VB.Menu 學籍管理
Caption = "【學籍管理】"
Begin VB.Menu 學生注冊
Caption = "學生注冊(R)"
Shortcut = ^R
End
Begin VB.Menu 基本信息
Caption = "基本信息(J)"
Shortcut = ^J
End
Begin VB.Menu 家庭成員信息
Caption = "家庭成員信息"
End
Begin VB.Menu 學籍異動
Caption = "學籍異動"
End
Begin VB.Menu SPACE1
Caption = "-"
End
Begin VB.Menu 學籍報告
Caption = "學籍報告"
End
End
Begin VB.Menu 課程管理
Caption = "【課程管理】"
Begin VB.Menu 新增課程
Caption = "新增課程(K)"
Shortcut = ^K
End
Begin VB.Menu 課程查詢
Caption = "課程查詢"
End
Begin VB.Menu 課程分配
Caption = "課程分配"
End
End
Begin VB.Menu 成績管理
Caption = "【成績管理】"
Begin VB.Menu 成績錄入
Caption = "成績錄入(C)"
Shortcut = ^C
End
Begin VB.Menu 成績評審
Caption = "成績評審"
End
Begin VB.Menu 成績單生成
Caption = "成績單生成"
End
End
Begin VB.Menu 獎懲管理
Caption = "【獎懲管理】"
Begin VB.Menu 獎懲錄入
Caption = "獎懲錄入"
End
Begin VB.Menu 獎懲查詢
Caption = "獎懲查詢"
End
Begin VB.Menu 獎懲單生成
Caption = "獎懲單生成"
End
End
Begin VB.Menu 系統(tǒng)管理
Caption = "【系統(tǒng)管理】"
Begin VB.Menu 用戶管理
Caption = "用戶管理(U)"
Shortcut = ^U
End
Begin VB.Menu 密碼維護
Caption = "密碼維護"
End
Begin VB.Menu 重新登錄
Caption = "重新登錄"
Shortcut = ^L
End
End
End
Attribute VB_Name = "學生檔案管理"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim rst As ADODB.Recordset
Dim rights As String
Dim sTokens() As String
Dim msg As String
'查找權限
SQL = " select 權限 from 用戶信息表 where 用戶ID='" & UserID & "'"
Set rst = SelectSQL(SQL, msg)
If rst.RecordCount > 0 Then
rights = Trim(rst.Fields(0))
rst.Close
Else
MsgBox ("沒有用戶信息！")
Exit Sub
End If
'設置權限
機構設置.Enabled = InStr(rights, "機構設置")
學籍管理.Enabled = InStr(rights, "學籍管理")
課程管理.Enabled = InStr(rights, "課程管理")
成績管理.Enabled = InStr(rights, "成績管理")
獎懲管理.Enabled = InStr(rights, "獎懲管理")
系統(tǒng)管理.Enabled = InStr(rights, "系統(tǒng)管理")
End Sub
Private Sub 院設置_Click()
A院設置.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 系設置_Click()
A系設置.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 班級設置_Click()
A班級設置.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 學生注冊_Click()
MenuIndex = 0
B學生查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 基本信息_Click()
MenuIndex = 2
B學生查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 家庭成員信息_Click()
MenuIndex = 3
B學生查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 學籍異動_Click()
MenuIndex = 4
B學生查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 學籍報告_Click()
MenuIndex = 5
B學生查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 課程查詢_Click()
C課程查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 課程分配_Click()
C課程分配.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 新增課程_Click()
C新增課程.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 成績錄入_Click()
D成績錄入.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 成績評審_Click()
D成績評審.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 成績單生成_Click()
D成績單生成.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 獎懲錄入_Click()
MenuIndex = 1
E獎懲查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 獎懲查詢_Click()
MenuIndex = 0
E獎懲查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 獎懲單生成_Click()
MenuIndex = 2
E獎懲查詢.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 用戶管理_Click()
G用戶管理.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 密碼維護_Click()
G密碼維護.Show
學生檔案管理.Enabled = False
End Sub
Private Sub 重新登錄_Click()
Unload Me
G登錄.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 2:
Call 班級設置_Click '調入班級設置
Case 4:
Call 學生注冊_Click '調入學生注冊
Case 6:
Call 基本信息_Click '調入基本信息
Case 8:
Call 新增課程_Click '調入新增課程
Case 10:
Call 成績錄入_Click '調入成績錄入
Case 12:
Call 用戶管理_Click '調入用戶管理
Case 14:
Call 重新登錄_Click '調入重新登錄
End Select
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -