object frmPLRW: TfrmPLRW Left = 191 Top = 31 Caption = #25209#37327#26032#22686#20219#21153 ClientHeight = 534 ClientWidth = 1480 Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #24494#36719#38597#40657 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar Tag = 1 Left = 0 Top = 0 Width = 1480 Height = 30 AutoSize = True ButtonHeight = 30 ButtonWidth = 83 Caption = 'ToolBar1' Color = clBtnFace DisabledImages = DataLink_TatPlan.cxImageList_bar EdgeInner = esNone EdgeOuter = esNone Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_TatPlan.cxImageList_bar List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 16 OnClick = TBSaveClick end object ToolButton1: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 2 Visible = False OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 6 OnClick = ToolButton2Click end object TBClose: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end object ToolButton4: TToolButton Left = 252 Top = 0 AutoSize = True Caption = #19968#38190#21516#27493 ImageIndex = 13 OnClick = ToolButton4Click end object ToolButton3: TToolButton Left = 339 Top = 0 AutoSize = True Caption = #21462#21495 ImageIndex = 12 Visible = False OnClick = ToolButton3Click end end object cxGrid1: TcxGrid Left = 0 Top = 30 Width = 931 Height = 504 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skMax end item Kind = skCount end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.GroupFooters = gfAlwaysVisible object Tv1Column9: TcxGridDBColumn Caption = #20219#21153#21333#21495 DataBinding.FieldName = 'PMID' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 end object Tv1Column1: TcxGridDBColumn Caption = #20219#21153#31867#22411 DataBinding.FieldName = 'PMType' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( #23613#26426#23433#25490 #19979#24067#25913#26426 #19978#36724#25913#26426) Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 100 end object Tv1Column2: TcxGridDBColumn Caption = #26426#21488#21495 DataBinding.FieldName = 'MCNO' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv1Column3: TcxGridDBColumn Caption = #32455#36896#21333#21495 DataBinding.FieldName = 'OrderNo' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = Tv1Column3PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 100 end object Tv1Column4: TcxGridDBColumn Caption = #22383#24067#32534#21495 DataBinding.FieldName = 'C_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv1Column5: TcxGridDBColumn Caption = #22383#24067#21517#31216 DataBinding.FieldName = 'C_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv1Column6: TcxGridDBColumn Caption = #25805#20316#31867#22411 DataBinding.FieldName = 'action' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsEditFixedList Properties.Items.Strings = ( #19978#36724 #25509#22836) Properties.ReadOnly = False HeaderAlignmentHorz = taCenter Width = 100 end object Tv1Column7: TcxGridDBColumn Caption = #19978#26426#32428#23494 DataBinding.FieldName = 'C_MachLatitudeDensity' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv1Column8: TcxGridDBColumn Caption = #19979#26426#32428#23494 DataBinding.FieldName = 'C_FinishLatitudeDensity' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object cxGrid2: TcxGrid Left = 931 Top = 30 Width = 549 Height = 504 Align = alRight TabOrder = 2 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'C_Code' end> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end 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 OptionsView.GroupByBox = False object cxGridDBColumn5: TcxGridDBColumn Caption = #34892#21495 DataBinding.FieldName = 'RowNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 end object cxGridDBColumn6: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'Y_Code' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False Options.Sorting = False Width = 112 end object TV2Column1: TcxGridDBColumn Caption = #21517#31216 DataBinding.FieldName = 'Yarn_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 end object TV2Column2: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 end object TV2Column3: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'PH' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = TV2Column3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 120 end object TV2Column4: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'BYIOID' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = TV2Column4PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 120 end end object cxGridLevel1: TcxGridLevel GridView = TV2 end end object ADOTemp: TADOQuery Connection = DataLink_TatPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 496 Top = 157 end object ADOCmd: TADOQuery Connection = DataLink_TatPlan.ADOLink Parameters = <> Left = 341 Top = 134 end object DataSource1: TDataSource DataSet = Order_Sub Left = 666 Top = 145 end object Order_Sub: TClientDataSet Aggregates = <> Params = <> Left = 760 Top = 178 end object cxStyleRepository1: TcxStyleRepository Left = 420 Top = 137 PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] end end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 566 Top = 201 end object DS_2: TDataSource DataSet = CDS_2 Left = 1098 Top = 241 end object CDS_2: TClientDataSet Aggregates = <> Params = <> Left = 1198 Top = 234 end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 1027 Top = 179 end end