From eedb221e4de05fa7cf8f6645ed13967e20affa1c Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 11 Sep 2025 16:19:21 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_JYOrderCDOne.pas | 84 ++++++++++++------------ 打卷检验管理/U_MJManageNewFDNew.dfm | 57 ++++++++++++---- 打卷检验管理/U_MJManageNewFDNew.pas | 36 ++++++++-- 打卷检验管理/U_ProductOrderLBNameSet.pas | 6 +- 4 files changed, 120 insertions(+), 63 deletions(-) diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 08207d4..1b709c5 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -1,6 +1,6 @@ unit U_JYOrderCDOne; -interface +interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, @@ -698,53 +698,53 @@ begin Exit; Order_Main.DisableControls; with Order_Main do - begin - First; - while not Eof do + begin +// First; +// while not Eof do +// begin + if Order_Main.FieldByName('SSel').AsBoolean = True then begin - if Order_Main.FieldByName('SSel').AsBoolean = True then + with ADOQueryTemp do 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 Close; sql.Clear; - sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); - Open; + 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; - 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; - Order_Main.Delete; - end - else - Next; + end; + Order_Main.Delete; end; +// else +// Next; +// end; end; Order_Main.EnableControls; @@ -867,7 +867,7 @@ begin MovePanel2.Visible := True; MovePanel2.Refresh; try - ADOQueryMain.DisableControls; + ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; @@ -1808,7 +1808,7 @@ begin Post; Next; - end + end else Next; end; diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index b5307ef..4b5cc3e 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -2774,7 +2774,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False end object Label44: TLabel - Left = 147 + Left = 134 Top = 30 Width = 60 Height = 19 @@ -2816,11 +2816,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False end object Label48: TLabel - Left = 243 + Left = 331 Top = 30 - Width = 100 + Width = 60 Height = 19 - Caption = #27611#37325#36716#38271#24230 + Caption = #27611#36716#38271 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 @@ -2829,7 +2829,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label51: TLabel - Left = 617 + Left = 625 Top = 30 Width = 40 Height = 19 @@ -2856,11 +2856,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label43: TLabel - Left = 373 + Left = 432 Top = 30 - Width = 120 + Width = 80 Height = 19 - Caption = #20013#25991#23383#27573#26631#31614 + Caption = #20013#25991#26631#31614 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 @@ -2895,7 +2895,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label66: TLabel - Left = 528 + Left = 544 Top = 32 Width = 40 Height = 19 @@ -2907,6 +2907,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False 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 Left = 1070 Top = 8 @@ -2967,7 +2980,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit7Click end object Edit9: TEdit - Left = 115 + Left = 102 Top = 27 Width = 28 Height = 27 @@ -3001,7 +3014,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit10Click end object Edit11: TEdit - Left = 214 + Left = 302 Top = 27 Width = 28 Height = 27 @@ -3017,7 +3030,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit11Click end object Edit12: TEdit - Left = 586 + Left = 594 Top = 27 Width = 28 Height = 27 @@ -3054,7 +3067,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF #25163#36755) end object Edit5: TEdit - Left = 341 + Left = 403 Top = 26 Width = 28 Height = 27 @@ -3070,7 +3083,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit5Click end object Edit13: TEdit - Left = 500 + Left = 516 Top = 26 Width = 28 Height = 27 @@ -3085,6 +3098,22 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 10 OnClick = Edit13Click 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 object Panel1: TPanel Left = 168 diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index bed1c07..915e99b 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -290,6 +290,8 @@ type ADOQuery1: TADOQuery; Label66: TLabel; Edit13: TEdit; + Label67: TLabel; + Edit14: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -356,6 +358,7 @@ type procedure Button10Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Edit13Click(Sender: TObject); + procedure Edit14Click(Sender: TObject); private { Private declarations } FInt, PState, PrintInt, SCInitGrid, FState, FCK, FPSXZ: Integer; @@ -734,7 +737,7 @@ begin InitJP(); with ADOTmp do begin - Close; + Close; sql.Clear; sql.Add('select BanZu from SY_User where UserId=''' + Trim(DCode) + ''''); Open; @@ -1711,7 +1714,7 @@ var mvalue1: integer; i: Integer; begin - S1 := false; + S1 := false; if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then begin application.MessageBox('ȻܶΪ㣡', 'ʾϢ', 0); @@ -1719,14 +1722,27 @@ begin end; if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then begin - application.MessageBox('Ȳ20', 'ʾ'); +// application.MessageBox('Ȳ20', 'ʾ'); exit; end; if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then begin - application.MessageBox('ȳ200ύ', 'ʾ'); +// application.MessageBox('ȳ200ύ', 'ʾ'); exit; 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 Exit; @@ -3874,5 +3890,17 @@ begin end; end; +procedure TfrmMJManageNewFDNewSF.Edit14Click(Sender: TObject); +begin + if Trim(Edit14.Text) = '' then + begin + Edit14.Text := ''; + end + else + begin + Edit14.Text := ''; + end; +end; + end. diff --git a/打卷检验管理/U_ProductOrderLBNameSet.pas b/打卷检验管理/U_ProductOrderLBNameSet.pas index ccdb47b..ca8d098 100644 --- a/打卷检验管理/U_ProductOrderLBNameSet.pas +++ b/打卷检验管理/U_ProductOrderLBNameSet.pas @@ -832,15 +832,15 @@ var begin mvalues := TCXTextEdit(Sender).Text; - with ADOQueryCmd do + 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(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(')');