From eab3c696ecf31c57776b30a0fa00bce738a5dc91 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 14 Oct 2025 15:03:24 +0800 Subject: [PATCH] =?UTF-8?q?=E5=B0=86=E6=9D=BF=E6=A0=87=E7=AD=BE=E7=9A=84?= =?UTF-8?q?=E6=89=93=E5=8D=B0=E7=9A=84=E5=AD=98=E5=82=A8=E8=BF=87=E7=A8=8B?= =?UTF-8?q?=E6=A0=BC=E5=BC=8F=E6=94=B9=E4=B8=8B,=20=E6=94=B9=E6=88=90?= =?UTF-8?q?=E5=A6=82=E4=B8=8B=E8=BF=99=E7=A7=8D.=20=E5=B0=86=E5=8E=9F?= =?UTF-8?q?=E6=9D=A5=E7=9A=84=E6=A0=BC=E5=BC=8F=E5=A4=87=E4=BB=BD,=20?= =?UTF-8?q?=E9=98=B2=E6=AD=A2=E4=BC=9A=E5=9B=9E=E6=BA=AF?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 打卷检验管理/TradeManage.dof | 3 --- 打卷检验管理/U_JYOrderCDOne.dfm | 8 +++---- 打卷检验管理/U_JYOrderCDOne.pas | 6 ++--- 打卷检验管理/U_MJManageNewFDNew.dfm | 34 ++++++++++++++--------------- 打卷检验管理/U_MJManageNewFDNew.pas | 4 ++-- 5 files changed, 26 insertions(+), 29 deletions(-) diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index 32cab34..3fa42c4 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -136,6 +136,3 @@ ProductVersion=1.0.0.0 Comments= [Excluded Packages] c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index ab9ab97..ee62ae6 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1384 + Width = 1392 Height = 92 AutoSize = True ButtonHeight = 30 @@ -285,7 +285,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object Panel1: TPanel Left = 0 Top = 92 - Width = 1384 + Width = 1392 Height = 88 Align = alTop BevelInner = bvRaised @@ -801,8 +801,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object cxGrid1: TcxGrid Left = 0 Top = 180 - Width = 1384 - Height = 538 + Width = 1392 + Height = 546 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 1b709c5..7bb1540 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -1808,7 +1808,7 @@ begin Post; Next; - end + end else Next; end; @@ -2415,7 +2415,7 @@ begin begin Close; sql.Clear; - sql.add('exec P_Do_PrintMd30_Bbq19 '); + sql.add('exec P_Do_PrintMd30_ban_copy1 '); sql.add('@banid=''' + Trim(Order_Main.fieldbyname('banid').AsString) + ''' '); Open; end; @@ -2426,7 +2426,7 @@ begin begin Close; sql.Clear; - sql.add('exec P_Do_PrintMd30_Bbq19 '); + sql.add('exec P_Do_PrintMd30_ban_copy1 '); sql.add('@banid=''' + Trim(Order_Main.fieldbyname('banid').AsString) + ''' '); // ShowMessage(SQL.text); Open; diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 4b5cc3e..4e0a27b 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1,6 +1,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 296 - Top = 147 + Left = 274 + Top = 227 Width = 1366 Height = 824 Caption = #25104#21697#26816#39564 @@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 87 Width = 214 - Height = 698 + Height = 706 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView @@ -125,8 +125,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ScrollBox1: TScrollBox Left = 633 Top = 87 - Width = 717 - Height = 698 + Width = 725 + Height = 706 Align = alClient Color = clWhite ParentColor = False @@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 394 Top = 87 Width = 239 - Height = 698 + Height = 706 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2091,7 +2091,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 214 Top = 87 Width = 180 - Height = 698 + Height = 706 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2100,7 +2100,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 2 Top = 2 Width = 176 - Height = 377 + Height = 385 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2208,7 +2208,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 379 + Top = 387 Width = 176 Height = 28 Align = alBottom @@ -2223,7 +2223,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 648 + Top = 656 Width = 176 Height = 48 Align = alBottom @@ -2239,7 +2239,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel5: TPanel Left = 2 - Top = 407 + Top = 415 Width = 176 Height = 241 Align = alBottom @@ -2515,7 +2515,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1350 + Width = 1358 Height = 30 AutoSize = True ButtonHeight = 30 @@ -2688,7 +2688,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel6: TPanel Left = 0 Top = 30 - Width = 1350 + Width = 1358 Height = 57 Align = alTop BevelInner = bvRaised @@ -3116,8 +3116,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel1: TPanel - Left = 168 - Top = 132 + Left = 200 + Top = 196 Width = 641 Height = 209 Color = clSkyBlue @@ -3170,8 +3170,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel4: TPanel - Left = 200 - Top = 172 + Left = 216 + Top = 252 Width = 641 Height = 209 Color = clSkyBlue diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 4a62383..1bc5833 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -3813,9 +3813,9 @@ begin begin Close; sql.Clear; - sql.add('exec P_Do_PrintMd30_copy1 '); + sql.add('exec P_Do_PrintMd30_ban '); sql.add('@DName=' + quotedstr(Trim(DCode))); - SQL.Add(',@JTType=' + QuotedStr(SCXFlag)); + //SQL.Add(',@JTType=' + QuotedStr(SCXFlag)); // ShowMessage(SQL.text); sql.add('update WFB_MJJY set banflag= 1 from WFB_MJJY A '); SQL.Add(' where A.banno=''' + trim(Banno.Text) + ''' and A.mainID=''' + trim(fMainID) + '''');