From 29251f234311745a0d5d8479ec3c8589a58e6bd4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 5 Feb 2026 17:25:35 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_JYOrderCDOne.dfm | 66 ++++++++++++++++++++++++++++---- 打卷检验管理/U_JYOrderCDOne.pas | 67 ++++++++++++++++++++++++++++++++- 2 files changed, 123 insertions(+), 10 deletions(-) diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm index b3d538d..706e3c7 100644 --- a/打卷检验管理/U_JYOrderCDOne.dfm +++ b/打卷检验管理/U_JYOrderCDOne.dfm @@ -120,16 +120,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne ImageIndex = 54 OnClick = ToolButton11Click end - object TBDW: TToolButton + object ToolButton18: TToolButton Left = 750 Top = 0 AutoSize = True + Caption = #25209#37327#20462#25913#38376#24133 + ImageIndex = 54 + OnClick = ToolButton18Click + end + object TBDW: TToolButton + Left = 861 + Top = 0 + AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 ImageIndex = 54 OnClick = TBDWClick end object ToolButton16: TToolButton - Left = 861 + Left = 972 Top = 0 AutoSize = True Caption = #36716#21333 @@ -137,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton16Click end object ToolButton4: TToolButton - Left = 924 + Left = 1035 Top = 0 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 @@ -145,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton4Click end object ToolButton13: TToolButton - Left = 1035 + Left = 1146 Top = 0 AutoSize = True Caption = #25209#37327#20928#37325#36716#38271#24230 @@ -154,7 +162,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton13Click end object ToolButton17: TToolButton - Left = 1158 + Left = 1269 Top = 0 AutoSize = True Caption = #25209#37327#20462#25913#25171#30721#26102#38388 @@ -268,13 +276,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolButton12: TToolButton Left = 896 Top = 30 + AutoSize = True Caption = #20462#25913#30721#21333 ImageIndex = 54 Visible = False OnClick = ToolButton12Click end object ToolButton9: TToolButton - Left = 1027 + Left = 983 Top = 30 AutoSize = True Caption = #24322#24120#25968#25454 @@ -282,7 +291,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton9Click end object TBExport: TToolButton - Left = 1114 + Left = 1070 Top = 30 AutoSize = True Caption = #23548#20986 @@ -290,7 +299,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBExportClick end object TBClose: TToolButton - Left = 1177 + Left = 1133 Top = 30 AutoSize = True Caption = #20851#38381 @@ -1938,6 +1947,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne TabOrder = 2 end end + object Panel15: TPanel + Left = 756 + Top = 512 + Width = 225 + Height = 117 + Color = clSkyBlue + TabOrder = 15 + Visible = False + object Label38: TLabel + Left = 24 + Top = 44 + Width = 24 + Height = 12 + Caption = #38376#24133 + end + object Button17: TButton + Left = 32 + Top = 72 + Width = 60 + Height = 25 + Caption = #30830#23450 + TabOrder = 0 + OnClick = Button17Click + end + object Button18: TButton + Left = 128 + Top = 72 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button18Click + end + object FMF: TEdit + Left = 56 + Top = 40 + Width = 125 + Height = 20 + TabOrder = 2 + end + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index 8856e22..ee0572c 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -1,6 +1,6 @@ unit U_JYOrderCDOne; -interface +interface uses Windows, Messages, SysUtils, strUtils, Variants, Classes, Graphics, Controls, @@ -231,6 +231,12 @@ type Button15: TButton; Button16: TButton; DMTIME: TDateTimePicker; + Panel15: TPanel; + Label38: TLabel; + Button17: TButton; + Button18: TButton; + FMF: TEdit; + ToolButton18: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -298,6 +304,9 @@ type procedure ToolButton17Click(Sender: TObject); procedure Button15Click(Sender: TObject); procedure Button16Click(Sender: TObject); + procedure ToolButton18Click(Sender: TObject); + procedure Button18Click(Sender: TObject); + procedure Button17Click(Sender: TObject); // procedure Edit5Click(Sender: TObject); // procedure CheckBox3Click(Sender: TObject); private @@ -466,7 +475,7 @@ begin label23.Caption := ':' + floattostr(sumJZ); Order_Main.Locate('mjid', fid, []); except - application.MessageBox('ʧܣ', 'ʾϢ', 0); + application.MessageBox('ʧܣ', 'ʾϢ', 0); end; end; @@ -2505,5 +2514,59 @@ begin Panel11.Visible := false; end; +procedure TfrmJYOrderCDOne.ToolButton18Click(Sender: TObject); +begin + Panel15.Left := (self.Width - Panel15.Width) div 2; + Panel15.Visible := true; +end; + +procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject); +begin + Panel15.Visible := false; +end; + +procedure TfrmJYOrderCDOne.Button17Click(Sender: TObject); +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set MJFK=''' + trim(FMF.Text) + ''' '); + sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݱɹ', 'ʾϢ'); + Panel15.Visible := false; + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݱʧܣ', 'ʾϢ', 0); + end; +end; + end.