~

基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm

@@ -192,6 +192,7 @@ object frmZdyAttInputCP: TfrmZdyAttInputCP
       object Tv2Column5: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'DEFstr10'
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Width = 60
       end

基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas

@@ -33,7 +33,7 @@ type
     ToolBar1: TToolBar;
     TBClose: TToolButton;
     ADOQueryTemp: TADOQuery;
-    ADOQueryCmd: TADOQuery;
+    ADOQueryCmd: TADOQuery;                    
     ADOQueryMain: TADOQuery;
     RM1: TRMGridReport;
     RMDB_Main: TRMDBDataSet;

基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm

@@ -339,6 +339,7 @@ object frmZdyAttachCP: TfrmZdyAttachCP
       object Tv2Column5: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'DEFstr10'
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Width = 60
       end

管理系统/U_ClothContractInPut_Tp.dfm

@@ -80,8 +80,8 @@ object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp
       ParentFont = False
     end
     object Label4: TLabel
-      Left = 290
+      Left = 746
-      Top = 14
+      Top = 70
       Width = 65
       Height = 12
       Caption = #25237#22383#26085#26399#65306
@@ -91,9 +91,10 @@ object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label5: TLabel
-      Left = 502
+      Left = 288
       Top = 14
       Width = 66
       Height = 12
@@ -228,7 +229,7 @@ object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp
       ParentFont = False
     end
     object Label14: TLabel
-      Left = 723
+      Left = 509
       Top = 13
       Width = 67
       Height = 12
@@ -263,7 +264,7 @@ object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp
       TabOrder = 0
     end
     object FactoryNoName: TcxButtonEdit
-      Left = 574
+      Left = 356
       Top = 10
       Hint = 'FactoryNo'
       BeepOnEnter = False
@@ -422,7 +423,7 @@ object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp
       OnBtnClick = OrdPerson1BtnClick
     end
     object CustomerNoName: TBtnEditC
-      Left = 786
+      Left = 572
       Top = 9
       Width = 140
       Height = 20
@@ -441,9 +442,10 @@ object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp
       OnBtnUpClick = DYerBtnUpClick
     end
     object DeliveryDate: TcxDateEdit
-      Left = 356
+      Left = 812
-      Top = 8
+      Top = 64
       TabOrder = 14
+      Visible = False
       Width = 131
     end
   end

管理系统/U_ClothContractList_TP.dfm

@@ -386,6 +386,7 @@ object frmClothContractList_Tp: TfrmClothContractList_Tp
           PropertiesClassName = 'TcxDateEditProperties'
           Properties.SaveTime = False
           Properties.ShowTime = False
+          Visible = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Styles.Header = DataLink_TradeManage.Default
@@ -561,7 +562,7 @@ object frmClothContractList_Tp: TfrmClothContractList_Tp
         end
         object Tv1Column1: TcxGridDBColumn
           Caption = #21152#24613
-          DataBinding.FieldName = 'Jiaji'
+          DataBinding.FieldName = 'SJiaji'
           HeaderAlignmentHorz = taCenter
           Width = 60
         end

管理系统/U_ClothContractList_TP.pas

@@ -428,12 +428,12 @@ begin
     frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application);
     with frmClothContractInPut_Tp do
     begin
-      PState := 0;
+      PState := 0;                                      
       FMainId := '';
       FConType := 'Å÷²¼Ô¤Í¶Å÷';
       if ShowModal = 1 then
       begin
-        TBRafresh.Click;
+        TBRafresh.Click;                               
       end;
     end;
   finally
@@ -451,7 +451,7 @@ begin
   SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
 
   SCreateCDS20(ADOQueryMain, Order_Main);
-  SInitCDSData20(ADOQueryMain, Order_Main);                        
+  SInitCDSData20(ADOQueryMain, Order_Main);
 end;
 
 procedure TfrmClothContractList_Tp.FormShow(Sender: TObject);
@@ -760,7 +760,7 @@ begin
     end;
   finally
     frmClothContractInPut_Tp.Free;
-  end;                                       
+  end;
 end;
 
 procedure TfrmClothContractList_Tp.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@@ -769,7 +769,7 @@ begin
   begin
     ACanvas.Brush.Color:=clSkyBlue;
   end;   }
-  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Jiaji').Index] = '¼Ó¼±' then
+  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('SJiaji').Index] = '¼Ó¼±' then
   begin
     ACanvas.Brush.Color := Clred;
   end;
@@ -839,9 +839,9 @@ begin
           begin
             close;
             sql.Clear;
-            sql.Add('update Contract_main SET Jiaji=''¼Ó¼±'' ');
+            sql.Add('update Contract_Sub SET SJiaji=''¼Ó¼±'' ');
             sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
-//            sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
+            sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
             execsql;
           end;
         end;
@@ -875,18 +875,18 @@ begin
       DisableControls;
       First;
       while not eof do
-      begin
+      begin                                            
         if Fieldbyname('ssel').AsBoolean then
         begin
           with ADOQueryCmd do
           begin
             close;
             sql.Clear;
-            sql.Add('update Contract_main  SET Jiaji='''' ');
+            sql.Add('update Contract_Sub  SET SJiaji='''' ');
             sql.Add('where mainID =' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
-//            sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
+            sql.Add('and subID =' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString)));
             execsql;
-          end;
+          end;                                             
         end;
         next;
       end;