From b033fb8da7f9c41c0ac431578a52d12c8d578262 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 12 Feb 2026 10:38:23 +0800 Subject: [PATCH] 1234 --- 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof | 2 +- 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr | 21 +++-- 坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm | 14 +-- 坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas | 16 +++- .../FinishedClothWarehouse.dof | 2 +- .../U_CKGNProductBCPOutList.dfm | 16 ++-- .../U_CKGNProductBCPOutList.pas | 16 +++- .../U_CKProductBCPInList.dfm | 13 +-- .../U_CKProductBCPInList.pas | 15 +++- .../DyeingFinishingPlan.dof | 2 +- .../U_JYOrderCDList.dfm | 87 ++++++++++++------- .../U_JYOrderCDList.pas | 75 ++++++++++++++++ .../U_MarkingInspection.dfm | 2 +- 13 files changed, 213 insertions(+), 68 deletions(-) diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof index ee9bc03..9a1830f 100644 --- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\Ⱥ2\뵥(PBMDDJ.dll)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myGuhang\뵥(PBMDDJ.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr index 9c19914..b28de5e 100644 --- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr @@ -6,6 +6,7 @@ uses forms, WinTypes, WinProcs, + MidasLib, U_GetDllForm in 'U_GetDllForm.pas', U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, @@ -33,7 +34,7 @@ uses {$R *.res} -procedure DllEnterPoint(dwReason: DWORD);far;stdcall; +procedure DllEnterPoint(dwReason: DWORD); far; stdcall; begin DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH); @@ -44,14 +45,16 @@ begin // if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then // Application:=NewDllApp; end; -exports - GetDllForm; -begin - try - NewDllApp:=Application; - DLLProc := @DLLUnloadProc; - except - end; +exports + GetDllForm; + +begin + try + NewDllApp := Application; + DLLProc := @DLLUnloadProc; + except + + end; end. diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm index 2806dab..9091253 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm @@ -21,7 +21,7 @@ object frmDJBRKList2: TfrmDJBRKList2 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1364 + Width = 1356 Height = 33 ButtonHeight = 30 ButtonWidth = 95 @@ -124,7 +124,7 @@ object frmDJBRKList2: TfrmDJBRKList2 object Panel1: TPanel Left = 0 Top = 33 - Width = 1364 + Width = 1356 Height = 72 Align = alTop BevelInner = bvRaised @@ -308,7 +308,7 @@ object frmDJBRKList2: TfrmDJBRKList2 #27425#21697#20837#24211) end object SPColor: TEdit - Tag = 2 + Tag = 1 Left = 613 Top = 8 Width = 80 @@ -351,8 +351,8 @@ object frmDJBRKList2: TfrmDJBRKList2 object cxGrid2: TcxGrid Left = 0 Top = 105 - Width = 1224 - Height = 618 + Width = 1216 + Height = 610 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -611,10 +611,10 @@ object frmDJBRKList2: TfrmDJBRKList2 end end object cxGrid1: TcxGrid - Left = 1224 + Left = 1216 Top = 105 Width = 140 - Height = 618 + Height = 610 Align = alRight TabOrder = 4 Visible = False diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas index cf65f02..3523ee0 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas @@ -12,7 +12,21 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxContainer, cxImage, cxDBEdit, ComObj, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; + cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue; type FdDy = record diff --git a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof index add4acd..3c8b2a9 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof +++ b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\D7myGuhang\Ʒֿ(FinishedClothWarehouse.dll)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myGuhang\Ʒֿ(FinishedClothWarehouse.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm index 04c61a2..5739a78 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm @@ -20,7 +20,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1339 + Width = 1331 Height = 33 ButtonHeight = 30 ButtonWidth = 107 @@ -137,7 +137,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList object Panel1: TPanel Left = 0 Top = 33 - Width = 1339 + Width = 1331 Height = 68 Align = alTop BevelInner = bvRaised @@ -363,7 +363,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList '') end object spColor: TEdit - Tag = 2 + Tag = 1 Left = 607 Top = 8 Width = 80 @@ -452,7 +452,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList object Panel2: TPanel Left = 0 Top = 101 - Width = 1339 + Width = 1331 Height = 30 Align = alTop BevelOuter = bvNone @@ -493,7 +493,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList object Panel6: TPanel Left = 205 Top = 0 - Width = 1134 + Width = 1126 Height = 30 Align = alClient AutoSize = True @@ -501,7 +501,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList BorderStyle = bsSingle TabOrder = 1 DesignSize = ( - 1130 + 1122 26) object Label1: TLabel Left = 64 @@ -594,8 +594,8 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList object cxGrid2: TcxGrid Left = 0 Top = 131 - Width = 1339 - Height = 497 + Width = 1331 + Height = 489 Align = alClient PopupMenu = PopupMenu1 TabOrder = 4 diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas index 3ee9b7f..1c51728 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas @@ -12,7 +12,21 @@ uses cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxCheckBox, Menus, MovePanel, RM_E_llPDF, cxCalendar, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, - cxPC, cxContainer, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxCurrencyEdit; + cxPC, cxContainer, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxCurrencyEdit, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmCKGNProductBCPOutList = class(TForm) diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm index be00f73..3ff4d7d 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm @@ -20,7 +20,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1220 + Width = 1212 Height = 33 ButtonHeight = 30 ButtonWidth = 83 @@ -128,7 +128,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object Panel1: TPanel Left = 0 Top = 33 - Width = 1220 + Width = 1212 Height = 68 Align = alTop BevelInner = bvRaised @@ -326,6 +326,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList TabOrder = 0 end object SPColor: TEdit + Tag = 1 Left = 586 Top = 8 Width = 90 @@ -394,8 +395,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object cxGrid2: TcxGrid Left = 0 Top = 129 - Width = 1220 - Height = 478 + Width = 1212 + Height = 470 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -612,14 +613,14 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList object Panel6: TPanel Left = 0 Top = 101 - Width = 1220 + Width = 1212 Height = 28 Align = alTop AutoSize = True BorderStyle = bsSingle TabOrder = 2 DesignSize = ( - 1216 + 1208 24) object Label31: TLabel Left = 25 diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas index be4c392..7e17c58 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas @@ -12,7 +12,20 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, dxCore, - cxDateUtils, cxTextEdit, cxMaskEdit; + cxDateUtils, cxTextEdit, cxMaskEdit, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmCKProductBCPInList = class(TForm) diff --git a/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof b/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof index c1531f4..02c1ebb 100644 --- a/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof +++ b/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\D7myGuhang\Ⱦƻ(DyeingFinishingPlan.dll)\testDll.exe +HostApplication=D:\D7W\Ŀ\D7myGuhang\Ⱦƻ(DyeingFinishingPlan.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm index fa6fc83..b7b8d2c 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDList: TfrmJYOrderCDList - Left = 389 - Top = 456 + Left = 327 + Top = 224 Width = 1357 Height = 727 Caption = #26816#39564#25253#21578 @@ -34,10 +34,10 @@ object frmJYOrderCDList: TfrmJYOrderCDList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1349 + Width = 1341 AutoSize = True ButtonHeight = 30 - ButtonWidth = 107 + ButtonWidth = 137 Caption = 'ToolBar1' Color = clSkyBlue Flat = True @@ -116,12 +116,12 @@ object frmJYOrderCDList: TfrmJYOrderCDList Left = 597 Top = 0 AutoSize = True - Caption = #25209#37327#20462#25913#31859#25968 + Caption = #25209#37327#20462#25913#31859#25968'/'#31354#21152 ImageIndex = 11 OnClick = ToolButton4Click end object B1: TToolButton - Left = 708 + Left = 738 Top = 0 AutoSize = True Caption = #25171#30721#26085#24535 @@ -129,7 +129,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList OnClick = B1Click end object TBExport: TToolButton - Left = 795 + Left = 825 Top = 0 AutoSize = True Caption = #23548#20986 @@ -137,7 +137,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList OnClick = TBExportClick end object TBClose: TToolButton - Left = 858 + Left = 888 Top = 0 AutoSize = True Caption = #20851#38381 @@ -148,7 +148,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList object Panel1: TPanel Left = 0 Top = 32 - Width = 1349 + Width = 1341 Height = 63 Align = alTop BevelInner = bvRaised @@ -405,7 +405,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList OnKeyPress = conNOKeyPress end object spColor: TEdit - Tag = 2 + Tag = 1 Left = 205 Top = 32 Width = 100 @@ -518,8 +518,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList object cxGrid1: TcxGrid Left = 0 Top = 148 - Width = 1349 - Height = 548 + Width = 1341 + Height = 540 Align = alClient PopupMenu = PopupMenu1 TabOrder = 4 @@ -841,30 +841,37 @@ object frmJYOrderCDList: TfrmJYOrderCDList Visible = False end object Panel2: TPanel - Left = 536 - Top = 212 + Left = 534 + Top = 213 Width = 297 Height = 133 Color = clSkyBlue TabOrder = 5 Visible = False object Label15: TLabel - Left = 4 - Top = 44 + Left = 10 + Top = 19 Width = 24 Height = 12 Caption = #31859#25968 end object Label13: TLabel - Left = 4 - Top = 68 + Left = 10 + Top = 44 Width = 48 Height = 12 Caption = #31859#25968#33539#22260 end + object Label17: TLabel + Left = 10 + Top = 69 + Width = 24 + Height = 12 + Caption = #31354#21152 + end object cxCurrencyEdit1: TcxCurrencyEdit - Left = 56 - Top = 40 + Left = 62 + Top = 15 Properties.DecimalPlaces = 4 Properties.DisplayFormat = '0.####' Properties.Nullstring = '0' @@ -872,8 +879,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList Width = 121 end object Button1: TButton - Left = 192 - Top = 40 + Left = 198 + Top = 17 Width = 60 Height = 21 Caption = #30830#23450 @@ -890,8 +897,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList OnClick = Button2Click end object Button8: TButton - Left = 192 - Top = 64 + Left = 198 + Top = 40 Width = 60 Height = 21 Caption = #30830#23450 @@ -899,13 +906,31 @@ object frmJYOrderCDList: TfrmJYOrderCDList OnClick = Button8Click end object edit3: TEdit - Left = 55 - Top = 65 + Left = 62 + Top = 40 Width = 122 Height = 20 Hint = '1' TabOrder = 4 end + object cxCurrencyEdit2: TcxCurrencyEdit + Left = 63 + Top = 65 + Properties.DecimalPlaces = 4 + Properties.DisplayFormat = '0.####' + Properties.Nullstring = '0' + TabOrder = 5 + Width = 121 + end + object Button9: TButton + Left = 198 + Top = 65 + Width = 60 + Height = 21 + Caption = #30830#23450 + TabOrder = 6 + OnClick = Button9Click + end end object Panel5: TPanel Left = 868 @@ -957,7 +982,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList object Panel6: TPanel Left = 0 Top = 95 - Width = 1349 + Width = 1341 Height = 28 Align = alTop AutoSize = True @@ -965,7 +990,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList TabOrder = 2 Visible = False DesignSize = ( - 1345 + 1337 24) object Label31: TLabel Left = 25 @@ -1058,7 +1083,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList object cxTabControl1: TcxTabControl Left = 0 Top = 123 - Width = 1349 + Width = 1341 Height = 25 Align = alTop Font.Charset = GB2312_CHARSET @@ -1076,11 +1101,11 @@ object frmJYOrderCDList: TfrmJYOrderCDList #22269#20869#26126#32454#24211#23384) OnChange = cxTabControl1Change ClientRectBottom = 27 - ClientRectRight = 1349 + ClientRectRight = 1341 ClientRectTop = 27 end object Panel3: TPanel - Left = 116 + Left = 115 Top = 172 Width = 369 Height = 165 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas index 183d2b6..782c762 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas +++ b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas @@ -158,6 +158,9 @@ type msfw: TEdit; Label16: TLabel; kcqty: TEdit; + Label17: TLabel; + cxCurrencyEdit2: TcxCurrencyEdit; + Button9: TButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -203,6 +206,7 @@ type procedure Button3Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); + procedure Button9Click(Sender: TObject); private DQdate: TDateTime; FLeft, FTop: Integer; @@ -1534,5 +1538,76 @@ begin end; end; +procedure TfrmJYOrderCDList.Button9Click(Sender: TObject); +var + i, J: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if cxCurrencyEdit2.Text = '' then + Exit; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + // sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) '); + + sql.Add('Update WFB_MJJY Set mjmaoz=mjmaoz-kongjia+''' + trim(cxCurrencyEdit2.Text) + ''' '); + sql.Add(',MJQty4=MJQty4-kongjia+''' + trim(cxCurrencyEdit2.Text) + ''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + + sql.Add('Update WFB_MJJY Set kongjia=''' + trim(cxCurrencyEdit2.Text) + ''' '); + + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + + sql.Add('Update CK_BanCP_CR Set kgqty=(select mjmaoz from WFB_MJJY e where e.mjid=CK_BanCP_CR.mjid) '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + + SQL.Add('Update CK_BanCP_KC set KCkgQTY=(select mjmaoz from WFB_MJJY e where e.mjid=CK_BanCP_KC.mjid) '); + + SQL.Add('WHERE MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('޸Ŀռ'))); + sql.Add(',' + quotedstr(trim('ţ' + trim(Order_Main.fieldbyname('MJID').AsString) + ' Ϊ:' + trim(cxCurrencyEdit2.Text)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel2.Visible := false; + TBRafresh.Click; + exit; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + end. diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm index 0e1a726..dd6d719 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm @@ -1352,7 +1352,7 @@ object frmMarkingInspection: TfrmMarkingInspection end object KONGJIA: TEdit Left = 87 - Top = 192 + Top = 193 Width = 102 Height = 41 Font.Charset = GB2312_CHARSET