From 4854c550b1968a0ea79a54362d8ee3858277f025 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 30 Jul 2025 15:48:10 +0800 Subject: [PATCH] =?UTF-8?q?=E5=90=88=E5=90=8C=E5=8F=98=E8=89=B2?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../U_ContractListNX.dfm | 30 ++++++++++++------- .../U_ContractListNX.pas | 17 +++++++++-- 2 files changed, 33 insertions(+), 14 deletions(-) diff --git a/合同管理(ContractManagement.dll)/U_ContractListNX.dfm b/合同管理(ContractManagement.dll)/U_ContractListNX.dfm index 5a75235..6117811 100644 --- a/合同管理(ContractManagement.dll)/U_ContractListNX.dfm +++ b/合同管理(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 - Top = 0 + Left = 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' diff --git a/合同管理(ContractManagement.dll)/U_ContractListNX.pas b/合同管理(ContractManagement.dll)/U_ContractListNX.pas index 79700a1..7c715f5 100644 --- a/合同管理(ContractManagement.dll)/U_ContractListNX.pas +++ b/合同管理(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 - ACanvas.Brush.Color := $0080FF80; + 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;