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

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

@ -1,8 +1,8 @@
unit U_MJManageNewFDNew; unit U_MJManageNewFDNew;
interface interface
uses uses
Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
@ -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;
@ -18440,7 +18444,7 @@ begin
end end
else else
exit; exit;
if Trim(Edit6.Text) = '¡Ì' then if Trim(Edit6.Text) = '¡Ì' then
begin begin
PrtData(FFFMJID); PrtData(FFFMJID);
@ -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.