📄 学生档案管理.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 系统管理
Caption = "【系统管理】"
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, "奖惩管理")
系统管理.Enabled = InStr(rights, "系统管理")
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 + -