ckdm_unit.dfm

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

object CKDM_Form: TCKDM_Form
  Left = 81
  Top = 153
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #20986#24211#21333#31649#29702
  ClientHeight = 505
  ClientWidth = 874
  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 = 278
    Top = 35
    Width = 5
    Height = 470
    Cursor = crHSplit
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 35
    Width = 278
    Height = 470
    Align = alLeft
    TabOrder = 0
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 274
      Height = 21
      Align = alTop
      BevelOuter = bvNone
      Caption = #20986#24211#21333#21015#34920
      Color = 13550220
      TabOrder = 0
    end
    object DBGridEh2: TDBGridEh
      Left = 0
      Top = 21
      Width = 274
      Height = 445
      Align = alClient
      Color = clInfoBk
      DataSource = DM.CKDM_DS
      FixedColor = 13550220
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghHighlightFocus, dghClearSelection, dghFitRowHeightToText]
      ReadOnly = True
      RowHeight = 2
      RowLines = 1
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'CKD_NO'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20986#24211#21333#21495
        end
        item
          EditButtons = <>
          FieldName = 'CKD_TIME'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20986#24211#26102#38388
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ckstock'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20986#24211#20179#24211
          Width = 120
        end
        item
          EditButtons = <>
          FieldName = 'ckman'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20986#24211#20154
          Width = 80
        end>
    end
  end
  object ScrollBox2: TScrollBox
    Left = 283
    Top = 35
    Width = 591
    Height = 470
    Align = alClient
    TabOrder = 1
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 587
      Height = 22
      Align = alTop
      BevelOuter = bvNone
      Caption = #20986#24211#26126#32454
      Color = 13550220
      TabOrder = 0
    end
    object DBGridEh3: TDBGridEh
      Left = 0
      Top = 22
      Width = 587
      Height = 444
      Align = alClient
      Color = clInfoBk
      DataSource = DM.CKDP_DS
      FixedColor = 13550220
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghHighlightFocus, dghClearSelection]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'itemname'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #20135#21697#21517#31216
          Width = 110
        end
        item
          EditButtons = <>
          FieldName = 'ITEM_SORT'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #31867#21035
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ITEM_UNIT'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21333#20301
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ITEM_PRICE'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'ITEM_NUM'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = 'ITEM_SHNUM'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #25439#32791#25968#37327
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = 'ITEM_MON'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #37329#39069
          Width = 70
        end>
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 874
    Height = 35
    AutoSize = True
    Bands = <
      item
        Control = ScrollBox3
        ImageIndex = -1
        MinHeight = 31
        Width = 870
      end>
    Color = clBtnFace
    ParentColor = False
    object ScrollBox3: TScrollBox
      Left = 9
      Top = 0
      Width = 857
      Height = 31
      BorderStyle = bsNone
      TabOrder = 0
      object BitBtn3: TBitBtn
        Left = 309
        Top = 2
        Width = 76
        Height = 27
        Caption = '(&R)'#21047#26032
        TabOrder = 0
        OnClick = BitBtn3Click
        Glyph.Data = {
          36040000424D3604000000000000360000002800000010000000100000000100
          2000000000000004000000000000000000000000000000000000FF00FF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF00FF00FFFFFF0052AD
          FF0018529400185A9C00185A9C00185A9C00185AA500185AA500185A9C00185A
          9C00185294001852940018528C00184A84004AADFF00FFFFFF00FFFFFF00185A
          A500186BBD001873CE001873CE001873CE001873CE001873CE001873CE001873
          CE001873CE00186BC600186BBD00185AA500104A7B00FFFFFF00FFFFFF001863
          AD001873CE00187BDE00187BDE00187BE700187BE700188CFF00188CFF00188C
          FF00188CFF00187BDE00186BC6001863AD0018528C00FFFFFF00FFFFFF00186B