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-08-04 14:52:23 +08:00
parent 71942d866f
commit 69088ab87b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -596,7 +596,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select count(mjid) JTjs,sum(mjlen) JTcd,sum(mjqty4) as JTzl from WFB_MJJY where filler=''' + Trim(DName) + ''' and filltime>getdate()-1 '); 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) ');
Open; Open;
end; end;
Label54.caption := '机台总卷数：' + Trim(ADOQueryMain.fieldbyname('JTjs').AsString); Label54.caption := '机台总卷数：' + Trim(ADOQueryMain.fieldbyname('JTjs').AsString);