roomst.dfm

机器须安装SQL Server2000 程序安装完之后

object RoomStForm: TRoomStForm
  Left = 156
  Top = 209
  Width = 544
  Height = 375
  Caption = '房态查看'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 534
      Height = 72
      Align = alTop
      Caption = '请选择条件'
      TabOrder = 0
      object Label1: TLabel
        Left = 120
        Top = 52
        Width = 84
        Height = 12
        Caption = '请选择房间类别'
      end
      object RadioButton1: TRadioButton
        Left = 24
        Top = 16
        Width = 113
        Height = 17
        Caption = '当前可用房态'
        TabOrder = 0
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 24
        Top = 40
        Width = 89
        Height = 17
        Caption = '当前预定房'
        TabOrder = 1
        OnClick = RadioButton2Click
      end
      object RadioButton3: TRadioButton
        Left = 120
        Top = 16
        Width = 73
        Height = 17
        Caption = '历史房态'
        TabOrder = 2
        OnClick = RadioButton3Click
      end
      object DateTimePicker1: TDateTimePicker
        Left = 304
        Top = 16
        Width = 97
        Height = 20
        CalAlignment = dtaLeft
        Date = 37720.7459262732
        Time = 37720.7459262732
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
        Visible = False
      end
      object DateTimePicker2: TDateTimePicker
        Left = 304
        Top = 48
        Width = 97
        Height = 20
        CalAlignment = dtaLeft
        Date = 37720.7459568287
        Time = 37720.7459568287
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
        Visible = False
      end
      object BitBtn1: TBitBtn
        Left = 408
        Top = 40
        Width = 65
        Height = 25
        Caption = '确定'
        TabOrder = 5
        OnClick = BitBtn1Click
      end
      object ComboBox1: TComboBox
        Left = 208
        Top = 48
        Width = 81
        Height = 20
        ItemHeight = 12
        TabOrder = 6
        Visible = False
      end
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 73
      Width = 320
      Height = 274
      Align = alLeft
      DataSource = DSQuery
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnectionHotel
    Parameters = <>
    Left = 488
    Top = 120
  end
  object DSQuery: TDataSource
    DataSet = ADOQuery1
    Left = 489
    Top = 161
  end
end