Group_01/D7DJwenyuan
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-06 16:33:50 +08:00
parent 656c3d61b3
commit 6b698d00be
4 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -720,7 +720,7 @@ begin
else else
begin begin
//begin //begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;

4
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -1717,9 +1717,9 @@ begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit; exit;
end; end;
if (strtofloatdef(trim(MJLen.Text), 0) < 10) or (strtofloatdef(trim(MJLen1.Text), 0) < 10) then if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then
begin begin
application.MessageBox('长度不足', '提示'); application.MessageBox('长度不足20', '提示');
exit; exit;
end; end;
if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then

3
打卷检验管理/U_ProductOrderLBNameSet.dfm
View File

@ -609,8 +609,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
'' ''
#25353#32568#21495#29983#25104 #25353#32568#21495#29983#25104
#25353#39068#33394#29983#25104 #25353#39068#33394#29983#25104
#25353#35746#21333#29983#25104 #25353#35746#21333#29983#25104)
#26080#35268#21017#29983#25104)
Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 107 Width = 107

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

@ -832,6 +832,22 @@ var
begin begin
mvalues := TCXTextEdit(Sender).Text; mvalues := TCXTextEdit(Sender).Text;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('卷号规则')));
sql.Add(',' + quotedstr(trim('指示单号:' + trim(Order_Main.FieldByName('orderno').AsString) + ' 子表:' + trim(Order_Main.FieldByName('subID').AsString) + '原本规则:' + trim(Order_Main.FieldByName('Orddefstr15').AsString) + '更改之后:' + trim(mvalues))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' ');
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
ExecSQL;
end;
with Order_Main do with Order_Main do
begin begin
edit; edit;
@ -839,16 +855,6 @@ begin
post; post;
end; end;
tv1.Controller.EditingController.ShowEdit(); tv1.Controller.EditingController.ShowEdit();
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' ');
sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
ExecSQL;
end;
end; end;
procedure TfrmProductOrderLBNameSet.ToolButton5Click(Sender: TObject); procedure TfrmProductOrderLBNameSet.ToolButton5Click(Sender: TObject);
@ -1682,7 +1688,7 @@ begin
end; end;
end; end;
next; next;
end; end;
end; end;
CheckBox1.Checked := False; CheckBox1.Checked := False;
with Order_Main do with Order_Main do