frmfind.frm

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

VERSION 5.00
Begin VB.Form frmfind 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "基本信息的查找："
   ClientHeight    =   2220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4575
   Icon            =   "frmfind.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2220
   ScaleWidth      =   4575
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2880
      TabIndex        =   6
      Top             =   1700
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "开始查找(&F)"
      Height          =   375
      Left            =   480
      TabIndex        =   5
      Top             =   1700
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "设置查询条件："
      Height          =   1575
      Left            =   60
      TabIndex        =   0
      Top             =   0
      Width           =   4455
      Begin VB.TextBox Text1 
         Height          =   300
         IMEMode         =   1  'ON
         Left            =   2280
         TabIndex        =   4
         Top             =   1020
         Width           =   1215
      End
      Begin VB.OptionButton Option1 
         Caption         =   "按家庭成员姓名查找："
         Height          =   255
         Index           =   1
         Left            =   2160
         TabIndex        =   2
         Top             =   480
         Width           =   2175
      End
      Begin VB.OptionButton Option1 
         Caption         =   "按户主姓名查找："
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Value           =   -1  'True
         Width           =   1815
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "输入要查找的姓名："
         Height          =   180
         Left            =   480
         TabIndex        =   3
         Top             =   1080
         Width           =   1620
      End
   End
End
Attribute VB_Name = "frmfind"
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
Dim rs1 As Recordset, rs2 As Recordset
Private Sub Command1_Click()
Dim strtmp As String
If Option1(0).Value = True Then         '以户主进行查找
    rs1.Index = "name"
    rs1.Seek "=", Text1.Text
    If rs1.NoMatch Then
        MsgBox "无匹配户主信息！", vbExclamation + vbOKOnly, SYSTITLE
    Else
        Unload Me
        strtmp = "c" & rs1!id
        frmtree.TreeView1.Nodes.Item(strtmp).EnsureVisible
        frmtree.TreeView1.Nodes.Item(strtmp).Selected = True
        Call browserpre(frmtree.TreeView1.Nodes.Item(strtmp))
    End If
End If
If Option1(1).Value = True Then         '以家庭成员进行查找
    rs2.Index = "name"
    rs2.Seek "=", Text1.Text
    If rs2.NoMatch Then
        MsgBox "无匹配家庭成员信息！", vbExclamation + vbOKOnly, SYSTITLE
    Else
        Unload Me
        strtmp = "c" & rs2!id
        frmtree.TreeView1.Nodes.Item(strtmp).EnsureVisible
        frmtree.TreeView1.Nodes.Item(strtmp).Selected = True
        Call browserpre(frmtree.TreeView1.Nodes.Item(strtmp))
    End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'初始化
Set rs1 = db.OpenRecordset("host")
Set rs2 = db.OpenRecordset("member")
End Sub