From a77b9e2072fdad36fee6b74087e7018b386e1edc Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 31 Oct 2025 09:20:09 +0800 Subject: [PATCH] =?UTF-8?q?=E6=A3=80=E9=AA=8C=E4=BF=A1=E6=81=AF=E7=AE=A1?= =?UTF-8?q?=E7=90=86:=20=E5=B0=86=E5=87=BA=E5=BA=93=E6=97=A5=E6=9C=9F?= =?UTF-8?q?=E6=98=BE=E7=A4=BA=E4=B8=80=E4=B8=8B?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 检验管理/U_JYOrderCDOne.dfm | 26 +++++------ 检验管理/U_JYOrderCDOne.pas | 91 +++++++++++++++++++------------------ 2 files changed, 61 insertions(+), 56 deletions(-) diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index 064e045..1ed8796 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -1,6 +1,6 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne - Left = 405 - Top = 314 + Left = 680 + Top = 458 Width = 1382 Height = 754 Caption = #26816#39564#25253#21578 @@ -1183,8 +1183,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end end object MovePanel2: TMovePanel - Left = 416 - Top = 192 + Left = 448 + Top = 176 Width = 289 Height = 49 BevelInner = bvLowered @@ -1247,8 +1247,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end end object Panel2: TPanel - Left = 480 - Top = 268 + Left = 544 + Top = 460 Width = 273 Height = 101 Color = clSkyBlue @@ -1308,8 +1308,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end end object Panel3: TPanel - Left = 503 - Top = 203 + Left = 855 + Top = 411 Width = 231 Height = 216 TabOrder = 6 @@ -1398,7 +1398,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object RadioGroup2: TRadioGroup Left = 56 - Top = 24 + Top = 56 Width = 129 Height = 145 ItemIndex = 0 @@ -1599,8 +1599,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end end object Panel9: TPanel - Left = 788 - Top = 264 + Left = 1036 + Top = 280 Width = 225 Height = 117 Color = clSkyBlue @@ -1642,8 +1642,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end end object Panel_SMCK: TPanel - Left = 456 - Top = 204 + Left = 120 + Top = 492 Width = 317 Height = 97 Color = clSkyBlue diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index db7e455..6d69525 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -10,8 +10,8 @@ uses cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer,ShellAPI, - cxCurrencyEdit,MMSystem; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, + cxCurrencyEdit, MMSystem; type TfrmJYOrderCDOne = class(TForm) @@ -480,15 +480,15 @@ begin TBManage.Visible := True; v1Column22.visible := True; v1Column15.Options.Focusing := True; - TCPDB.Visible:=True; - TBPrintBao.Visible:=True; + TCPDB.Visible := True; + TBPrintBao.Visible := True; - TBck.Visible:=true; - TBSMck.Visible:=True; - TBnoCK.Visible:=True; - TBDW.Visible:=True; - TBMS.Visible:=True; - TBPZ.Visible:=True; + TBck.Visible := true; + TBSMck.Visible := True; + TBnoCK.Visible := True; + TBDW.Visible := True; + TBMS.Visible := True; + TBPZ.Visible := True; end; if Trim(DParameters2) = 'Ʒ' then @@ -502,13 +502,13 @@ begin TBZF.Visible := False; TBManage.Visible := False; v1Column22.visible := False; - TBck.Visible:=false; - TBSMck.Visible:=false; - TBnoCK.Visible:=false; - TBDW.Visible:=false; - TBMS.Visible:=false; - TBPZ.Visible:=false; - TCPDB.Visible:=True; + TBck.Visible := false; + TBSMck.Visible := false; + TBnoCK.Visible := false; + TBDW.Visible := false; + TBMS.Visible := false; + TBPZ.Visible := false; + TCPDB.Visible := True; TBPrintBao.Visible := True; end; if Trim(DParameters2) = '' then @@ -516,12 +516,12 @@ begin TBZF.Visible := False; TBManage.Visible := False; v1Column22.visible := False; - TBck.Visible:=false; - TBSMck.Visible:=false; - TBnoCK.Visible:=false; - TBDW.Visible:=false; - TBMS.Visible:=false; - TBPZ.Visible:=false; + TBck.Visible := false; + TBSMck.Visible := false; + TBnoCK.Visible := false; + TBDW.Visible := false; + TBMS.Visible := false; + TBPZ.Visible := false; // TCPDB.Visible:=False; end; end; @@ -800,8 +800,6 @@ begin TBFind.Click; end; - - procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -871,7 +869,8 @@ end; procedure TfrmJYOrderCDOne.TBPrintJYBBClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; if Order_Main.Locate('SSel', True, []) = False then begin @@ -1384,7 +1383,6 @@ var sqlStr: string; begin - if Order_Main.IsEmpty then Exit; if trim(ComboBox1.Text) = '' then @@ -1463,7 +1461,7 @@ begin ExecSQL; end; - if (trim(ComboBox1.Text) = '뵥(Ӣ)') or (trim(ComboBox1.Text) = '뵥()') OR (trim(ComboBox1.Text) = '뵥2') then + if (trim(ComboBox1.Text) = '뵥(Ӣ)') or (trim(ComboBox1.Text) = '뵥()') or (trim(ComboBox1.Text) = '뵥2') then begin with ADOQueryTemp do begin @@ -1566,7 +1564,7 @@ begin end; end; - if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') OR (trim(ComboBox1.Text) = '뵥(ӡ)') then + if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') or (trim(ComboBox1.Text) = '뵥(ӡ)') then begin with ADOQueryTemp do begin @@ -1574,7 +1572,7 @@ begin sql.Clear; sql.add('exec P_Print_CKMD '); sql.add('@mainID=' + quotedstr(Trim(''))); - sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); Open; end; SCreateCDS20(ADOQueryTemp, CDS_HZ); @@ -1591,7 +1589,7 @@ begin Open; end; end; - if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') OR (trim(ComboBox1.Text) = '뵥(ӡ)') then + if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') or (trim(ComboBox1.Text) = '뵥(ӡ)') then begin with ADOQueryTemp do begin @@ -1599,7 +1597,7 @@ begin sql.Clear; sql.add('exec P_Print_CKMDDB '); sql.add('@mainID=' + quotedstr(Trim(''))); - sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); Open; end; SCreateCDS20(ADOQueryTemp, CDS_HZ); @@ -1709,7 +1707,7 @@ begin Close; sql.Clear; sql.Add('update WFB_MJJY set CKFlag=''ѳ'' '); - sql.Add(' ckTime=Getdate(),Cker=''' + trim(DName) + ''''); + sql.Add(' ,ckTime=Getdate(),Cker=''' + trim(DName) + ''''); sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; @@ -1725,7 +1723,7 @@ begin end; end; Order_Main.EnableControls; - + InitGrid(); end; procedure TfrmJYOrderCDOne.TBNoCKClick(Sender: TObject); @@ -1750,7 +1748,10 @@ begin begin Close; sql.Clear; - sql.Add('update WFB_MJJY set CKFlag=''δ'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + //sql.Add('update WFB_MJJY set CKFlag=''δ'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('update WFB_MJJY set CKFlag=''δ'' '); + sql.Add(' ,ckTime=null,Cker=null'); + sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; @@ -1765,7 +1766,7 @@ begin end; end; Order_Main.EnableControls; - + InitGrid(); end; procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject); @@ -1871,32 +1872,36 @@ begin panel3.Visible := false; end; -procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmJYOrderCDOne.Edit_CKMJIDKeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin - IF trim(Edit_CKMJID.Text)='' then exit; + if trim(Edit_CKMJID.Text) = '' then + exit; try with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('update WFB_MJJY set CKFlag=''ѳ'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + // sql.Add('update WFB_MJJY set CKFlag=''ѳ'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('update WFB_MJJY set CKFlag=''ѳ'' '); + sql.Add(' ,ckTime=Getdate(),Cker=''' + trim(DName) + ''''); + sql.add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; PlaySound('wav\ȷ.wav', 0, SND_FILENAME or SND_ASYNC); except PlaySound('wav\ɨ.wav', 0, SND_FILENAME or SND_ASYNC); end; - Edit_CKMJID.Text:=''; + Edit_CKMJID.Text := ''; end; + InitGrid(); end; procedure TfrmJYOrderCDOne.Button_CKSMClick(Sender: TObject); begin - Panel_SMCK.Visible:=false; + Panel_SMCK.Visible := false; end; procedure TfrmJYOrderCDOne.TBSMCKClick(Sender: TObject);