From 265f133acd2da2f46b8505c7c3c2309ffa7ba0ff Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 30 Aug 2025 16:58:52 +0800 Subject: [PATCH] ~ --- 复合检验管理/U_JYOrderCDOne.dfm | 78 +++++++++++++++++---------------- 复合检验管理/U_JYOrderCDOne.pas | 11 ++--- 2 files changed, 47 insertions(+), 42 deletions(-) diff --git a/复合检验管理/U_JYOrderCDOne.dfm b/复合检验管理/U_JYOrderCDOne.dfm index 8469baa..6b5b7bc 100644 --- a/复合检验管理/U_JYOrderCDOne.dfm +++ b/复合检验管理/U_JYOrderCDOne.dfm @@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 0 Top = 0 Width = 1384 - Height = 92 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 119 @@ -101,28 +101,27 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Top = 0 Caption = #25209#37327#20462#25913#32568#21495 ImageIndex = 54 - Wrap = True OnClick = ToolButton11Click end object TBDW: TToolButton - Left = 0 - Top = 30 + Left = 608 + Top = 0 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 111 - Top = 30 + Left = 719 + Top = 0 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 222 - Top = 30 + Left = 830 + Top = 0 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 ImageIndex = 54 @@ -130,22 +129,23 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton13Click end object ToolButton8: TToolButton - Left = 345 - Top = 30 + Left = 953 + Top = 0 AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 OnClick = ToolButton8Click end object ToolButton14: TToolButton - Left = 456 - Top = 30 + Left = 1064 + Top = 0 Caption = #25209#37327#20462#25913#31995#25968 ImageIndex = 54 + Wrap = True OnClick = ToolButton14Click end object ToolButton1: TToolButton - Left = 575 + Left = 0 Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 @@ -153,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 662 + Left = 87 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -162,34 +162,33 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 749 + Left = 174 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 ImageIndex = 12 - Wrap = True Visible = False OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 0 - Top = 60 + Left = 273 + Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 ImageIndex = 12 OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 111 - Top = 60 + Left = 384 + Top = 30 AutoSize = True Caption = #25171#21360 ImageIndex = 12 OnClick = ToolButton5Click end object Edit3: TEdit - Left = 174 - Top = 60 + Left = 447 + Top = 30 Width = 68 Height = 30 Font.Charset = GB2312_CHARSET @@ -203,8 +202,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 242 - Top = 63 + Left = 515 + Top = 33 Width = 149 Height = 24 Style = csDropDownList @@ -228,8 +227,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333) end object Edit4: TEdit - Left = 391 - Top = 60 + Left = 664 + Top = 30 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -242,32 +241,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 512 - Top = 60 + Left = 785 + Top = 30 Caption = #20462#25913#30721#21333 ImageIndex = 54 Visible = False OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 631 - Top = 60 + Left = 904 + Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 ImageIndex = 2 OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 718 - Top = 60 + Left = 991 + Top = 30 AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBClose: TToolButton - Left = 781 - Top = 60 + Left = 1054 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -276,7 +275,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object Panel1: TPanel Left = 0 - Top = 92 + Top = 62 Width = 1384 Height = 88 Align = alTop @@ -822,9 +821,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object cxGrid1: TcxGrid Left = 0 - Top = 180 + Top = 150 Width = 1384 - Height = 538 + Height = 568 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -1186,6 +1185,11 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column10: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'CKtime' + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/复合检验管理/U_JYOrderCDOne.pas b/复合检验管理/U_JYOrderCDOne.pas index 1496192..6070f0d 100644 --- a/复合检验管理/U_JYOrderCDOne.pas +++ b/复合检验管理/U_JYOrderCDOne.pas @@ -246,6 +246,7 @@ type Label42: TLabel; MJDJ: TcxCurrencyEdit; Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -1669,7 +1670,7 @@ begin sql.add('exec P_Do_PrintMd_HZ '); sql.add('@mainID=' + quotedstr(Trim(''))); sql.add(',@DName=' + quotedstr(Trim(DCode))); - sql.add(',@flag=''2'' '); + sql.add(',@flag=''2'' '); Open; end; end; @@ -1790,7 +1791,7 @@ 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=''ѳ'',CKtime=getdate() where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; @@ -1821,7 +1822,7 @@ begin with Order_Main do begin First; - while not Eof do + while not Eof do begin if Order_Main.FieldByName('SSel').AsBoolean = True then begin @@ -1830,7 +1831,7 @@ begin begin Close; sql.Clear; - sql.Add('update WFB_MJJY set CKFlag=''δ'',MJCKKH=null,CKDH=null,MJDJ=null where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + sql.Add('update WFB_MJJY set CKFlag=''δ'',CKtime=null,MJCKKH=null,CKDH=null,MJDJ=null where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; @@ -1963,7 +1964,7 @@ 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=''ѳ'',MJCKKH=''' + trim(MJCKKH.text) + ''',CKDH=''' + trim(CKDH.text) + ''',MJDJ=''' + trim(MJDJ.Text) + ''' where MJID=''' + Trim(Edit_CKMJID.text) + ''''); + sql.Add('update WFB_MJJY set CKFlag=''ѳ'',CKtime=getdate(),MJCKKH=''' + trim(MJCKKH.text) + ''',CKDH=''' + trim(CKDH.text) + ''',MJDJ=''' + trim(MJDJ.Text) + ''' where MJID=''' + Trim(Edit_CKMJID.text) + ''''); ExecSQL; end; PlaySound('wav\ȷ.wav', 0, SND_FILENAME or SND_ASYNC);