inherited frmClothType: TfrmClothType Left = 192 Top = 155 Caption = #20135#21697#31867#21035 ClientHeight = 529 ClientWidth = 981 FormStyle = fsMDIChild Visible = True ExplicitWidth = 997 ExplicitHeight = 568 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 981 Height = 33 ButtonHeight = 38 ButtonWidth = 91 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_ClothInfo.ImageList_new32 Images = DataLink_ClothInfo.ImageList_new32 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 TBAdd: TToolButton Left = 71 Top = 0 AutoSize = True Caption = #26032#22686#23376#31867 ImageIndex = 2 OnClick = TBAddClick end object ToolButton1: TToolButton Left = 166 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 16 OnClick = ToolButton1Click end object TBDel: TToolButton Left = 237 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 5 OnClick = TBDelClick end object TBClose: TToolButton Left = 308 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end end object cxDBTreeList1: TcxDBTreeList [1] Left = 0 Top = 33 Width = 249 Height = 496 Align = alLeft Bands = < item end> DataController.DataSource = DataSource1 DataController.ParentField = 'CTParent' DataController.KeyField = 'CTID' Navigator.Buttons.CustomButtons = <> OptionsBehavior.CopyCaptionsToClipboard = False OptionsBehavior.ExpandOnDblClick = False OptionsSelection.CellSelect = False OptionsView.CellAutoHeight = True OptionsView.Headers = False RootValue = -1 Styles.Inactive = DataLink_ClothInfo.FoneRed Styles.Selection = DataLink_ClothInfo.FoneRed Styles.IncSearch = DataLink_ClothInfo.FoneRed TabOrder = 1 OnClick = cxDBTreeList1Click object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn DataBinding.FieldName = 'CTName' Width = 210 Position.ColIndex = 0 Position.RowIndex = 0 Position.BandIndex = 0 Summary.FooterSummaryItems = <> Summary.GroupFooterSummaryItems = <> end end object Panel1: TPanel [2] Left = 249 Top = 33 Width = 732 Height = 496 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label1: TLabel Left = 66 Top = 24 Width = 48 Height = 12 Caption = #29238' '#31867 end object Label2: TLabel Left = 66 Top = 65 Width = 48 Height = 12 Caption = #31867#21035#21517#31216 end object Label3: TLabel Left = 170 Top = 137 Width = 48 Height = 12 Caption = #31867#21035#32534#30721 Visible = False end object CTTopName: TEdit Left = 129 Top = 21 Width = 121 Height = 20 ReadOnly = True TabOrder = 0 end object CTName: TEdit Left = 129 Top = 61 Width = 121 Height = 20 TabOrder = 1 OnKeyPress = CTNameKeyPress end object CTNo: TEdit Left = 233 Top = 133 Width = 121 Height = 20 TabOrder = 2 Visible = False end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_ClothInfo.ADOLink end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_ClothInfo.ADOLink Left = 201 Top = 105 end object DataSource1: TDataSource DataSet = ADOQueryTree Left = 91 Top = 355 end object ADOQueryTree10: TADOQuery Connection = DataLink_ClothInfo.ADOLink LockType = ltReadOnly Parameters = <> Left = 61 Top = 209 end object ADOQueryTemp: TADOQuery Connection = DataLink_ClothInfo.ADOLink LockType = ltReadOnly Parameters = <> Left = 709 Top = 209 end object ADOQueryCmd: TADOQuery Connection = DataLink_ClothInfo.ADOLink Parameters = <> Left = 677 Top = 137 end object ADOQueryTree: TClientDataSet Aggregates = <> Params = <> Left = 88 Top = 280 end end