unit_productappend.dfm

用友ERP功能扩展

object Form_ProductAppend: TForm_ProductAppend
  Left = 259
  Top = 172
  BorderStyle = bsDialog
  Caption = #26032#22686#36135#21697#36164#26009
  ClientHeight = 393
  ClientWidth = 662
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object PC_ProductAppend: TPageControl
    Left = 16
    Top = 16
    Width = 630
    Height = 329
    Cursor = crHandPoint
    ActivePage = TS_ProductAttribute
    TabOrder = 0
    object TS_ProductAttribute: TTabSheet
      Caption = '  '#21830#21697#23646#24615'  '
      object RG_ProductType: TcxRadioGroup
        Left = 8
        Top = 8
        Caption = ' '#21830#21697#31867#21035' '
        Properties.Items = <>
        TabOrder = 1
        Height = 65
        Width = 193
      end
      object LCB_ProductType: TcxLookupComboBox
        Left = 24
        Top = 32
        Cursor = crHandPoint
        Properties.KeyFieldNames = 'cInvCName'
        Properties.ListColumns = <
          item
            Caption = #31867#21035#21517#31216
            Width = 70
            FieldName = 'cInvCName'
          end
          item
            Caption = #31867#21035#20195#30721
            Width = 70
            FieldName = 'cInvCCode'
          end>
        Properties.ListSource = Form_Data.DS_ProductType
        Properties.OnChange = LCB_ProductTypePropertiesChange
        TabOrder = 0
        Width = 145
      end
      object RG_ProductLable: TcxRadioGroup
        Left = 8
        Top = 72
        Caption = ' '#21830#26631' + '#27454#21495' '
        Properties.Items = <>
        TabOrder = 15
        Height = 169
        Width = 193
      end
      object CBK_NewLabel: TCheckBox
        Left = 24
        Top = 104
        Width = 97
        Height = 17
        Caption = #26082#26377#21697#29260
        Checked = True
        State = cbChecked
        TabOrder = 2
        OnClick = CBK_NewLabelClick
      end
      object LCB_ProductLabel: TcxLookupComboBox
        Left = 24
        Top = 128
        Cursor = crHandPoint
        Properties.KeyFieldNames = 'ProductLabel'
        Properties.ListColumns = <
          item
            Caption = #21697#29260#21517#31216
            HeaderAlignment = taCenter
            Width = 70
            FieldName = 'ProductLabel'
          end
          item
            Caption = #21697#29260#31867#22411
            HeaderAlignment = taCenter
            SortOrder = soDescending
            Width = 70
            FieldName = 'LabelType'
          end>
        Properties.ListSource = Form_Data.DS_ProductLabel
        Properties.OnChange = LCB_ProductLabelPropertiesChange
        TabOrder = 3
        Width = 145
      end
      object CBK_LabelForSupply: TcxCheckBox
        Left = 24
        Top = 150
        Caption = #21305#37197#20379#24212#21830
        State = cbsChecked
        TabOrder = 4
        OnClick = LCB_ProductLabelPropertiesChange
        Width = 89
      end
      object LCB_ProductSupply: TcxLookupComboBox
        Left = 24
        Top = 168
        Cursor = crHandPoint
        Properties.KeyFieldNames = 'cVenName'
        Properties.ListColumns = <
          item
            Caption = #20379#24212#21830#21517#31216
            HeaderAlignment = taCenter
            MinWidth = 70
            SortOrder = soAscending
            Width = 70
            FieldName = 'cVenName'
          end
          item
            Caption = #32534#30721
            HeaderAlignment = taCenter
            MinWidth = 48
            Width = 48
            FieldName = 'cVenCode'
          end>
        Properties.ListSource = Form_Data.DS_Supply
        TabOrder = 5
        Width = 145
      end
      object TE_ProductNumber: TcxTextEdit
        Left = 64
        Top = 208
        Cursor = crHandPoint
        Properties.Alignment.Horz = taRightJustify
        Properties.OnChange = TE_ProductNumberPropertiesChange
        TabOrder = 6
        Width = 105
      end
      object RG_GB_UnitPrice: TcxRadioGroup
        Left = 216
        Top = 8
        Caption = ' '#20215#26684' '
        ParentShowHint = False
        Properties.Items = <>
        ShowHint = False
        TabOrder = 16
        Height = 121
        Width = 193
      end
      object TE_SupplyPrice: TcxTextEdit
        Left = 288
        Top = 32
        Cursor = crHandPoint
        Properties.Alignment.Horz = taRightJustify
        TabOrder = 7
        Width = 97
      end
      object TE_SalePrice: TcxTextEdit
        Left = 288
        Top = 64
        Cursor = crHandPoint
        Properties.Alignment.Horz = taRightJustify
        TabOrder = 8
        Width = 97
      end
      object TE_OtherAreaPrice: TcxTextEdit
        Left = 288
        Top = 96
        Cursor = crHandPoint
        Properties.Alignment.Horz = taRightJustify
        TabOrder = 9
        Width = 97
      end
      object Label_SupplyPrice: TcxLabel
        Left = 240
        Top = 32
        Caption = #37319#36141#20215
      end
      object Label_SalePrice: TcxLabel
        Left = 240
        Top = 64
        Caption = #38144#21806#20215
      end
      object Label_OtherAreaPrice: TcxLabel
        Left = 240
        Top = 96
        Caption = #22806#30465#20215
      end
      object RG_PLanDate: TcxRadioGroup
        Left = 216
        Top = 136
        Caption = ' '#38138#36135#20449#24687' '
        ParentShowHint = False
        Properties.Items = <>
        ShowHint = False
        TabOrder = 20
        Height = 105
        Width = 193
      end
      object TE_CustQTY: TcxTextEdit
        Left = 288
        Top = 160
        Cursor = crHandPoint
        Properties.Alignment.Horz = taRightJustify
        TabOrder = 10
        Width = 97
      end
      object TE_PlanMemo: TcxTextEdit
        Left = 240
        Top = 208
        Cursor = crHandPoint
        TabOrder = 11
        Width = 145
      end
      object Label_CustQTY: TcxLabel
        Left = 240
        Top = 160
        Caption = #23478#25968
      end
      object Label_PlanMemo: TcxLabel
        Left = 240
        Top = 184
        Caption = #35828#26126
      end
      object RG_ProductBasicData: TcxRadioGroup
        Left = 8
        Top = 248
        Properties.Items = <>
        TabOrder = 23
        Height = 41
        Width = 609
      end
      object Label_ProductNumber: TcxLabel
        Left = 24
        Top = 208
        Caption = #27454#21495
      end
      object TE_ProductName: TcxTextEdit
        Left = 280
        Top = 260
        Cursor = crHandPoint
        Properties.Alignment.Horz = taLeftJustify
        Style.Color = clInactiveBorder
        TabOrder = 25
        Width = 321
      end
      object Label_ProductCodeLabel: TcxLabel
        Left = 24
        Top = 264
        Caption = #36135#21697#32534#30721
      end
      object Label_ProductNameLabel: TcxLabel
        Left = 216
        Top = 264
        Caption = #36135#21697#21517#31216
      end
      object RG_OtherAttribute: TcxRadioGroup
        Left = 424
        Top = 8
        Caption = ' '#20854#23427#23646#24615' '
        ParentShowHint = False
        Properties.Items = <>
        ShowHint = False
        TabOrder = 28
        Height = 233
        Width = 193
      end
      object DE_NewDate: TcxDateEdit
        Left = 496
        Top = 32
        Cursor = crHandPoint
        Properties.Alignment.Horz = taCenter
        Properties.DateOnError = deToday
        TabOrder = 12
        Width = 105
      end
      object LCB_UnitGroup: TcxLookupComboBox
        Left = 496
        Top = 56
        Cursor = crHandPoint
        Properties.KeyFieldNames = 'cGroupName'
        Properties.ListColumns = <
          item
            Caption = #21333#20301#32452#21517#31216
            FieldName = 'cGroupName'
          end
          item
            Caption = #21333#20301#32452#32534#30721
            FieldName = 'cGroupCode'
          end>
        Properties.ListSource = Form_Data.DS_ComputationGroup
        Properties.OnChange = LCB_UnitGroupPropertiesChange
        TabOrder = 13
        Width = 105
      end
      object LCB_Unit: TcxLookupComboBox
        Left = 496
        Top = 80
        Cursor = crHandPoint
        Properties.KeyFieldNames = 'cComUnitName'
        Properties.ListColumns = <
          item
            Caption = #21333#20301#21517#31216
            FieldName = 'cComUnitName'
          end
          item
            Caption = #21333#20301#32534#30721
            FieldName = 'cComunitCode'
          end>
        Properties.ListSource = Form_Data.DS_ComputationUnit
        TabOrder = 14
        Width = 105
      end
      object Label_NewDate: TcxLabel
        Left = 440
        Top = 32
        Caption = #26032#27454#26085#26399
      end
      object Label_UnitGroup: TcxLabel
        Left = 440
        Top = 56
        Caption = #21333#20301#32452
      end
      object Label_Unit: TcxLabel
        Left = 440
        Top = 80
        Caption = #20027#21333#20301
      end
      object TE_ProductCode: TcxTextEdit
        Left = 88
        Top = 260
        Cursor = crHandPoint
        Properties.Alignment.Horz = taLeftJustify
        Style.Color = clInactiveBorder
        TabOrder = 32
        Width = 113
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 440
    Top = 352
    Width = 99
    Height = 33
    Cursor = crHandPoint
    Caption = '  '#30830'  '#23450
    TabOrder = 1
    OnClick = BitBtn1Click
    Kind = bkOK
  end
  object BitBtn2: TBitBtn
    Left = 544
    Top = 352
    Width = 99
    Height = 33
    Cursor = crHandPoint
    Caption = '  '#21462'  '#28040
    TabOrder = 2
    OnClick = BitBtn2Click
    Kind = bkCancel
  end
end