partmenttype.frm

人力资源管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmPartmentL 
   Caption         =   "部门分类"
   ClientHeight    =   5355
   ClientLeft      =   3690
   ClientTop       =   3180
   ClientWidth     =   6645
   LinkTopic       =   "Form2"
   ScaleHeight     =   5355
   ScaleWidth      =   6645
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   435
      Left            =   0
      TabIndex        =   2
      Top             =   4920
      Width           =   6645
      _ExtentX        =   11721
      _ExtentY        =   767
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   1
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Text            =   "部门分类树形表"
            TextSave        =   "部门分类树形表"
            Key             =   "barTable"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView TreePartment 
      Height          =   4335
      Left            =   0
      TabIndex        =   1
      Top             =   600
      Width           =   6615
      _ExtentX        =   11668
      _ExtentY        =   7646
      _Version        =   393217
      Style           =   7
      SingleSel       =   -1  'True
      Appearance      =   1
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   570
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6645
      _ExtentX        =   11721
      _ExtentY        =   1005
      ButtonWidth     =   1138
      ButtonHeight    =   953
      Appearance      =   1
      Style           =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   10
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新类型"
            Key             =   "tbrNewClass"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "新子类"
            Key             =   "tbrNewSonClass"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "tbr1"
            Style           =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "tbrUpdate"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "tbrDelete"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "tbr2"
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "展开"
            Key             =   "tbrZhan"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "收缩"
            Key             =   "tbrShou"
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "tbr3"
            Style           =   3
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "tbrClose"
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
End
Attribute VB_Name = "frmPartmentL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private mNode As Node
Private Sub Form_Load()
Dim adors As New Recordset '定义一个记录集，记录科目类型
   Dim rsPartment As New Recordset '定义一个记录集，记录每种科目类型中的科目
   Dim strSQL As String  '定义一个字符串，将查询科目类型的sql语句付给它
   Dim strSQLQuery As String  '定义一个字符串，将查询每种科目类型下的科目的sql语句付给它
   Dim strPartmentType(10) As String '定义一个数组，存储科目类型
   Dim strPartment As String   '定义字符串，将每种科目类型下的科目附值给它
   Dim intIndex(10) As Integer '定义一个数组，记录根节点index
   Dim i As Integer '定义一个整数，存储是第i个根节点
   
   Set adors.ActiveConnection = ADOcn
   strSQL = "Select distinct 名称 from 部门类型 where 级别=1"
    
     
   adors.Open strSQL
    
   TreePartment.Sorted = True
   Set mNode = TreePartment.Nodes.Add()
   mNode.Text = "部门类型"
   
  
  Do Until adors.EOF
   Set mNode = TreePartment.Nodes.Add(1, tvwChild)
   strPartmentType(i) = adors.Fields("名称")
   mNode.Text = strPartmentType(i)
   intIndex(i) = mNode.Index
  
   i = i + 1
   adors.MoveNext
   
 Loop
 
    adors.Close
    Set rsPartment.ActiveConnection = ADOcn
    For i = 0 To i
       strSQLQuery = "Select 名称 from 部门类型 where 上级='" + strPartmentType(i) + "'"
       
       rsPartment.Open strSQLQuery
      
     Do Until rsPartment.EOF
   
            Set mNode = TreePartment.Nodes.Add(intIndex(i), tvwChild)
            strPartment = rsPartment.Fields("名称")
            
            mNode.Text = strPartment
                        
            rsPartment.MoveNext
    
      Loop
      rsPartment.Close '关闭记录集，一定要记住，折磨了我两个小时
      Next i
    
'/********************************TreeViewEnd***********************************/
End Sub



Private Sub TreePartment_DblClick()
treechild = TreePartment.SelectedItem
If treechild <> "部门类型" Then 'And treechild <> "开发部" And treechild <> "行政部" And treechild <> "市场部" And treechild <> "财务部" Then
If Part = 1 Then
frmHumanInfo.txtSection = treechild
ElseIf Part = 2 Then
frmTransferWindows.txtPart = treechild
End If
End If
Unload Me
End Sub