Group_01/D7DJyinshi
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-22 14:50:10 +08:00
parent 1d5d79daef
commit 5d18573069
3 changed files with 46 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
打卷检验管理/TradeManage.dpr
View File

@ -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',

24
打卷检验管理/U_CKProductJYHZList.dfm
View File

@ -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

25
打卷检验管理/U_CKProductJYHZList.pas
View File

@ -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;