dinnerquery.dfm

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

object DinnerQueryForm: TDinnerQueryForm
  Left = 237
  Top = 110
  Width = 527
  Height = 347
  Caption = #39184#21381#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 = 0
    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 = (
        #37202#33756#23450#21333
        #24635#37329#39069
        #23454#25910#37329#39069)
    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 = 368
    Top = 8
    Width = 137
    Height = 25
    Caption = #25191#34892#26597#35810
    TabOrder = 1
    OnClick = QueryBtnClick
  end
  object ClearBtn: TButton
    Left = 368
    Top = 40
    Width = 137
    Height = 25
    Caption = #37325#26032#26597#35810
    TabOrder = 2
    OnClick = ClearBtnClick
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 104
    Width = 513
    Height = 209
    Caption = #26597#35810#32467#26524
    TabOrder = 3
    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 Button1: TButton
    Left = 368
    Top = 72
    Width = 137
    Height = 25
    Caption = #23519#30475#22270#34920
    TabOrder = 4
    OnClick = Button1Click
  end
  object DinnerQuery: TQuery
    Active = True
    DatabaseName = 'Sales'
    SQL.Strings = (
      'select * from dinner order by Numm')
    Left = 424
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = DinnerQuery
    Left = 392
    Top = 96
  end
end