Group_99/D7DJwenyuan
10
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

取消 20米以下不让出标签的限制

Browse Source
This commit is contained in:
libingpeng 2025-12-05 11:39:25 +08:00
parent eab3c696ec
commit efea4acbf2
3 changed files with 127 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
打卷检验管理/TradeManage.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkRoom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringTime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinXmas2008Blue=0

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

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 274 Left = 174
Top = 227 Top = 24
Width = 1366 Width = 1366
Height = 824 Height = 824
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -1195,8 +1195,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label30: TLabel object Label30: TLabel
Left = 20 Left = 204
Top = 151 Top = 191
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #30382#37325 Caption = #30382#37325
@ -2774,7 +2774,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label44: TLabel object Label44: TLabel
Left = 134 Left = 118
Top = 30 Top = 30
Width = 60 Width = 60
Height = 19 Height = 19
@ -2816,7 +2816,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label48: TLabel object Label48: TLabel
Left = 331 Left = 355
Top = 30 Top = 30
Width = 60 Width = 60
Height = 19 Height = 19
@ -2856,7 +2856,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label43: TLabel object Label43: TLabel
Left = 432 Left = 448
Top = 30 Top = 30
Width = 80 Width = 80
Height = 19 Height = 19
@ -2895,7 +2895,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label66: TLabel object Label66: TLabel
Left = 544 Left = 552
Top = 32 Top = 32
Width = 40 Width = 40
Height = 19 Height = 19
@ -2908,7 +2908,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label67: TLabel object Label67: TLabel
Left = 238 Left = 214
Top = 26 Top = 26
Width = 30 Width = 30
Height = 28 Height = 28
@ -2920,6 +2920,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label68: TLabel
Left = 286
Top = 29
Width = 30
Height = 28
Caption = #38271#24230#13#10#38480#21046
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BTAdd: TButton object BTAdd: TButton
Left = 1070 Left = 1070
Top = 8 Top = 8
@ -2980,7 +2993,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit7Click OnClick = Edit7Click
end end
object Edit9: TEdit object Edit9: TEdit
Left = 102 Left = 86
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3014,7 +3027,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit10Click OnClick = Edit10Click
end end
object Edit11: TEdit object Edit11: TEdit
Left = 302 Left = 326
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3067,7 +3080,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
#25163#36755) #25163#36755)
end end
object Edit5: TEdit object Edit5: TEdit
Left = 403 Left = 419
Top = 26 Top = 26
Width = 28 Width = 28
Height = 27 Height = 27
@ -3083,7 +3096,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit5Click OnClick = Edit5Click
end end
object Edit13: TEdit object Edit13: TEdit
Left = 516 Left = 524
Top = 26 Top = 26
Width = 28 Width = 28
Height = 27 Height = 27
@ -3099,7 +3112,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Edit13Click OnClick = Edit13Click
end end
object Edit14: TEdit object Edit14: TEdit
Left = 206 Left = 182
Top = 27 Top = 27
Width = 28 Width = 28
Height = 27 Height = 27
@ -3114,10 +3127,26 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Text = #8730 Text = #8730
OnClick = Edit14Click OnClick = Edit14Click
end end
object Edit15: TEdit
Left = 254
Top = 30
Width = 28
Height = 27
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 12
Text = #8730
OnClick = Edit15Click
end
end end
object Panel1: TPanel object Panel1: TPanel
Left = 200 Left = 344
Top = 196 Top = 188
Width = 641 Width = 641
Height = 209 Height = 209
Color = clSkyBlue Color = clSkyBlue
@ -3170,8 +3199,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 216 Left = 608
Top = 252 Top = 284
Width = 641 Width = 641
Height = 209 Height = 209
Color = clSkyBlue Color = clSkyBlue

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

@ -292,6 +292,8 @@ type
Edit13: TEdit; Edit13: TEdit;
Label67: TLabel; Label67: TLabel;
Edit14: TEdit; Edit14: TEdit;
Edit15: TEdit;
Label68: TLabel;
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);
@ -359,6 +361,7 @@ type
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure Edit13Click(Sender: TObject); procedure Edit13Click(Sender: TObject);
procedure Edit14Click(Sender: TObject); procedure Edit14Click(Sender: TObject);
procedure Edit15Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK, FPSXZ: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK, FPSXZ: Integer;
@ -1720,16 +1723,24 @@ begin
application.MessageBox('长度或者重量不能都为零！', '提示信息', 0); application.MessageBox('长度或者重量不能都为零！', '提示信息', 0);
exit; exit;
end; end;
if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then if Trim(Edit15.Text) = '' then
begin begin
end
else
begin
if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then
begin
// application.MessageBox('长度不足20', '提示'); // application.MessageBox('长度不足20', '提示');
exit; exit;
end; end;
if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then
begin begin
// application.MessageBox('长度超出200不能提交', '提示'); // application.MessageBox('长度超出200不能提交', '提示');
exit; exit;
end;
end; end;
if (strtofloatdef(trim(MJMaoZ.Text), 0) > 100) then if (strtofloatdef(trim(MJMaoZ.Text), 0) > 100) then
begin begin
exit; exit;
@ -3906,5 +3917,17 @@ begin
end; end;
end; end;
procedure TfrmMJManageNewFDNewSF.Edit15Click(Sender: TObject);
begin
if Trim(Edit15.Text) = '' then
begin
Edit15.Text := '¡Ì';
end
else
begin
Edit15.Text := '';
end;
end;
end. end.