From 5d185730696dfd27d9e0895282e646b7b4607be4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 22 Jul 2025 14:50:10 +0800 Subject: [PATCH] ~ --- 打卷检验管理/TradeManage.dpr | 4 ++-- 打卷检验管理/U_CKProductJYHZList.dfm | 24 +++++++++++++++++++++++- 打卷检验管理/U_CKProductJYHZList.pas | 25 +++++++++++++++++++++---- 3 files changed, 46 insertions(+), 7 deletions(-) diff --git a/打卷检验管理/TradeManage.dpr b/打卷检验管理/TradeManage.dpr index ab999ad..cb5a106 100644 --- a/打卷检验管理/TradeManage.dpr +++ b/打卷检验管理/TradeManage.dpr @@ -1,9 +1,9 @@ library TradeManage; uses SysUtils, - classes, + classes, forms, - WinTypes, + WinTypes, WinProcs, U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule}, U_GetDllForm in 'U_GetDllForm.pas', diff --git a/打卷检验管理/U_CKProductJYHZList.dfm b/打卷检验管理/U_CKProductJYHZList.dfm index cd03ff0..64c7057 100644 --- a/打卷检验管理/U_CKProductJYHZList.dfm +++ b/打卷检验管理/U_CKProductJYHZList.dfm @@ -195,6 +195,13 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList Height = 12 Caption = 'PO#' end + object Label16: TLabel + Left = 783 + Top = 40 + Width = 42 + Height = 12 + Caption = #33394' '#21495 + end object MPRTCodeName: TEdit Tag = 2 Left = 266 @@ -262,7 +269,7 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList Tag = 2 Left = 831 Top = 12 - Width = 68 + Width = 79 Height = 20 Style = csDropDownList ItemHeight = 12 @@ -319,6 +326,15 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList TabOrder = 12 OnChange = MPRTCodeNameChange end + object SOrddefstr1: TEdit + Tag = 2 + Left = 830 + Top = 36 + Width = 80 + Height = 20 + TabOrder = 13 + OnChange = MPRTCodeNameChange + end end object cxGrid2: TcxGrid Left = 0 @@ -477,6 +493,12 @@ object frmCKProductJYHZList: TfrmCKProductJYHZList HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column5: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 diff --git a/打卷检验管理/U_CKProductJYHZList.pas b/打卷检验管理/U_CKProductJYHZList.pas index 1a48f91..4ce692c 100644 --- a/打卷检验管理/U_CKProductJYHZList.pas +++ b/打卷检验管理/U_CKProductJYHZList.pas @@ -11,7 +11,21 @@ uses cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxButtonEdit, cxCalendar, RM_System, RM_Common, RM_Class, RM_GridReport, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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 TfrmCKProductJYHZList = class(TForm) @@ -85,6 +99,9 @@ type Tv1Column2: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; + Label16: TLabel; + SOrddefstr1: TEdit; + Tv1Column5: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -148,9 +165,9 @@ begin with ADOQueryMain do begin Close; - sql.Clear; + sql.Clear; Filtered:=False; - sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4, '); + sql.Add('select convert(char(10),A.fillTime,120) as CRTime,A.MJType as CPType,A.MainId,A.MJTypeother as QtyUnit,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.SOrddefstr1, '); sql.Add('count(A.MainId) as JQty,SUM(A.MJLen) as Qty,SUM(A.MJMaoZ) as KGQty,SUM(A.MJQty4) as MJQty4,'); sql.Add('JQty=(select count(*) from WFB_MJJY X where X.SubId=A.SubId),'); sql.Add('SCKROLL=(select sum(mjlen) from WFB_MJJY X where X.SubId=A.SubId and X.ckflag=''ѳ''),'); @@ -163,7 +180,7 @@ begin sql.Add('inner join JYOrder_sub D on D.subID=A.subID '); Sql.add('where A.fillTime>='''+formatdateTime('yyyy-MM-dd',begdate.Date)+''' '); Sql.add('and A.fillTime<'''+formatdateTime('yyyy-MM-dd',enddate.Date+1)+''' '); - Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4'); + Sql.add('group by convert(char(10),A.fillTime,120),A.SubId,A.MJType,A.MainId,A.MJTypeother,A.Mjstr4,C.OrderNo,C.ConNO,D.PRTCodeName,D.PrtColor,D.PrtHX,D.SOrddefstr4,D.SOrddefstr1'); Open; //ShowMessage(SQL.Text); end;