diff --git a/A02基础产品管理/U_ClothInfo.pas b/A02基础产品管理/U_ClothInfo.pas index 4b39ce5..1204a70 100644 --- a/A02基础产品管理/U_ClothInfo.pas +++ b/A02基础产品管理/U_ClothInfo.pas @@ -308,6 +308,7 @@ begin end; end; + procedure TfrmClothInfo.InitTree(); begin try diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index 59ec63f..99db8ac 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -602,6 +602,8 @@ object frmClothInfoInput: TfrmClothInfoInput Height = 255 Align = alClient TabOrder = 1 + ExplicitLeft = -2 + ExplicitTop = 37 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -813,18 +815,18 @@ object frmClothInfoInput: TfrmClothInfoInput Left = 816 Top = 277 end - object ADO_1: TADOQuery - Connection = DataLink_ClothInfo.ADOLink - LockType = ltReadOnly - Parameters = <> - Left = 326 - Top = 495 - end object ADO_2: TADOQuery Connection = DataLink_ClothInfo.ADOLink LockType = ltReadOnly Parameters = <> - Left = 522 - Top = 499 + Left = 482 + Top = 473 + end + object ADO_1: TADOQuery + Connection = DataLink_ClothInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 576 + Top = 481 end end diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index 7dc217a..ba1ce27 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -101,8 +101,8 @@ type CDS_2: TClientDataSet; DS_2: TDataSource; cxGridPopupMenu1: TcxGridPopupMenu; - ADO_1: TADOQuery; ADO_2: TADOQuery; + ADO_1: TADOQuery; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); @@ -190,6 +190,7 @@ begin SqlStr := 'select A.* from BS_Cloth_Info_GYSCP A '; SqlStr := SqlStr + ' where A.BCIID=''' + Trim(FBCIID) + ''''; + InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', ''); end;