Group_01/D7DJlanshan
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-09-11 16:22:11 +08:00
parent b8ee966581
commit cb960ae88c
2 changed files with 55 additions and 9 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\项目代码\D7DJlanshan\打卷检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

62
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -3,7 +3,7 @@ unit U_JYOrderCDOne;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
@ -1921,6 +1921,31 @@ begin
if Application.MessageBox('确定要出库吗？', '提示', 32 + 4) <> IDYES then
Exit;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''已出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Order_Main.Edit;
Order_Main.FieldByName('CKFlag').Value := '已出库';
Order_Main.FieldByName('SSel').AsBoolean := false;
Order_Main.Post;
end
else
Next;
end;
end;
Order_Main.EnableControls;
{ Order_Main.DisableControls;
with Order_Main do
begin
First;
@ -1936,18 +1961,16 @@ begin
sql.Add('update WFB_MJJY set CKFlag=''已出库'',CKtime=Getdate(),CKer=''' + trim(DName) + ''' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Edit;
FieldByName('CKFlag').Value := '已出库';
Post;
Next;
end
else
Next;
end;
end;
Order_Main.EnableControls;
Order_Main.EnableControls; }
end;
@ -1963,12 +1986,36 @@ begin
Order_Main.DisableControls;
with Order_Main do
begin
First;
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY set CKFlag=''未出库'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Order_Main.Edit;
Order_Main.FieldByName('CKFlag').Value := '未出库';
Order_Main.FieldByName('SSel').AsBoolean := false;
Order_Main.Post;
end
else
Next;
end;
end;
Order_Main.EnableControls;
{ Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
//begin
with ADOQueryCmd do
begin
Close;
@ -1976,7 +2023,6 @@ begin
sql.Add('update WFB_MJJY set CKFlag=''未出库'',CKtime=null,CKer=null where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
Edit;
FieldByName('CKFlag').Value := '未出库';
FieldByName('SSel').AsBoolean := False;
@ -1987,7 +2033,7 @@ begin
Next;
end;
end;
Order_Main.EnableControls;
Order_Main.EnableControls; }
end;