frminstitute.frm

本系统是本着实用的原则开发的

    rsDeleteSpeciality.Open StrDeleteSpeciality, Modmain.conn, 3, 2
    While Not rsDeleteSpeciality.EOF
        rsDeleteSpeciality.Delete
        rsDeleteSpeciality.MoveNext
    Wend
    
    Set rsDeleteClass = New Recordset                   '删除班级
    Dim StrDeleteClass As String
    StrDeleteClass = "select * from TbClass where left(C_ID,2)='" & strInstituteI_ID & "'"
    rsDeleteClass.Open StrDeleteClass, Modmain.conn, 3, 2
    While Not rsDeleteClass.EOF
        rsDeleteClass.Delete
        rsDeleteClass.MoveNext
    Wend
    
    Set RsDeleteCardholder = New Recordset                  '删除学生
    Dim StrDeleteCardholder As String
    StrDeleteCardholder = "select * from TbCardholder where mid(CH_ID,3,2)='" & strInstituteI_ID & "'"
    RsDeleteCardholder.Open StrDeleteCardholder, Modmain.conn, 3, 2
    While Not RsDeleteCardholder.EOF
        RsDeleteCardholder.Delete
        RsDeleteCardholder.MoveNext
    Wend
     
    tvwInstitute.Nodes.Remove (NodeIndex)                 '删除结点
    
'    rsDeleteInstitute.Close
'    Set rsDeleteInstitute = Nothing
'
'    rsDeleteSpeciality.Close
'    Set rsDeleteSpeciality = Nothing
'
'    rsDeleteClass.Close
'    Set rsDeleteClass = Nothing
'
'    RsDeleteCardholder.Close
'    Set RsDeleteCardholder = Nothing
AddLog ("L14")
End If
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' 删除专业后,将删除该院系的所有班级以及所有学生                  ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub MnuDeleteSpeciality_Click()
If MsgBox("确实要删除专业吗?将删除该专业的所有班级以及所有学生！", vbYesNo + vbQuestion, "机房管理") = vbYes Then
    
    Set rsDeleteSpeciality = New Recordset            '删除专业
    Dim StrDeleteSpeciality As String
    StrDeleteSpeciality = "select * from TbSpeciality where S_Name='" & NodeText & "'"
    rsDeleteSpeciality.Open StrDeleteSpeciality, Modmain.conn, 3, 2
   
    Dim strI_ID As String
    strI_ID = rsDeleteSpeciality.Fields!I_ID
    
    Dim strS_ID As String
    strS_ID = rsDeleteSpeciality.Fields!s_ID
    rsDeleteSpeciality.Delete

    
    Set rsDeleteClass = New Recordset                   '删除班级
    Dim StrDeleteClass As String
    StrDeleteClass = "select * from TbClass where left(C_ID,2)='" & strI_ID & "' AND MID(C_ID,5,1)='" & strS_ID & "'"
    rsDeleteClass.Open StrDeleteClass, Modmain.conn, 3, 2
    While Not rsDeleteClass.EOF
        rsDeleteClass.Delete
        rsDeleteClass.MoveNext
    Wend
    
    Set RsDeleteCardholder = New Recordset                  '删除学生
    Dim StrDeleteCardholder As String
    StrDeleteCardholder = "select * from TbCardholder where mid(CH_ID,3,2)='" & strI_ID & "'AND MID(CH_ID,7,1)='" & strS_ID & "'"
    RsDeleteCardholder.Open StrDeleteCardholder, Modmain.conn, 3, 2
    While Not RsDeleteCardholder.EOF
        RsDeleteCardholder.Delete
        RsDeleteCardholder.MoveNext
    Wend
     
    tvwInstitute.Nodes.Remove (NodeIndex)                 '删除结点
    
    rsDeleteSpeciality.Close
    Set rsDeleteSpeciality = Nothing
    
    rsDeleteClass.Close
    Set rsDeleteClass = Nothing
    
    RsDeleteCardholder.Close
    Set RsDeleteCardholder = Nothing
AddLog ("L15")
End If

End Sub

Private Sub MnuEditClass_Click()
frmEditClass.Show 1
End Sub

Private Sub MnuEditInstitute_Click()
frmEditInstituteInfo.Show 1
End Sub

Private Sub MnuEditSpeciality_Click()
frmEditSpeciality.Show 1
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "Institute"
     MnuAddInstitute11_Click
     Case "Class"
     AddClassType = "II"
     frmAddClass.Show 1
End Select

End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''当右击结点时，弹出右键菜单                                      ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub tvwInstitute_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 And NodeTag = "school" Then
    PopupMenu MnuSchool, vbPopupMenuRightButton
End If
If Button = 2 And NodeTag = "Institute" Then
    PopupMenu MnuInstitute, vbPopupMenuRightButton
End If
If Button = 2 And NodeTag = "Speciality" Then
    PopupMenu MnuSpeciality, vbPopupMenuRightButton
End If
If Button = 2 And NodeTag = "Class" Then
    PopupMenu MnuClass, vbPopupMenuRightButton
End If
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''单击tvwInstitute控件的结点时，在其右侧显示其详细信息            ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Sub tvwInstitute_NodeClick(ByVal Node As MSComctlLib.Node)
NodeText = Node.Text
NodeTag = Node.Tag
NodeIndex = Node.Index
If Node.Tag = "school" Then          '在lvwSchool控件中显示学院信息
    lvwSchool.Visible = True
    lvwInstitute.Visible = False
    lvwSpeciality.Visible = False
    lvwClass.Visible = False
    
    rsInstitute.MoveFirst
    lvwSchool.ListItems.Clear
    
    While Not rsInstitute.EOF              ' 添加相应的 ListItem
        Set lItem = lvwSchool.ListItems.Add(, , rsInstitute.Fields("I_Name"), 1)
        rsInstitute.MoveNext
    Wend
End If
If Node.Tag = "Institute" Then
    lvwSchool.Visible = False
    lvwInstitute.Visible = True
    lvwSpeciality.Visible = False
    lvwClass.Visible = False
    
    Set rsInstituteList = New Recordset
    Dim StrInstituteList As String
    StrInstituteList = CStr(Node.Text)
    rsInstituteList.Open "select * from TbInstitute where I_Name='" & StrInstituteList & "'", Modmain.conn, 3, 2
    rsInstituteList.MoveFirst
    lvwInstitute.ListItems.Clear
    
    While Not rsInstituteList.EOF              ' 添加相应的 ListItem
      Set lItem = lvwInstitute.ListItems.Add
      lItem.Text = rsInstituteList.Fields("I_ID")
      lItem.SubItems(1) = rsInstituteList.Fields("I_Name")
      If rsInstituteList.Fields("I_Memo") <> "" Then
        lItem.SubItems(2) = rsInstituteList.Fields("I_Memo")
      End If
      rsInstituteList.MoveNext
    Wend
    rsInstituteList.Close
    Set rsInstituteList = Nothing
End If
If Node.Tag = "Speciality" Then
    lvwSchool.Visible = False
    lvwInstitute.Visible = False
    lvwSpeciality.Visible = True
    lvwClass.Visible = False
        
    Set rsSpecialityList = New Recordset
    Dim StrSpecialityList As String
    StrSpecialityList = CStr(Node.Text)
    rsSpecialityList.Open "select * from TbSpeciality where S_Name='" & StrSpecialityList & "'", Modmain.conn, 3, 2
    rsSpecialityList.MoveFirst
    lvwSpeciality.ListItems.Clear

    While Not rsSpecialityList.EOF              ' 添加相应的 ListItem
      Set lItem = lvwSpeciality.ListItems.Add
      lItem.Text = rsSpecialityList.Fields("S_ID")
      lItem.SubItems(1) = rsSpecialityList.Fields("S_Name")
      If rsSpecialityList.Fields("S_Memo") <> "" Then
        lItem.SubItems(2) = rsSpecialityList.Fields("S_Memo")
      End If
      rsSpecialityList.MoveNext
    Wend
    rsSpecialityList.Close
    Set rsSpecialityList = Nothing

End If
If Node.Tag = "Class" Then
    lvwSchool.Visible = False
    lvwInstitute.Visible = False
    lvwSpeciality.Visible = False
    lvwClass.Visible = True
    
    
    Set rsClassList = New Recordset
    Dim StrClassList As String
    StrClassList = CStr(Node.Text)
    rsClassList.Open "select * from TbClass where C_ID='" & StrClassList & "'", Modmain.conn, 3, 2
    'rsClassList.MoveFirst
    lvwClass.ListItems.Clear
    
    While Not rsClassList.EOF              ' 添加相应的 ListItem
      Set lItem = lvwClass.ListItems.Add
      lItem.Text = rsClassList.Fields("C_ID")
      lItem.SubItems(1) = rsClassList.Fields("StartNo")
      lItem.SubItems(2) = rsClassList.Fields("EndNo")
      If rsClassList.Fields("C_Memo") <> "" Then
        lItem.SubItems(3) = rsClassList.Fields("C_Memo")
      End If
      rsClassList.MoveNext
    Wend
    rsClassList.Close
    Set rsClassList = Nothing
End If
End Sub
Private Sub LoadNodes()
Set rsInstitute = New Recordset
Dim StrInstitute As String
StrInstitute = "select I_ID,I_Name from TbInstitute"
rsInstitute.Open StrInstitute, Modmain.conn, 3, 2

While Not rsInstitute.EOF        '添加院系结点
    Dim i As Integer
    i = i + 1
    Set nodex = tvwInstitute.Nodes.Add("school", tvwChild, "Institute" & i, CStr(rsInstitute.Fields!I_Name))
    nodex.Tag = "Institute"
    
    Set rsSpeciality = New Recordset
    Dim strSpeciality As String
    strSpeciality = "select s_id,S_Name from TbSpeciality where TbSpeciality.I_ID like '" & rsInstitute.Fields!I_ID & "'"
    rsSpeciality.Open strSpeciality, Modmain.conn, 3, 2
    
    While Not rsSpeciality.EOF     '添加专业结点
        Dim j As Integer
        j = j + 1
        Set nodex = tvwInstitute.Nodes.Add("Institute" & i, tvwChild, "speciality" & j, CStr(rsSpeciality.Fields!S_Name))
        nodex.Tag = "Speciality"
        
        Set rsClass = New Recordset
        Dim StrClass As String
        StrClass = "select C_ID from TbClass where mid(C_ID,5,1) LIKE '" & rsSpeciality.Fields!s_ID & "' and left(C_ID,2) like '" & rsInstitute.Fields!I_ID & "'"
        rsClass.Open StrClass, Modmain.conn, 3, 2
      
        While Not rsClass.EOF        '添加班级结点
            Dim k As Integer
            k = k + 1
            Set nodex = tvwInstitute.Nodes.Add("speciality" & j, tvwChild, "class" & k, CStr(rsClass.Fields!C_ID))
            nodex.Tag = "Class"
            rsClass.MoveNext
        Wend
        rsClass.Close
        Set rsClass = Nothing
        rsSpeciality.MoveNext
    Wend
    rsSpeciality.Close
    Set rsSpeciality = Nothing
    rsInstitute.MoveNext
Wend
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''添加院系信息时，添加结点                                        ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub AddInstituteNodes()
Dim i As Double
i = 100 + Rnd
Set nodex = tvwInstitute.Nodes.Add("school", tvwChild, "Institute" & i, frmAddInstitute.StrI_Name)
nodex.Tag = "Institute"
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''添加专业信息时，添加结点                            ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Sub AddSpecialityNodes()
Dim j As Double
j = 1000 + Rnd
If AddType = "II" Then
    Set nodex = tvwInstitute.Nodes.Add(NodeIndex, tvwChild, "Speciality" & j, frmAddSpeciality.StrS_Name)
Else
    Set nodex = tvwInstitute.Nodes.Add(NodeIndex, , "Speciality" & j, frmAddSpeciality.StrS_Name)
End If
nodex.Tag = "Speciality"
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''添加班级信息时，添加结点                            ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub AddClassNodes()
Dim k As Double
k = 1000 + Rnd
If AddClassType = "SS" Then
    Set nodex = tvwInstitute.Nodes.Add(NodeIndex, tvwChild, "Speciality" & k, frmAddClass.strc_id)
    ElseIf AddClassType = "CC" Then
        Set nodex = tvwInstitute.Nodes.Add(NodeIndex, , "Speciality" & k, frmAddClass.strc_id)
End If
nodex.Tag = "Class"
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''将用户删除院系,专业,班级的信息记入操作日志                      ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub AddLog(aa As String)
Dim strEvents As String
Dim strTemp As String
strTemp = "'"
Set rsOperateLog = New Recordset
rsOperateLog.Open "select * from tbOperateLog", Modmain.conn, 3, 2
Set rsLog = New Recordset
rsLog.Open "select * from tblog where L_ID='" & aa & "'", Modmain.conn, 3, 2
strEvents = rsLog.Fields!Events

rsOperateLog.AddNew
    rsOperateLog.Fields!U_ID = frmLoad.StrU_ID
    rsOperateLog.Fields!Time = Time
    rsOperateLog.Fields!Date = Date
    rsOperateLog.Fields!Events = strEvents
    rsOperateLog.Fields!Description = strEvents & strTemp & NodeText & strTemp
rsOperateLog.Update
End Sub