📄 frminstitute.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmInstitute
BorderStyle = 3 'Fixed Dialog
Caption = "院系、专业、班级信息维护"
ClientHeight = 6390
ClientLeft = 45
ClientTop = 330
ClientWidth = 8355
Icon = "frmInstitute.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6390
ScaleWidth = 8355
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ListView lvwClass
Height = 6015
Left = 3600
TabIndex = 4
Top = 240
Width = 4575
_ExtentX = 8070
_ExtentY = 10610
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ListView lvwSpeciality
Height = 6015
Left = 3600
TabIndex = 3
Top = 240
Width = 4575
_ExtentX = 8070
_ExtentY = 10610
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ImageList IltIcon
Left = 1800
Top = 4560
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmInstitute.frx":000C
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ListView lvwInstitute
Height = 6015
Left = 3600
TabIndex = 2
Top = 240
Width = 4575
_ExtentX = 8070
_ExtentY = 10610
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ListView lvwSchool
Height = 6015
Left = 3600
TabIndex = 1
Top = 240
Width = 4575
_ExtentX = 8070
_ExtentY = 10610
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.TreeView tvwInstitute
Height = 6015
Left = 240
TabIndex = 0
Top = 240
Width = 3375
_ExtentX = 5953
_ExtentY = 10610
_Version = 393217
Style = 7
HotTracking = -1 'True
Appearance = 1
End
Begin VB.Menu MnuSchool
Caption = "学校"
Visible = 0 'False
Begin VB.Menu MnuAddInstitute11
Caption = "添加院系"
End
End
Begin VB.Menu MnuInstitute
Caption = "院系"
Visible = 0 'False
Begin VB.Menu MnuAddInstitute
Caption = "添加院系"
End
Begin VB.Menu MnuDeleteInstitute
Caption = "删除院系"
End
Begin VB.Menu MnuEditInstitute
Caption = "修改院系"
End
Begin VB.Menu MnuAddSpeciality11
Caption = "添加专业"
End
End
Begin VB.Menu MnuSpeciality
Caption = "专业"
Visible = 0 'False
Begin VB.Menu MnuAddSpeciality
Caption = "添加专业"
End
Begin VB.Menu MnuDeleteSpeciality
Caption = "删除专业"
End
Begin VB.Menu MnuEditSpeciality
Caption = "修改专业"
End
Begin VB.Menu MnuAddClass11
Caption = "添加班级"
End
End
Begin VB.Menu MnuClass
Caption = "班级"
Visible = 0 'False
Begin VB.Menu MnuAddClass
Caption = "添加班级"
End
Begin VB.Menu MnuDeleteClass
Caption = "删除班级"
End
Begin VB.Menu MnuEditClass
Caption = "修改班级"
End
End
End
Attribute VB_Name = "frmInstitute"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' ''
''Filename frmInstitute.frm ''
'' ''
''Created On 2004.2.2--2004.2.15 ''
'' ''
''Description 院系、专业、班级信息维护窗体 ''
'' ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsInstitute As Recordset
Dim rsDeleteInstitute As Recordset
Dim rsInstituteList As Recordset
Dim rsSpeciality As Recordset
Dim rsDeleteSpeciality As Recordset
Dim rsSpecialityList As Recordset
Dim rsClass As Recordset
Dim rsDeleteClass As Recordset
Dim rsClassList As Recordset
Dim RsDeleteCardholder As Recordset
Dim nodex As Node
Dim lItem As ListItem
Public NodeText As String
Public NodeTag As String
Public NodeIndex As Integer
Private AddClassType As String
Public AddType As String
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''配置该窗体listview、treeview控件 ''
''给treeview控件添加结点 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
tvwInstitute.LineStyle = tvwRootLines '配置tvwInstitute控件
Set nodex = tvwInstitute.Nodes.Add(, , "school", "西安电子科技大学")
nodex.Tag = "school"
lvwSchool.View = lvwIcon '配置lvwSchool控件
lvwSchool.Icons = IltIcon
lvwSchool.Sorted = True
lvwSchool.Visible = True
lvwInstitute.ColumnHeaders.Add , , "院系ID", lvwInstitute.Width / 6 '配置lvwInstitute控件
lvwInstitute.ColumnHeaders.Add , , "院系名", lvwInstitute.Width / 3
lvwInstitute.ColumnHeaders.Add , , "院系描述", lvwInstitute.Width / 2
lvwInstitute.GridLines = True
lvwInstitute.Sorted = True
lvwInstitute.View = lvwReport
lvwInstitute.Visible = False
lvwSpeciality.ColumnHeaders.Add , , "专业ID", lvwSpeciality.Width / 6 '配置lvwSpeciality控件
lvwSpeciality.ColumnHeaders.Add , , "专业名", lvwSpeciality.Width / 3
lvwSpeciality.ColumnHeaders.Add , , "专业描述", lvwSpeciality.Width / 2
lvwSpeciality.GridLines = True
lvwSpeciality.Sorted = True
lvwSpeciality.View = lvwReport
lvwSpeciality.Visible = False
lvwClass.ColumnHeaders.Add , , "班级ID", lvwClass.Width / 6 '配置lvwClass控件
lvwClass.ColumnHeaders.Add , , "起始号", lvwClass.Width / 6
lvwClass.ColumnHeaders.Add , , "终止号", lvwClass.Width / 6
lvwClass.ColumnHeaders.Add , , "班级描述", lvwClass.Width / 2
lvwClass.GridLines = True
lvwClass.Sorted = True
lvwClass.View = lvwReport
lvwClass.Visible = False
LoadNodes '添加结点
End Sub
Private Sub MnuAddClass_Click()
AddClassType = "CC"
frmAddClass.Show 1
End Sub
Private Sub MnuAddClass11_Click()
AddClassType = "SS"
frmAddClass.Show 1
End Sub
Private Sub MnuAddInstitute_Click()
frmAddInstitute.Show 1
End Sub
Private Sub MnuAddInstitute11_Click()
frmAddInstitute.Show 1
End Sub
Private Sub MnuAddSpeciality_Click()
AddType = "SS"
frmAddSpeciality.Show 1
End Sub
Private Sub MnuAddSpeciality11_Click()
AddType = "II"
frmAddSpeciality.Show 1
End Sub
Private Sub MnuDeleteClass_Click()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' 删除班级后,将删除该班级的所有学生 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If MsgBox("确实要删除班级吗?将删除该班级的所有学生！", vbYesNo + vbQuestion, "机房管理") = vbYes Then
Set rsDeleteClass = New Recordset
Dim StrDeleteClass As String
StrDeleteClass = "select * from TbClass where C_ID='" & NodeText & "'"
rsDeleteClass.Open StrDeleteClass, Modmain.conn, 3, 2
Set RsDeleteCardholder = New Recordset '删除学生
Dim StrDeleteCardholder As String
Dim aa As Integer, bb As Integer
aa = CInt(CStr(rsDeleteClass.Fields!StartNo))
bb = CInt(CStr(rsDeleteClass.Fields!EndNo))
StrDeleteCardholder = "select * from TbCardholder where mid(CH_ID,3,5)='" & Left(rsDeleteClass.Fields!C_ID, 5) & "'and right(CH_ID,3)> " & aa & " and right(CH_ID,3)<" & bb & ""
RsDeleteCardholder.Open StrDeleteCardholder, Modmain.conn, 3, 2
While Not RsDeleteCardholder.EOF
RsDeleteCardholder.Delete
RsDeleteCardholder.MoveNext
Wend
tvwInstitute.Nodes.Remove (NodeIndex) '删除结点
rsDeleteClass.Delete '删除班级
rsDeleteClass.Close
Set rsDeleteClass = Nothing
RsDeleteCardholder.Close
Set RsDeleteCardholder = Nothing
AddLog ("L16")
End If
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' 删除院系后,将删除该院系的所有专业、班级以及所有学生 ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub MnuDeleteInstitute_Click()
If MsgBox("确实要删除院系吗?将删除该院系的所有专业、班级以及所有学生！", vbYesNo + vbQuestion, "机房管理") = vbYes Then
Set rsDeleteInstitute = New Recordset '删除院系
Dim StrDeleteInstitute As String
Dim strInstituteI_ID As String
StrDeleteInstitute = "select I_ID,I_Name from TbInstitute where i_Name='" & NodeText & "'"
rsDeleteInstitute.Open StrDeleteInstitute, Modmain.conn, 3, 2
strInstituteI_ID = rsDeleteInstitute.Fields!I_ID
rsDeleteInstitute.Delete
Set rsDeleteSpeciality = New Recordset '删除专业
Dim StrDeleteSpeciality As String
StrDeleteSpeciality = "select * from TbSpeciality where I_ID='" & strInstituteI_ID & "'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -