D10SZKaiXiYa/B04采购计划管理/U_YarnPurchasePlanPut.dfm

inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
  Left = 219
  Top = 76
  Caption = #37319#36141#35745#21010#24405#20837
  ClientHeight = 651
  ClientWidth = 1524
  Color = clWhite
  Font.Charset = GB2312_CHARSET
  Font.Height = -16
  OldCreateOrder = True
  Position = poScreenCenter
  WindowState = wsMaximized
  ExplicitWidth = 1540
  ExplicitHeight = 690
  PixelsPerInch = 96
  TextHeight = 21
  object ToolBar1: TToolBar [0]
    Tag = 1
    Left = 0
    Top = 0
    Width = 1524
    Height = 30
    AutoSize = True
    ButtonHeight = 30
    ButtonWidth = 99
    Caption = 'ToolBar1'
    Color = clWhite
    DisabledImages = DataLink_PurchasePlan.cxImageList_bar
    Images = DataLink_PurchasePlan.cxImageList_bar
    List = True
    ParentColor = False
    ShowCaptions = True
    TabOrder = 0
    object TBSave: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #20445#23384
      ImageIndex = 16
      OnClick = TBSaveClick
    end
    object ToolButton3: TToolButton
      Left = 71
      Top = 0
      AutoSize = True
      Caption = #20445#23384#26684#24335
      ImageIndex = 16
      OnClick = ToolButton3Click
    end
    object TBClose: TToolButton
      Left = 174
      Top = 0
      AutoSize = True
      Caption = #20851#38381
      ImageIndex = 7
      OnClick = TBCloseClick
    end
  end
  object ToolBar2: TToolBar [1]
    Tag = 1
    Left = 0
    Top = 156
    Width = 1524
    Height = 30
    AutoSize = True
    ButtonHeight = 30
    ButtonWidth = 115
    Caption = 'ToolBar1'
    Color = clBtnFace
    DisabledImages = DataLink_PurchasePlan.cxImageList_bar
    EdgeInner = esNone
    EdgeOuter = esNone
    Images = DataLink_PurchasePlan.cxImageList_bar
    List = True
    ParentColor = False
    ShowCaptions = True
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #32433#32447#26723#26696
      ImageIndex = 2
      OnClick = ToolButton1Click
    end
    object ToolButton4: TToolButton
      Left = 103
      Top = 0
      AutoSize = True
      Caption = #26426#29289#26009#26723#26696
      ImageIndex = 2
      OnClick = ToolButton4Click
    end
    object ToolButton2: TToolButton
      Left = 222
      Top = 0
      AutoSize = True
      Caption = #21024#34892
      ImageIndex = 6
      OnClick = ToolButton2Click
    end
  end
  object cxGrid1: TcxGrid [2]
    Left = 0
    Top = 186
    Width = 1479
    Height = 465
    Align = alClient
    BorderStyle = cxcbsNone
    TabOrder = 2
    object Tv1: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      ScrollbarAnnotations.CustomAnnotations = <>
      OnFocusedRecordChanged = Tv1FocusedRecordChanged
      DataController.DataSource = DS_1
      DataController.Filter.AutoDataSetFilter = True
      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = '0'
          Position = spFooter
        end
        item
          Format = '0'
          Position = spFooter
          Column = v1PRTOrderQty
        end
        item
          Format = '0'
          Position = spFooter
          Column = v1PRTPrice
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
          Column = v1PRTOrderQty
        end
        item
          Kind = skSum
        end
        item
          Kind = skSum
          Column = Tv1Column9
        end
        item
          Kind = skSum
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.FocusCellOnTab = True
      OptionsBehavior.GoToNextCellOnEnter = True
      OptionsBehavior.FocusCellOnCycle = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      object Tv1Column7: TcxGridDBColumn
        Tag = 9
        Caption = #36873#25321
        DataBinding.FieldName = 'SSel'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.ImmediatePost = True
        Properties.NullStyle = nssUnchecked
        HeaderAlignmentHorz = taCenter
        Width = 41
      end
      object v1XHNo: TcxGridDBColumn
        Caption = #24207#21495
        DataBinding.FieldName = 'SerialNo'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        SortIndex = 0
        SortOrder = soAscending
        Width = 70
      end
      object Tv1Column18: TcxGridDBColumn
        Caption = #31867#22411
        DataBinding.FieldName = 'C_Degree'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxButtonEditProperties'
        Properties.Buttons = <
          item
            Default = True
            Kind = bkEllipsis
          end>
        Properties.ReadOnly = True
        Properties.OnButtonClick = Tv1Column18PropertiesButtonClick
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 72
      end
      object Tv1Column2: TcxGridDBColumn
        Caption = #32534#21495
        DataBinding.FieldName = 'Y_Code'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 67
      end
      object Tv1Column16: TcxGridDBColumn
        Caption = #21697#21517
        DataBinding.FieldName = 'Y_Code'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 80
      end
      object v1Column4: TcxGridDBColumn
        Caption = #35268#26684
        DataBinding.FieldName = 'Y_Spec'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 70
      end
      object v1Column5: TcxGridDBColumn
        Caption = #25104#20998
        DataBinding.FieldName = 'Y_Composition'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 122
      end
      object Tv1Column11: TcxGridDBColumn
        Caption = #20998#29305'(Dtex)'
        DataBinding.FieldName = 'Denier'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 117
      end
      object Tv1Column14: TcxGridDBColumn
        Caption = #25903#25968
        DataBinding.FieldName = 'ZS'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 82
      end
      object Tv1Column15: TcxGridDBColumn
        Caption = #32442#27861
        DataBinding.FieldName = 'FF'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 70
      end
      object Tv1Column1: TcxGridDBColumn
        Caption = #25467#24230
        DataBinding.FieldName = 'ND'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.Items.Strings = (
          'A'
          'B'
          'C')
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 95
      end
      object Tv1Column5: TcxGridDBColumn
        Caption = #39068#33394
        DataBinding.FieldName = 'Y_Color'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 108
      end
      object v1PRTOrderQty: TcxGridDBColumn
        Caption = #25968#37327
        DataBinding.FieldName = 'Qty'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Width = 94
      end
      object v1OrderUnit: TcxGridDBColumn
        Caption = #21333#20301
        DataBinding.FieldName = 'QtyUnit'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxComboBoxProperties'
        Properties.DropDownListStyle = lsEditFixedList
        Properties.Items.Strings = (
          'Kg'
          'M'
          'Y')
        HeaderAlignmentHorz = taCenter
        Width = 80
      end
      object v1PRTPrice: TcxGridDBColumn
        Caption = #21333#20215
        DataBinding.FieldName = 'Price'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
        HeaderAlignmentHorz = taCenter
        Options.Sorting = False
        Width = 90
      end
      object Tv1Column9: TcxGridDBColumn
        Caption = #37329#39069
        DataBinding.FieldName = 'Amount'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 90
      end
      object Tv1Column3: TcxGridDBColumn
        Caption = #20132#36135#26085#26399
        DataBinding.FieldName = 'SDlyDate'
        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxDateEditProperties'
        HeaderAlignmentHorz = taCenter
        Width = 109
      end
      object v1Column2: TcxGridDBColumn
        Caption = #22791#27880
        DataBinding.FieldName = 'SNote'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Width = 122
      end
    end
    object cxGrid1Level1: TcxGridLevel
      GridView = Tv1
    end
  end
  object ScrollBox1: TScrollBox [3]
    Left = 0
    Top = 30
    Width = 1524
    Height = 126
    Align = alTop
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clWhite
    Ctl3D = False
    ParentColor = False
    ParentCtl3D = False
    TabOrder = 3
    object lbl5: TLabel
      Left = 32
      Top = 50
      Width = 80
      Height = 21
      Caption = #19979#21333#26085#26399#65306
    end
    object lbl6: TLabel
      Left = 32
      Top = 10
      Width = 80
      Height = 21
      Caption = #37319#36141#21333#21495#65306
    end
    object lbl7: TLabel
      Left = 616
      Top = 10
      Width = 80
      Height = 21
      Caption = #25105#26041#21333#20301#65306
    end
    object lbl8: TLabel
      Left = 328
      Top = 10
      Width = 80
      Height = 21
      AutoSize = False
      Caption = #20379#24212#21830#65306
    end
    object lbl1: TLabel
      Left = 616
      Top = 50
      Width = 80
      Height = 21
      Caption = #20184#27454#26041#24335#65306
    end
    object lbl3: TLabel
      Left = 328
      Top = 50
      Width = 80
      Height = 21
      Caption = #36816#36755#26041#24335#65306
    end
    object Label23: TLabel
      Left = 904
      Top = 50
      Width = 80
      Height = 21
      AutoSize = False
      Caption = #31867#22411#65306
    end
    object Label1: TLabel
      Left = 904
      Top = 10
      Width = 80
      Height = 21
      Caption = #23384#25918#21333#20301#65306
      Visible = False
    end
    object Label2: TLabel
      Left = 34
      Top = 95
      Width = 78
      Height = 21
      Caption = #31246'      '#29575#65306
    end
    object PurNo: TcxTextEdit
      Tag = 2
      Left = 119
      Top = 4
      TabOrder = 0
      Text = #33258#21160#29983#25104
      Width = 200
    end
    object Sellname: TcxButtonEdit
      Tag = 2
      Left = 414
      Top = 3
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = SellnamePropertiesButtonClick
      Style.ButtonStyle = btsDefault
      TabOrder = 1
      OnClick = SellnameClick
      OnDblClick = BuyNameDblClick
      Width = 200
    end
    object BuyName: TcxButtonEdit
      Tag = 2
      Left = 700
      Top = 4
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = BuyNamePropertiesButtonClick
      Style.ButtonStyle = btsDefault
      TabOrder = 2
      OnClick = SellnameClick
      OnDblClick = BuyNameDblClick
      Width = 200
    end
    object PurDate: TcxDateEdit
      Tag = 2
      Left = 119
      Top = 44
      Properties.ShowTime = False
      TabOrder = 3
      Width = 200
    end
    object Payment: TcxButtonEdit
      Tag = 2
      Left = 698
      Top = 43
      Hint = 'Payment/'#20184#27454#26041#24335
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = ShipMentPropertiesButtonClick
      Style.ButtonStyle = btsDefault
      TabOrder = 4
      OnClick = SellnameClick
      OnDblClick = BuyNameDblClick
      Width = 200
    end
    object ShipMent: TcxButtonEdit
      Tag = 2
      Left = 414
      Top = 44
      Hint = 'ShipMent/'#36816#36755#26041#24335
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = ShipMentPropertiesButtonClick
      Style.ButtonStyle = btsDefault
      TabOrder = 5
      OnClick = SellnameClick
      OnDblClick = BuyNameDblClick
      Width = 200
    end
    object PurType: TcxComboBox
      Tag = 2
      Left = 988
      Top = 44
      Properties.Items.Strings = (
        #35746#21333
        #22791#36135
        #35797#26679
        #36192#36865)
      TabOrder = 6
      Width = 200
    end
    object StkName: TcxButtonEdit
      Tag = 2
      Left = 988
      Top = 4
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.ReadOnly = True
      Properties.OnButtonClick = StkNamePropertiesButtonClick
      Style.ButtonStyle = btsDefault
      TabOrder = 7
      Visible = False
      OnClick = SellnameClick
      OnDblClick = BuyNameDblClick
      Width = 200
    end
    object ShuiLv: TcxTextEdit
      Tag = 2
      Left = 119
      Top = 91
      Properties.OnEditValueChanged = ShuiLvPropertiesEditValueChanged
      TabOrder = 8
      Width = 200
    end
  end
  object cxGrid2: TcxGrid [4]
    Left = 1479
    Top = 186
    Width = 45
    Height = 465
    Align = alRight
    BorderStyle = cxcbsNone
    PopupMenu = pm_sub
    TabOrder = 4
    Visible = False
    object TV2: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      ScrollbarAnnotations.CustomAnnotations = <>
      DataController.DataSource = DS_2
      DataController.Filter.AutoDataSetFilter = True
      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = '0'
          Position = spFooter
        end
        item
          Format = '0'
          Position = spFooter
        end
        item
          Format = '0'
          Position = spFooter
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skSum
        end
        item
          Kind = skSum
        end
        item
          Kind = skSum
        end>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.FocusCellOnTab = True
      OptionsBehavior.GoToNextCellOnEnter = True
      OptionsBehavior.FocusCellOnCycle = True
      OptionsCustomize.ColumnFiltering = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      object TV2Column2: TcxGridDBColumn
        Caption = #21333#20215
        DataBinding.FieldName = 'Price'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 88
      end
      object TV2Column1: TcxGridDBColumn
        Caption = #26085#26399
        DataBinding.FieldName = 'PurDate'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 137
      end
      object TV2Column4: TcxGridDBColumn
        Caption = #20379#24212#21830
        DataBinding.FieldName = 'Sellname'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 94
      end
      object TV2Column3: TcxGridDBColumn
        Caption = #21697#21517
        DataBinding.FieldName = 'Y_Name'
        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 96
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = TV2
    end
  end
  inherited ADOQueryBaseCmd: TADOQuery
    Connection = DataLink_PurchasePlan.ADOLink
    Left = 1185
    Top = 328
  end
  inherited ADOQueryBaseTemp: TADOQuery
    Connection = DataLink_PurchasePlan.ADOLink
    Left = 1057
    Top = 289
  end
  inherited ImageList_new32: TImageList
    Left = 968
    Top = 360
  end
  inherited cxImageList_bar: TcxImageList
    FormatVersion = 1
    Left = 527
    Top = 350
    DesignInfo = 22938127
  end
  object ADOTemp: TADOQuery
    Connection = DataLink_PurchasePlan.ADOLink
    LockType = ltReadOnly
    Parameters = <>
    Left = 792
    Top = 293
  end
  object ADOCmd: TADOQuery
    Connection = DataLink_PurchasePlan.ADOLink
    Parameters = <>
    Left = 952
    Top = 341
  end
  object DS_1: TDataSource
    DataSet = Order_Sub
    Left = 860
    Top = 404
  end
  object Order_Sub: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'SerialNo'
    Params = <>
    Left = 716
    Top = 404
  end
  object cxgrdpmn1: TcxGridPopupMenu
    Grid = cxGrid1
    PopupMenus = <>
    Left = 464
    Top = 348
  end
  object pm_sub: TPopupMenu
    Left = 624
    Top = 536
    object N1: TMenuItem
      Caption = #26222#36890#26367#25442
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20135#21697#26367#25442
      OnClick = N2Click
    end
  end
  object DS_2: TDataSource
    DataSet = CDS_2
    Left = 772
    Top = 476
  end
  object CDS_2: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 708
    Top = 468
  end
  object GPM_2: TcxGridPopupMenu
    PopupMenus = <>
    Left = 648
    Top = 476
  end
  object ADO_2: TADOQuery
    Connection = DataLink_PurchasePlan.ADOLink
    LockType = ltReadOnly
    Parameters = <>
    Left = 576
    Top = 461
  end
end