From fc22888ad59cf1c1eb4ef3a9b8f9c089f818c5fb Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 28 Oct 2025 10:06:51 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_MJEdit.dfm | 256 ++++++++++++++-------------- 打卷检验管理/U_MJEdit.pas | 18 +- 打卷检验管理/U_MJManageNewFDNew.dfm | 118 ++++++------- 打卷检验管理/U_MJManageNewFDNew.pas | 2 +- 4 files changed, 206 insertions(+), 188 deletions(-) diff --git a/打卷检验管理/U_MJEdit.dfm b/打卷检验管理/U_MJEdit.dfm index 95fe533..c37de11 100644 --- a/打卷检验管理/U_MJEdit.dfm +++ b/打卷检验管理/U_MJEdit.dfm @@ -7,19 +7,19 @@ object frmMJEdit: TfrmMJEdit Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 120 - TextHeight = 15 + PixelsPerInch = 96 + TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 852 + Width = 854 Height = 30 ButtonHeight = 30 ButtonWidth = 59 @@ -82,159 +82,159 @@ object frmMJEdit: TfrmMJEdit object Panel1: TPanel Left = 0 Top = 30 - Width = 852 - Height = 93 + Width = 854 + Height = 75 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel - Left = 31 - Top = 20 - Width = 64 - Height = 15 + Left = 25 + Top = 16 + Width = 52 + Height = 12 Caption = #24067#21305#26465#30721 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 41 - Top = 60 - Width = 9 - Height = 15 + Left = 33 + Top = 48 + Width = 7 + Height = 12 Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label4: TLabel - Left = 270 - Top = 60 - Width = 30 - Height = 15 + Left = 216 + Top = 48 + Width = 24 + Height = 12 Caption = #27611#37325 end object M: TLabel - Left = 625 - Top = 20 - Width = 8 - Height = 15 + Left = 500 + Top = 16 + Width = 6 + Height = 12 Caption = 'M' end object Label6: TLabel - Left = 524 - Top = 20 - Width = 30 - Height = 15 + Left = 419 + Top = 16 + Width = 24 + Height = 12 Caption = #38271#24230 end object Ma: TLabel - Left = 380 - Top = 110 - Width = 8 - Height = 15 + Left = 304 + Top = 88 + Width = 6 + Height = 12 Caption = 'M' end object Label7: TLabel - Left = 279 - Top = 110 - Width = 30 - Height = 15 + Left = 223 + Top = 88 + Width = 24 + Height = 12 Caption = #21407#30721 end object Label5: TLabel - Left = 385 - Top = 145 - Width = 8 - Height = 15 + Left = 308 + Top = 116 + Width = 6 + Height = 12 Caption = 'M' end object Label8: TLabel - Left = 279 - Top = 150 - Width = 30 - Height = 15 + Left = 223 + Top = 120 + Width = 24 + Height = 12 Caption = #24133#23485 end object Label9: TLabel - Left = 395 - Top = 140 - Width = 16 - Height = 15 + Left = 316 + Top = 112 + Width = 12 + Height = 12 Caption = 'cm' end object Label10: TLabel - Left = 375 - Top = 60 - Width = 16 - Height = 15 + Left = 300 + Top = 48 + Width = 12 + Height = 12 Caption = 'Kg' end object Label3: TLabel - Left = 414 - Top = 125 - Width = 30 - Height = 15 + Left = 331 + Top = 100 + Width = 24 + Height = 12 Caption = #20811#37325 end object Label11: TLabel - Left = 515 - Top = 125 - Width = 31 - Height = 15 + Left = 412 + Top = 100 + Width = 24 + Height = 12 Caption = 'g/'#13217 end object Label13: TLabel - Left = 549 - Top = 150 - Width = 30 - Height = 15 + Left = 423 + Top = 48 + Width = 24 + Height = 12 Caption = #36192#36865 end object Label12: TLabel - Left = 395 - Top = 60 - Width = 30 - Height = 15 + Left = 316 + Top = 48 + Width = 24 + Height = 12 Caption = #20928#37325 end object Label14: TLabel - Left = 505 - Top = 60 - Width = 16 - Height = 15 + Left = 404 + Top = 48 + Width = 12 + Height = 12 Caption = 'Kg' end object Label15: TLabel - Left = 270 - Top = 20 - Width = 30 - Height = 15 + Left = 216 + Top = 16 + Width = 24 + Height = 12 Caption = #21367#21495 end object Label16: TLabel - Left = 395 - Top = 20 - Width = 30 - Height = 15 + Left = 316 + Top = 16 + Width = 24 + Height = 12 Caption = #32568#21495 end object MJID: TEdit - Left = 100 - Top = 13 - Width = 138 - Height = 24 + Left = 80 + Top = 10 + Width = 110 + Height = 30 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -22 + Font.Height = -19 Font.Name = #23435#20307 Font.Style = [] ParentFont = False @@ -242,24 +242,24 @@ object frmMJEdit: TfrmMJEdit OnKeyPress = MJIDKeyPress end object MJMaoZ: TEdit - Left = 305 - Top = 55 - Width = 68 - Height = 20 + Left = 244 + Top = 44 + Width = 54 + Height = 23 TabOrder = 5 end object MJLen: TEdit - Left = 555 - Top = 15 - Width = 68 - Height = 20 + Left = 444 + Top = 12 + Width = 54 + Height = 23 TabOrder = 4 end object RadioGroup1: TRadioGroup - Left = 830 - Top = 10 - Width = 191 - Height = 81 + Left = 664 + Top = 8 + Width = 153 + Height = 65 Columns = 3 ItemIndex = 0 Items.Strings = ( @@ -268,62 +268,62 @@ object frmMJEdit: TfrmMJEdit TabOrder = 0 end object MJQty1: TEdit - Left = 310 - Top = 105 - Width = 68 - Height = 20 + Left = 248 + Top = 84 + Width = 54 + Height = 23 TabOrder = 7 end object MJFK: TEdit - Left = 310 - Top = 145 - Width = 68 - Height = 20 + Left = 248 + Top = 116 + Width = 54 + Height = 23 TabOrder = 9 end object MJSJKZ: TEdit - Left = 445 - Top = 120 - Width = 68 - Height = 20 + Left = 356 + Top = 96 + Width = 54 + Height = 23 TabOrder = 8 end object MJQty2: TEdit - Left = 580 - Top = 145 - Width = 68 - Height = 20 + Left = 448 + Top = 42 + Width = 54 + Height = 23 TabOrder = 10 end object MJQty4: TEdit - Left = 430 - Top = 55 - Width = 68 - Height = 20 + Left = 344 + Top = 44 + Width = 54 + Height = 23 TabOrder = 6 end object MJXH: TEdit - Left = 305 - Top = 15 - Width = 66 - Height = 20 + Left = 244 + Top = 12 + Width = 53 + Height = 23 TabOrder = 2 Text = 'MJXH' end object MJstr4: TEdit - Left = 430 - Top = 15 - Width = 66 - Height = 20 + Left = 344 + Top = 12 + Width = 53 + Height = 23 TabOrder = 3 Text = 'Edit1' end end object cxGrid2: TcxGrid Left = 0 - Top = 123 - Width = 852 - Height = 332 + Top = 105 + Width = 854 + Height = 356 Align = alClient TabOrder = 2 object Tv2: TcxGridDBTableView diff --git a/打卷检验管理/U_MJEdit.pas b/打卷检验管理/U_MJEdit.pas index 3892dca..f23814b 100644 --- a/打卷检验管理/U_MJEdit.pas +++ b/打卷检验管理/U_MJEdit.pas @@ -8,7 +8,21 @@ uses cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, - cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmMJEdit = class(TForm) @@ -410,7 +424,7 @@ begin sql.Add(',MJLen=0'); end; if Trim(MJQty1.Text) <> '' then - begin + begin sql.Add(',MJQty1=' + Trim(MJQty1.Text)); end else diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 8c9a1f6..ce11014 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -123,9 +123,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object ScrollBox1: TScrollBox - Left = 633 + Left = 635 Top = 87 - Width = 717 + Width = 715 Height = 628 Align = alClient Color = clWhite @@ -976,7 +976,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel2: TPanel Left = 428 Top = 87 - Width = 205 + Width = 207 Height = 628 Align = alLeft BevelInner = bvRaised @@ -985,7 +985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF TabOrder = 2 object Label9: TLabel Left = 152 - Top = 78 + Top = 76 Width = 15 Height = 22 Caption = 'M' @@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label3: TLabel Left = 144 - Top = 420 + Top = 444 Width = 26 Height = 22 Caption = 'cm' @@ -1012,7 +1012,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label4: TLabel Left = 152 - Top = 185 + Top = 183 Width = 28 Height = 22 Caption = 'KG' @@ -1025,7 +1025,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label5: TLabel Left = 8 - Top = 77 + Top = 75 Width = 42 Height = 20 Caption = #38271#24230 @@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label6: TLabel Left = 8 - Top = 420 + Top = 444 Width = 42 Height = 20 Caption = #24133#23485 @@ -1051,7 +1051,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label11: TLabel Left = 8 - Top = 185 + Top = 183 Width = 42 Height = 20 Caption = #27611#37325 @@ -1064,7 +1064,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label10: TLabel Left = 8 - Top = 333 + Top = 357 Width = 42 Height = 20 Caption = #27491#21697 @@ -1077,7 +1077,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label12: TLabel Left = 92 - Top = 333 + Top = 357 Width = 40 Height = 19 Caption = #27425#21697 @@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label22: TLabel Left = 144 - Top = 454 + Top = 475 Width = 36 Height = 22 Caption = 'g/'#13217 @@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label23: TLabel Left = 8 - Top = 453 + Top = 474 Width = 42 Height = 20 Caption = #20811#37325 @@ -1155,21 +1155,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ParentFont = False end object Label27: TLabel - Left = 243 - Top = 437 + Left = 11 + Top = 221 Width = 40 - Height = 23 + Height = 19 Caption = #36192#36865 - Font.Charset = ANSI_CHARSET - Font.Color = clRed - Font.Height = -20 - Font.Name = 'Arial' - Font.Style = [] + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -19 + Font.Name = #23435#20307 + Font.Style = [fsBold] ParentFont = False end object Label26: TLabel Left = 8 - Top = 376 + Top = 400 Width = 42 Height = 20 Caption = #20986#32440 @@ -1196,7 +1196,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label30: TLabel Left = 8 - Top = 113 + Top = 111 Width = 42 Height = 20 Caption = #30382#37325 @@ -1209,7 +1209,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label31: TLabel Left = 152 - Top = 149 + Top = 147 Width = 28 Height = 22 Caption = 'KG' @@ -1222,7 +1222,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label32: TLabel Left = 8 - Top = 149 + Top = 147 Width = 42 Height = 20 Caption = #20928#37325 @@ -1235,7 +1235,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label33: TLabel Left = 152 - Top = 114 + Top = 112 Width = 28 Height = 22 Caption = 'KG' @@ -1248,7 +1248,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label34: TLabel Left = 90 - Top = 379 + Top = 403 Width = 40 Height = 19 Caption = #20221#25968 @@ -1274,7 +1274,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label37: TLabel Left = 8 - Top = 41 + Top = 39 Width = 42 Height = 20 Caption = #32568#21495 @@ -1287,7 +1287,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label39: TLabel Left = 8 - Top = 221 + Top = 252 Width = 42 Height = 20 Caption = #31995#25968 @@ -1326,7 +1326,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label28: TLabel Left = 10 - Top = 260 + Top = 288 Width = 42 Height = 20 Caption = #21253#21495 @@ -1339,7 +1339,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Label54: TLabel Left = 11 - Top = 297 + Top = 321 Width = 42 Height = 20 Caption = #26495#21495 @@ -1352,9 +1352,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJFK: TEdit Left = 51 - Top = 414 + Top = 438 Width = 90 - Height = 33 + Height = 30 AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1368,7 +1368,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJLen: TEdit Left = 57 - Top = 73 + Top = 71 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1385,7 +1385,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJMaoZ: TEdit Left = 57 - Top = 181 + Top = 179 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1401,7 +1401,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object BTPrint: TButton Left = 10 - Top = 482 + Top = 500 Width = 171 Height = 66 Caption = #25552#20132 @@ -1416,7 +1416,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit3: TEdit Left = 52 - Top = 327 + Top = 351 Width = 39 Height = 43 Font.Charset = GB2312_CHARSET @@ -1433,7 +1433,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit4: TEdit Left = 130 - Top = 327 + Top = 351 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1466,9 +1466,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJSJKZ: TEdit Left = 51 - Top = 448 + Top = 469 Width = 90 - Height = 33 + Height = 30 AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1481,10 +1481,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF OnKeyPress = MJstr3KeyPress end object MJQty2: TEdit - Left = 290 - Top = 428 + Left = 57 + Top = 215 Width = 90 - Height = 36 + Height = 33 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1499,7 +1500,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Edit6: TEdit Left = 52 - Top = 370 + Top = 394 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET @@ -1533,7 +1534,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJQty3: TEdit Left = 57 - Top = 109 + Top = 107 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1550,7 +1551,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJQty4: TEdit Left = 57 - Top = 145 + Top = 143 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1567,7 +1568,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object ComboBox1: TComboBox Left = 132 - Top = 371 + Top = 395 Width = 45 Height = 40 Style = csDropDownList @@ -1590,7 +1591,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object MJStr4: TEdit Left = 57 - Top = 37 + Top = 35 Width = 90 Height = 36 Font.Charset = GB2312_CHARSET @@ -1609,7 +1610,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 57 Top = 1 Width = 90 - Height = 36 + Height = 33 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1622,9 +1624,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object kmxs: TEdit Left = 57 - Top = 217 + Top = 248 Width = 90 - Height = 36 + Height = 33 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1654,9 +1657,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object baoNo: TEdit Left = 57 - Top = 253 + Top = 281 Width = 90 - Height = 36 + Height = 33 + AutoSize = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -28 @@ -1676,7 +1680,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Button7: TButton Left = 12 - Top = 552 + Top = 570 Width = 169 Height = 46 Caption = #25171#21253#26631#31614 @@ -1691,7 +1695,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Banno: TEdit Left = 57 - Top = 290 + Top = 314 Width = 90 Height = 35 Font.Charset = GB2312_CHARSET @@ -2107,8 +2111,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end end object Panel3: TPanel - Left = 634 - Top = 328 + Left = 637 + Top = 325 Width = 353 Height = 334 BevelInner = bvRaised diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index e518afb..b45cabb 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -1145,7 +1145,7 @@ begin end else begin - FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; + FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) + fjc; //- StrToFloatdef(trim(MJQty2.Text), 0) end; FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);