saleinput.dfm

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

object SaleInputForm: TSaleInputForm
  Left = 200
  Top = 150
  Width = 597
  Height = 404
  Caption = #33829#19994#20449#24687#36755#20837
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 7
    Top = 8
    Width = 570
    Height = 129
    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 = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      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 Label11: TLabel
      Left = 360
      Top = 24
      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 Label9: TLabel
      Left = 16
      Top = 68
      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 Label3: TLabel
      Left = 184
      Top = 68
      Width = 56
      Height = 14
      Caption = #37202#33756#25104#26412
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 384
      Top = 68
      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 Label12: TLabel
      Left = 184
      Top = 24
      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 Budget: 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 Cost: TEdit
      Left = 248
      Top = 64
      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 Profit: TEdit
      Left = 424
      Top = 64
      Width = 89
      Height = 21
      Color = cl3DLight
      ReadOnly = True
      TabOrder = 2
    end
    object Deduct: TEdit
      Left = 80
      Top = 64
      Width = 89
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object Income: TEdit
      Left = 248
      Top = 20
      Width = 81
      Height = 21
      TabOrder = 4
    end
    object btnOk: TButton
      Left = 344
      Top = 100
      Width = 65
      Height = 21
      Caption = #24405'   '#20837
      TabOrder = 5
      OnClick = btnOkClick
    end
    object btnClear: TButton
      Left = 436
      Top = 100
      Width = 65
      Height = 21
      Caption = #28165'  '#23631
      TabOrder = 6
      OnClick = btnClearClick
    end
    object Tax: TEdit
      Left = 424
      Top = 20
      Width = 89
      Height = 21
      Color = cl3DLight
      ReadOnly = True
      TabOrder = 7
    end
  end
  object SaleDBGrid: TDBGrid
    Left = 8
    Top = 144
    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 = 328
    Width = 569
    Height = 41
    Caption = #25490#24207#26041#24335
    TabOrder = 2
  end
  object BudgetRadio: TRadioButton
    Left = 16
    Top = 344
    Width = 81
    Height = 17
    Caption = #24212#25910#37329#39069
    TabOrder = 3
    OnClick = BudgetRadioClick
  end
  object IncomeRadio: TRadioButton
    Left = 108
    Top = 344
    Width = 73
    Height = 17
    Caption = #23454#25910#37329#39069
    TabOrder = 4
    OnClick = IncomeRadioClick
  end
  object TaxRadio: TRadioButton
    Left = 201
    Top = 344
    Width = 73
    Height = 17
    Caption = #31246#25910#37329#39069
    TabOrder = 5
    OnClick = TaxRadioClick
  end
  object DeductRadio: TRadioButton
    Left = 294
    Top = 344
    Width = 73
    Height = 17
    Caption = #25552#25104#37329#39069
    TabOrder = 6
    OnClick = DeductRadioClick
  end
  object CostRadio: TRadioButton
    Left = 387
    Top = 344
    Width = 73
    Height = 17
    Caption = #37202#33756#25104#26412
    TabOrder = 7
    OnClick = CostRadioClick
  end
  object ProfitRadio: TRadioButton
    Left = 480
    Top = 344
    Width = 73
    Height = 17
    Caption = #27611#21033
    TabOrder = 8
    OnClick = ProfitRadioClick
  end
  object DataSource1: TDataSource
    DataSet = SaleTable
    Left = 528
    Top = 24
  end
  object SaleTable: TTable
    Active = True
    DatabaseName = 'Sales'
    TableName = 'sales.DB'
    Left = 528
    Top = 64
  end
  object SaleQuery: TQuery
    Active = True
    DatabaseName = 'Sales'
    SQL.Strings = (
      'select * from sales order by Budget')
    Left = 528
    Top = 96
  end
end