Group_DJD/D7DJfengqingyu
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-12-02 17:17:43 +08:00
parent f4f38fa7dd
commit f55c19f5e5
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -1079,7 +1079,7 @@ begin
begin begin
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY X where X.mainID=''' + trim(fmainId) + ''' '); sql.Add('from WFB_MJJY X where X.mainID=''' + trim(fmainId) + ''' ');
@ -1091,12 +1091,13 @@ begin
begin begin
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' '); sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text))); sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
sql.add('and X.dingdanhao=' + quotedstr(trim(dingdanhao.text))); sql.add('and X.dingdanhao=' + quotedstr(trim(dingdanhao.text)));
sql.add('and X.YS=' + quotedstr(trim(YS.text)));
Open; Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString); MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end; end;
@ -1302,8 +1303,8 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X '); sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.subID=WFB_MJJY.subID and isnull(X.mjstr4,'''')=isnull(WFB_MJJY.mjstr4,'''') ');
sql.Add(' where X.subID=WFB_MJJY.subID and isnull(X.mjstr4,'''')=isnull(WFB_MJJY.mjstr4,'''') and isnull(X.dingdanhao,'''')=isnull(WFB_MJJY.dingdanhao,'''') and X.MJID<>WFB_MJJY.MJID),0) '); sql.Add(' and isnull(X.dingdanhao,'''')=isnull(WFB_MJJY.dingdanhao,'''')and isnull(X.YS,'''')=isnull(WFB_MJJY.YS,'''') and X.MJID<>WFB_MJJY.MJID),0) ');
sql.Add('where MJID=''' + Trim(maxno) + ''''); sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql; execsql;
end; end;
@ -1450,8 +1451,8 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A '); sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A where A.mainID=''' + Trim(FMainId) + ''' and isnull(A.dingdanhao,'''')=''' + Trim(dingdanhao.Text) + ''' ');
sql.Add(' where A.mainID=''' + Trim(FMainId) + ''' and isnull(A.dingdanhao,'''')=''' + Trim(dingdanhao.Text) + ''' and isnull(A.MJStr4,'''')=''' + Trim(MJStr4.Text) + ''''); sql.Add(' and isnull(A.YS,'''')=''' + Trim(YS.Text) + ''' and isnull(A.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
sql.Add(' order by MJXH Desc'); sql.Add(' order by MJXH Desc');
Open; Open;
end; end;
@ -1516,8 +1517,8 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select subid,MJStr4,MJXH from WFB_MJJY X where X.mainID=''' + Trim(FMainId) + ''' and isnull(X.dingdanhao,'''')=''' + Trim(dingdanhao.Text) + ''' and isnull(X.MJStr4,'''')=''' + Trim(MJStr4.Text) + ''''); sql.Add('select subid,MJStr4,MJXH from WFB_MJJY X where X.mainID=''' + Trim(FMainId) + ''' and isnull(X.dingdanhao,'''')=''' + Trim(dingdanhao.Text) + ''' ');
sql.Add(' Group by subid,MJStr4,MJXH having count(*)>1'); sql.Add(' and isnull(X.MJStr4,'''')=''' + Trim(MJStr4.Text) + ''' and isnull(X.YS,'''')=''' + Trim(YS.Text) + ''' Group by subid,MJStr4,MJXH having count(*)>1');
Open; Open;
end; end;
@ -2757,7 +2758,7 @@ end;
procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject); procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
begin begin
// MJLen.Text:=JsXj(MJLen.Text); // MJLen.Text:=JsXj(MJLen.Text);
MJLen1.Text := MJLen.Text; MJLen1.Text := MJLen.Text;
end; end;
procedure TfrmMJManageNewFDNewSF.MJQty3Change(Sender: TObject); procedure TfrmMJManageNewFDNewSF.MJQty3Change(Sender: TObject);
@ -2802,6 +2803,7 @@ begin
sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' '); sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text))); sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
sql.add('and X.dingdanhao=' + quotedstr(trim(dingdanhao.text))); sql.add('and X.dingdanhao=' + quotedstr(trim(dingdanhao.text)));
sql.add('and X.YS=' + quotedstr(trim(YS.text)));
Open; Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString); MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end; end;
@ -2844,6 +2846,7 @@ begin
sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' '); sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text))); sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
sql.add('and X.dingdanhao=' + quotedstr(trim(dingdanhao.text))); sql.add('and X.dingdanhao=' + quotedstr(trim(dingdanhao.text)));
sql.add('and X.YS=' + quotedstr(trim(YS.text)));
Open; Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString); MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end; end;