saleitemcha_unit.dfm

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

object SALEITEMCHA_Form: TSALEITEMCHA_Form
  Left = 209
  Top = 193
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #36710#27425#29677#32452#20135#21697#36208#21183#22270
  ClientHeight = 453
  ClientWidth = 732
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 566
    Top = 96
    Width = 33
    Height = 13
    Caption = #36710#27425':'
  end
  object Label2: TLabel
    Left = 642
    Top = 68
    Width = 26
    Height = 13
    Caption = #26597#25214
  end
  object Label3: TLabel
    Left = 565
    Top = 136
    Width = 33
    Height = 13
    Caption = #29677#32452':'
  end
  object Label4: TLabel
    Left = 540
    Top = 212
    Width = 59
    Height = 13
    Caption = #20135#21697#21517#31216':'
  end
  object Label5: TLabel
    Left = 565
    Top = 172
    Width = 33
    Height = 13
    Caption = #33756#35889':'
  end
  object Label6: TLabel
    Left = 566
    Top = 248
    Width = 33
    Height = 13
    Caption = #24180#24230':'
  end
  object DBChart1: TDBChart
    Left = 8
    Top = 8
    Width = 529
    Height = 433
    BackWall.Brush.Color = clWhite
    BackWall.Brush.Style = bsClear
    Title.Text.Strings = (
      #36710#27425#29677#32452#20135#21697#38144#21806#36208#21183#22270)
    TabOrder = 0
    object Series1: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = DM.SALEITEM_ADOQ
      SeriesColor = clRed
      XLabelsSource = 'MONTHD'
      LinePen.Color = clRed
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'MONTHD'
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'ITEM_MON'
    end
  end
  object ComboBox1: TComboBox
    Left = 601
    Top = 93
    Width = 121
    Height = 21
    Style = csDropDownList
    Ctl3D = False
    ItemHeight = 13
    ParentCtl3D = False
    TabOrder = 1
  end
  object ComboBox2: TComboBox
    Left = 601
    Top = 132
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
  end
  object ComboBox3: TComboBox
    Left = 601
    Top = 169
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 3
    OnExit = ComboBox3Exit
  end
  object Button1: TButton
    Left = 600
    Top = 313
    Width = 75
    Height = 25
    Caption = #26174#31034
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 600
    Top = 360
    Width = 75
    Height = 25
    Caption = #25171#21360
    TabOrder = 5
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 600
    Top = 408
    Width = 75
    Height = 25
    Caption = #28165#31354
    TabOrder = 6
    OnClick = Button3Click
  end
  object ComboBox4: TComboBox
    Left = 602
    Top = 207
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 7
  end
  object ComboBox5: TComboBox
    Left = 602
    Top = 244
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 8
    Items.Strings = (
      '2006'
      '2007'
      '2008'
      '2009'
      '2010')
  end
  object PDADOQ: TADOQuery
    Connection = DM.ADOC
    Parameters = <>
    Left = 608
    Top = 40
  end
end