From 0170d3fdce3d246e6c0b2b92c2f8b7b9a4f01eba Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 12 Jun 2025 15:38:07 +0800 Subject: [PATCH] ~ --- .../U_ZdyAttInputCP.dfm | 1 + .../U_ZdyAttInputCP.pas | 2 +- 基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm | 1 + 管理系统/U_ClothContractInPut_Tp.dfm | 18 ++++++++------- 管理系统/U_ClothContractList_TP.dfm | 3 ++- 管理系统/U_ClothContractList_TP.pas | 22 +++++++++---------- 6 files changed, 26 insertions(+), 21 deletions(-) diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm index 2eeffcb..715293c 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.dfm @@ -192,6 +192,7 @@ object frmZdyAttInputCP: TfrmZdyAttInputCP object Tv2Column5: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'DEFstr10' + Visible = False HeaderAlignmentHorz = taCenter Width = 60 end diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas index f3fe52b..4ec7768 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttInputCP.pas @@ -33,7 +33,7 @@ type ToolBar1: TToolBar; TBClose: TToolButton; ADOQueryTemp: TADOQuery; - ADOQueryCmd: TADOQuery; + ADOQueryCmd: TADOQuery; ADOQueryMain: TADOQuery; RM1: TRMGridReport; RMDB_Main: TRMDBDataSet; diff --git a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm index bee4e98..6ab7a5d 100644 --- a/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm +++ b/基础资料维护(BaseInfo.dll)/U_ZdyAttachCP.dfm @@ -339,6 +339,7 @@ object frmZdyAttachCP: TfrmZdyAttachCP object Tv2Column5: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'DEFstr10' + Visible = False HeaderAlignmentHorz = taCenter Width = 60 end diff --git a/管理系统/U_ClothContractInPut_Tp.dfm b/管理系统/U_ClothContractInPut_Tp.dfm index a184984..32a93cb 100644 --- a/管理系统/U_ClothContractInPut_Tp.dfm +++ b/管理系统/U_ClothContractInPut_Tp.dfm @@ -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 diff --git a/管理系统/U_ClothContractList_TP.dfm b/管理系统/U_ClothContractList_TP.dfm index 98ca920..3c039a6 100644 --- a/管理系统/U_ClothContractList_TP.dfm +++ b/管理系统/U_ClothContractList_TP.dfm @@ -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 diff --git a/管理系统/U_ClothContractList_TP.pas b/管理系统/U_ClothContractList_TP.pas index 453e006..a14be4d 100644 --- a/管理系统/U_ClothContractList_TP.pas +++ b/管理系统/U_ClothContractList_TP.pas @@ -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;