dinnerinput.dfm

来自「一个餐饮行业的销售管理类的源码」· DFM 代码 · 共 191 行

object DinnerInputForm: TDinnerInputForm
  Left = 209
  Top = 148
  Width = 584
  Height = 369
  Caption = #39184#21381#20449#24687
  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 DinnerDBGrid: TDBGrid
    Left = 1
    Top = 120
    Width = 569
    Height = 169
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 6
    Width = 570
    Height = 107
    Caption = #22635#20889#33829#19994#22522#26412#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 52
      Height = 13
      Caption = #37202#33756#28857#21333
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 352
      Top = 23
      Width = 52
      Height = 13
      Caption = #23454#25910#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 184
      Top = 24
      Width = 39
      Height = 13
      Caption = #24635#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Numm: TEdit
      Left = 80
      Top = 20
      Width = 89
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Income: TEdit
      Left = 416
      Top = 20
      Width = 89
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Summ: TEdit
      Left = 240
      Top = 20
      Width = 81
      Height = 21
      TabOrder = 2
    end
    object btnOk: TButton
      Left = 344
      Top = 68
      Width = 65
      Height = 21
      Caption = #24405'   '#20837
      TabOrder = 3
      OnClick = btnOkClick
    end
    object btnClear: TButton
      Left = 444
      Top = 68
      Width = 65
      Height = 21
      Caption = #28165'  '#23631
      TabOrder = 4
      OnClick = btnClearClick
    end
  end
  object RadioGroup1: TRadioGroup
    Left = 1
    Top = 295
    Width = 569
    Height = 42
    Caption = #25490#24207
    TabOrder = 2
  end
  object IncomeRadio: TRadioButton
    Left = 463
    Top = 312
    Width = 73
    Height = 17
    Caption = #23454#25910#37329#39069
    TabOrder = 3
    OnClick = IncomeRadioClick
  end
  object NummRadio: TRadioButton
    Left = 40
    Top = 312
    Width = 113
    Height = 17
    Caption = #37202#33756#28857#21333
    TabOrder = 4
    OnClick = NummRadioClick
  end
  object SummRadio: TRadioButton
    Left = 248
    Top = 312
    Width = 113
    Height = 17
    Caption = #24635#37329#39069
    TabOrder = 5
    OnClick = SummRadioClick
  end
  object DataSource1: TDataSource
    DataSet = DinnerTable
    Left = 534
    Top = 24
  end
  object DinnerTable: TTable
    Active = True
    DatabaseName = 'sales'
    TableName = 'dinner.db'
    Left = 534
    Top = 52
  end
  object DinnerQuery: TQuery
    DatabaseName = 'sales'
    SQL.Strings = (
      'select * from dinner order by Budget')
    Left = 534
    Top = 80
  end
end