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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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);