cg_unit.~dfm

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

object CG_Form: TCG_Form
  Left = 148
  Top = 221
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #37319#36141#21592#22522#30784#20449#24687
  ClientHeight = 453
  ClientWidth = 682
  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
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 217
    Top = 38
    Width = 8
    Height = 348
    Cursor = crHSplit
    Beveled = True
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 682
    Height = 38
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 46
    Caption = 'ToolBar1'
    Flat = True
    Images = ilSmall
    ShowCaptions = True
    TabOrder = 0
    object tbbtnPrint: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #25171' '#21360
      ImageIndex = 58
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnPrintClick
    end
    object ToolButton3: TToolButton
      Left = 44
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 19
      Style = tbsSeparator
    end
    object tbbtnNewBill: TToolButton
      Left = 52
      Top = 0
      AutoSize = True
      Caption = #26368#22836
      ImageIndex = 73
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnNewBillClick
    end
    object tbbtnDeleteBill: TToolButton
      Left = 89
      Top = 0
      AutoSize = True
      Caption = #19978#19968#26465
      ImageIndex = 71
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnDeleteBillClick
    end
    object tbbtnCommit: TToolButton
      Left = 139
      Top = 0
      AutoSize = True
      Caption = #19979#19968#26465
      ImageIndex = 72
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnCommitClick
    end
    object tbbtnRollback: TToolButton
      Left = 189
      Top = 0
      AutoSize = True
      Caption = #26368#21518
      ImageIndex = 70
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnRollbackClick
    end
    object ToolButton11: TToolButton
      Left = 226
      Top = 0
      Width = 8
      Caption = 'ToolButton11'
      ImageIndex = 19
      Style = tbsSeparator
    end
    object tbbtnPrior: TToolButton
      Left = 234
      Top = 0
      AutoSize = True
      Caption = #26032#24314
      ImageIndex = 48
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnPriorClick
    end
    object ToolButton4: TToolButton
      Left = 271
      Top = 0
      Caption = #20462#25913
      ImageIndex = 43
      OnClick = ToolButton4Click
    end
    object tbbtnNext: TToolButton
      Left = 317
      Top = 0
      AutoSize = True
      Caption = #21024#38500
      ImageIndex = 59
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnNextClick
    end
    object tbbtnLast: TToolButton
      Left = 354
      Top = 0
      AutoSize = True
      Caption = #20445#23384
      ImageIndex = 40
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnLastClick
    end
    object ToolButton5: TToolButton
      Left = 391
      Top = 0
      Caption = #25764#38144
      ImageIndex = 23
      OnClick = ToolButton5Click
    end
    object tbbtnFirst: TToolButton
      Left = 437
      Top = 0
      AutoSize = True
      Caption = #21047#26032
      ImageIndex = 41
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnFirstClick
    end
    object ToolButton23: TToolButton
      Left = 474
      Top = 0
      Width = 8
      Caption = 'ToolButton23'
      ImageIndex = 19
      Style = tbsSeparator
    end
    object tbbtnSearch: TToolButton
      Left = 482
      Top = 0
      AutoSize = True
      Caption = #36864' '#20986
      ImageIndex = 64
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnSearchClick
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 38
    Width = 217
    Height = 348
    ActivePage = TabSheet1
    Align = alLeft
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #37319#36141#21592#21015#34920
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 209
        Height = 320
        Align = alClient
        DataSource = DM.CG_DS
        FixedColor = 13550220
        FooterColor = clWindow
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        OptionsEh = [dghHighlightFocus, dghClearSelection, dghDialogFind]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'CG_ID'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #32534#21495
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'CG_NAME'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Width = 80
          end>
      end
    end
  end
  object PageControl2: TPageControl
    Left = 225
    Top = 38
    Width = 457
    Height = 348
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 0
    TabOrder = 2
    object TabSheet2: TTabSheet
      Caption = #37319#36141#21592#20449#24687
      object Label1: TLabel
        Left = 32
        Top = 40
        Width = 65
        Height = 13
        Caption = #37319#36141#21592#32534#21495