Group_01/D7DJazhe
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-13 16:26:25 +08:00
parent 20e86e368d
commit cbee688bc5
2 changed files with 13 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\项目代码\D7DJazhe\复合检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

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

@ -1245,7 +1245,7 @@ begin
end end
else else
begin begin
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
@ -1668,7 +1668,7 @@ begin
Exit; Exit;
PState := 1; PState := 1;
InitCDGridID(); InitCDGridID();
InitCDGrid(); InitCDGrid();
BtnStatus(True); BtnStatus(True);
Label16.Caption := '新增'; Label16.Caption := '新增';
end; end;
@ -1795,10 +1795,10 @@ begin
PlaySound('wav\修改成功.wav', 0, SND_FILENAME or SND_ASYNC); PlaySound('wav\修改成功.wav', 0, SND_FILENAME or SND_ASYNC);
end; end;
end; end;
BTAdd.Click; BTAdd.Click;
if Trim(Edit6.Text) = '√' then if Trim(Edit6.Text) = '√' then
begin begin
for i := 0 to fRoll.Count - 1 do for i := 0 to fRoll.Count - 1 do
begin begin
PrtData(fRoll.Strings[i]); PrtData(fRoll.Strings[i]);
end; end;
@ -2581,6 +2581,7 @@ begin
sql.Add('from JYOrder_Sub C'); sql.Add('from JYOrder_Sub C');
SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId '); SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId ');
sql.Add('where C.SubID=''' + Trim(APID.Text) + ''''); sql.Add('where C.SubID=''' + Trim(APID.Text) + '''');
// ShowMessage(SQL.text);
Open; Open;
end; end;
if ADOTmp.IsEmpty = False then if ADOTmp.IsEmpty = False then
@ -2608,6 +2609,7 @@ begin
Label2.Visible := true; Label2.Visible := true;
Label2.Caption := '花型:' + Trim(ADOTmp.fieldbyname('PRTHX').AsString); Label2.Caption := '花型:' + Trim(ADOTmp.fieldbyname('PRTHX').AsString);
end; end;
PM.Text := Trim(ADOTmp.fieldbyname('PRTCodeName').AsString); PM.Text := Trim(ADOTmp.fieldbyname('PRTCodeName').AsString);
KH.Text := Trim(ADOTmp.fieldbyname('CustomerNoName').AsString); KH.Text := Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
YS.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString); YS.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString);
@ -2652,6 +2654,7 @@ begin
begin begin
MJXH.Text := inttostr(ADOTmp.fieldbyname('minMJxh').AsInteger - 1); MJXH.Text := inttostr(ADOTmp.fieldbyname('minMJxh').AsInteger - 1);
end; end;
fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString); fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString); fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString); baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString);
@ -2662,8 +2665,10 @@ begin
end; end;
baoid.Text := FBaoID; baoid.Text := FBaoID;
Edit3.Text := '√'; Edit3.Text := '√';
Edit4.Text := ''; Edit4.Text := '';
MJStr4.Text := ''; MJStr4.Text := '';
dingdanhao.Text := Trim(ADOTmp.fieldbyname('OrderNo').AsString);
dingdanhao.OnChange(dingdanhao);
end end
else else
begin begin
@ -3459,11 +3464,11 @@ begin
if Length(dingdanhao.Text) < 2 then if Length(dingdanhao.Text) < 2 then
Exit; Exit;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select '); sql.Add('select ');
sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.dingdanhao=''' + Trim(dingdanhao.Text) + '''),0),'); sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.dingdanhao=''' + Trim(dingdanhao.Text) + ''' and X.YS=''' + trim(YS.text) + '''),0),');
sql.Add(' A.* from WFB_MJJY A where APID=''' + Trim(FAPID) + ''''); sql.Add(' A.* from WFB_MJJY A where APID=''' + Trim(FAPID) + '''');
sql.Add('and mjstr2=''未入库'' '); sql.Add('and mjstr2=''未入库'' ');
SQL.Add('and A.dingdanhao=''' + trim(dingdanhao.text) + ''' '); SQL.Add('and A.dingdanhao=''' + trim(dingdanhao.text) + ''' ');