From cb4051de6b8c09a8f91f34ef8fc13d72070a04f9 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 5 Feb 2026 17:21:28 +0800 Subject: [PATCH] =?UTF-8?q?=E7=A0=81=E5=8D=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 打卷检验管理/TradeManage.dof | 2 +- 打卷检验管理/U_JYOrderCDOne.dfm | 30 +++++++++---------- 打卷检验管理/U_JYOrderCDOne.pas | 51 ++++++++++++++++++++++++++++++++- 3 files changed, 66 insertions(+), 17 deletions(-) diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index af16b0e..5ba94e0 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\˳\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJjushun\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index ff45b31..6dd245d 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -142,19 +142,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne AutoSize = True Caption = #25209#37327#20462#25913#30382#37325 ImageIndex = 54 - Wrap = True OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 0 - Top = 30 + Left = 1139 + Top = 0 AutoSize = True Caption = #25171#21360#26631#31614 ImageIndex = 96 + Wrap = True OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 87 + Left = 0 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -162,7 +162,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 174 + Left = 87 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 @@ -171,7 +171,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 273 + Left = 186 Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 @@ -179,7 +179,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 384 + Left = 297 Top = 30 AutoSize = True Caption = #25171#21360 @@ -187,7 +187,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton5Click end object Edit3: TEdit - Left = 447 + Left = 360 Top = 30 Width = 68 Height = 30 @@ -202,7 +202,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnKeyPress = Edit3KeyPress end object ComboBox1: TComboBox - Left = 515 + Left = 428 Top = 33 Width = 149 Height = 24 @@ -227,7 +227,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333) end object Edit4: TEdit - Left = 664 + Left = 577 Top = 30 Width = 121 Height = 30 @@ -241,7 +241,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Visible = False end object ToolButton12: TToolButton - Left = 785 + Left = 698 Top = 30 Caption = #20462#25913#30721#21333 ImageIndex = 54 @@ -249,7 +249,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 916 + Left = 829 Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 @@ -257,7 +257,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 1003 + Left = 916 Top = 30 AutoSize = True Caption = #23548#20986 @@ -265,7 +265,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBExportClick end object TBClose: TToolButton - Left = 1066 + Left = 979 Top = 30 AutoSize = True Caption = #20851#38381 @@ -273,7 +273,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBCloseClick end object ToolButton16: TToolButton - Left = 1129 + Left = 1042 Top = 30 Caption = #25209#37327#20462#25913#27611#37325#20928#37325 ImageIndex = 57 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index dd2ab39..c6f4687 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -1529,7 +1529,30 @@ begin // showmessage(sql.text); ExecSQL; end; + if trim(ComboBox1.Text) = '뵥()' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_QXMD '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd_HZ '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''23'' '); + Open; + end; + end; if (trim(ComboBox1.Text) = '뵥(Ӣ)') then begin with ADOQueryTemp do @@ -1682,7 +1705,33 @@ begin Open; end; end; + if (trim(ComboBox1.Text) = '뵥()') then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd20 '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''0'' '); + sql.add(',@CNum=''12'' '); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd_HZ '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''22'' '); + Open; + end; + end; if (trim(ComboBox1.Text) = 'չϸ뵥()') or (trim(ComboBox1.Text) = 'չϸ뵥()') then begin with ADOQueryTemp do @@ -2404,7 +2453,7 @@ begin Order_Main.DisableControls; ADOQueryCmd.Connection.BeginTrans; with Order_Main do - begin + begin First; while not Eof do begin