Group_01/D7DJyuebang
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-08-20 14:04:44 +08:00
parent 853f1571eb
commit 2e65b50b11
2 changed files with 8 additions and 8 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\项目代码\D7DJyuebang\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

8
检验管理/U_MJManageNewFDNew.pas
View File

@ -1574,7 +1574,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')'); sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL''),DETM2=dbo.F_Get_MJJY_DETM2(MJID)');
sql.Add('where MJID=''' + Trim(FMJID) + ''' '); sql.Add('where MJID=''' + Trim(FMJID) + ''' ');
execsql; execsql;
end; end;
@ -1830,7 +1830,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid='''+FAPID+''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' '); sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid=''' + FAPID + ''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' ');
Open; Open;
end; end;
Label56.caption := '缸长度：' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString); Label56.caption := '缸长度：' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString);
@ -2536,7 +2536,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid='''+FAPID+''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' '); sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid=''' + FAPID + ''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' ');
// ShowMessage(SQL.text); // ShowMessage(SQL.text);
Open; Open;
end; end;
@ -2725,7 +2725,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid='''+FAPID+''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' '); sql.Add('select sum(MJLen) as CGMJLen from WFB_MJJY where Subid=''' + FAPID + ''' and MJSTR4= ''' + Trim(MJStr4.Text) + ''' ');
Open; Open;
end; end;
Label56.caption := '缸长度：' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString); Label56.caption := '缸长度：' + Trim(ADOTmp.fieldbyname('CGMJLen').AsString);