power_unit.~dfm

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

object POWER_Form: TPOWER_Form
  Left = 183
  Top = 42
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #26435#38480#31649#29702
  ClientHeight = 523
  ClientWidth = 465
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 0
    Width = 233
    Height = 481
    Ctl3D = False
    DataSource = USEDS
    FixedColor = 13550220
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    OptionsEh = [dghHighlightFocus, dghClearSelection, dghDialogFind]
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGridEh1Enter
    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
  object BitBtn1: TBitBtn
    Left = 384
    Top = 496
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object CheckTree1: TCheckTree
    Left = 240
    Top = 0
    Width = 225
    Height = 481
    OnStateChange = CheckTree1StateChange
    Ctl3D = False
    Indent = 19
    ParentCtl3D = False
    SelectionPen.Color = clBtnShadow
    StateImages = CheckTree1.CheckImages
    TabOrder = 2
    OnEditing = CheckTree1Editing
    OnEnter = CheckTree1Enter
  end
  object USEADOQ: TADOQuery
    Connection = DM.ADOC
    CursorType = ctStatic
    BeforeOpen = USEADOQBeforeOpen
    AfterOpen = USEADOQAfterOpen
    AfterScroll = USEADOQAfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CUST_ITEM')
    Left = 104
    Top = 488
    object USEADOQCUST_NO: TStringField
      FieldName = 'CUST_NO'
      Size = 15
    end
    object USEADOQCUST_NAME: TStringField
      FieldName = 'CUST_NAME'
    end
    object USEADOQCUST_PASS: TStringField
      FieldName = 'CUST_PASS'
      Size = 10
    end
  end
  object qryDisplayPurview: TADOQuery
    Connection = DM.ADOC
    Parameters = <>
    Left = 168
    Top = 488
  end
  object qryRefreshPurview: TADOQuery
    Connection = DM.ADOC
    Parameters = <>
    Left = 136
    Top = 488
  end
  object USEDS: TDataSource
    DataSet = USEADOQ
    Left = 72
    Top = 488
  end
end