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 object Tv2Column5: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'DEFstr10' DataBinding.FieldName = 'DEFstr10'
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end

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

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

18
管理系统/U_ClothContractInPut_Tp.dfm
View File

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

3
管理系统/U_ClothContractList_TP.dfm
View File

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

10
管理系统/U_ClothContractList_TP.pas
View File

@ -769,7 +769,7 @@ begin
begin begin
ACanvas.Brush.Color:=clSkyBlue; ACanvas.Brush.Color:=clSkyBlue;
end; } end; }
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Jiaji').Index] = '¼Ó¼±' then if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('SJiaji').Index] = '¼Ó¼±' then
begin begin
ACanvas.Brush.Color := Clred; ACanvas.Brush.Color := Clred;
end; end;
@ -839,9 +839,9 @@ begin
begin begin
close; close;
sql.Clear; 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('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; execsql;
end; end;
end; end;
@ -882,9 +882,9 @@ begin
begin begin
close; close;
sql.Clear; 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('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; execsql;
end; end;
end; end;