Group_02/D7DJxiaoqiang
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-18 16:16:28 +08:00
parent 7d27f9d9d0
commit bdf24ed94f
2 changed files with 53 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -975,7 +975,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel4: TPanel object Panel4: TPanel
Left = 8 Left = 8
Top = 256 Top = 256
Width = 289 Width = 329
Height = 265 Height = 265
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1108,6 +1108,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton19: TSpeedButton
Tag = 9
Left = 265
Top = 11
Width = 58
Height = 228
Caption = #38544#34255
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton19Click
end
end end
end end
object Panel2: TPanel object Panel2: TPanel
@ -1734,7 +1749,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
'1' '1'
'2' '2'
'3' '3'
'4') '4'
'5'
'6')
end end
object MJStr4: TEdit object MJStr4: TEdit
Left = 57 Left = 57
@ -2272,8 +2289,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 638 Left = 635
Top = 326 Top = 322
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised
@ -3275,6 +3292,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 17 TabOrder = 17
OnClick = Button26Click OnClick = Button26Click
end end
object Button27: TButton
Left = 297
Top = 211
Width = 68
Height = 65
Caption = #38544#34255
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 18
OnClick = Button27Click
end
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 732 Left = 732

14
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -295,6 +295,8 @@ type
Button24: TButton; Button24: TButton;
Button25: TButton; Button25: TButton;
Button26: TButton; Button26: TButton;
SpeedButton19: TSpeedButton;
Button27: TButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -371,6 +373,8 @@ type
procedure Button23Click(Sender: TObject); procedure Button23Click(Sender: TObject);
procedure Button24Click(Sender: TObject); procedure Button24Click(Sender: TObject);
procedure Button25Click(Sender: TObject); procedure Button25Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure Button27Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -18491,5 +18495,15 @@ begin
MJLen.OnClick(Mjlen); MJLen.OnClick(Mjlen);
end; end;
procedure TfrmMJManageNewFDNewSF.SpeedButton19Click(Sender: TObject);
begin
Panel4.Visible := False;
end;
procedure TfrmMJManageNewFDNewSF.Button27Click(Sender: TObject);
begin
Panel1.Visible := False;
end;
end. end.