roomquery.dfm

一个餐饮行业的销售管理类的源码

object RoomQueryForm: TRoomQueryForm
  Left = 282
  Top = 240
  Width = 544
  Height = 349
  Caption = #23458#25151#20449#24687#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
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 353
    Height = 81
    Caption = #26597#35810#26465#20214
    TabOrder = 0
    object QueryField: TComboBox
      Left = 24
      Top = 24
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Items.Strings = (
        #26174#31034#26085#26399
        #25151#21488#21495
        #20154#25968
        #37202#33756
        #25151#38388#36153
        #26381#21153#36153
        #25240#25187
        #31246#37329
        #24212#25910
        #23454#25910
        #20184#27454#26041#24335
        #25104#26412
        #27611#21033)
    end
    object QueryValue: TEdit
      Left = 216
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object QuerySign: TComboBox
      Left = 176
      Top = 24
      Width = 33
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        '<'
        '>'
        '=')
    end
  end
  object QueryBtn: TButton
    Left = 384
    Top = 8
    Width = 137
    Height = 25
    Caption = #25191#34892#26597#35810
    TabOrder = 1
    OnClick = QueryBtnClick
  end
  object ClearBtn: TButton
    Left = 384
    Top = 40
    Width = 137
    Height = 25
    Caption = #37325#26032#26597#35810
    TabOrder = 2
    OnClick = ClearBtnClick
  end
  object Button1: TButton
    Left = 384
    Top = 72
    Width = 137
    Height = 25
    Caption = #23519#30475#22270#34920
    TabOrder = 3
    OnClick = Button1Click
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 104
    Width = 513
    Height = 209
    Caption = #26597#35810#32467#26524
    TabOrder = 4
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 497
      Height = 169
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    DataSet = roomQuery
    Left = 408
    Top = 96
  end
  object roomQuery: TQuery
    Active = True
    DatabaseName = 'Sales'
    SQL.Strings = (
      'select * from room')
    Left = 440
    Top = 96
  end
end