cust_unit.dfm

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

object CUST_Form: TCUST_Form
  Left = 201
  Top = 152
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #21592#24037#31649#29702
  ClientHeight = 456
  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
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 217
    Top = 38
    Width = 8
    Height = 418
    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
    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 ToolButton2: TToolButton
      Left = 437
      Top = 0
      Caption = #35835#21345
      ImageIndex = 65
      Visible = False
      OnClick = ToolButton2Click
    end
    object ToolButton6: TToolButton
      Left = 483
      Top = 0
      Caption = #20889#21345
      ImageIndex = 65
      Visible = False
      OnClick = ToolButton6Click
    end
    object tbbtnFirst: TToolButton
      Left = 529
      Top = 0
      AutoSize = True
      Caption = #19979#20256
      ImageIndex = 41
      ParentShowHint = False
      ShowHint = True
      OnClick = tbbtnFirstClick
    end
    object ToolButton23: TToolButton
      Left = 566
      Top = 0
      Width = 8
      Caption = 'ToolButton23'
      ImageIndex = 19
      Style = tbsSeparator
    end
    object tbbtnSearch: TToolButton
      Left = 574
      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 = 418
    ActivePage = TabSheet1
    Align = alLeft
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #21592#24037#21015#34920
      object DBGridEh1: TDBGridEh
        Left = 7
        Top = 8
        Width = 193
        Height = 369
        DataSource = DM.CUST_DS
        FixedColor = 13550220
        FooterColor = clWindow
        FooterFont.Charset = ANSI_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
        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 = 'CUST_NO'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #32534#21495
            Width = 75
          end
          item
            EditButtons = <>
            FieldName = 'CUST_NAME'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #22995#21517
            Width = 95
          end>
      end
    end
  end
  object PageControl2: TPageControl
    Left = 225
    Top = 38
    Width = 457
    Height = 418
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 0
    TabOrder = 2
    object TabSheet2: TTabSheet
      Caption = #21592#24037#20449#24687
      object Label1: TLabel
        Left = 40
        Top = 40
        Width = 52
        Height = 13