From eeaac35002ac2aec3043099e23f32acc256c8977 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 13 Oct 2025 10:30:04 +0800 Subject: [PATCH] 1 --- 应收应付/U_DataLink.pas | 15 ++++++++++++++- 应收应付/U_GetDllForm.pas | 2 +- 应收应付/U_YFCRMXList.dfm | 32 ++++++++++++++++++++++++-------- 应收应付/U_YFCRMXList.pas | 17 ++++++++++++++++- 应收应付/YSYF.dof | 2 +- 5 files changed, 56 insertions(+), 12 deletions(-) diff --git a/应收应付/U_DataLink.pas b/应收应付/U_DataLink.pas index 96ef36a..92bb3c4 100644 --- a/应收应付/U_DataLink.pas +++ b/应收应付/U_DataLink.pas @@ -5,7 +5,20 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - dxSkinsCore, dxSkinsDefaultPainters; + dxSkinsCore, 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; type TMyThread = class(TThread) diff --git a/应收应付/U_GetDllForm.pas b/应收应付/U_GetDllForm.pas index 5f9b000..57c9bb0 100644 --- a/应收应付/U_GetDllForm.pas +++ b/应收应付/U_GetDllForm.pas @@ -72,7 +72,7 @@ begin pswd := 'rightsoft@9101'; // pswd := 'rightsoft'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; + // DConString := DataBaseStr; if not ConnData() then begin diff --git a/应收应付/U_YFCRMXList.dfm b/应收应付/U_YFCRMXList.dfm index 4323e41..572524a 100644 --- a/应收应付/U_YFCRMXList.dfm +++ b/应收应付/U_YFCRMXList.dfm @@ -1,6 +1,6 @@ object frmYFCRMXList: TfrmYFCRMXList - Left = 117 - Top = 97 + Left = 234 + Top = 156 Width = 1479 Height = 688 Caption = #24212#20184#27454#26126#32454#26597#35810 @@ -20,7 +20,7 @@ object frmYFCRMXList: TfrmYFCRMXList object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1463 + Width = 1471 Height = 31 ButtonHeight = 30 ButtonWidth = 83 @@ -77,7 +77,7 @@ object frmYFCRMXList: TfrmYFCRMXList object Panel1: TPanel Left = 0 Top = 31 - Width = 1463 + Width = 1471 Height = 73 Align = alTop BevelInner = bvRaised @@ -140,6 +140,13 @@ object frmYFCRMXList: TfrmYFCRMXList Height = 12 Caption = #25968#37327#21333#20301 end + object Label7: TLabel + Left = 732 + Top = 38 + Width = 48 + Height = 12 + Caption = #27454#39033#31867#22411 + end object MXOrderNo: TEdit Tag = 2 Left = 427 @@ -248,12 +255,21 @@ object frmYFCRMXList: TfrmYFCRMXList 'M' 'Y') end + object KXType: TEdit + Tag = 2 + Left = 783 + Top = 34 + Width = 82 + Height = 20 + TabOrder = 10 + OnChange = MXOrderNoChange + end end object cxGrid1: TcxGrid Left = 0 Top = 126 - Width = 1463 - Height = 523 + Width = 1471 + Height = 531 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -431,7 +447,7 @@ object frmYFCRMXList: TfrmYFCRMXList object cxTabControl1: TcxTabControl Left = 0 Top = 104 - Width = 1463 + Width = 1471 Height = 22 Align = alTop TabOrder = 3 @@ -444,7 +460,7 @@ object frmYFCRMXList: TfrmYFCRMXList #20840#37096) OnChange = cxTabControl1Change ClientRectBottom = 22 - ClientRectRight = 1463 + ClientRectRight = 1471 ClientRectTop = 19 end object ADOQueryTemp: TADOQuery diff --git a/应收应付/U_YFCRMXList.pas b/应收应付/U_YFCRMXList.pas index 829279e..cf10934 100644 --- a/应收应付/U_YFCRMXList.pas +++ b/应收应付/U_YFCRMXList.pas @@ -13,7 +13,20 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters, - dxBarBuiltInMenu, cxNavigator, DateUtils; + dxBarBuiltInMenu, cxNavigator, DateUtils, 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 TfrmYFCRMXList = class(TForm) @@ -78,6 +91,8 @@ type Qty: TEdit; Label2: TLabel; qtyunit: TComboBox; + Label7: TLabel; + KXType: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/应收应付/YSYF.dof b/应收应付/YSYF.dof index d0ab728..db3f216 100644 --- a/应收应付/YSYF.dof +++ b/应收应付/YSYF.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\ÕñÓÀ\Ó¦ÊÕÓ¦¸¶\testDll.exe +HostApplication=E:\ÏîÄ¿×ÊÁÏ\06_óÒ×¹«Ë¾\ÕñÓÀ\D7myzhenyong\Ó¦ÊÕÓ¦¸¶\testDll.exe Launcher= UseLauncher=0 DebugCWD=