?? 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 + -