Group_01/D7DJsufeng
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-09-06 16:34:12 +08:00
parent 427f1243db
commit 08be937f66
4 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@ uses
SysUtils,
classes,
forms,
WinTypes,
WinTypes,
WinProcs,
U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
U_GetDllForm in 'U_GetDllForm.pas',

16
打卷检验管理/U_DataLink.pas
View File

@ -4,7 +4,21 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs;
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs,
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;
type
TMyThread = class(TThread)
protected

10
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1623,11 +1623,12 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데관뵀') then
if (trim(ComboBox1.Text) = '쇱駱쯤데관뵀') or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀<EAB480>뵀)')
or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀낀똑)') or (trim(ComboBox1.Text) = '쇱駱쯤데(관뵀낀똑)') then
begin
with ADOQueryTemp do
with ADOQueryTemp do
begin
Close;
Close;
sql.Clear;
sql.add('exec P_Print_CKMDYDL_B ');
sql.add('@DName=' + quotedstr(Trim(DCode)));
@ -1647,7 +1648,8 @@ begin
Open;
end;
end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(낀똑)') or (trim(ComboBox1.Text) = '쇱駱쯤데(路좆)') then
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '쇱駱쯤데(낀똑)')
or (trim(ComboBox1.Text) = '쇱駱쯤데(路좆)') then
begin
with ADOQueryTemp do
begin

6
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -376,7 +376,7 @@ var
Makebar: TMakebar;
Mixtext: TMixtext;
i: Integer;
begin
begin
if CDS_MJID.IsEmpty then
exit;
CDS_MJID.First;
@ -392,6 +392,7 @@ begin
sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('PRTcodename=DBO.F_Get_Order_SubStr(BaoID,''BNPRTcodename''),Sorddefstr5=DBO.F_Get_Order_SubStr(BaoID,''BNPSorddefstr5''),');
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('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen');
@ -593,7 +594,7 @@ end;
procedure TfrmMJManageNewFDNewSF.InitJTXX();
begin
with ADOQueryMain do
begin
begin
Close;
SQL.Clear;
sql.Add('select count(mjid) JTjs,sum(mjlen) JTcd,sum(mjqty4) as JTzl from WFB_MJJY where filler=''' + Trim(DName) + ''' and filltime>convert(char(10),getdate(),120) ');
@ -2853,6 +2854,7 @@ begin
sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('PRTcodename=DBO.F_Get_Order_SubStr(BaoID,''BNPRTcodename''),Sorddefstr5=DBO.F_Get_Order_SubStr(BaoID,''BNPSorddefstr5''),');
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('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen');