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

2
基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas
View File

@ -33,7 +33,7 @@ type
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;

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

22
管理系统/U_ClothContractList_TP.pas
View File

@ -428,12 +428,12 @@ begin
frmClothContractInPut_Tp := TfrmClothContractInPut_Tp.Create(Application);
with frmClothContractInPut_Tp do
begin
PState := 0;
PState := 0;
FMainId := '';
FConType := 'Å÷²¼Ô¤Í¶Å÷';
if ShowModal = 1 then
begin
TBRafresh.Click;
TBRafresh.Click;
end;
end;
finally
@ -451,7 +451,7 @@ begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmClothContractList_Tp.FormShow(Sender: TObject);
@ -760,7 +760,7 @@ begin
end;
finally
frmClothContractInPut_Tp.Free;
end;
end;
end;
procedure TfrmClothContractList_Tp.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@ -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;
@ -875,18 +875,18 @@ begin
DisableControls;
First;
while not eof do
begin
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
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;
end;
next;
end;