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
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\阿哲\复合检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJazhe\复合检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

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

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