Group_99/D7szChenfeng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

合同变色

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-30 15:48:10 +08:00
parent 97e9138869
commit 4854c550b1
2 changed files with 33 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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