frmtree2.frm

该软件（教师住房管理系统）能实现如下功能： 基本信息录入 基本信息浏览 基本查询 分类查询 查基本信息的添加、删除修改。分房申请信息的录入及平分 分房处理 报表生成 打印功能 帮助

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmtree2 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4350
   ClientLeft      =   45
   ClientTop       =   45
   ClientWidth     =   3390
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4350
   ScaleWidth      =   3390
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   1440
      Top             =   3360
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   3
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmtree2.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmtree2.frx":059A
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmtree2.frx":070C
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   4335
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   7646
      _Version        =   393217
      HideSelection   =   0   'False
      Indentation     =   617
      LabelEdit       =   1
      LineStyle       =   1
      Style           =   7
      ImageList       =   "ImageList1"
      Appearance      =   1
   End
End
Attribute VB_Name = "frmtree2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                    教师住房管理系统   Version 1.0                    '''
'''                         （VB6.0 源代码）                             '''
'''                                                                      '''
'''                        俊彦软件工作室出品                            '''
'''                                                                      '''
'''            （浦口校区科技节“电子杯”程序设计大赛参赛作品）          '''
'''                                                                      '''
'''                程序设计：东南大学土木工程学院   周曹俊               '''
'''                                                                      '''
'''                 CopyRight AllRights Reserved (c)2003                 '''
'''                                                                      '''
'''                         2003年5月15日                                '''
'''                                                                      '''
'''                                                                      '''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Sub Form_Load()
'设置界面布局
Me.Left = 0
Me.Top = 0
Me.Width = Screen.Width / 3.2
Me.Height = frmMDI.ScaleHeight / 2
Me.TreeView1.Height = Me.ScaleHeight
Me.TreeView1.Width = Me.ScaleWidth
Dim rsa As Recordset
Dim strtmp(1 To 6) As String, num(1 To 6) As Integer, i As Integer
Dim nodex As node
Set db2 = OpenDatabase(App.Path & "\data\applyinfo.db")
strtmp(1) = "申请一室": strtmp(2) = "申请一室一厅"
strtmp(3) = "申请二室": strtmp(4) = "申请二室一厅"
strtmp(5) = "申请三室": strtmp(6) = "申请三室一厅"
Set nodex = TreeView1.Nodes.add(, , "t", "分房申请信息", 1)
nodex.Expanded = True
'构造树型图
For i = 1 To 6
    Set rsa = db2.OpenRecordset("select * from " & CStr(i) & " order by zf desc")
    If Not rsa.EOF Then
        rsa.MoveLast
        num(i) = rsa.RecordCount
        rsa.MoveFirst
        If rsa!newid <> "" Then
            TreeView1.Nodes.add "t", tvwChild, "r" & i, strtmp(i) & "（分房已完成）", 3
        Else
            TreeView1.Nodes.add "t", tvwChild, "r" & i, strtmp(i) & "（已有" & num(i) & "户）", 2
        End If
    Else
        TreeView1.Nodes.add "t", tvwChild, "r" & i, strtmp(i) & "（已有0户）", 2
    End If
Next
frmMDI.window.Visible = True
frmMDI.report.Visible = True
frmMDI.data.Visible = False
frmMDI.view.Visible = False
frmMDI.preview.Enabled = False
frmMDI.pnt.Enabled = False
frmMDI.deal.Enabled = False
frmlist.Command1.Enabled = False
frmlist.Command2.Enabled = False
frmlist.Command3.Enabled = False
frmlist.Command4.Enabled = False
frmlist.Command5.Enabled = False
frmlist.Command5.Caption = "开始分房(&S)"
frmMDI.Toolbar1.Buttons(4).Enabled = False
frmMDI.Toolbar1.Buttons(9).Enabled = False
frmMDI.Toolbar1.Buttons(10).Enabled = False
frmMDI.Toolbar1.Buttons(5).Enabled = False
frmMDI.Toolbar1.Buttons(6).Enabled = False
frmMDI.Toolbar1.Buttons(7).Enabled = False
frmMDI.Toolbar1.Buttons(11).Enabled = True
frmMDI.Toolbar1.Buttons(13).Enabled = False
frmMDI.Toolbar1.Buttons(14).Enabled = False
frmMDI.Toolbar1.Buttons(18).Enabled = True
frmMDI.doc.Enabled = True
End Sub
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'设置弹出式菜单
Dim bolpic As Boolean, i As Integer
bolpic = True
'判断菜单出现时灰化的条件，即树型图中最下一层的图标为Imagelist1的第三个图标，即表示分房已结束
If Button = 2 And TreeView1.SelectedItem.Key = "t" Then
    For i = 2 To 7
        If TreeView1.Nodes(i).Image <> ImageList1.ListImages.Item(3).Index Then
            bolpic = False
            Exit For
        End If
    Next
    If bolpic = False Then
        frmMDI.remove.Enabled = False
        frmMDI.backup.Enabled = False
    Else
        frmMDI.remove.Enabled = True
        frmMDI.backup.Enabled = True
    End If
    '弹出菜单
    PopupMenu frmMDI.menu, , , , frmMDI.remove
End If
End Sub

Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.node)
'调用子过程
Call treenode(TreeView1.SelectedItem)
End Sub