From efea4acbf27e3af8b4fb6eaa1720d02f45743f95 Mon Sep 17 00:00:00 2001 From: libingpeng <3360871605@qq.com> Date: Fri, 5 Dec 2025 11:39:25 +0800 Subject: [PATCH] =?UTF-8?q?=E5=8F=96=E6=B6=88=2020=E7=B1=B3=E4=BB=A5?= =?UTF-8?q?=E4=B8=8B=E4=B8=8D=E8=AE=A9=E5=87=BA=E6=A0=87=E7=AD=BE=E7=9A=84?= =?UTF-8?q?=E9=99=90=E5=88=B6?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 打卷检验管理/TradeManage.skincfg | 50 ++++++++++++++++++++++ 打卷检验管理/U_MJManageNewFDNew.dfm | 65 +++++++++++++++++++++-------- 打卷检验管理/U_MJManageNewFDNew.pas | 37 ++++++++++++---- 3 files changed, 127 insertions(+), 25 deletions(-) create mode 100644 打卷检验管理/TradeManage.skincfg diff --git a/打卷检验管理/TradeManage.skincfg b/打卷检验管理/TradeManage.skincfg new file mode 100644 index 0000000..0bd3d07 --- /dev/null +++ b/打卷检验管理/TradeManage.skincfg @@ -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 diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 4e0a27b..fe32cee 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -1,6 +1,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 274 - Top = 227 + Left = 174 + Top = 24 Width = 1366 Height = 824 Caption = #25104#21697#26816#39564 @@ -1195,8 +1195,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False end object Label30: TLabel - Left = 20 - Top = 151 + Left = 204 + Top = 191 Width = 42 Height = 20 Caption = #30382#37325 @@ -2774,7 +2774,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False end object Label44: TLabel - Left = 134 + Left = 118 Top = 30 Width = 60 Height = 19 @@ -2816,7 +2816,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Visible = False end object Label48: TLabel - Left = 331 + Left = 355 Top = 30 Width = 60 Height = 19 @@ -2856,7 +2856,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label43: TLabel - Left = 432 + Left = 448 Top = 30 Width = 80 Height = 19 @@ -2895,7 +2895,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label66: TLabel - Left = 544 + Left = 552 Top = 32 Width = 40 Height = 19 @@ -2908,7 +2908,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label67: TLabel - Left = 238 + Left = 214 Top = 26 Width = 30 Height = 28 @@ -2920,6 +2920,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Font.Style = [fsBold] ParentFont = False 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 Left = 1070 Top = 8 @@ -2980,7 +2993,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit7Click end object Edit9: TEdit - Left = 102 + Left = 86 Top = 27 Width = 28 Height = 27 @@ -3014,7 +3027,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit10Click end object Edit11: TEdit - Left = 302 + Left = 326 Top = 27 Width = 28 Height = 27 @@ -3067,7 +3080,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF #25163#36755) end object Edit5: TEdit - Left = 403 + Left = 419 Top = 26 Width = 28 Height = 27 @@ -3083,7 +3096,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit5Click end object Edit13: TEdit - Left = 516 + Left = 524 Top = 26 Width = 28 Height = 27 @@ -3099,7 +3112,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnClick = Edit13Click end object Edit14: TEdit - Left = 206 + Left = 182 Top = 27 Width = 28 Height = 27 @@ -3114,10 +3127,26 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Text = #8730 OnClick = Edit14Click 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 object Panel1: TPanel - Left = 200 - Top = 196 + Left = 344 + Top = 188 Width = 641 Height = 209 Color = clSkyBlue @@ -3170,8 +3199,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel4: TPanel - Left = 216 - Top = 252 + Left = 608 + Top = 284 Width = 641 Height = 209 Color = clSkyBlue diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 1bc5833..851e695 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -292,6 +292,8 @@ type Edit13: TEdit; Label67: TLabel; Edit14: TEdit; + Edit15: TEdit; + Label68: TLabel; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -359,6 +361,7 @@ type procedure Button5Click(Sender: TObject); procedure Edit13Click(Sender: TObject); procedure Edit14Click(Sender: TObject); + procedure Edit15Click(Sender: TObject); private { Private declarations } FInt, PState, PrintInt, SCInitGrid, FState, FCK, FPSXZ: Integer; @@ -1714,22 +1717,30 @@ var mvalue1: integer; i: Integer; begin - S1 := false; + S1 := false; if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then begin application.MessageBox('ȻܶΪ㣡', 'ʾϢ', 0); exit; end; - if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then + if Trim(Edit15.Text) = '' then begin + + end + else + begin + if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then + begin // application.MessageBox('Ȳ20', 'ʾ'); - exit; - end; - if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then - begin + exit; + end; + if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then + begin // application.MessageBox('ȳ200ύ', 'ʾ'); - exit; + exit; + end; end; + if (strtofloatdef(trim(MJMaoZ.Text), 0) > 100) then begin exit; @@ -3906,5 +3917,17 @@ begin end; end; +procedure TfrmMJManageNewFDNewSF.Edit15Click(Sender: TObject); +begin + if Trim(Edit15.Text) = '' then + begin + Edit15.Text := ''; + end + else + begin + Edit15.Text := ''; + end; +end; + end.