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 ToolButton5: TToolButton Left = 222 Top = 0 Caption = #38144#21806#21512#21516 ImageIndex = 2 OnClick = ToolButton5Click end object ToolButton2: TToolButton Left = 337 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 ExplicitTop = 192 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 = 65 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_Name' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 end object v1Column4: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_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 Tv1Column6: TcxGridDBColumn Caption = #32463#19997'/'#32428#19997 DataBinding.FieldName = 'YRType' DataBinding.IsNullValueType = True GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter Width = 97 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 Tv1Column8: TcxGridDBColumn AlternateCaption = 'DataLink_PurchasePlan.grid_head_red' Caption = #31665'/'#20214 DataBinding.FieldName = 'Piece' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Styles.Header = DataLink_PurchasePlan.grid_head_red Width = 82 end object v1PRTOrderQty: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Styles.Header = DataLink_PurchasePlan.grid_head_red 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 Tv1Column4: TcxGridDBColumn Caption = #24065#31181 DataBinding.FieldName = 'currency' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.Items.Strings = ( 'USD' 'RMB' 'VND') HeaderAlignmentHorz = taCenter 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 Label3: TLabel Left = 1223 Top = 56 Width = 68 Height = 23 Caption = #24211#23384#25968#37327 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -17 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False end object Label4: TLabel Left = 1223 Top = 27 Width = 68 Height = 23 Caption = #24211#23384#20214#25968 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -17 Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False 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 = 765 Top = 284 end object ADOCmd: TADOQuery Connection = DataLink_PurchasePlan.ADOLink Parameters = <> Left = 890 Top = 278 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 = 598 Top = 323 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 = 824 Top = 465 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 object ADOQuery1: TADOQuery Connection = DataLink_PurchasePlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 871 Top = 317 end end