Group_99/D7myGuhang
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1234

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-02-12 10:38:23 +08:00
parent 229e1459ca
commit b033fb8da7
13 changed files with 213 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\淃커덜쯤\믄봄2\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe HostApplication=D:\D7W\淃커덜쯤\D7myGuhang\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

21
坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr
View File

@ -6,6 +6,7 @@ uses
forms, forms,
WinTypes, WinTypes,
WinProcs, WinProcs,
MidasLib,
U_GetDllForm in 'U_GetDllForm.pas', U_GetDllForm in 'U_GetDllForm.pas',
U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas', U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote}, U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
@ -33,7 +34,7 @@ uses
{$R *.res} {$R *.res}
procedure DllEnterPoint(dwReason: DWORD);far;stdcall; procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin begin
DLLProc := @DLLEnterPoint; DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH); DllEnterPoint(DLL_PROCESS_ATTACH);
@ -44,14 +45,16 @@ begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then // if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
// Application:=NewDllApp; // Application:=NewDllApp;
end; end;
exports
GetDllForm;
begin
try
NewDllApp:=Application;
DLLProc := @DLLUnloadProc;
except
end; exports
GetDllForm;
begin
try
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except
end;
end. end.

14
坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm
View File

@ -21,7 +21,7 @@ object frmDJBRKList2: TfrmDJBRKList2
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1364 Width = 1356
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -124,7 +124,7 @@ object frmDJBRKList2: TfrmDJBRKList2
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1364 Width = 1356
Height = 72 Height = 72
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -308,7 +308,7 @@ object frmDJBRKList2: TfrmDJBRKList2
#27425#21697#20837#24211) #27425#21697#20837#24211)
end end
object SPColor: TEdit object SPColor: TEdit
Tag = 2 Tag = 1
Left = 613 Left = 613
Top = 8 Top = 8
Width = 80 Width = 80
@ -351,8 +351,8 @@ object frmDJBRKList2: TfrmDJBRKList2
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1224 Width = 1216
Height = 618 Height = 610
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -611,10 +611,10 @@ object frmDJBRKList2: TfrmDJBRKList2
end end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1224 Left = 1216
Top = 105 Top = 105
Width = 140 Width = 140
Height = 618 Height = 610
Align = alRight Align = alRight
TabOrder = 4 TabOrder = 4
Visible = False Visible = False

16
坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas
View File

@ -12,7 +12,21 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxContainer, cxImage, cxDBEdit, ComObj, cxLookAndFeels, cxLookAndFeelPainters, 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 type
FdDy = record FdDy = record

2
成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\项目代码\D7myGuhang\成品仓库(FinishedClothWarehouse.dll)\testDll.exe HostApplication=D:\D7W\项目代码\D7myGuhang\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

16
成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm
View File

@ -20,7 +20,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1339 Width = 1331
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 107
@ -137,7 +137,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1339 Width = 1331
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -363,7 +363,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
'') '')
end end
object spColor: TEdit object spColor: TEdit
Tag = 2 Tag = 1
Left = 607 Left = 607
Top = 8 Top = 8
Width = 80 Width = 80
@ -452,7 +452,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1339 Width = 1331
Height = 30 Height = 30
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
@ -493,7 +493,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object Panel6: TPanel object Panel6: TPanel
Left = 205 Left = 205
Top = 0 Top = 0
Width = 1134 Width = 1126
Height = 30 Height = 30
Align = alClient Align = alClient
AutoSize = True AutoSize = True
@ -501,7 +501,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 1 TabOrder = 1
DesignSize = ( DesignSize = (
1130 1122
26) 26)
object Label1: TLabel object Label1: TLabel
Left = 64 Left = 64
@ -594,8 +594,8 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 131 Top = 131
Width = 1339 Width = 1331
Height = 497 Height = 489
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4

16
成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas
View File

@ -12,7 +12,21 @@ uses
cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
RM_GridReport, cxCheckBox, Menus, MovePanel, RM_E_llPDF, cxCalendar, Math, RM_GridReport, cxCheckBox, Menus, MovePanel, RM_E_llPDF, cxCalendar, Math,
Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, 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 type
TfrmCKGNProductBCPOutList = class(TForm) TfrmCKGNProductBCPOutList = class(TForm)

13
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm
View File

@ -20,7 +20,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1220 Width = 1212
Height = 33 Height = 33
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -128,7 +128,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 33 Top = 33
Width = 1220 Width = 1212
Height = 68 Height = 68
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -326,6 +326,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
TabOrder = 0 TabOrder = 0
end end
object SPColor: TEdit object SPColor: TEdit
Tag = 1
Left = 586 Left = 586
Top = 8 Top = 8
Width = 90 Width = 90
@ -394,8 +395,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 129 Top = 129
Width = 1220 Width = 1212
Height = 478 Height = 470
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -612,14 +613,14 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1220 Width = 1212
Height = 28 Height = 28
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
DesignSize = ( DesignSize = (
1216 1208
24) 24)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25

15
成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas
View File

@ -12,7 +12,20 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, dxCore, 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 type
TfrmCKProductBCPInList = class(TForm) TfrmCKProductBCPInList = class(TForm)

2
染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\ÏîÄ¿´úÂë\D7myGuhang\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myGuhang\ȾÕû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

87
染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm
View File

@ -1,6 +1,6 @@
object frmJYOrderCDList: TfrmJYOrderCDList object frmJYOrderCDList: TfrmJYOrderCDList
Left = 389 Left = 327
Top = 456 Top = 224
Width = 1357 Width = 1357
Height = 727 Height = 727
Caption = #26816#39564#25253#21578 Caption = #26816#39564#25253#21578
@ -34,10 +34,10 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1349 Width = 1341
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 107 ButtonWidth = 137
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Flat = True Flat = True
@ -116,12 +116,12 @@ object frmJYOrderCDList: TfrmJYOrderCDList
Left = 597 Left = 597
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#31859#25968 Caption = #25209#37327#20462#25913#31859#25968'/'#31354#21152
ImageIndex = 11 ImageIndex = 11
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object B1: TToolButton object B1: TToolButton
Left = 708 Left = 738
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#30721#26085#24535 Caption = #25171#30721#26085#24535
@ -129,7 +129,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
OnClick = B1Click OnClick = B1Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 795 Left = 825
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -137,7 +137,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 858 Left = 888
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -148,7 +148,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1349 Width = 1341
Height = 63 Height = 63
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -405,7 +405,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
OnKeyPress = conNOKeyPress OnKeyPress = conNOKeyPress
end end
object spColor: TEdit object spColor: TEdit
Tag = 2 Tag = 1
Left = 205 Left = 205
Top = 32 Top = 32
Width = 100 Width = 100
@ -518,8 +518,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 148 Top = 148
Width = 1349 Width = 1341
Height = 548 Height = 540
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
@ -841,30 +841,37 @@ object frmJYOrderCDList: TfrmJYOrderCDList
Visible = False Visible = False
end end
object Panel2: TPanel object Panel2: TPanel
Left = 536 Left = 534
Top = 212 Top = 213
Width = 297 Width = 297
Height = 133 Height = 133
Color = clSkyBlue Color = clSkyBlue
TabOrder = 5 TabOrder = 5
Visible = False Visible = False
object Label15: TLabel object Label15: TLabel
Left = 4 Left = 10
Top = 44 Top = 19
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #31859#25968 Caption = #31859#25968
end end
object Label13: TLabel object Label13: TLabel
Left = 4 Left = 10
Top = 68 Top = 44
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #31859#25968#33539#22260 Caption = #31859#25968#33539#22260
end end
object Label17: TLabel
Left = 10
Top = 69
Width = 24
Height = 12
Caption = #31354#21152
end
object cxCurrencyEdit1: TcxCurrencyEdit object cxCurrencyEdit1: TcxCurrencyEdit
Left = 56 Left = 62
Top = 40 Top = 15
Properties.DecimalPlaces = 4 Properties.DecimalPlaces = 4
Properties.DisplayFormat = '0.####' Properties.DisplayFormat = '0.####'
Properties.Nullstring = '0' Properties.Nullstring = '0'
@ -872,8 +879,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
Width = 121 Width = 121
end end
object Button1: TButton object Button1: TButton
Left = 192 Left = 198
Top = 40 Top = 17
Width = 60 Width = 60
Height = 21 Height = 21
Caption = #30830#23450 Caption = #30830#23450
@ -890,8 +897,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
OnClick = Button2Click OnClick = Button2Click
end end
object Button8: TButton object Button8: TButton
Left = 192 Left = 198
Top = 64 Top = 40
Width = 60 Width = 60
Height = 21 Height = 21
Caption = #30830#23450 Caption = #30830#23450
@ -899,13 +906,31 @@ object frmJYOrderCDList: TfrmJYOrderCDList
OnClick = Button8Click OnClick = Button8Click
end end
object edit3: TEdit object edit3: TEdit
Left = 55 Left = 62
Top = 65 Top = 40
Width = 122 Width = 122
Height = 20 Height = 20
Hint = '1' Hint = '1'
TabOrder = 4 TabOrder = 4
end 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 end
object Panel5: TPanel object Panel5: TPanel
Left = 868 Left = 868
@ -957,7 +982,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 95 Top = 95
Width = 1349 Width = 1341
Height = 28 Height = 28
Align = alTop Align = alTop
AutoSize = True AutoSize = True
@ -965,7 +990,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
DesignSize = ( DesignSize = (
1345 1337
24) 24)
object Label31: TLabel object Label31: TLabel
Left = 25 Left = 25
@ -1058,7 +1083,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 123 Top = 123
Width = 1349 Width = 1341
Height = 25 Height = 25
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1076,11 +1101,11 @@ object frmJYOrderCDList: TfrmJYOrderCDList
#22269#20869#26126#32454#24211#23384) #22269#20869#26126#32454#24211#23384)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 27 ClientRectBottom = 27
ClientRectRight = 1349 ClientRectRight = 1341
ClientRectTop = 27 ClientRectTop = 27
end end
object Panel3: TPanel object Panel3: TPanel
Left = 116 Left = 115
Top = 172 Top = 172
Width = 369 Width = 369
Height = 165 Height = 165

75
染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas
View File

@ -158,6 +158,9 @@ type
msfw: TEdit; msfw: TEdit;
Label16: TLabel; Label16: TLabel;
kcqty: TEdit; kcqty: TEdit;
Label17: TLabel;
cxCurrencyEdit2: TcxCurrencyEdit;
Button9: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -203,6 +206,7 @@ type
procedure Button3Click(Sender: TObject); procedure Button3Click(Sender: TObject);
procedure Button7Click(Sender: TObject); procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject); procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
private private
DQdate: TDateTime; DQdate: TDateTime;
FLeft, FTop: Integer; FLeft, FTop: Integer;
@ -1534,5 +1538,76 @@ begin
end; end;
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. end.

2
染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm
View File

@ -1352,7 +1352,7 @@ object frmMarkingInspection: TfrmMarkingInspection
end end
object KONGJIA: TEdit object KONGJIA: TEdit
Left = 87 Left = 87
Top = 192 Top = 193
Width = 102 Width = 102
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET