222

A02基础产品管理/U_ClothInfo.pas

@@ -308,6 +308,7 @@ begin
   end;
 end;
 
+
 procedure TfrmClothInfo.InitTree();
 begin
   try

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
+    Left = 482
-    Top = 499
+    Top = 473
+  end
+  object ADO_1: TADOQuery
+    Connection = DataLink_ClothInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 576
+    Top = 481
   end
 end

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;