合同变色

合同管理(ContractManagement.dll)/U_ContractListNX.dfm

@@ -125,20 +125,20 @@ object frmContractListNX: TfrmContractListNX
       AutoSize = True
       Caption = #23436#25104
       ImageIndex = 31
+      Wrap = True
       OnClick = tchkClick
     end
     object Tnochk: TToolButton
-      Left = 819
+      Left = 0
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25764#38144#23436#25104
       ImageIndex = 52
-      Wrap = True
       Visible = False
       OnClick = TnochkClick
     end
     object Tqx: TToolButton
-      Left = 0
+      Left = 99
       Top = 30
       AutoSize = True
       Caption = #21512#21516#21462#28040
@@ -146,7 +146,7 @@ object frmContractListNX: TfrmContractListNX
       OnClick = TqxClick
     end
     object Tnoqx: TToolButton
-      Left = 99
+      Left = 198
       Top = 30
       AutoSize = True
       Caption = #25764#38144#21512#21516#21462#28040
@@ -154,7 +154,7 @@ object frmContractListNX: TfrmContractListNX
       OnClick = TnoqxClick
     end
     object ToolButton8: TToolButton
-      Left = 228
+      Left = 327
       Top = 30
       AutoSize = True
       Caption = #35746#21333#35745#21010#20998#26512#34920
@@ -162,7 +162,7 @@ object frmContractListNX: TfrmContractListNX
       OnClick = ToolButton8Click
     end
     object ToolButton4: TToolButton
-      Left = 372
+      Left = 471
       Top = 30
       AutoSize = True
       Caption = #20851#38381#24377#31383
@@ -170,7 +170,7 @@ object frmContractListNX: TfrmContractListNX
       OnClick = ToolButton4Click
     end
     object ToolButton7: TToolButton
-      Left = 471
+      Left = 570
       Top = 30
       AutoSize = True
       Caption = #25253#34920#25171#21360
@@ -178,7 +178,7 @@ object frmContractListNX: TfrmContractListNX
       OnClick = ToolButton7Click
     end
     object ToolButton3: TToolButton
-      Left = 570
+      Left = 669
       Top = 30
       AutoSize = True
       Caption = #25805#20316#26085#24535
@@ -186,7 +186,7 @@ object frmContractListNX: TfrmContractListNX
       OnClick = ToolButton3Click
     end
     object ToolButton6: TToolButton
-      Left = 669
+      Left = 768
       Top = 30
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -194,7 +194,7 @@ object frmContractListNX: TfrmContractListNX
       OnClick = ToolButton6Click
     end
     object TBClose: TToolButton
-      Left = 768
+      Left = 867
       Top = 30
       AutoSize = True
       Caption = #20851#38381
@@ -437,6 +437,14 @@ object frmContractListNX: TfrmContractListNX
         Styles.Header = cxStyle1
         Width = 110
       end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #25163#21160#23436#25104
+        DataBinding.FieldName = 'IsSDWC'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 78
+      end
       object Tv1Column4: TcxGridDBColumn
         Caption = #23436#25104#29366#24577
         DataBinding.FieldName = 'ISWC'

合同管理(ContractManagement.dll)/U_ContractListNX.pas

@@ -147,6 +147,7 @@ type
     Tv2Column9: TcxGridDBColumn;
     Tv2Column10: TcxGridDBColumn;
     Tv2Column11: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -663,7 +664,7 @@ begin
           begin
             close;
             sql.Clear;
-            sql.Add('update  Contract_Main SET status=''1'',Chktime=getdate(),ChkCode=' + quotedstr(trim(DCode)) + ',Chker=' + quotedstr(trim(DName)));
+            sql.Add('update  Contract_Main SET IsSDWC=1,status=''1'',Chktime=getdate(),ChkCode=' + quotedstr(trim(DCode)) + ',Chker=' + quotedstr(trim(DName)));
             sql.Add('where conmainID=' + quotedstr(trim(CDS_Main.fieldbyname('conmainID').AsString)));
 
             sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
@@ -718,7 +719,7 @@ begin
           begin
             close;
             sql.Clear;
-            sql.Add('update  Contract_Main SET status=''0'',Chktime=null,Chker=null,ChkCode=null ');
+            sql.Add('update  Contract_Main SET IsSDWC=0,status=''0'',Chktime=null,Chker=null,ChkCode=null ');
             sql.Add('where conmainID=' + quotedstr(trim(CDS_Main.fieldbyname('conmainID').AsString)));
             sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
             sql.Add(' ' + quotedstr(trim(DName)));
@@ -839,7 +840,17 @@ end;
 procedure TfrmContractListNX.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
 begin
   if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('iswc').Index] = 'ÒÑÍê³É' then
+  begin
+    if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('IsSDWC').Index] = True then
+    begin
+      ACanvas.Brush.Color := $C0DCC0;
+    end
+    else
+    begin
       ACanvas.Brush.Color := $0080FF80;
+    end;
+  end;
+
   if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '2' then
     ACanvas.Brush.Color := $008080FF;