Group_01/D7DJhuayu
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-10-21 09:34:50 +08:00
parent c4a251ad82
commit 30798189fb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1304,7 +1304,7 @@ begin
Close;
SQL.Clear;
sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A ');
sql.Add(' where A.mainID=''' + Trim(FMainId) + ''' and isnull(A.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
sql.Add(' where A.mainID=''' + Trim(FMainId) + ''' and A.subid=''' + Trim(FsubId) + ''' and isnull(A.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
sql.Add(' order by MJXH Desc');
Open;
end;
@ -1369,7 +1369,7 @@ begin
begin
Close;
sql.Clear;
sql.Add('select subid,MJStr4,MJXH from WFB_MJJY X where X.mainID=''' + Trim(FMainId) + ''' and isnull(X.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
sql.Add('select subid,MJStr4,MJXH from WFB_MJJY X where X.mainID=''' + Trim(FMainId) + ''' and X.subid=''' + Trim(Fsubid) + ''' and isnull(X.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
sql.Add(' Group by subid,MJStr4,MJXH having count(*)>1');
Open;
end;