Group_99/D7szYidui
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
ddf 2025-11-03 11:15:56 +08:00
parent eae38d4fd4
commit 14f3173a13
2 changed files with 51 additions and 47 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm
View File

@ -1,6 +1,6 @@
object frmCPCKMdList: TfrmCPCKMdList object frmCPCKMdList: TfrmCPCKMdList
Left = 248 Left = 572
Top = 179 Top = 322
Width = 1128 Width = 1128
Height = 516 Height = 516
Caption = #30721#21333#25171#21360 Caption = #30721#21333#25171#21360
@ -20,7 +20,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1112 Width = 1120
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -112,7 +112,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 32
Width = 1112 Width = 1120
Height = 93 Height = 93
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -141,18 +141,19 @@ object frmCPCKMdList: TfrmCPCKMdList
Caption = #30003#35831#21333#21495 Caption = #30003#35831#21333#21495
end end
object Label3: TLabel object Label3: TLabel
Left = 515 Left = 531
Top = 12 Top = 12
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #21697#21517 Caption = #21697#21517
end end
object Label5: TLabel object Label5: TLabel
Left = 189 Left = 869
Top = 36 Top = 60
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #21512' '#21516' '#21495 Caption = #21512' '#21516' '#21495
Visible = False
end end
object Label8: TLabel object Label8: TLabel
Left = 357 Left = 357
@ -162,25 +163,26 @@ object frmCPCKMdList: TfrmCPCKMdList
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
end end
object Label12: TLabel object Label12: TLabel
Left = 515 Left = 381
Top = 36 Top = 12
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #32534#21495 Caption = #32534#21495
end end
object Label14: TLabel object Label14: TLabel
Left = 357 Left = 531
Top = 12 Top = 36
Width = 48 Width = 24
Height = 12 Height = 12
Caption = #23458' '#25143 Caption = #23458#25143
end end
object Label4: TLabel object Label4: TLabel
Left = 656 Left = 800
Top = 12 Top = 28
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #25209#21495 Caption = #25209#21495
Visible = False
end end
object Label6: TLabel object Label6: TLabel
Left = 64 Left = 64
@ -196,8 +198,8 @@ object frmCPCKMdList: TfrmCPCKMdList
ParentFont = False ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 632 Left = 189
Top = 35 Top = 36
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #25910#36135#21333#20301 Caption = #25910#36135#21333#20301
@ -233,7 +235,7 @@ object frmCPCKMdList: TfrmCPCKMdList
end end
object P_CodeName: TEdit object P_CodeName: TEdit
Tag = 2 Tag = 2
Left = 541 Left = 557
Top = 8 Top = 8
Width = 87 Width = 87
Height = 20 Height = 20
@ -242,11 +244,12 @@ object frmCPCKMdList: TfrmCPCKMdList
end end
object Conno: TEdit object Conno: TEdit
Tag = 2 Tag = 2
Left = 246 Left = 926
Top = 32 Top = 56
Width = 87 Width = 87
Height = 20 Height = 20
TabOrder = 6 TabOrder = 6
Visible = False
OnChange = ConnoChange OnChange = ConnoChange
OnKeyPress = ConnoKeyPress OnKeyPress = ConnoKeyPress
end end
@ -267,8 +270,8 @@ object frmCPCKMdList: TfrmCPCKMdList
end end
object P_Code: TEdit object P_Code: TEdit
Tag = 2 Tag = 2
Left = 541 Left = 409
Top = 32 Top = 8
Width = 87 Width = 87
Height = 20 Height = 20
TabOrder = 8 TabOrder = 8
@ -276,8 +279,8 @@ object frmCPCKMdList: TfrmCPCKMdList
end end
object KHName: TEdit object KHName: TEdit
Tag = 2 Tag = 2
Left = 409 Left = 557
Top = 8 Top = 32
Width = 87 Width = 87
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
@ -285,17 +288,18 @@ object frmCPCKMdList: TfrmCPCKMdList
end end
object BatchNo: TEdit object BatchNo: TEdit
Tag = 2 Tag = 2
Left = 682 Left = 826
Top = 8 Top = 24
Width = 87 Width = 87
Height = 20 Height = 20
TabOrder = 4 TabOrder = 4
Visible = False
OnChange = P_CodeNameChange OnChange = P_CodeNameChange
end end
object SHDWName: TEdit object SHDWName: TEdit
Tag = 2 Tag = 2
Left = 682 Left = 246
Top = 31 Top = 32
Width = 87 Width = 87
Height = 20 Height = 20
TabOrder = 9 TabOrder = 9
@ -322,8 +326,8 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 147 Top = 147
Width = 1112 Width = 1120
Height = 330 Height = 338
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -685,7 +689,7 @@ object frmCPCKMdList: TfrmCPCKMdList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 125 Top = 125
Width = 1112 Width = 1120
Height = 22 Height = 22
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -771,8 +775,8 @@ object frmCPCKMdList: TfrmCPCKMdList
ScaleX = 1.000000000000000000 ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000 ScaleY = 1.000000000000000000
CompressFile = False CompressFile = False
Left = 256 Left = 280
Top = 260 Top = 268
end end
object ADOQueryDH: TADOQuery object ADOQueryDH: TADOQuery
Connection = DataLink_FinishedClothWarehouse.ADOLink Connection = DataLink_FinishedClothWarehouse.ADOLink
@ -810,6 +814,6 @@ object frmCPCKMdList: TfrmCPCKMdList
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 443 Left = 443
Top = 134 Top = 198
end end
end end

26
成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.pas
View File

@ -14,18 +14,17 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinWhiteprint, dxSkinXmas2008Blue;
dxSkinXmas2008Blue;
type type
TfrmCPCKMdList = class(TForm) TfrmCPCKMdList = class(TForm)
@ -193,7 +192,7 @@ begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: /////////////////////////»ã×Ü////////////////////////////// 0: /////////////////////////»ã×Ü//////////////////////////////
begin begin
SQL.Add('SELECT AA.*,C.KHName,C.SYRName,C.ywy,C.DeliveryDate,C.Note,D.P_Code,D.P_CodeName,D.P_Spec,D.P_MF,D.P_KZ,D.P_Color '); SQL.Add('SELECT AA.*,C.KHName,C.SYRName,C.ywy,C.DeliveryDate,C.Note,D.P_CodeName,D.P_Spec,D.P_MF,D.P_KZ,D.P_Color ');
SQL.Add(',E.SQDate,E.SQType,E.Filler,E.Chker,E.ChkTime,E.FHDate,e.ranchang FROM('); SQL.Add(',E.SQDate,E.SQType,E.Filler,E.Chker,E.ChkTime,E.FHDate,e.ranchang FROM(');
Sql.Add(' select A.FHMainid,A.SHDWName,B.FromMainId,B.FromSubId,B.P_Code,B.SQPiQty'); Sql.Add(' select A.FHMainid,A.SHDWName,B.FromMainId,B.FromSubId,B.P_Code,B.SQPiQty');
Sql.Add(' ,FHPiQtyHZ=(select count(JSLen) from CK_Cloth_CR X where X.CKNO=A.FHMainId and X.P_Code=B.P_Code)'); Sql.Add(' ,FHPiQtyHZ=(select count(JSLen) from CK_Cloth_CR X where X.CKNO=A.FHMainId and X.P_Code=B.P_Code)');
@ -275,6 +274,7 @@ procedure TfrmCPCKMdList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
// ShowMessage(SGetFilters(Panel1, 1, 2));
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, CDS_Main); SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main); SInitCDSData20(ADOQueryMain, CDS_Main);