~

2025-04-07 16:06:17 +08:00 · 2025-04-07 16:06:17 +08:00 · 7d27f9d9d0
commit 7d27f9d9d0
parent fc3ae9ab91
2 changed files with 297 additions and 296 deletions
--- 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
--- 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);