From 7d27f9d9d07ad7e649fbbb7d3e22da83ffeb4f7b Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 7 Apr 2025 16:06:17 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_MJManageNewFDNew.dfm | 558 ++++++++++++++-------------- 打卷检验管理/U_MJManageNewFDNew.pas | 35 +- 2 files changed, 297 insertions(+), 296 deletions(-) diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 8a664c5..2b9d737 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -972,284 +972,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False OnClick = SpeedButton13Click end - object Panel1: TPanel - Left = 344 - Top = 332 - Width = 369 - Height = 285 - TabOrder = 0 - Visible = False - object Button8: TButton - Left = 5 - Top = 4 - Width = 68 - Height = 65 - Caption = 'A' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 0 - OnClick = Button8Click - end - object Button9: TButton - Left = 81 - Top = 4 - Width = 67 - Height = 65 - Caption = 'B' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = Button9Click - end - object Button10: TButton - Left = 153 - Top = 4 - Width = 67 - Height = 65 - Caption = 'C' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - OnClick = Button10Click - end - object Button11: TButton - Left = 225 - Top = 4 - Width = 67 - Height = 65 - Caption = 'D' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - OnClick = Button11Click - end - object Button13: TButton - Left = 5 - Top = 72 - Width = 67 - Height = 65 - Caption = 'F' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 4 - OnClick = Button13Click - end - object Button14: TButton - Left = 81 - Top = 72 - Width = 67 - Height = 65 - Caption = 'G' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 5 - OnClick = Button14Click - end - object Button15: TButton - Left = 153 - Top = 72 - Width = 67 - Height = 65 - Caption = 'H' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 6 - OnClick = Button15Click - end - object Button16: TButton - Left = 225 - Top = 72 - Width = 67 - Height = 65 - Caption = 'I' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 7 - OnClick = Button16Click - end - object Button17: TButton - Left = 297 - Top = 4 - Width = 68 - Height = 65 - Caption = 'E' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 8 - OnClick = Button17Click - end - object Button18: TButton - Left = 81 - Top = 144 - Width = 68 - Height = 65 - Caption = '2' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 9 - OnClick = Button18Click - end - object Button19: TButton - Left = 153 - Top = 144 - Width = 68 - Height = 65 - Caption = '3' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 10 - OnClick = Button19Click - end - object Button20: TButton - Left = 225 - Top = 144 - Width = 68 - Height = 65 - Caption = '4' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 11 - OnClick = Button20Click - end - object Button21: TButton - Left = 297 - Top = 144 - Width = 68 - Height = 65 - Caption = '5' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 12 - OnClick = Button21Click - end - object Button22: TButton - Left = 5 - Top = 212 - Width = 68 - Height = 65 - Caption = '6' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 13 - OnClick = Button22Click - end - object Button23: TButton - Left = 81 - Top = 212 - Width = 68 - Height = 65 - Caption = '7' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 14 - OnClick = Button23Click - end - object Button24: TButton - Left = 153 - Top = 212 - Width = 68 - Height = 65 - Caption = '8' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 15 - OnClick = Button24Click - end - object Button25: TButton - Left = 225 - Top = 212 - Width = 68 - Height = 65 - Caption = '9' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 16 - OnClick = Button25Click - end - object Button26: TButton - Left = 5 - Top = 144 - Width = 68 - Height = 65 - Caption = '1' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -35 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 17 - OnClick = Button26Click - end - end object Panel4: TPanel Left = 8 Top = 256 @@ -1258,7 +980,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue - TabOrder = 1 + TabOrder = 0 Visible = False object SpeedButton21: TSpeedButton Left = 5 @@ -3276,6 +2998,284 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit5Click end end + object Panel1: TPanel + Left = 56 + Top = 244 + Width = 369 + Height = 285 + TabOrder = 8 + Visible = False + object Button8: TButton + Left = 5 + Top = 4 + Width = 68 + Height = 65 + Caption = 'A' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = Button8Click + end + object Button9: TButton + Left = 81 + Top = 4 + Width = 67 + Height = 65 + Caption = 'B' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = Button9Click + end + object Button10: TButton + Left = 153 + Top = 4 + Width = 67 + Height = 65 + Caption = 'C' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = Button10Click + end + object Button11: TButton + Left = 225 + Top = 4 + Width = 67 + Height = 65 + Caption = 'D' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = Button11Click + end + object Button13: TButton + Left = 5 + Top = 72 + Width = 67 + Height = 65 + Caption = 'F' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = Button13Click + end + object Button14: TButton + Left = 81 + Top = 72 + Width = 67 + Height = 65 + Caption = 'G' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = Button14Click + end + object Button15: TButton + Left = 153 + Top = 72 + Width = 67 + Height = 65 + Caption = 'H' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = Button15Click + end + object Button16: TButton + Left = 225 + Top = 72 + Width = 67 + Height = 65 + Caption = 'I' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = Button16Click + end + object Button17: TButton + Left = 297 + Top = 4 + Width = 68 + Height = 65 + Caption = 'E' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = Button17Click + end + object Button18: TButton + Left = 81 + Top = 144 + Width = 68 + Height = 65 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = Button18Click + end + object Button19: TButton + Left = 153 + Top = 144 + Width = 68 + Height = 65 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = Button19Click + end + object Button20: TButton + Left = 225 + Top = 144 + Width = 68 + Height = 65 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = Button20Click + end + object Button21: TButton + Left = 297 + Top = 144 + Width = 68 + Height = 65 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = Button21Click + end + object Button22: TButton + Left = 5 + Top = 212 + Width = 68 + Height = 65 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + OnClick = Button22Click + end + object Button23: TButton + Left = 81 + Top = 212 + Width = 68 + Height = 65 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = Button23Click + end + object Button24: TButton + Left = 153 + Top = 212 + Width = 68 + Height = 65 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 15 + OnClick = Button24Click + end + object Button25: TButton + Left = 225 + Top = 212 + Width = 68 + Height = 65 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + OnClick = Button25Click + end + object Button26: TButton + Left = 5 + Top = 144 + Width = 68 + Height = 65 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -35 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + OnClick = Button26Click + end + end object cxStyleRepository1: TcxStyleRepository Left = 732 Top = 144 diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 268f68a..a70f706 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -262,6 +262,20 @@ type RM3: TRMGridReport; Edit5: TEdit; Label43: TLabel; + Label53: TLabel; + CC: TEdit; + Label54: TLabel; + CZ: TEdit; + Panel4: TPanel; + SpeedButton21: TSpeedButton; + SpeedButton30: TSpeedButton; + SpeedButton39: TSpeedButton; + SpeedButton44: TSpeedButton; + SpeedButton48: TSpeedButton; + SpeedButton58: TSpeedButton; + SpeedButton67: TSpeedButton; + SpeedButton76: TSpeedButton; + SpeedButton83: TSpeedButton; Panel1: TPanel; Button8: TButton; Button9: TButton; @@ -281,20 +295,6 @@ type Button24: TButton; Button25: TButton; Button26: TButton; - Label53: TLabel; - CC: TEdit; - Label54: TLabel; - CZ: TEdit; - Panel4: TPanel; - SpeedButton21: TSpeedButton; - SpeedButton30: TSpeedButton; - SpeedButton39: TSpeedButton; - SpeedButton44: TSpeedButton; - SpeedButton48: TSpeedButton; - SpeedButton58: TSpeedButton; - SpeedButton67: TSpeedButton; - SpeedButton76: TSpeedButton; - SpeedButton83: TSpeedButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -13325,8 +13325,8 @@ begin end else begin - maxno := Trim(FMJID); - Edit; + maxno := Trim(FMJID); + Edit; end; FieldByName('MainId').value := Trim(FMainId); FieldByName('SubId').value := Trim(FSubId); @@ -14896,12 +14896,13 @@ begin begin for i := 0 to ControlCount - 1 do begin - if Controls[i] is TSpeedButton then + if Controls[i] is TSpeedButton then begin TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; + Panel1.Visible := True; end; procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);