Group_DJD/D7DJxindefeng
8
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-29 14:14:29 +08:00
parent da9fa0cc4a
commit da4befd5b4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
打卷检验管理/U_ProductOrderLBNameSet.pas
View File

@ -1609,7 +1609,7 @@ begin
mvalues := TCXTextEdit(Sender).Text; mvalues := TCXTextEdit(Sender).Text;
with Order_Main do with Order_Main do
begin begin
edit; edit;
fieldbyname('DJDW').Value := mvalues; fieldbyname('DJDW').Value := mvalues;
post; post;
@ -1654,10 +1654,10 @@ FReal:
if order_Main.FieldByName('Ssel').AsBoolean = true then if order_Main.FieldByName('Ssel').AsBoolean = true then
begin begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update JYOrder_Sub Set DJDW=' + Trim(PiZhong.Text)); sql.Add('Update JYOrder_Sub Set DJDW=''' + Trim(PiZhong.Text)+'''');
sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + '''');
ExecSQL; ExecSQL;
end; end;