romminput.dfm

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

object RoomInputForm: TRoomInputForm
  Left = 205
  Top = 32
  AutoScroll = False
  Caption = #23458#25151#36164#26009#36755#20837
  ClientHeight = 463
  ClientWidth = 584
  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 Label10: TLabel
    Left = 184
    Top = 120
    Width = 48
    Height = 13
    Caption = #23454#25910#37329#39069
  end
  object GroupBox1: TGroupBox
    Left = 7
    Top = 8
    Width = 570
    Height = 217
    Caption = #22635#20889#23458#25151#22522#26412#20449#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 56
      Height = 14
      Caption = #26174#31034#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 360
      Top = 21
      Width = 42
      Height = 14
      Caption = #25151#21488#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 32
      Top = 60
      Width = 28
      Height = 14
      Caption = #20154#25968
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 200
      Top = 64
      Width = 28
      Height = 14
      Caption = #37202#33756
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 360
      Top = 63
      Width = 42
      Height = 14
      Caption = #25151#38388#36153
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 200
      Top = 21
      Width = 28
      Height = 14
      Caption = #21333#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 96
      Width = 56
      Height = 14
      Caption = #24212#25910#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 184
      Top = 98
      Width = 56
      Height = 14
      Caption = #23454#25910#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 184
      Top = 162
      Width = 56
      Height = 14
      Caption = #31246#25910#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 16
      Top = 132
      Width = 56
      Height = 14
      Caption = #25552#25104#37329#39069
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 32
      Top = 164
      Width = 28
      Height = 14
      Caption = #27611#21033
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 352
      Top = 132
      Width = 56
      Height = 14
      Caption = #20184#27454#26041#24335
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 202
      Top = 130
      Width = 28
      Height = 14
      Caption = #25104#26412
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label15: TLabel
      Left = 360
      Top = 98
      Width = 42
      Height = 14
      Caption = #26381#21153#36153
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Dinner_price: TEdit
      Left = 248
      Top = 57
      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 People: TEdit
      Left = 80
      Top = 56
      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 NO: TEdit
      Left = 248
      Top = 20
      Width = 89
      Height = 21
      TabOrder = 2
    end
    object btnOk: TButton
      Left = 360
      Top = 180
      Width = 65
      Height = 21
      Caption = #24405'   '#20837
      TabOrder = 3
      OnClick = btnOkClick
    end
    object btnClear: TButton
      Left = 484
      Top = 180
      Width = 65
      Height = 21
      Caption = #28165'  '#23631
      TabOrder = 4
      OnClick = btnClearClick
    end
    object birthday: TDateTimePicker
      Left = 80
      Top = 20
      Width = 89
      Height = 21
      CalAlignment = dtaLeft
      Date = 37641.840643912
      Time = 37641.840643912
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
    end
    object Budget: TEdit
      Left = 80
      Top = 92
      Width = 89
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object Income: TEdit
      Left = 248
      Top = 96
      Width = 89
      Height = 21
      TabOrder = 7
    end
    object Discount: TEdit
      Left = 80
      Top = 128
      Width = 89
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
  end
  object SaleDBGrid: TDBGrid
    Left = 8
    Top = 232
    Width = 569
    Height = 177
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 416
    Width = 569
    Height = 41
    Caption = #25490#24207#26041#24335
    TabOrder = 2
  end
  object BudgetRadio: TRadioButton
    Left = 24
    Top = 432
    Width = 81
    Height = 17
    Caption = #24212#25910#37329#39069
    TabOrder = 3
    OnClick = BudgetRadioClick
  end
  object IncomeRadio: TRadioButton
    Left = 116
    Top = 432
    Width = 73
    Height = 17
    Caption = #23454#25910#37329#39069
    TabOrder = 4
    OnClick = IncomeRadioClick
  end
  object TaxRadio: TRadioButton
    Left = 209
    Top = 432
    Width = 73
    Height = 17
    Caption = #31246#25910#37329#39069
    TabOrder = 5
    OnClick = TaxRadioClick
  end
  object DiscountRadio: TRadioButton
    Left = 302
    Top = 432
    Width = 73
    Height = 17
    Caption = #25552#25104#37329#39069
    TabOrder = 6
    OnClick = DiscountRadioClick
  end
  object CostRadio: TRadioButton
    Left = 395
    Top = 432
    Width = 73
    Height = 17
    Caption = #25104#26412
    TabOrder = 7
    OnClick = CostRadioClick
  end
  object ProfitRadio: TRadioButton
    Left = 488
    Top = 432
    Width = 73
    Height = 17
    Caption = #27611#21033
    TabOrder = 8
    OnClick = ProfitRadioClick
  end
  object Room_NO: TEdit
    Left = 425
    Top = 28
    Width = 89
    Height = 21
    TabOrder = 9
  end
  object Romm_price: TEdit
    Left = 425
    Top = 65
    Width = 89
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object Tax: TEdit
    Left = 257
    Top = 168
    Width = 89
    Height = 21
    Color = clScrollBar
    Enabled = False
    ReadOnly = True
    TabOrder = 11
  end
  object Profit: TEdit
    Left = 88
    Top = 168
    Width = 89
    Height = 21
    Color = clScrollBar
    Enabled = False
    ReadOnly = True
    TabOrder = 12
  end
  object Pay_type: TEdit
    Left = 423
    Top = 136
    Width = 89
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
  end
  object Cost: TEdit
    Left = 256
    Top = 137
    Width = 89
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 14
  end
  object Service_price: TEdit
    Left = 425
    Top = 103
    Width = 89
    Height = 21
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
  end
  object DataSource1: TDataSource
    DataSet = RoomTable
    Left = 528
    Top = 24
  end
  object RoomTable: TTable
    Active = True
    DatabaseName = 'Sales'
    TableName = 'room.db'
    Left = 528
    Top = 64
  end
  object RoomQuery: TQuery
    Active = True
    DatabaseName = 'Sales'
    SQL.Strings = (
      'select * from room')
    Left = 528
    Top = 104
  end
end