frmlistclass.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmListClass 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "班级信息"
   ClientHeight    =   5070
   ClientLeft      =   5700
   ClientTop       =   2685
   ClientWidth     =   4110
   Icon            =   "frmListClass.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5070
   ScaleWidth      =   4110
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton cmdExit 
      Caption         =   "退 出"
      Height          =   375
      Left            =   3240
      TabIndex        =   2
      Top             =   4560
      Width           =   855
   End
   Begin VB.CommandButton cmdYes 
      Caption         =   "确 定"
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   4560
      Width           =   855
   End
   Begin MSComctlLib.TreeView tvwInstitute 
      Height          =   4455
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   7858
      _Version        =   393217
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "frmListClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''                                                                ''
''Filename       frmListClass.frm                              ''
''                                                                ''
''Created On     2004.2.25                                        ''
''                                                                ''
''Description    显示班级信息窗体                                 ''
''                                                                ''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim rsInstitute As Recordset
Dim rsSpeciality As Recordset
Dim rsClass As Recordset
Dim nodex As Node
Dim StrText As String
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdYes_Click()
If frmAddCurrSchedule.strtype = "Morning" Then
    frmAddCurrSchedule.txtMorning = StrText
    ElseIf frmAddCurrSchedule.strtype = "Afternoon" Then
        frmAddCurrSchedule.txtAfternoon = StrText
        Else
            frmAddCurrSchedule.txtNight = StrText
End If
Unload Me
End Sub
Private Sub Form_Load()
cmdYes.Enabled = False

Set rsInstitute = New Recordset
Dim StrInstitute As String
StrInstitute = "select I_ID,I_Name from TbInstitute"
rsInstitute.Open StrInstitute, Modmain.conn, 3, 2


tvwInstitute.LineStyle = tvwRootLines         '配置tvwInstitute控件
Set nodex = tvwInstitute.Nodes.Add(, , "school", "西安电子科技大学")
nodex.Tag = "school"

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
Private Sub tvwInstitute_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Tag = "Class" Then
    cmdYes.Enabled = True
    StrText = Node
End If
End Sub