Group_99/D7myzhenyong
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-10-13 10:30:04 +08:00
parent 33c30717f0
commit eeaac35002
5 changed files with 56 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
应收应付/U_DataLink.pas
View File

@ -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)

2
应收应付/U_GetDllForm.pas
View File

@ -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

32
应收应付/U_YFCRMXList.dfm
View File

@ -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

17
应收应付/U_YFCRMXList.pas
View File

@ -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);

2
应收应付/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\Dp7Repo\淃커덜쯤\驪湛\壇澗壇마\testDll.exe
HostApplication=E:\淃커栗죕\06_처弄무鱇\驪湛\D7myzhenyong\壇澗壇마\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=