From 138aa06395ce353f3cb8d633041d3d18dba241c4 Mon Sep 17 00:00:00 2001 From: zian <2440500161@qq.com> Date: Sat, 26 Oct 2024 11:41:42 +0800 Subject: [PATCH] =?UTF-8?q?215764534=E5=95=8A=E5=95=8A=E5=95=8A=E5=95=8A?= =?UTF-8?q?=E5=95=8A?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 应收应付/U_YFCR.dfm | 16 ++++++++-------- 应收应付/U_YFCR.pas | 16 +++++++++++++++- 应收应付/U_YFKInput.dfm | 10 +++++----- 应收应付/U_YFKInput.pas | 16 +++++++++++++++- .../FinishedClothWarehouse.dof | 2 +- .../U_CKProductBCPKCList.dfm | 16 ++++++++-------- .../U_CKProductBCPKCList.pas | 19 +++++++++++++++++-- .../U_DataLink.pas | 16 +++++++++++++++- .../U_GetDllForm.pas | 6 +++--- 9 files changed, 87 insertions(+), 30 deletions(-) diff --git a/应收应付/U_YFCR.dfm b/应收应付/U_YFCR.dfm index fbae3c0..4ef326e 100644 --- a/应收应付/U_YFCR.dfm +++ b/应收应付/U_YFCR.dfm @@ -20,7 +20,7 @@ object frmYFCR: TfrmYFCR object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1165 + Width = 1173 Height = 31 ButtonHeight = 30 ButtonWidth = 83 @@ -124,7 +124,7 @@ object frmYFCR: TfrmYFCR object Panel1: TPanel Left = 0 Top = 31 - Width = 1165 + Width = 1173 Height = 65 Align = alTop BevelInner = bvRaised @@ -262,7 +262,7 @@ object frmYFCR: TfrmYFCR object cxTabControl1: TcxTabControl Left = 0 Top = 96 - Width = 1165 + Width = 1173 Height = 22 Align = alTop TabOrder = 2 @@ -275,14 +275,14 @@ object frmYFCR: TfrmYFCR #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 22 - ClientRectRight = 1165 + ClientRectRight = 1173 ClientRectTop = 19 end object cxGrid2: TcxGrid Left = 0 Top = 118 - Width = 1165 - Height = 272 + Width = 1173 + Height = 280 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 @@ -458,8 +458,8 @@ object frmYFCR: TfrmYFCR end object cxGrid1: TcxGrid Left = 0 - Top = 390 - Width = 1165 + Top = 398 + Width = 1173 Height = 237 Align = alBottom TabOrder = 4 diff --git a/应收应付/U_YFCR.pas b/应收应付/U_YFCR.pas index 01111e6..6215a0f 100644 --- a/应收应付/U_YFCR.pas +++ b/应收应付/U_YFCR.pas @@ -13,7 +13,21 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, cxLookAndFeels, - cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator; + cxLookAndFeelPainters, dxBarBuiltInMenu, 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 TfrmYFCR = class(TForm) diff --git a/应收应付/U_YFKInput.dfm b/应收应付/U_YFKInput.dfm index 9f1d576..d85124a 100644 --- a/应收应付/U_YFKInput.dfm +++ b/应收应付/U_YFKInput.dfm @@ -18,7 +18,7 @@ object frmYFKInput: TfrmYFKInput object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 977 + Width = 985 Height = 31 ButtonHeight = 30 ButtonWidth = 107 @@ -75,7 +75,7 @@ object frmYFKInput: TfrmYFKInput object ToolBar2: TToolBar Left = 0 Top = 277 - Width = 977 + Width = 985 Height = 29 ButtonHeight = 30 ButtonWidth = 59 @@ -114,7 +114,7 @@ object frmYFKInput: TfrmYFKInput object Panel1: TPanel Left = 0 Top = 31 - Width = 977 + Width = 985 Height = 246 Align = alTop BevelOuter = bvLowered @@ -469,8 +469,8 @@ object frmYFKInput: TfrmYFKInput object cxGrid1: TcxGrid Left = 0 Top = 306 - Width = 977 - Height = 224 + Width = 985 + Height = 232 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView diff --git a/应收应付/U_YFKInput.pas b/应收应付/U_YFKInput.pas index f55de53..642d3b5 100644 --- a/应收应付/U_YFKInput.pas +++ b/应收应付/U_YFKInput.pas @@ -9,7 +9,21 @@ uses cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, - cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator; + cxDropDownEdit, 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 TfrmYFKInput = class(TForm) diff --git a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof index c460d34..80d2cf6 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof +++ b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\Ŀ\ˮ\Ʒֿ(FinishedClothWarehouse.dll)\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7lmSanshui\Ʒֿ(FinishedClothWarehouse.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.dfm b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.dfm index 73808fb..cdb6e17 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.dfm +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.dfm @@ -21,7 +21,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1307 + Width = 1315 Height = 33 ButtonHeight = 30 ButtonWidth = 59 @@ -67,8 +67,8 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList object cxGrid2: TcxGrid Left = 0 Top = 127 - Width = 1307 - Height = 444 + Width = 1315 + Height = 452 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -294,7 +294,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList object Panel1: TPanel Left = 0 Top = 33 - Width = 1307 + Width = 1315 Height = 64 Align = alTop BevelInner = bvRaised @@ -592,7 +592,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList object Panel2: TPanel Left = 0 Top = 97 - Width = 1307 + Width = 1315 Height = 30 Align = alTop BevelOuter = bvNone @@ -620,7 +620,7 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList TabOrder = 0 Properties.CustomButtons.Buttons = <> Properties.Style = 3 - Properties.TabIndex = 0 + Properties.TabIndex = 1 Properties.Tabs.Strings = ( #23458#25143#27719#24635 #20135#21697#27719#24635 @@ -634,13 +634,13 @@ object frmCKProductBCPKCList: TfrmCKProductBCPKCList object Panel6: TPanel Left = 313 Top = 0 - Width = 994 + Width = 1002 Height = 30 Align = alClient AutoSize = True TabOrder = 1 DesignSize = ( - 994 + 1002 30) object Label31: TLabel Left = 25 diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.pas b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.pas index 77fa3e1..7765742 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPKCList.pas @@ -11,8 +11,21 @@ uses ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, MovePanel, cxCheckBox, Menus, cxCalendar, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, BtnEdit, Math, Clipbrd, cxPC, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; - + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + 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 TfrmCKProductBCPKCList = class(TForm) ToolBar1: TToolBar; @@ -182,6 +195,7 @@ begin 1: begin Panel6.Visible := False; + ClearOrHideControls(Panel1, '0', false, True); ClearOrHideControls(Panel1, '1', True, True); ClearOrHideControls(Panel1, '2', True, False); @@ -192,6 +206,7 @@ begin end; IsVisibleTV(Panel1, TV1, '0', True); IsVisibleTV(Panel1, TV1, '1', True); + cxgrdPRTColor.Visible := True; cxgrdJQty.Visible := True; cxgrdKGQty.Visible := True; cxgrdNETKGQty.Visible := True; diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas b/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas index fc910fe..166825f 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas b/成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas index 1597beb..880f88b 100644 --- a/成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas +++ b/成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas @@ -69,11 +69,11 @@ begin SetLength(pswd, 255); if Trim(DataBaseStr) = '' then begin - server := '121.40.233.100,7781'; + server := '139.196.56.206,7781'; // server := '.'; dtbase := 'sanshuidata'; - user := 'sa'; - pswd := 'rightsoft@123'; + user := 'sanshuisa'; + pswd := 'rightsoft@8599'; // pswd := 'rightsoft'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;