Group_99/D7DJwenyuan
7
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:19:21 +08:00
parent 6b698d00be
commit eedb221e4d
4 changed files with 120 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
unit U_JYOrderCDOne; unit U_JYOrderCDOne;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
@ -698,53 +698,53 @@ begin
Exit; Exit;
Order_Main.DisableControls; Order_Main.DisableControls;
with Order_Main do with Order_Main do
begin begin
First; // First;
while not Eof do // while not Eof do
// begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin begin
if Order_Main.FieldByName('SSel').AsBoolean = True then with ADOQueryTemp do
begin begin
with ADOQueryTemp do Close;
sql.Clear;
sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Order_Main.EnableControls;
Application.MessageBox('已产生入库数据不能删除!', '提示', 0);
Exit;
end
else
begin
//begin
with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.add('insert into WFB_MJJY_Del select * from WFB_MJJY where mjid=''' + trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
Open; sql.Add('update WFB_MJJY_Del Set DelTime=Getdate(),Deler=''' + trim(DName) + ''' where mjid=''' + trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
sql.Add('delete WFB_MJJY where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
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('MJID').AsString) + ' 指示单号:' + trim(Order_Main.FieldByName('subID').AsString) + '缸号:' + trim(Order_Main.FieldByName('MJstr4').AsString) + '卷号:' + trim(Order_Main.FieldByName('MJXH').AsString) + '长度:' + trim(Order_Main.FieldByName('MJLen').AsString) + '净重:' + trim(Order_Main.FieldByName('MJQty4').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end; end;
if ADOQueryTemp.IsEmpty = False then
begin
Order_Main.EnableControls;
Application.MessageBox('已产生入库数据不能删除!', '提示', 0);
Exit;
end
else
begin
//begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add('insert into WFB_MJJY_Del select * from WFB_MJJY where mjid=''' + trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
sql.Add('update WFB_MJJY_Del Set DelTime=Getdate(),Deler=''' + trim(DName) + ''' where mjid=''' + trim(Order_Main.fieldbyname('MJID').AsString) + ''' ');
sql.Add('delete WFB_MJJY where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
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('MJID').AsString) + ' 指示单号:' + trim(Order_Main.FieldByName('subID').AsString) + '缸号:' + trim(Order_Main.FieldByName('MJstr4').AsString) + '卷号:' + trim(Order_Main.FieldByName('MJXH').AsString) + '长度:' + trim(Order_Main.FieldByName('MJLen').AsString) + '净重:' + trim(Order_Main.FieldByName('MJQty4').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
// end; // end;
end; end;
Order_Main.Delete; Order_Main.Delete;
end
else
Next;
end; end;
// else
// Next;
// end;
end; end;
Order_Main.EnableControls; Order_Main.EnableControls;
@ -867,7 +867,7 @@ begin
MovePanel2.Visible := True; MovePanel2.Visible := True;
MovePanel2.Refresh; MovePanel2.Refresh;
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
@ -1808,7 +1808,7 @@ begin
Post; Post;
Next; Next;
end end
else else
Next; Next;
end; end;

57
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -2774,7 +2774,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label44: TLabel object Label44: TLabel
Left = 147 Left = 134
Top = 30 Top = 30
Width = 60 Width = 60
Height = 19 Height = 19
@ -2816,11 +2816,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label48: TLabel object Label48: TLabel
Left = 243 Left = 331
Top = 30 Top = 30
Width = 100 Width = 60
Height = 19 Height = 19
Caption = #27611#37325#36716#38271#24230 Caption = #27611#36716#38271
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -2829,7 +2829,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label51: TLabel object Label51: TLabel
Left = 617 Left = 625
Top = 30 Top = 30
Width = 40 Width = 40
Height = 19 Height = 19
@ -2856,11 +2856,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label43: TLabel object Label43: TLabel
Left = 373 Left = 432
Top = 30 Top = 30
Width = 120 Width = 80
Height = 19 Height = 19
Caption = #20013#25991#23383#27573#26631#31614 Caption = #20013#25991#26631#31614
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -19 Font.Height = -19
@ -2895,7 +2895,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label66: TLabel object Label66: TLabel
Left = 528 Left = 544
Top = 32 Top = 32
Width = 40 Width = 40
Height = 19 Height = 19
@ -2907,6 +2907,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label67: TLabel
Left = 238
Top = 26
Width = 30
Height = 28
Caption = #37325#37327#13#10#38480#21046
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BTAdd: TButton object BTAdd: TButton
Left = 1070 Left = 1070
Top = 8 Top = 8
@ -2967,7 +2980,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit7Click OnClick = Edit7Click
end end
object Edit9: TEdit object Edit9: TEdit
Left = 115 Left = 102
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3001,7 +3014,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit10Click OnClick = Edit10Click
end end
object Edit11: TEdit object Edit11: TEdit
Left = 214 Left = 302
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3017,7 +3030,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit11Click OnClick = Edit11Click
end end
object Edit12: TEdit object Edit12: TEdit
Left = 586 Left = 594
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3054,7 +3067,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
#25163#36755) #25163#36755)
end end
object Edit5: TEdit object Edit5: TEdit
Left = 341 Left = 403
Top = 26 Top = 26
Width = 28 Width = 28
Height = 27 Height = 27
@ -3070,7 +3083,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit5Click OnClick = Edit5Click
end end
object Edit13: TEdit object Edit13: TEdit
Left = 500 Left = 516
Top = 26 Top = 26
Width = 28 Width = 28
Height = 27 Height = 27
@ -3085,6 +3098,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 10 TabOrder = 10
OnClick = Edit13Click OnClick = Edit13Click
end end
object Edit14: TEdit
Left = 206
Top = 27
Width = 28
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 11
Text = #8730
OnClick = Edit14Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 168 Left = 168

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

@ -290,6 +290,8 @@ type
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
Label66: TLabel; Label66: TLabel;
Edit13: TEdit; Edit13: TEdit;
Label67: TLabel;
Edit14: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -356,6 +358,7 @@ type
procedure Button10Click(Sender: TObject); procedure Button10Click(Sender: TObject);
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure Edit13Click(Sender: TObject); procedure Edit13Click(Sender: TObject);
procedure Edit14Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK, FPSXZ: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK, FPSXZ: Integer;
@ -734,7 +737,7 @@ begin
InitJP(); InitJP();
with ADOTmp do with ADOTmp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select BanZu from SY_User where UserId=''' + Trim(DCode) + ''''); sql.Add('select BanZu from SY_User where UserId=''' + Trim(DCode) + '''');
Open; Open;
@ -1711,7 +1714,7 @@ var
mvalue1: integer; mvalue1: integer;
i: Integer; i: Integer;
begin begin
S1 := false; S1 := false;
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
begin begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
@ -1719,14 +1722,27 @@ begin
end; end;
if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then
begin begin
application.MessageBox('长度不足20', '提示'); // 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
begin begin
application.MessageBox('长度超出200不能提交', '提示'); // application.MessageBox('长度超出200不能提交', '提示');
exit; exit;
end; end;
if Trim(Edit14.Text) = '' then
begin
end
else
begin
if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5) or (strtofloatdef(trim(MJQty4.Text), 0) < 5) then
begin
// application.MessageBox('重量不能提交', '提示');
exit;
end;
end;
if Trim(FAPID) = '' then if Trim(FAPID) = '' then
Exit; Exit;
@ -3874,5 +3890,17 @@ begin
end; end;
end; end;
procedure TfrmMJManageNewFDNewSF.Edit14Click(Sender: TObject);
begin
if Trim(Edit14.Text) = '' then
begin
Edit14.Text := '√';
end
else
begin
Edit14.Text := '';
end;
end;
end. end.

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

@ -832,15 +832,15 @@ var
begin begin
mvalues := TCXTextEdit(Sender).Text; mvalues := TCXTextEdit(Sender).Text;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() '); sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption))); sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('¾íºÅ¹æÔò'))); 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('指示单号:' + 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(',' + quotedstr(trim('成功')));
sql.Add(')'); sql.Add(')');