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 uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, 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 type
TMyThread = class(TThread) TMyThread = class(TThread)

2
应收应付/U_GetDllForm.pas
View File

@ -72,7 +72,7 @@ begin
pswd := 'rightsoft@9101'; pswd := 'rightsoft@9101';
// pswd := 'rightsoft'; // pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; 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 if not ConnData() then
begin begin

32
应收应付/U_YFCRMXList.dfm
View File

@ -1,6 +1,6 @@
object frmYFCRMXList: TfrmYFCRMXList object frmYFCRMXList: TfrmYFCRMXList
Left = 117 Left = 234
Top = 97 Top = 156
Width = 1479 Width = 1479
Height = 688 Height = 688
Caption = #24212#20184#27454#26126#32454#26597#35810 Caption = #24212#20184#27454#26126#32454#26597#35810
@ -20,7 +20,7 @@ object frmYFCRMXList: TfrmYFCRMXList
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1463 Width = 1471
Height = 31 Height = 31
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 83
@ -77,7 +77,7 @@ object frmYFCRMXList: TfrmYFCRMXList
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 31 Top = 31
Width = 1463 Width = 1471
Height = 73 Height = 73
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -140,6 +140,13 @@ object frmYFCRMXList: TfrmYFCRMXList
Height = 12 Height = 12
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
end end
object Label7: TLabel
Left = 732
Top = 38
Width = 48
Height = 12
Caption = #27454#39033#31867#22411
end
object MXOrderNo: TEdit object MXOrderNo: TEdit
Tag = 2 Tag = 2
Left = 427 Left = 427
@ -248,12 +255,21 @@ object frmYFCRMXList: TfrmYFCRMXList
'M' 'M'
'Y') 'Y')
end end
object KXType: TEdit
Tag = 2
Left = 783
Top = 34
Width = 82
Height = 20
TabOrder = 10
OnChange = MXOrderNoChange
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 126 Top = 126
Width = 1463 Width = 1471
Height = 523 Height = 531
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -431,7 +447,7 @@ object frmYFCRMXList: TfrmYFCRMXList
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 104 Top = 104
Width = 1463 Width = 1471
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -444,7 +460,7 @@ object frmYFCRMXList: TfrmYFCRMXList
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1463 ClientRectRight = 1471
ClientRectTop = 19 ClientRectTop = 19
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery

17
应收应付/U_YFCRMXList.pas
View File

@ -13,7 +13,20 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters, 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 type
TfrmYFCRMXList = class(TForm) TfrmYFCRMXList = class(TForm)
@ -78,6 +91,8 @@ type
Qty: TEdit; Qty: TEdit;
Label2: TLabel; Label2: TLabel;
qtyunit: TComboBox; qtyunit: TComboBox;
Label7: TLabel;
KXType: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

2
应收应付/YSYF.dof
View File

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