unit_plancustlist.dfm

用友ERP功能扩展

object Form_PlanCustList: TForm_PlanCustList
  Left = 159
  Top = 189
  BorderStyle = bsDialog
  Caption = #23458#25143#35745#21010#26126#32454
  ClientHeight = 453
  ClientWidth = 692
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object PC_ProductAppend: TPageControl
    Left = 16
    Top = 16
    Width = 665
    Height = 385
    Cursor = crHandPoint
    ActivePage = TS_PlanAttribute
    TabOrder = 0
    object TS_PlanAttribute: TTabSheet
      Caption = '  '#23458#25143#35745#21010#26126#32454'  '
      object DBGrid_Plan: TdxDBGrid
        Left = 8
        Top = 8
        Width = 145
        Height = 89
        Cursor = crHandPoint
        BandMaxRowCount = 2
        Bands = <
          item
          end>
        DefaultLayout = False
        HeaderPanelMaxRowCount = 2
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        DataSource = Form_Data.DS_PlanPerson
        Filter.Criteria = {00000000}
        IndentDesc = 0
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnSizing]
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object DBGrid_PlanPlanPersonID: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PlanPersonID'
        end
        object DBGrid_PlanPBNO: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PBNO'
        end
        object DBGrid_PlancPersonName: TdxDBGridColumn
          Alignment = taCenter
          Caption = #32463#21150#20154
          HeaderAlignment = taCenter
          MinWidth = 16
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cPersonName'
        end
      end
      object DBGrid_Plans: TdxDBGrid
        Left = 288
        Top = 8
        Width = 361
        Height = 241
        Cursor = crHandPoint
        Bands = <
          item
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        OnDblClick = DBGrid_PlansDblClick
        DataSource = Form_Data.DS_PlanCustLists
        Filter.Criteria = {00000000}
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnSizing]
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object DBGrid_PlansID: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ID'
        end
        object DBGrid_PlanscPersonName: TdxDBGridColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cPersonName'
        end
        object DBGrid_PlansCustomerKCode: TdxDBGridColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CustomerKCode'
        end
        object DBGrid_PlansPLCustID: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PLCustID'
        end
        object DBGrid_PlanscCusAbbName: TdxDBGridColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusAbbName'
        end
        object DBGrid_PlansPTName: TdxDBGridMaskColumn
          Caption = #35745#21010#31867#21035
          HeaderAlignment = taCenter
          Width = 62
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PTName'
        end
        object DBGrid_PlansPBProd: TdxDBGridMaskColumn
          Caption = #36135#21697#20195#30721
          HeaderAlignment = taCenter
          Width = 72
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PBProd'
        end
        object DBGrid_PlanscInvName: TdxDBGridColumn
          Caption = #36135#21697#21517#31216
          HeaderAlignment = taCenter
          Width = 124
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cInvName'
        end
        object DBGrid_PlansPBMemo: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PBMemo'
        end
        object DBGrid_PlansColumn10: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          BandIndex = 0
          RowIndex = 0
          FieldName = #31867#21035
        end
        object DBGrid_PlansColumn11: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          BandIndex = 0
          RowIndex = 0
          FieldName = #29366#24577
        end
        object DBGrid_PlansPLMemo: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PLMemo'
        end
        object DBGrid_PlansPBNO: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PBNO'
        end
        object DBGrid_PlansPLNO: TdxDBGridMaskColumn
          HeaderAlignment = taCenter
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PLNO'
        end
      end
      object dxDBGrid1: TdxDBGrid
        Left = 8
        Top = 104
        Width = 145
        Height = 241
        Cursor = crHandPoint
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
        DataSource = Form_Data.DS_PlanCustLevel
        Filter.Criteria = {00000000}
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnSizing]
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid1cPersonName: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cPersonName'
        end
        object dxDBGrid1cPersonCode: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cPersonCode'
        end
        object dxDBGrid1cCusRankCode: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusRankCode'
        end
        object dxDBGrid1cCusRankName: TdxDBGridColumn
          Alignment = taLeftJustify
          Caption = #23458#25143#32423#21035
          HeaderAlignment = taCenter
          Width = 120
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusRankName'
        end
      end
      object DBGrid_PlanCustList: TdxDBGrid
        Left = 161
        Top = 8
        Width = 120
        Height = 241
        Cursor = crHandPoint
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 3
        DataSource = Form_Data.DS_PlanCustList
        Filter.Criteria = {00000000}
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnSizing]
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object DBGrid_PlanCustListcCusPPerson: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusPPerson'
        end
        object DBGrid_PlanCustListCustomerKCode: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CustomerKCode'
        end
        object DBGrid_PlanCustListcCusAbbName: TdxDBGridColumn
          Alignment = taCenter
          Caption = #23458#25143#21517#31216
          HeaderAlignment = taCenter
          Width = 96
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusAbbName'
        end
      end
      object cxDBLabel1: TcxDBLabel
        Left = 288
        Top = 328
        DataBinding.DataField = 'PLMemo'
        DataBinding.DataSource = Form_Data.DS_PlanCustLists
        ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.4'
        ParentColor = False
        Style.Color = clCream
        Height = 21
        Width = 193
      end
      object dxDBGrid2: TdxDBGrid
        Left = 160
        Top = 256
        Width = 121
        Height = 89
        Cursor = crHandPoint
        BandMaxRowCount = 2
        Bands = <
          item
          end>
        DefaultLayout = False
        HeaderPanelMaxRowCount = 2
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 5
        DataSource = Form_Data.DS_ListType
        Filter.Criteria = {00000000}
        IndentDesc = 0
        OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
        OptionsCustomize = [edgoBandMoving, edgoBandSizing, edgoColumnSizing]
        OptionsDB = [edgoCancelOnExit, edgoCanNavigation, edgoUseBookmarks]
        OptionsView = [edgoBandHeaderWidth, edgoRowSelect, edgoUseBitmap]
        object dxDBGrid2cCusAbbName: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusAbbName'
        end
        object dxDBGrid2cCusRankCode: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusRankCode'
        end
        object dxDBGrid2cCusCode: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cCusCode'
        end
        object dxDBGrid2TypeID: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'TypeID'
        end
        object dxDBGrid2TypeName: TdxDBGridMaskColumn
          Alignment = taCenter
          Caption = #36827#24230#31867#21035
          HeaderAlignment = taCenter
          Width = 96
          BandIndex = 0
          RowIndex = 0
          FieldName = 'TypeName'
        end
        object dxDBGrid2ID: TdxDBGridColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ID'
        end
      end
      object cxDBMemo1: TcxDBMemo
        Left = 288
        Top = 256
        DataBinding.DataField = 'PBMemo'
        DataBinding.DataSource = Form_Data.DS_PlanCustLists
        Properties.ReadOnly = True
        Style.Color = clSkyBlue
        TabOrder = 6
        Height = 65
        Width = 361
      end
      object cxDBLabel2: TcxDBLabel
        Left = 560
        Top = 328
        DataBinding.DataField = 'PlanNO'
        DataBinding.DataSource = Form_Data.DS_PlanCustLists
        ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.4'
        ParentColor = False
        Style.Color = clCream
        Height = 21
        Width = 89
      end
      object cxDBLabel3: TcxDBLabel
        Left = 488
        Top = 328
        DataBinding.DataField = 'PrintName'
        DataBinding.DataSource = Form_Data.DS_PlanCustLists
        ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.4'
        ParentColor = False
        Style.Color = clCream
        Height = 21
        Width = 73
      end
    end
  end
end