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

复合检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\打卷店模板\打卷店\复合\复合检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJjingzhiming\复合检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
@@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
 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;

复合检验管理/U_DataLink.pas

@@ -4,7 +4,8 @@ interface
 
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
-  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
+  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
+  dxSkinsDefaultPainters;
 var
    DConString:String;   {全局连接字符串}
    server, dtbase, user, pswd: String;  {数据库连接参数}

复合检验管理/U_MJManageNewFDNew.dfm

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

复合检验管理/U_OrderInPut.dfm

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

复合检验管理/U_OrderInPut.pas

@@ -12,7 +12,8 @@ uses
   cxCurrencyEdit, cxImage, Menus, cxLookAndFeelPainters, cxButtons, cxDBEdit,
   cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxNavigator,
   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
   TfrmOrderInPut = class(TForm)

复合检验管理/U_ProductOrderNewList.dfm

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

复合检验管理/U_ProductOrderNewList.pas

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