Group_DJD/D7DJjingzhiming
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

拼匹

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-02 17:18:49 +08:00
parent 893cafb9a4
commit 77f799ea2a
3 changed files with 141 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
复合检验管理/U_DataLink.pas
View File

@ -5,7 +5,20 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore, Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, 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, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue;
var var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

163
复合检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 124 Left = 256
Top = 39 Top = 174
Width = 1556 Width = 1556
Height = 754 Height = 754
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
@ -47,7 +47,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 425 Width = 425
Height = 636 Height = 628
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -191,8 +191,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 1151 Left = 1151
Top = 87 Top = 87
Width = 397 Width = 389
Height = 636 Height = 628
Align = alClient Align = alClient
Color = clWhite Color = clWhite
ParentColor = False ParentColor = False
@ -1043,7 +1043,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 425 Left = 425
Top = 87 Top = 87
Width = 512 Width = 512
Height = 636 Height = 628
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1155,8 +1155,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label13: TLabel object Label13: TLabel
Left = 458 Left = 426
Top = 338 Top = 506
Width = 15 Width = 15
Height = 22 Height = 22
Caption = 'M' Caption = 'M'
@ -1169,8 +1169,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label14: TLabel object Label14: TLabel
Left = 283 Left = 251
Top = 338 Top = 506
Width = 60 Width = 60
Height = 23 Height = 23
Caption = #21407#25968#37327 Caption = #21407#25968#37327
@ -1248,8 +1248,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label29: TLabel object Label29: TLabel
Left = 284 Left = 252
Top = 294 Top = 462
Width = 58 Width = 58
Height = 23 Height = 23
Caption = #26588' '#21495 Caption = #26588' '#21495
@ -1366,8 +1366,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label40: TLabel object Label40: TLabel
Left = 208 Left = 248
Top = 399 Top = 559
Width = 80 Width = 80
Height = 22 Height = 22
Caption = #26579#21378#32568#21495 Caption = #26579#21378#32568#21495
@ -1379,20 +1379,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label45: TLabel
Left = 223
Top = 298
Width = 40
Height = 23
Caption = #21253#21495
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Visible = False
end
object Label28: TLabel object Label28: TLabel
Left = 256 Left = 256
Top = 604 Top = 604
@ -1409,7 +1395,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label53: TLabel object Label53: TLabel
Left = 208 Left = 208
Top = 5 Top = 86
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #23458#25143 Caption = #23458#25143
@ -1422,7 +1408,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label55: TLabel object Label55: TLabel
Left = 208 Left = 208
Top = 141 Top = 138
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #39068#33394 Caption = #39068#33394
@ -1434,8 +1420,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
end end
object Label57: TLabel object Label57: TLabel
Left = 208 Left = 333
Top = 49 Top = 289
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #21697#21517 Caption = #21697#21517
@ -1448,8 +1434,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Visible = False Visible = False
end end
object Label58: TLabel object Label58: TLabel
Left = 208 Left = 333
Top = 97 Top = 337
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #33457#22411 Caption = #33457#22411
@ -1463,7 +1449,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label59: TLabel object Label59: TLabel
Left = 208 Left = 208
Top = 229 Top = 226
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #26631#31614 Caption = #26631#31614
@ -1476,7 +1462,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Label60: TLabel object Label60: TLabel
Left = 208 Left = 208
Top = 189 Top = 186
Width = 42 Width = 42
Height = 20 Height = 20
Caption = #33394#21495 Caption = #33394#21495
@ -1500,6 +1486,19 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label45: TLabel
Left = 168
Top = 27
Width = 84
Height = 20
Caption = #25340#21305#38271#24230
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MJFK: TEdit object MJFK: TEdit
Left = 53 Left = 53
Top = 377 Top = 377
@ -1597,8 +1596,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJQty1: TEdit object MJQty1: TEdit
Left = 353 Left = 321
Top = 329 Top = 497
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1663,8 +1662,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJstr3: TEdit object MJstr3: TEdit
Left = 353 Left = 321
Top = 289 Top = 457
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1785,8 +1784,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object MJstr5: TEdit object MJstr5: TEdit
Left = 293 Left = 333
Top = 390 Top = 550
Width = 90 Width = 90
Height = 41 Height = 41
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1818,8 +1817,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
end end
object BaoID: TEdit object BaoID: TEdit
Left = 259 Left = 427
Top = 264 Top = 568
Width = 121 Width = 121
Height = 20 Height = 20
TabOrder = 10 TabOrder = 10
@ -1842,7 +1841,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object KH: TBtnEditA object KH: TBtnEditA
Left = 256 Left = 256
Top = 0 Top = 81
Width = 145 Width = 145
Height = 37 Height = 37
AutoSize = False AutoSize = False
@ -1856,8 +1855,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnBtnClick = KHBtnClick OnBtnClick = KHBtnClick
end end
object PM: TBtnEditA object PM: TBtnEditA
Left = 256 Left = 381
Top = 44 Top = 284
Width = 145 Width = 145
Height = 37 Height = 37
AutoSize = False AutoSize = False
@ -1874,7 +1873,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object YS: TBtnEditA object YS: TBtnEditA
Left = 256 Left = 256
Top = 132 Top = 129
Width = 145 Width = 145
Height = 37 Height = 37
AutoSize = False AutoSize = False
@ -1889,8 +1888,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnBtnClick = YSBtnClick OnBtnClick = YSBtnClick
end end
object HX: TBtnEditA object HX: TBtnEditA
Left = 256 Left = 381
Top = 88 Top = 328
Width = 145 Width = 145
Height = 37 Height = 37
AutoSize = False AutoSize = False
@ -1907,7 +1906,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object SH: TBtnEditA object SH: TBtnEditA
Left = 256 Left = 256
Top = 176 Top = 173
Width = 145 Width = 145
Height = 37 Height = 37
AutoSize = False AutoSize = False
@ -1923,7 +1922,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object SLbName: TFTComboBox object SLbName: TFTComboBox
Left = 256 Left = 256
Top = 220 Top = 217
Width = 185 Width = 185
Height = 32 Height = 32
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1944,7 +1943,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Button9: TButton object Button9: TButton
Left = 384 Left = 384
Top = 0 Top = 81
Width = 65 Width = 65
Height = 38 Height = 38
Caption = #36873#25321#23458#25143 Caption = #36873#25321#23458#25143
@ -1958,8 +1957,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Button9Click OnClick = Button9Click
end end
object Button10: TButton object Button10: TButton
Left = 384 Left = 509
Top = 40 Top = 280
Width = 65 Width = 65
Height = 38 Height = 38
Caption = #36873#25321#21697#21517 Caption = #36873#25321#21697#21517
@ -1975,7 +1974,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Button11: TButton object Button11: TButton
Left = 384 Left = 384
Top = 128 Top = 125
Width = 65 Width = 65
Height = 38 Height = 38
Caption = #36873#25321#39068#33394 Caption = #36873#25321#39068#33394
@ -1990,7 +1989,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Button12: TButton object Button12: TButton
Left = 384 Left = 384
Top = 176 Top = 173
Width = 65 Width = 65
Height = 38 Height = 38
Caption = #36873#25321#33394#21495 Caption = #36873#25321#33394#21495
@ -2004,8 +2003,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Button12Click OnClick = Button12Click
end end
object Button13: TButton object Button13: TButton
Left = 384 Left = 509
Top = 88 Top = 328
Width = 65 Width = 65
Height = 38 Height = 38
Caption = #36873#25321#33457#22411 Caption = #36873#25321#33457#22411
@ -2059,6 +2058,38 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
TabOrder = 34 TabOrder = 34
Visible = False Visible = False
end end
object Prelen: TEdit
Left = 257
Top = 19
Width = 93
Height = 36
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -28
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 35
OnChange = MJLenChange
OnClick = Edit1Click
OnKeyDown = MJQty4KeyDown
OnKeyPress = MJstr3KeyPress
end
object BPinpi: TButton
Left = 354
Top = 8
Width = 111
Height = 65
Caption = #25340#21305
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 36
OnClick = BPinpiClick
end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 1158 Left = 1158
@ -2314,7 +2345,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 937 Left = 937
Top = 87 Top = 87
Width = 214 Width = 214
Height = 636 Height = 628
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2323,7 +2354,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 311 Height = 303
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2431,7 +2462,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 313 Top = 305
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2446,7 +2477,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 341 Top = 333
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2463,7 +2494,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel3: TPanel object Panel3: TPanel
Left = 610 Left = 610
Top = 348 Top = 332
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised
@ -2659,7 +2690,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1548 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2832,7 +2863,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1548 Width = 1540
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

24
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -216,7 +216,6 @@ type
Label42: TLabel; Label42: TLabel;
v2Column4: TcxGridDBColumn; v2Column4: TcxGridDBColumn;
baoNo: TEdit; baoNo: TEdit;
Label45: TLabel;
BaoID: TEdit; BaoID: TEdit;
Button7: TButton; Button7: TButton;
v3Column6: TcxGridDBColumn; v3Column6: TcxGridDBColumn;
@ -320,6 +319,9 @@ type
Label63: TLabel; Label63: TLabel;
Banno: TEdit; Banno: TEdit;
banid: TEdit; banid: TEdit;
Prelen: TEdit;
BPinpi: TButton;
Label45: 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);
@ -396,6 +398,7 @@ type
procedure Edit14Click(Sender: TObject); procedure Edit14Click(Sender: TObject);
procedure Button5Click(Sender: TObject); procedure Button5Click(Sender: TObject);
procedure BannoChange(Sender: TObject); procedure BannoChange(Sender: TObject);
procedure BPinpiClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@ -1163,10 +1166,21 @@ begin
FieldByName('MJLen').Value := FDC; FieldByName('MJLen').Value := FDC;
end end
else else
begin
if StrToFloatdef(trim(Prelen.Text), 0) > 0 then
begin
FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) + StrToFloatdef(trim(Prelen.Text), 0) + fjc;
end
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) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
end; end;
end;
FieldByName('Prelen').Value := StrToFloatdef(trim(Prelen.Text), 0);
FieldByName('Curlen').Value := StrToFloatdef(trim(MJLen.Text), 0);
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
@ -1219,7 +1233,6 @@ begin
FieldByName('banNO').Value := Trim(banno.text); FieldByName('banNO').Value := Trim(banno.text);
FieldByName('banID').Value := Trim(banID.Text); FieldByName('banID').Value := Trim(banID.Text);
Post; Post;
end; end;
if PState = 1 then if PState = 1 then
@ -1791,6 +1804,7 @@ begin
MJQty2.Text := ''; MJQty2.Text := '';
Label15.Caption := ''; Label15.Caption := '';
MJQty4.Text := ''; MJQty4.Text := '';
Prelen.Text := '';
if edit10.Text = '¡Ì' then if edit10.Text = '¡Ì' then
begin begin
@ -3594,5 +3608,11 @@ begin
banid.Text := ADOQueryMain.fieldbyname('banid').AsString banid.Text := ADOQueryMain.fieldbyname('banid').AsString
end; end;
procedure TfrmMJManageNewFDNewSF.BPinpiClick(Sender: TObject);
begin
Prelen.Text := MJLen.Text;
end;
end. end.