Group_DJD/D7DJchucheng
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-28 10:06:51 +08:00
parent e9e8114c97
commit fc22888ad5
4 changed files with 206 additions and 188 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

256
打卷检验管理/U_MJEdit.dfm
View File

@ -7,19 +7,19 @@ object frmMJEdit: TfrmMJEdit
Color = clBtnFace Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = False OldCreateOrder = False
OnClose = FormClose OnClose = FormClose
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow OnShow = FormShow
PixelsPerInch = 120 PixelsPerInch = 96
TextHeight = 15 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 852 Width = 854
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -82,159 +82,159 @@ object frmMJEdit: TfrmMJEdit
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 852 Width = 854
Height = 93 Height = 75
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
Left = 31 Left = 25
Top = 20 Top = 16
Width = 64 Width = 52
Height = 15 Height = 12
Caption = #24067#21305#26465#30721 Caption = #24067#21305#26465#30721
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 41 Left = 33
Top = 60 Top = 48
Width = 9 Width = 7
Height = 15 Height = 12
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -15 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label4: TLabel object Label4: TLabel
Left = 270 Left = 216
Top = 60 Top = 48
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #27611#37325 Caption = #27611#37325
end end
object M: TLabel object M: TLabel
Left = 625 Left = 500
Top = 20 Top = 16
Width = 8 Width = 6
Height = 15 Height = 12
Caption = 'M' Caption = 'M'
end end
object Label6: TLabel object Label6: TLabel
Left = 524 Left = 419
Top = 20 Top = 16
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #38271#24230 Caption = #38271#24230
end end
object Ma: TLabel object Ma: TLabel
Left = 380 Left = 304
Top = 110 Top = 88
Width = 8 Width = 6
Height = 15 Height = 12
Caption = 'M' Caption = 'M'
end end
object Label7: TLabel object Label7: TLabel
Left = 279 Left = 223
Top = 110 Top = 88
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #21407#30721 Caption = #21407#30721
end end
object Label5: TLabel object Label5: TLabel
Left = 385 Left = 308
Top = 145 Top = 116
Width = 8 Width = 6
Height = 15 Height = 12
Caption = 'M' Caption = 'M'
end end
object Label8: TLabel object Label8: TLabel
Left = 279 Left = 223
Top = 150 Top = 120
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #24133#23485 Caption = #24133#23485
end end
object Label9: TLabel object Label9: TLabel
Left = 395 Left = 316
Top = 140 Top = 112
Width = 16 Width = 12
Height = 15 Height = 12
Caption = 'cm' Caption = 'cm'
end end
object Label10: TLabel object Label10: TLabel
Left = 375 Left = 300
Top = 60 Top = 48
Width = 16 Width = 12
Height = 15 Height = 12
Caption = 'Kg' Caption = 'Kg'
end end
object Label3: TLabel object Label3: TLabel
Left = 414 Left = 331
Top = 125 Top = 100
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #20811#37325 Caption = #20811#37325
end end
object Label11: TLabel object Label11: TLabel
Left = 515 Left = 412
Top = 125 Top = 100
Width = 31 Width = 24
Height = 15 Height = 12
Caption = 'g/'#13217 Caption = 'g/'#13217
end end
object Label13: TLabel object Label13: TLabel
Left = 549 Left = 423
Top = 150 Top = 48
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #36192#36865 Caption = #36192#36865
end end
object Label12: TLabel object Label12: TLabel
Left = 395 Left = 316
Top = 60 Top = 48
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #20928#37325 Caption = #20928#37325
end end
object Label14: TLabel object Label14: TLabel
Left = 505 Left = 404
Top = 60 Top = 48
Width = 16 Width = 12
Height = 15 Height = 12
Caption = 'Kg' Caption = 'Kg'
end end
object Label15: TLabel object Label15: TLabel
Left = 270 Left = 216
Top = 20 Top = 16
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #21367#21495 Caption = #21367#21495
end end
object Label16: TLabel object Label16: TLabel
Left = 395 Left = 316
Top = 20 Top = 16
Width = 30 Width = 24
Height = 15 Height = 12
Caption = #32568#21495 Caption = #32568#21495
end end
object MJID: TEdit object MJID: TEdit
Left = 100 Left = 80
Top = 13 Top = 10
Width = 138 Width = 110
Height = 24 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -22 Font.Height = -19
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
@ -242,24 +242,24 @@ object frmMJEdit: TfrmMJEdit
OnKeyPress = MJIDKeyPress OnKeyPress = MJIDKeyPress
end end
object MJMaoZ: TEdit object MJMaoZ: TEdit
Left = 305 Left = 244
Top = 55 Top = 44
Width = 68 Width = 54
Height = 20 Height = 23
TabOrder = 5 TabOrder = 5
end end
object MJLen: TEdit object MJLen: TEdit
Left = 555 Left = 444
Top = 15 Top = 12
Width = 68 Width = 54
Height = 20 Height = 23
TabOrder = 4 TabOrder = 4
end end
object RadioGroup1: TRadioGroup object RadioGroup1: TRadioGroup
Left = 830 Left = 664
Top = 10 Top = 8
Width = 191 Width = 153
Height = 81 Height = 65
Columns = 3 Columns = 3
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -268,62 +268,62 @@ object frmMJEdit: TfrmMJEdit
TabOrder = 0 TabOrder = 0
end end
object MJQty1: TEdit object MJQty1: TEdit
Left = 310 Left = 248
Top = 105 Top = 84
Width = 68 Width = 54
Height = 20 Height = 23
TabOrder = 7 TabOrder = 7
end end
object MJFK: TEdit object MJFK: TEdit
Left = 310 Left = 248
Top = 145 Top = 116
Width = 68 Width = 54
Height = 20 Height = 23
TabOrder = 9 TabOrder = 9
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 445 Left = 356
Top = 120 Top = 96
Width = 68 Width = 54
Height = 20 Height = 23
TabOrder = 8 TabOrder = 8
end end
object MJQty2: TEdit object MJQty2: TEdit
Left = 580 Left = 448
Top = 145 Top = 42
Width = 68 Width = 54
Height = 20 Height = 23
TabOrder = 10 TabOrder = 10
end end
object MJQty4: TEdit object MJQty4: TEdit
Left = 430 Left = 344
Top = 55 Top = 44
Width = 68 Width = 54
Height = 20 Height = 23
TabOrder = 6 TabOrder = 6
end end
object MJXH: TEdit object MJXH: TEdit
Left = 305 Left = 244
Top = 15 Top = 12
Width = 66 Width = 53
Height = 20 Height = 23
TabOrder = 2 TabOrder = 2
Text = 'MJXH' Text = 'MJXH'
end end
object MJstr4: TEdit object MJstr4: TEdit
Left = 430 Left = 344
Top = 15 Top = 12
Width = 66 Width = 53
Height = 20 Height = 23
TabOrder = 3 TabOrder = 3
Text = 'Edit1' Text = 'Edit1'
end end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 123 Top = 105
Width = 852 Width = 854
Height = 332 Height = 356
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView

16
打卷检验管理/U_MJEdit.pas
View File

@ -8,7 +8,21 @@ uses
cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, 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 type
TfrmMJEdit = class(TForm) TfrmMJEdit = class(TForm)

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

@ -123,9 +123,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 633 Left = 635
Top = 87 Top = 87
Width = 717 Width = 715
Height = 628 Height = 628
Align = alClient Align = alClient
Color = clWhite Color = clWhite
@ -976,7 +976,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel2: TPanel object Panel2: TPanel
Left = 428 Left = 428
Top = 87 Top = 87
Width = 205 Width = 207
Height = 628 Height = 628
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
@ -985,7 +985,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 2 TabOrder = 2
object Label9: TLabel object Label9: TLabel
Left = 152 Left = 152
Top = 78 Top = 76
Width = 15 Width = 15
Height = 22 Height = 22
Caption = 'M' Caption = 'M'
@ -999,7 +999,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label3: TLabel object Label3: TLabel
Left = 144 Left = 144
Top = 420 Top = 444
Width = 26 Width = 26
Height = 22 Height = 22
Caption = 'cm' Caption = 'cm'
@ -1012,7 +1012,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label4: TLabel object Label4: TLabel
Left = 152 Left = 152
Top = 185 Top = 183
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1025,7 +1025,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label5: TLabel object Label5: TLabel
Left = 8 Left = 8
Top = 77 Top = 75
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #38271#24230 Caption = #38271#24230
@ -1038,7 +1038,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label6: TLabel object Label6: TLabel
Left = 8 Left = 8
Top = 420 Top = 444
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #24133#23485 Caption = #24133#23485
@ -1051,7 +1051,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label11: TLabel object Label11: TLabel
Left = 8 Left = 8
Top = 185 Top = 183
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27611#37325 Caption = #27611#37325
@ -1064,7 +1064,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label10: TLabel object Label10: TLabel
Left = 8 Left = 8
Top = 333 Top = 357
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #27491#21697 Caption = #27491#21697
@ -1077,7 +1077,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label12: TLabel object Label12: TLabel
Left = 92 Left = 92
Top = 333 Top = 357
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #27425#21697 Caption = #27425#21697
@ -1130,7 +1130,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label22: TLabel object Label22: TLabel
Left = 144 Left = 144
Top = 454 Top = 475
Width = 36 Width = 36
Height = 22 Height = 22
Caption = 'g/'#13217 Caption = 'g/'#13217
@ -1143,7 +1143,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label23: TLabel object Label23: TLabel
Left = 8 Left = 8
Top = 453 Top = 474
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20811#37325 Caption = #20811#37325
@ -1155,21 +1155,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 243 Left = 11
Top = 437 Top = 221
Width = 40 Width = 40
Height = 23 Height = 19
Caption = #36192#36865 Caption = #36192#36865
Font.Charset = ANSI_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clBlue
Font.Height = -20 Font.Height = -19
Font.Name = 'Arial' Font.Name = #23435#20307
Font.Style = [] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label26: TLabel object Label26: TLabel
Left = 8 Left = 8
Top = 376 Top = 400
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20986#32440 Caption = #20986#32440
@ -1196,7 +1196,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label30: TLabel object Label30: TLabel
Left = 8 Left = 8
Top = 113 Top = 111
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #30382#37325 Caption = #30382#37325
@ -1209,7 +1209,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label31: TLabel object Label31: TLabel
Left = 152 Left = 152
Top = 149 Top = 147
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1222,7 +1222,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label32: TLabel object Label32: TLabel
Left = 8 Left = 8
Top = 149 Top = 147
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #20928#37325 Caption = #20928#37325
@ -1235,7 +1235,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label33: TLabel object Label33: TLabel
Left = 152 Left = 152
Top = 114 Top = 112
Width = 28 Width = 28
Height = 22 Height = 22
Caption = 'KG' Caption = 'KG'
@ -1248,7 +1248,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label34: TLabel object Label34: TLabel
Left = 90 Left = 90
Top = 379 Top = 403
Width = 40 Width = 40
Height = 19 Height = 19
Caption = #20221#25968 Caption = #20221#25968
@ -1274,7 +1274,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label37: TLabel object Label37: TLabel
Left = 8 Left = 8
Top = 41 Top = 39
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #32568#21495 Caption = #32568#21495
@ -1287,7 +1287,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label39: TLabel object Label39: TLabel
Left = 8 Left = 8
Top = 221 Top = 252
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #31995#25968 Caption = #31995#25968
@ -1326,7 +1326,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label28: TLabel object Label28: TLabel
Left = 10 Left = 10
Top = 260 Top = 288
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21253#21495 Caption = #21253#21495
@ -1339,7 +1339,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label54: TLabel object Label54: TLabel
Left = 11 Left = 11
Top = 297 Top = 321
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #26495#21495 Caption = #26495#21495
@ -1352,9 +1352,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJFK: TEdit object MJFK: TEdit
Left = 51 Left = 51
Top = 414 Top = 438
Width = 90 Width = 90
Height = 33 Height = 30
AutoSize = False AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1368,7 +1368,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJLen: TEdit object MJLen: TEdit
Left = 57 Left = 57
Top = 73 Top = 71
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1385,7 +1385,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJMaoZ: TEdit object MJMaoZ: TEdit
Left = 57 Left = 57
Top = 181 Top = 179
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1401,7 +1401,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object BTPrint: TButton object BTPrint: TButton
Left = 10 Left = 10
Top = 482 Top = 500
Width = 171 Width = 171
Height = 66 Height = 66
Caption = #25552#20132 Caption = #25552#20132
@ -1416,7 +1416,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit3: TEdit object Edit3: TEdit
Left = 52 Left = 52
Top = 327 Top = 351
Width = 39 Width = 39
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1433,7 +1433,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit4: TEdit object Edit4: TEdit
Left = 130 Left = 130
Top = 327 Top = 351
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1466,9 +1466,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJSJKZ: TEdit object MJSJKZ: TEdit
Left = 51 Left = 51
Top = 448 Top = 469
Width = 90 Width = 90
Height = 33 Height = 30
AutoSize = False AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1481,10 +1481,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJQty2: TEdit object MJQty2: TEdit
Left = 290 Left = 57
Top = 428 Top = 215
Width = 90 Width = 90
Height = 36 Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28
@ -1499,7 +1500,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Edit6: TEdit object Edit6: TEdit
Left = 52 Left = 52
Top = 370 Top = 394
Width = 40 Width = 40
Height = 43 Height = 43
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1533,7 +1534,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty3: TEdit object MJQty3: TEdit
Left = 57 Left = 57
Top = 109 Top = 107
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1550,7 +1551,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJQty4: TEdit object MJQty4: TEdit
Left = 57 Left = 57
Top = 145 Top = 143
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1567,7 +1568,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 132 Left = 132
Top = 371 Top = 395
Width = 45 Width = 45
Height = 40 Height = 40
Style = csDropDownList Style = csDropDownList
@ -1590,7 +1591,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object MJStr4: TEdit object MJStr4: TEdit
Left = 57 Left = 57
Top = 37 Top = 35
Width = 90 Width = 90
Height = 36 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1609,7 +1610,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 57 Left = 57
Top = 1 Top = 1
Width = 90 Width = 90
Height = 36 Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28
@ -1622,9 +1624,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object kmxs: TEdit object kmxs: TEdit
Left = 57 Left = 57
Top = 217 Top = 248
Width = 90 Width = 90
Height = 36 Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28
@ -1654,9 +1657,10 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object baoNo: TEdit object baoNo: TEdit
Left = 57 Left = 57
Top = 253 Top = 281
Width = 90 Width = 90
Height = 36 Height = 33
AutoSize = False
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28
@ -1676,7 +1680,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Button7: TButton object Button7: TButton
Left = 12 Left = 12
Top = 552 Top = 570
Width = 169 Width = 169
Height = 46 Height = 46
Caption = #25171#21253#26631#31614 Caption = #25171#21253#26631#31614
@ -1691,7 +1695,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Banno: TEdit object Banno: TEdit
Left = 57 Left = 57
Top = 290 Top = 314
Width = 90 Width = 90
Height = 35 Height = 35
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -2107,8 +2111,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
end end
object Panel3: TPanel object Panel3: TPanel
Left = 634 Left = 637
Top = 328 Top = 325
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised

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

@ -1145,7 +1145,7 @@ begin
end end
else else
begin 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; end;
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);