Group_03/D7DJchennuo
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

加码单

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-28 16:00:14 +08:00
parent f7bba8e28d
commit 6687c4f7e2
5 changed files with 37 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\陈亿项目代码\项目代码\辰诺\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJchennuo\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

3
检验管理/U_JYOrderCDOne.dfm
View File

@ -216,7 +216,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333'('#30721#25968')' #26816#39564#30721#21333'('#30721#25968')'
#26816#39564#30721#21333'('#33394#21495')' #26816#39564#30721#21333'('#33394#21495')'
#26816#39564#30721#21333'('#39068#33394#30133#28857')' #26816#39564#30721#21333'('#39068#33394#30133#28857')'
#26816#39564#30721#21333'('#32568#21495#30133#28857')') #26816#39564#30721#21333'('#32568#21495#30133#28857')'
'GB'#30721#21333)
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 664 Left = 664

10
检验管理/U_JYOrderCDOne.pas
View File

@ -427,7 +427,7 @@ begin
end; end;
label22.Caption := 'Æ¥Êý:' + floattostr(sumP); label22.Caption := 'Æ¥Êý:' + floattostr(sumP);
label21.Caption := '长度:' + floattostr(sumLen); label21.Caption := '낀똑:' + floattostr(sumLen);
label20.Caption := 'ëÖØ:' + floattostr(sumMZ); label20.Caption := 'ëÖØ:' + floattostr(sumMZ);
label23.Caption := '¾»ÖØ:' + floattostr(sumJZ); label23.Caption := '¾»ÖØ:' + floattostr(sumJZ);
Order_Main.Locate('mjid', fid, []); Order_Main.Locate('mjid', fid, []);
@ -1124,9 +1124,9 @@ begin
Order_Main.EnableControls; Order_Main.EnableControls;
exit; exit;
end; end;
with ADOQueryPrint do with ADOQueryPrint do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,C.KHorderNo,'); sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,C.KHorderNo,');
sql.Add('PRTCodeName=DBO.F_Get_Order_SubStr(BaoID,''BNCodeName''),'); sql.Add('PRTCodeName=DBO.F_Get_Order_SubStr(BaoID,''BNCodeName''),');
@ -1137,7 +1137,7 @@ begin
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), ');
SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen,SUM(A.MJLen1)as MJLen1');
sql.Add('from WFB_MJJY A'); sql.Add('from WFB_MJJY A');
sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID'); sql.Add(' inner join JYOrder_Sub C on C.SubID=A.SubID');
sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID');
@ -1752,7 +1752,7 @@ begin
end; end;
end; end;
if (trim(ComboBox1.Text) = '检验码单(缸号疵点)') then if (trim(ComboBox1.Text) = '쇱駱쯤데(멂뵀늘듐)') or (trim(ComboBox1.Text) = 'GB쯤데')then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin

20
检验管理/U_MJManageNewFDNew.dfm
View File

@ -22,7 +22,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 214 Width = 214
Height = 620 Height = 612
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -134,8 +134,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 637 Left = 637
Top = 87 Top = 87
Width = 721 Width = 713
Height = 620 Height = 612
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -986,7 +986,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 428 Left = 428
Top = 87 Top = 87
Width = 209 Width = 209
Height = 620 Height = 612
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1985,7 +1985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 214 Left = 214
Top = 87 Top = 87
Width = 214 Width = 214
Height = 620 Height = 612
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1994,7 +1994,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 295 Height = 287
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2102,7 +2102,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 297 Top = 289
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2117,7 +2117,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 325 Top = 317
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2330,7 +2330,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1358 Width = 1350
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2503,7 +2503,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1358 Width = 1350
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

25
检验管理/U_MJManageNewFDNew.pas
View File

@ -10,7 +10,20 @@ uses
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI; MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
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
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -1307,7 +1320,7 @@ begin
end; end;
//////////////////卷号重复判断 //////////////////卷号重复判断
end end
else if fRollType = '无规则生成' then else if fRollType = '无规则生成' then
begin begin
//////////////////跳号判断 //////////////////跳号判断
// with ADOCmd do // with ADOCmd do
@ -1346,7 +1359,7 @@ begin
// if ADOCmd.IsEmpty then // if ADOCmd.IsEmpty then
// begin // begin
// PlaySound('wav\发现跳号.wav', 0, SND_FILENAME or SND_ASYNC); // PlaySound('wav\发现跳号.wav', 0, SND_FILENAME or SND_ASYNC);
// if Application.MessageBox('发现跳号，是否要继续操作!', '提示', 32 + 4) <> IDYes then // if Application.MessageBox('发现跳号，是否要继续操作!', '提示', 32 + 4) <> IDYes then
// begin // begin
// Result := False; // Result := False;
// ADOCmd.Connection.RollbackTrans; // ADOCmd.Connection.RollbackTrans;
@ -1670,7 +1683,7 @@ begin
// exit; // exit;
// end; // end;
if Trim(Edit6.Text) <> '' then if Trim(Edit6.Text) <> '' then
begin begin
with ADOTmp do with ADOTmp do
begin begin
Close; Close;
@ -1812,7 +1825,7 @@ begin
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), ');
SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen,SUM(A.MJLen1)as MJLen1');
sql.Add('from WFB_MJJY A'); sql.Add('from WFB_MJJY A');
sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID'); sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID');
sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID'); sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID');
@ -2858,7 +2871,7 @@ begin
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), ');
SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen,SUM(A.MJLen1)as MJLen1');
sql.Add('from WFB_MJJY A'); sql.Add('from WFB_MJJY A');
sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID'); sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID');
sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID'); sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID');