Group_02/D7wmhengming
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-12 15:38:07 +08:00
parent 1971993b03
commit 0170d3fdce
6 changed files with 26 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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

18
管理系统/U_ClothContractInPut_Tp.dfm
View File

@ -80,8 +80,8 @@ object frmClothContractInPut_Tp: TfrmClothContractInPut_Tp
ParentFont = False
end
object Label4: TLabel
Left = 290
Top = 14
Left = 746
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
Top = 8
Left = 812
Top = 64
TabOrder = 14
Visible = False
Width = 131
end
end

3
管理系统/U_ClothContractList_TP.dfm
View File

@ -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

10
管理系统/U_ClothContractList_TP.pas
View File

@ -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;
@ -882,9 +882,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;