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
Left = 8
Top = 256
Width = 289
Width = 329
Height = 265
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1108,6 +1108,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False
OnClick = SpeedButton1Click
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
object Panel2: TPanel
@ -1734,7 +1749,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
'1'
'2'
'3'
'4')
'4'
'5'
'6')
end
object MJStr4: TEdit
Left = 57
@ -2272,8 +2289,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
end
object Panel3: TPanel
Left = 638
Top = 326
Left = 635
Top = 322
Width = 353
Height = 334
BevelInner = bvRaised
@ -3275,6 +3292,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 17
OnClick = Button26Click
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
object cxStyleRepository1: TcxStyleRepository
Left = 732

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

@ -1,8 +1,8 @@
unit U_MJManageNewFDNew;
interface
interface
uses
uses
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
@ -295,6 +295,8 @@ type
Button24: TButton;
Button25: TButton;
Button26: TButton;
SpeedButton19: TSpeedButton;
Button27: TButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -371,6 +373,8 @@ type
procedure Button23Click(Sender: TObject);
procedure Button24Click(Sender: TObject);
procedure Button25Click(Sender: TObject);
procedure SpeedButton19Click(Sender: TObject);
procedure Button27Click(Sender: TObject);
private
{ Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -18440,7 +18444,7 @@ begin
end
else
exit;
if Trim(Edit6.Text) = '¡Ì' then
begin
PrtData(FFFMJID);
@ -18491,5 +18495,15 @@ begin
MJLen.OnClick(Mjlen);
end;
procedure TfrmMJManageNewFDNewSF.SpeedButton19Click(Sender: TObject);
begin
Panel4.Visible := False;
end;
procedure TfrmMJManageNewFDNewSF.Button27Click(Sender: TObject);
begin
Panel1.Visible := False;
end;
end.