frmhistoryqueryform.dfm

一个基于delphi7.0的客房管理系统。

object HistoryQueryForm: THistoryQueryForm
  Left = 257
  Top = 186
  Width = 697
  Height = 480
  Caption = #21382#21490#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 561
    Height = 89
    BorderStyle = bsSingle
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 64
      Height = 16
      Caption = #26597#35810#23383#27573
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 176
      Top = 32
      Width = 32
      Height = 16
      Caption = #35201#27714
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Left = 16
      Top = 56
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        #25151#38388#21495
        #22995#21517
        #25509#24453#23545#35937
        #20154#25968
        #25151#20215
        #26053#23458#31867#21035
        #24615#21035)
    end
    object ComboBox2: TComboBox
      Left = 176
      Top = 56
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        '>'
        '='
        '<')
    end
    object Edit1: TEdit
      Left = 344
      Top = 56
      Width = 201
      Height = 21
      TabOrder = 2
    end
  end
  object Panel2: TPanel
    Left = 568
    Top = 0
    Width = 121
    Height = 89
    BorderStyle = bsSingle
    TabOrder = 1
    OnClick = Panel2Click
    object Button1: TButton
      Left = 24
      Top = 8
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 24
      Top = 48
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 96
    Width = 689
    Height = 353
    BorderStyle = bsSingle
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 689
      Height = 353
      Color = clInfoBk
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'rooms'
    SQL.Strings = (
      'select * from roominfo,touristinfo,grouptouristinfo')
    Left = 656
    Top = 416
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 656
    Top = 384
  end
end