inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList Left = 246 Top = 116 Caption = #32433#32447#37319#36141#35745#21010 ClientHeight = 736 ClientWidth = 1364 Font.Height = -16 FormStyle = fsMDIChild Visible = True ExplicitWidth = 1380 ExplicitHeight = 775 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1364 Height = 60 AutoSize = True ButtonHeight = 30 ButtonWidth = 131 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_PurchasePlan.cxImageList_bar Images = DataLink_PurchasePlan.cxImageList_bar List = True ParentColor = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 1 OnClick = TBRafreshClick end object TBFind: TToolButton Left = 71 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 0 OnClick = TBFindClick end object TBAdd: TToolButton Left = 142 Top = 0 AutoSize = True Caption = #26032#22686 ImageIndex = 9 OnClick = TBAddClick end object TBEdit: TToolButton Left = 213 Top = 0 AutoSize = True Caption = #20462#25913 ImageIndex = 3 OnClick = TBEditClick end object ToolButton2: TToolButton Left = 284 Top = 0 AutoSize = True Caption = #22797#21046 ImageIndex = 13 OnClick = ToolButton2Click end object ToolButton1: TToolButton Left = 355 Top = 0 AutoSize = True Caption = #26597#30475 ImageIndex = 4 OnClick = ToolButton1Click end object ToolButton5: TToolButton Left = 426 Top = 0 AutoSize = True Caption = #38468#20214 ImageIndex = 22 OnClick = ToolButton5Click end object TBPrint: TToolButton Left = 497 Top = 0 AutoSize = True Caption = #25171#21360 ImageIndex = 21 OnClick = TBPrintClick end object btnTijiao: TToolButton Left = 568 Top = 0 AutoSize = True Caption = #25552#20132 ImageIndex = 12 Wrap = True OnClick = btnTijiaoClick end object btnCXTijiao: TToolButton Left = 0 Top = 30 AutoSize = True Caption = #25764#38144#25552#20132 ImageIndex = 11 OnClick = btnCXTijiaoClick end object tchk: TToolButton Left = 103 Top = 30 AutoSize = True Caption = #23457#26680 ImageIndex = 12 OnClick = tchkClick end object Tnochk: TToolButton Left = 174 Top = 30 AutoSize = True Caption = #25764#38144#23457#26680 ImageIndex = 11 OnClick = TnochkClick end object btnWC: TToolButton Left = 277 Top = 30 AutoSize = True Caption = #23436#25104 ImageIndex = 12 OnClick = btnWCClick end object btnWCCX: TToolButton Left = 348 Top = 30 AutoSize = True Caption = #25764#38144#23436#25104 ImageIndex = 11 OnClick = btnWCCXClick end object Tqx: TToolButton Left = 451 Top = 30 AutoSize = True Caption = #21512#21516#21462#28040 ImageIndex = 14 OnClick = TqxClick end object Tnoqx: TToolButton Left = 554 Top = 30 AutoSize = True Caption = #25764#38144#21512#21516#21462#28040 ImageIndex = 11 OnClick = TnoqxClick end object ToolButton7: TToolButton Left = 689 Top = 30 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton7Click end object TBClose: TToolButton Left = 792 Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end end object cxGrid1: TcxGrid [1] Left = 0 Top = 165 Width = 1364 Height = 299 Align = alClient PopupMenu = pm1 TabOrder = 3 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = Tv1CellDblClick OnCustomDrawCell = Tv1CustomDrawCell OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 object v1Column4: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter Width = 53 end object v1OrdDate: TcxGridDBColumn Caption = #19979#21333#26085#26399 DataBinding.FieldName = 'PurDate' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False Styles.Header = DataLink_PurchasePlan.Default Width = 86 end object v1ConNo: TcxGridDBColumn Caption = #37319#36141#21333#21495 DataBinding.FieldName = 'PurNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False Styles.Header = DataLink_PurchasePlan.Default Width = 82 end object v1Column1: TcxGridDBColumn Caption = #20379#24212#21830 DataBinding.FieldName = 'SellName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False Styles.Header = DataLink_PurchasePlan.FontBlue Width = 94 end object v1CustomerNoName: TcxGridDBColumn Caption = #25105#26041#21333#20301 DataBinding.FieldName = 'BuyName' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False Styles.Header = DataLink_PurchasePlan.FoneClMaroon Width = 99 end object v1Column9: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Mnote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end object v1Column10: TcxGridDBColumn DataBinding.FieldName = 'status' DataBinding.IsNullValueType = True Visible = False Options.Editing = False VisibleForCustomization = False end object v1Column12: TcxGridDBColumn Caption = #38468#20214 DataBinding.FieldName = 'ISSC' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter Options.Editing = False Width = 50 end object v1Column13: TcxGridDBColumn Caption = #21046#21333#20154 DataBinding.FieldName = 'Filler' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 end object Tv1Column2: TcxGridDBColumn Caption = #26159#21542#21547#31246 DataBinding.FieldName = 'IsTax' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column1: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'PurType' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 124 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object Panel1: TPanel [2] Left = 0 Top = 60 Width = 1364 Height = 77 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False TabOrder = 1 object Label4: TLabel Left = 452 Top = 45 Width = 64 Height = 21 Caption = #25105#26041#21333#20301 end object Label9: TLabel Left = 24 Top = 45 Width = 64 Height = 21 Caption = #37319#36141#21333#21495 end object Label3: TLabel Left = 246 Top = 45 Width = 48 Height = 21 Caption = #20379#24212#21830 end object BuyName: TcxTextEdit Tag = 2 Left = 520 Top = 41 ParentFont = False TabOrder = 0 OnKeyPress = PurNoKeyPress Width = 150 end object PurNo: TcxTextEdit Tag = 2 Left = 92 Top = 41 ParentFont = False TabOrder = 1 OnKeyPress = PurNoKeyPress Width = 150 end object SellName: TcxTextEdit Tag = 2 Left = 298 Top = 41 ParentFont = False TabOrder = 2 OnKeyPress = PurNoKeyPress Width = 150 end inline frmFrameDateSel1: TfrmFrameDateSel Left = 2 Top = 2 Width = 1360 Height = 37 Align = alTop Color = clWhite ParentBackground = False ParentColor = False TabOrder = 3 ExplicitLeft = 2 ExplicitTop = 2 ExplicitWidth = 1360 inherited BegDate: TcxDateEdit ExplicitHeight = 33 end inherited EndDate: TcxDateEdit ExplicitHeight = 33 end inherited cbbType: TcxComboBox ExplicitHeight = 33 end end end object cxTabControl1: TcxTabControl [3] Left = 0 Top = 137 Width = 1364 Height = 28 Align = alTop TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 Properties.TabIndex = 0 Properties.Tabs.Strings = ( #26410#25552#20132 #24050#25552#20132 #24050#23457#26680 #24050#23436#25104 #24050#21462#28040 #20840#37096) OnChange = cxTabControl1Change ClientRectRight = 0 ClientRectTop = 0 end object cxSplitter1: TcxSplitter [4] Left = 0 Top = 464 Width = 1364 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom end object cxGrid2: TcxGrid [5] Left = 0 Top = 472 Width = 1364 Height = 264 Align = alBottom BorderStyle = cxcbsNone PopupMenu = pm2 TabOrder = 5 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 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 = cxGridDBColumn9 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 v1XHNo: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'SerialNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False SortIndex = 0 SortOrder = soAscending Styles.Header = DataLink_PurchasePlan.Default Width = 55 end object VC_SCSCode: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'Brand' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 end object cxGridDBColumn2: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'Y_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object v1Column5: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'Y_Spec' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 end object cxGridDBColumn4: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'Y_Composition' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object cxGridDBColumn5: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'Y_Color' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object TV2Column1: TcxGridDBColumn Caption = 'D'#25968 DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end object v1PRTOrderQty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_PurchasePlan.Default Width = 70 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 Options.Editing = False Styles.Header = DataLink_PurchasePlan.Default Width = 58 end object v1PRTPrice: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Styles.Header = DataLink_PurchasePlan.handBlack Width = 70 end object cxGridDBColumn9: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'Amount' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 84 end object v1Column2: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'SNote' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object TV2Column2: TcxGridDBColumn Caption = #20132#36135#26085#26399 DataBinding.FieldName = 'SDlyDate' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 109 end object TV2Column3: TcxGridDBColumn Caption = #35823#24046 DataBinding.FieldName = 'Tolerance' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 89 end end object cxGridLevel1: TcxGridLevel GridView = TV2 end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_PurchasePlan.ADOLink Left = 105 Top = 160 end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_PurchasePlan.ADOLink Top = 161 end object GPM_1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 664 Top = 288 end object ADOQueryCmd: TADOQuery Connection = DataLink_PurchasePlan.ADOLink Parameters = <> Left = 168 Top = 320 end object ADOQueryMain: TADOQuery Connection = DataLink_PurchasePlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 80 Top = 320 end object ADOQueryTemp: TADOQuery Connection = DataLink_PurchasePlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 80 Top = 240 end object DS_1: TDataSource DataSet = CDS_1 Left = 744 Top = 288 end object CDS_2: TClientDataSet Aggregates = <> IndexFieldNames = 'SerialNo' Params = <> Left = 456 Top = 536 end object pm2: TPopupMenu Left = 376 Top = 544 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end object N4: TMenuItem Caption = #22797#21046 OnClick = N4Click end end object DS_2: TDataSource DataSet = CDS_2 Left = 504 Top = 544 end object GPM_2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 416 Top = 536 end object CDS_1: TClientDataSet Aggregates = <> Params = <> Left = 704 Top = 288 end object pm1: TPopupMenu Left = 480 Top = 344 object N5: TMenuItem Caption = #20840#36873 OnClick = N5Click end object N6: TMenuItem Caption = #20840#24323 OnClick = N6Click end object N3: TMenuItem Caption = #22797#21046 OnClick = N3Click end end object ADOQueryImage: TADOQuery Connection = DataLink_PurchasePlan.ADOLink Parameters = <> Left = 176 Top = 243 end end