From 76cc61d68eb0a1a7f5386ce756e326b7560b808e Mon Sep 17 00:00:00 2001 From: libingpeng <3360871605@qq.com> Date: Thu, 6 Nov 2025 14:38:36 +0800 Subject: [PATCH] =?UTF-8?q?=E6=89=AB=E6=8F=8F=E4=BA=8C=E7=BB=B4=E7=A0=81?= =?UTF-8?q?=E5=90=8E=20=E9=A2=9C=E8=89=B2=E5=92=8C=E8=89=B2=E5=8F=B7=20?= =?UTF-8?q?=E5=B8=A6=E5=88=B0=E5=8F=B3=E8=BE=B9=20=E5=8F=AF=E4=BB=A5?= =?UTF-8?q?=E4=BF=AE=E6=94=B9=20=E4=BF=AE=E6=94=B9=E5=90=8E=E6=89=93?= =?UTF-8?q?=E5=8D=B0=E6=A0=87=E7=AD=BE=E4=B8=BA=E4=BF=AE=E6=94=B9=E5=90=8E?= =?UTF-8?q?=E7=9A=84=E6=95=B0=E6=8D=AE=20=E7=B1=BB=E4=BC=BC=E5=86=85?= =?UTF-8?q?=E9=94=80=E7=9A=84=E5=8A=9F=E8=83=BD?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 复合检验管理/TradeManage.dof | 5 +- 复合检验管理/U_DataLink.pas | 3 +- 复合检验管理/U_MJManageNewFDNew.dfm | 37 ++++++++++----- 复合检验管理/U_OrderInPut.dfm | 16 +++---- 复合检验管理/U_OrderInPut.pas | 3 +- 复合检验管理/U_ProductOrderNewList.dfm | 66 +++++++++++++------------- 复合检验管理/U_ProductOrderNewList.pas | 2 +- 7 files changed, 72 insertions(+), 60 deletions(-) diff --git a/复合检验管理/TradeManage.dof b/复合检验管理/TradeManage.dof index 89f31c4..2dd3528 100644 --- a/复合检验管理/TradeManage.dof +++ b/复合检验管理/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; diff --git a/复合检验管理/U_DataLink.pas b/复合检验管理/U_DataLink.pas index 54c5229..2ea2d07 100644 --- a/复合检验管理/U_DataLink.pas +++ b/复合检验管理/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; {ݿӲ} diff --git a/复合检验管理/U_MJManageNewFDNew.dfm b/复合检验管理/U_MJManageNewFDNew.dfm index db981a3..98302fc 100644 --- a/复合检验管理/U_MJManageNewFDNew.dfm +++ b/复合检验管理/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 diff --git a/复合检验管理/U_OrderInPut.dfm b/复合检验管理/U_OrderInPut.dfm index 2683404..1393b1f 100644 --- a/复合检验管理/U_OrderInPut.dfm +++ b/复合检验管理/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 diff --git a/复合检验管理/U_OrderInPut.pas b/复合检验管理/U_OrderInPut.pas index a81327c..ac3c228 100644 --- a/复合检验管理/U_OrderInPut.pas +++ b/复合检验管理/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) diff --git a/复合检验管理/U_ProductOrderNewList.dfm b/复合检验管理/U_ProductOrderNewList.dfm index 83247c0..8751c07 100644 --- a/复合检验管理/U_ProductOrderNewList.dfm +++ b/复合检验管理/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 diff --git a/复合检验管理/U_ProductOrderNewList.pas b/复合检验管理/U_ProductOrderNewList.pas index 324e2fd..e246235 100644 --- a/复合检验管理/U_ProductOrderNewList.pas +++ b/复合检验管理/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)