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

扫描二维码后 颜色和色号 带到右边 可以修改 修改后打印标签为修改后的数据 类似内销的功能

Browse Source
This commit is contained in:
libingpeng 2025-11-06 14:38:36 +08:00
parent 936a35c963
commit 76cc61d68e
7 changed files with 72 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
复合检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\打卷店模板\打卷店\复合\复合检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJjingzhiming\复合检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

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

@ -4,7 +4,8 @@ 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; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters;
var var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

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

@ -1,7 +1,7 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 540 Left = 196
Top = 169 Top = 97
Width = 1368 Width = 1556
Height = 754 Height = 754
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
Color = clBtnFace Color = clBtnFace
@ -47,7 +47,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0 Left = 0
Top = 87 Top = 87
Width = 425 Width = 425
Height = 628 Height = 636
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 = 201 Width = 397
Height = 628 Height = 636
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 = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1420,6 +1420,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label55: TLabel object Label55: TLabel
Left = 208 Left = 208
@ -1446,6 +1447,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label58: TLabel object Label58: TLabel
Left = 208 Left = 208
@ -1459,6 +1461,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label59: TLabel object Label59: TLabel
Left = 208 Left = 208
@ -1472,6 +1475,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label60: TLabel object Label60: TLabel
Left = 208 Left = 208
@ -1840,6 +1844,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 21 TabOrder = 21
Visible = False
OnBtnClick = KHBtnClick OnBtnClick = KHBtnClick
end end
object PM: TBtnEditA object PM: TBtnEditA
@ -1855,6 +1860,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 22 TabOrder = 22
Visible = False
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
OnBtnClick = V1PRTCodeNameBtnClick OnBtnClick = V1PRTCodeNameBtnClick
end end
@ -1887,6 +1893,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 24 TabOrder = 24
Visible = False
OnKeyPress = MJstr3KeyPress OnKeyPress = MJstr3KeyPress
OnBtnClick = HXBtnClick OnBtnClick = HXBtnClick
end end
@ -1921,6 +1928,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
ParentFont = False ParentFont = False
TabOrder = 26 TabOrder = 26
Text = #36890#29992#26631#31614 Text = #36890#29992#26631#31614
Visible = False
OnChange = SLbNameChange OnChange = SLbNameChange
Items.Strings = ( Items.Strings = (
#36890#29992#26631#31614 #36890#29992#26631#31614
@ -1940,6 +1948,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 27 TabOrder = 27
Visible = False
OnClick = Button9Click OnClick = Button9Click
end end
object Button10: TButton object Button10: TButton
@ -1955,6 +1964,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 28 TabOrder = 28
Visible = False
OnClick = Button10Click OnClick = Button10Click
end end
object Button11: TButton object Button11: TButton
@ -2000,6 +2010,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 31 TabOrder = 31
Visible = False
OnClick = Button13Click OnClick = Button13Click
end end
end end
@ -2257,7 +2268,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 937 Left = 937
Top = 87 Top = 87
Width = 214 Width = 214
Height = 628 Height = 636
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -2266,7 +2277,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2 Left = 2
Top = 2 Top = 2
Width = 210 Width = 210
Height = 303 Height = 311
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -2374,7 +2385,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel8: TPanel object Panel8: TPanel
Left = 2 Left = 2
Top = 305 Top = 313
Width = 210 Width = 210
Height = 28 Height = 28
Align = alBottom Align = alBottom
@ -2389,7 +2400,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object AOrdDefNote1: TRichEdit object AOrdDefNote1: TRichEdit
Left = 2 Left = 2
Top = 333 Top = 341
Width = 210 Width = 210
Height = 293 Height = 293
Align = alBottom Align = alBottom
@ -2602,7 +2613,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1352 Width = 1548
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -2775,7 +2786,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1352 Width = 1548
Height = 57 Height = 57
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised

16
复合检验管理/U_OrderInPut.dfm
View File

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut object frmOrderInPut: TfrmOrderInPut
Left = 284 Left = 184
Top = 185 Top = 291
Width = 1379 Width = 1379
Height = 761 Height = 761
Caption = #25351#31034#21333#24405#20837 Caption = #25351#31034#21333#24405#20837
@ -18,7 +18,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1363 Width = 1371
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 59 ButtonWidth = 59
@ -58,7 +58,7 @@ object frmOrderInPut: TfrmOrderInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 29 Top = 29
Width = 1363 Width = 1371
Height = 280 Height = 280
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -1527,7 +1527,7 @@ object frmOrderInPut: TfrmOrderInPut
OnClick = Button1Click OnClick = Button1Click
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 937 Left = 945
Top = 0 Top = 0
Width = 424 Width = 424
Height = 278 Height = 278
@ -1554,7 +1554,7 @@ object frmOrderInPut: TfrmOrderInPut
object ToolBar2: TToolBar object ToolBar2: TToolBar
Left = 0 Left = 0
Top = 309 Top = 309
Width = 1363 Width = 1371
Height = 29 Height = 29
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -1601,8 +1601,8 @@ object frmOrderInPut: TfrmOrderInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 338 Top = 338
Width = 1363 Width = 1371
Height = 384 Height = 392
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

3
复合检验管理/U_OrderInPut.pas
View File

@ -12,7 +12,8 @@ uses
cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit, cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_Preview,
RM_DsgGridReport, RM_e_Graphic, RM_e_bmp; RM_DsgGridReport, RM_e_Graphic, RM_e_bmp, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter;
type type
TfrmOrderInPut = class(TForm) TfrmOrderInPut = class(TForm)

66
复合检验管理/U_ProductOrderNewList.dfm
View File

@ -1,6 +1,6 @@
object frmProductOrderNewList: TfrmProductOrderNewList object frmProductOrderNewList: TfrmProductOrderNewList
Left = 464 Left = 395
Top = 256 Top = 228
Width = 1382 Width = 1382
Height = 754 Height = 754
Caption = #21253#35013#25351#31034#21333 Caption = #21253#35013#25351#31034#21333
@ -20,7 +20,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1366 Width = 1374
Height = 62
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
@ -109,67 +110,68 @@ object frmProductOrderNewList: TfrmProductOrderNewList
AutoSize = True AutoSize = True
Caption = #35746#21333#23436#25104 Caption = #35746#21333#23436#25104
ImageIndex = 41 ImageIndex = 41
Wrap = True
OnClick = TWCClick OnClick = TWCClick
end end
object TNoWC: TToolButton object TNoWC: TToolButton
Left = 591 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25764#38144#23436#25104 Caption = #25764#38144#23436#25104
ImageIndex = 86 ImageIndex = 86
OnClick = TNoWCClick OnClick = TNoWCClick
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 678 Left = 87
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TFJ: TToolButton object TFJ: TToolButton
Left = 741 Left = 150
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25351#31034#21333#38468#20214 Caption = #25351#31034#21333#38468#20214
ImageIndex = 57 ImageIndex = 57
OnClick = TFJClick OnClick = TFJClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 840 Left = 249
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 903 Left = 312
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 990 Left = 399
Top = 0 Top = 30
Caption = #30133#28857#31649#29702 Caption = #30133#28857#31649#29702
ImageIndex = 132 ImageIndex = 132
Visible = False Visible = False
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 1085 Left = 494
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 72 ImageIndex = 72
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1148 Left = 557
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -178,8 +180,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 32 Top = 62
Width = 1366 Width = 1374
Height = 40 Height = 40
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -407,8 +409,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 95 Top = 125
Width = 1366 Width = 1374
Height = 333 Height = 333
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -756,8 +758,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxSplitter1: TcxSplitter object cxSplitter1: TcxSplitter
Left = 0 Left = 0
Top = 451 Top = 459
Width = 1366 Width = 1374
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
@ -765,8 +767,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Top = 459 Top = 467
Width = 1366 Width = 1374
Height = 256 Height = 256
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -774,7 +776,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 987 Width = 995
Height = 254 Height = 254
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -1095,7 +1097,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
end end
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 988 Left = 996
Top = 1 Top = 1
Width = 377 Width = 377
Height = 254 Height = 254
@ -1124,8 +1126,8 @@ object frmProductOrderNewList: TfrmProductOrderNewList
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 72 Top = 102
Width = 1366 Width = 1374
Height = 23 Height = 23
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -1138,7 +1140,7 @@ object frmProductOrderNewList: TfrmProductOrderNewList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 23 ClientRectBottom = 23
ClientRectRight = 1366 ClientRectRight = 1374
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu

2
复合检验管理/U_ProductOrderNewList.pas
View File

@ -12,7 +12,7 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer,
cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, IdFTP, shellAPI, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu; dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
type type
TfrmProductOrderNewList = class(TForm) TfrmProductOrderNewList = class(TForm)