From 14f3173a13f44daf0a16243427fe795a8b10d978 Mon Sep 17 00:00:00 2001 From: ddf Date: Mon, 3 Nov 2025 11:15:56 +0800 Subject: [PATCH] 1 --- .../U_CPCKMdList.dfm | 72 ++++++++++--------- .../U_CPCKMdList.pas | 26 +++---- 2 files changed, 51 insertions(+), 47 deletions(-) diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm index b7ea314..20c98f2 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm @@ -1,6 +1,6 @@ object frmCPCKMdList: TfrmCPCKMdList - Left = 248 - Top = 179 + Left = 572 + Top = 322 Width = 1128 Height = 516 Caption = #30721#21333#25171#21360 @@ -20,7 +20,7 @@ object frmCPCKMdList: TfrmCPCKMdList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1112 + Width = 1120 AutoSize = True ButtonHeight = 30 ButtonWidth = 95 @@ -112,7 +112,7 @@ object frmCPCKMdList: TfrmCPCKMdList object Panel1: TPanel Left = 0 Top = 32 - Width = 1112 + Width = 1120 Height = 93 Align = alTop BevelInner = bvRaised @@ -141,18 +141,19 @@ object frmCPCKMdList: TfrmCPCKMdList Caption = #30003#35831#21333#21495 end object Label3: TLabel - Left = 515 + Left = 531 Top = 12 Width = 24 Height = 12 Caption = #21697#21517 end object Label5: TLabel - Left = 189 - Top = 36 + Left = 869 + Top = 60 Width = 48 Height = 12 Caption = #21512' '#21516' '#21495 + Visible = False end object Label8: TLabel Left = 357 @@ -162,25 +163,26 @@ object frmCPCKMdList: TfrmCPCKMdList Caption = #20986#24211#31867#22411 end object Label12: TLabel - Left = 515 - Top = 36 + Left = 381 + Top = 12 Width = 24 Height = 12 Caption = #32534#21495 end object Label14: TLabel - Left = 357 - Top = 12 - Width = 48 + Left = 531 + Top = 36 + Width = 24 Height = 12 - Caption = #23458' '#25143 + Caption = #23458#25143 end object Label4: TLabel - Left = 656 - Top = 12 + Left = 800 + Top = 28 Width = 24 Height = 12 Caption = #25209#21495 + Visible = False end object Label6: TLabel Left = 64 @@ -196,8 +198,8 @@ object frmCPCKMdList: TfrmCPCKMdList ParentFont = False end object Label7: TLabel - Left = 632 - Top = 35 + Left = 189 + Top = 36 Width = 48 Height = 12 Caption = #25910#36135#21333#20301 @@ -233,7 +235,7 @@ object frmCPCKMdList: TfrmCPCKMdList end object P_CodeName: TEdit Tag = 2 - Left = 541 + Left = 557 Top = 8 Width = 87 Height = 20 @@ -242,11 +244,12 @@ object frmCPCKMdList: TfrmCPCKMdList end object Conno: TEdit Tag = 2 - Left = 246 - Top = 32 + Left = 926 + Top = 56 Width = 87 Height = 20 TabOrder = 6 + Visible = False OnChange = ConnoChange OnKeyPress = ConnoKeyPress end @@ -267,8 +270,8 @@ object frmCPCKMdList: TfrmCPCKMdList end object P_Code: TEdit Tag = 2 - Left = 541 - Top = 32 + Left = 409 + Top = 8 Width = 87 Height = 20 TabOrder = 8 @@ -276,8 +279,8 @@ object frmCPCKMdList: TfrmCPCKMdList end object KHName: TEdit Tag = 2 - Left = 409 - Top = 8 + Left = 557 + Top = 32 Width = 87 Height = 20 TabOrder = 2 @@ -285,17 +288,18 @@ object frmCPCKMdList: TfrmCPCKMdList end object BatchNo: TEdit Tag = 2 - Left = 682 - Top = 8 + Left = 826 + Top = 24 Width = 87 Height = 20 TabOrder = 4 + Visible = False OnChange = P_CodeNameChange end object SHDWName: TEdit Tag = 2 - Left = 682 - Top = 31 + Left = 246 + Top = 32 Width = 87 Height = 20 TabOrder = 9 @@ -322,8 +326,8 @@ object frmCPCKMdList: TfrmCPCKMdList object cxGrid1: TcxGrid Left = 0 Top = 147 - Width = 1112 - Height = 330 + Width = 1120 + Height = 338 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -685,7 +689,7 @@ object frmCPCKMdList: TfrmCPCKMdList object cxTabControl1: TcxTabControl Left = 0 Top = 125 - Width = 1112 + Width = 1120 Height = 22 Align = alTop Font.Charset = GB2312_CHARSET @@ -771,8 +775,8 @@ object frmCPCKMdList: TfrmCPCKMdList ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False - Left = 256 - Top = 260 + Left = 280 + Top = 268 end object ADOQueryDH: TADOQuery Connection = DataLink_FinishedClothWarehouse.ADOLink @@ -810,6 +814,6 @@ object frmCPCKMdList: TfrmCPCKMdList Aggregates = <> Params = <> Left = 443 - Top = 134 + Top = 198 end end diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.pas index a19fd3e..4987507 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.pas @@ -14,18 +14,17 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC, 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; + 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 TfrmCPCKMdList = class(TForm) @@ -193,7 +192,7 @@ begin case cxTabControl1.TabIndex of 0: /////////////////////////////////////////////////////// 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(' 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)'); @@ -275,6 +274,7 @@ procedure TfrmCPCKMdList.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active then begin +// ShowMessage(SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SCreateCDS20(ADOQueryMain, CDS_Main); SInitCDSData20(ADOQueryMain, CDS_Main);