frmquery.frm

一个能够有效管理教师（含家庭人口）的住房信息系统（含信息的添加、修改、删除等）

VERSION 5.00
Begin VB.Form frmquery 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "分类查询："
   ClientHeight    =   3165
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7125
   Icon            =   "frmquery.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3165
   ScaleWidth      =   7125
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame3 
      Height          =   615
      Left            =   5160
      TabIndex        =   7
      Top             =   2400
      Width           =   1815
      Begin VB.CommandButton Command3 
         Caption         =   "关闭(&C)"
         Height          =   375
         Left            =   360
         TabIndex        =   8
         Top             =   160
         Width           =   1095
      End
   End
   Begin VB.Frame Frame2 
      Height          =   615
      Left            =   120
      TabIndex        =   4
      Top             =   2400
      Width           =   4095
      Begin VB.CommandButton Command2 
         Caption         =   "输出为文本文件(&O)"
         Height          =   375
         Left            =   1920
         TabIndex        =   6
         Top             =   160
         Width           =   1815
      End
      Begin VB.CommandButton Command1 
         Caption         =   "查询(&Q)"
         Height          =   375
         Left            =   360
         TabIndex        =   5
         Top             =   160
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "选择查询内容："
      Height          =   2295
      Left            =   120
      TabIndex        =   0
      Top             =   100
      Width           =   6855
      Begin VB.OptionButton Option1 
         Caption         =   "输出全校教师人均住房面积（含家庭人口）"
         Height          =   255
         Index           =   3
         Left            =   600
         TabIndex        =   9
         Top             =   1800
         Width           =   5895
      End
      Begin VB.OptionButton Option1 
         Caption         =   "输出未住上一室一厅及以上等级的具有博士学位的教师信息一览表"
         Height          =   255
         Index           =   2
         Left            =   600
         TabIndex        =   3
         Top             =   1320
         Width           =   5895
      End
      Begin VB.OptionButton Option1 
         Caption         =   "输出未住上三室一厅或三室的副教授、教授信息一览表"
         Height          =   255
         Index           =   1
         Left            =   600
         TabIndex        =   2
         Top             =   840
         Width           =   5895
      End
      Begin VB.OptionButton Option1 
         Caption         =   "输出婚后分居在集体宿舍的户主信息一览表"
         Height          =   255
         Index           =   0
         Left            =   600
         TabIndex        =   1
         Top             =   360
         Value           =   -1  'True
         Width           =   5895
      End
   End
End
Attribute VB_Name = "frmquery"
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 Command1_Click()
Dim cmd As Command
Me.Hide
frmwait.Show
DoEvents
'判断数据库连接是否已经打开，若未打开，则打开，否则，先关闭，再重新打开，以刷新报表
With DataEnvironment1.Connection1
    If .State = adStateClosed Then
        .Open
    Else
        .close
        .Open
    End If
End With
If Option1(0).Value Then
    Unload Me
    Set cmd = DataEnvironment1.Commands("command1")
    cmd.ActiveConnection = DataEnvironment1.Connection1
    Load DataReport1
    DataReport1.WindowState = 2
    Unload frmwait
    DataReport1.Show
End If
If Option1(1).Value Then
    Unload Me
    Set cmd = DataEnvironment1.Commands("command2")
    cmd.ActiveConnection = DataEnvironment1.Connection1
    Load DataReport2
    DataReport2.WindowState = 2
    Unload frmwait
    DataReport2.Show
End If
If Option1(2).Value Then
    Unload Me
    Set cmd = DataEnvironment1.Commands("command3")
    cmd.ActiveConnection = DataEnvironment1.Connection1
    Load DataReport3
    DataReport3.WindowState = 2
    Unload frmwait
    DataReport3.Show
End If
If Option1(3).Value Then
    Load frmaver
    Unload Me
    Unload frmwait
    frmaver.Show 1
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub