Group_DJD/D7DJfhshengxing
8
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

应收款结算根据 实际数结算， 对账单上结算数量，跟实际数量两个都显示。金额=实际米数*单价

Browse Source
This commit is contained in:
libingpeng 2025-11-06 14:39:02 +08:00
parent 526c7e2fae
commit 8432e7bdee
22 changed files with 214 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
应收应付(YSYF.dll)/U_DataLink.pas
View File

@ -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; {数据库连接参数}

6
应收应付(YSYF.dll)/U_GetDllForm.pas
View File

@ -85,13 +85,13 @@ begin
// DParameters1:='管理';//103
// DParameters2:='人民币';
// DParameters1:='高权限';
// DParameters1:='高权限';
DParameters1:='高权限';
// Parameters1:='高权限';
// DataBase:='高权限';
// DataBase:='1';
// DParameters1:='0';
// DParameters3:='项目分开';
// DParameters4:='对方单位分开';
DParameters3:='项目分开';
DParameters4:='对方单位分开';
// DParameters5:='开票';
// DParameters6:='其它'; //应付款
// DParameters7:='匹数'; //应收款

16
应收应付(YSYF.dll)/U_YSCR.dfm
View File

@ -1,6 +1,6 @@
object frmYSCR: TfrmYSCR
Left = 408
Top = 234
Left = 150
Top = 395
Width = 1334
Height = 580
Caption = #24212#25910#27454#31649#29702
@ -20,7 +20,7 @@ object frmYSCR: TfrmYSCR
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1318
Width = 1326
Height = 31
ButtonHeight = 30
ButtonWidth = 83
@ -117,7 +117,7 @@ object frmYSCR: TfrmYSCR
object Panel1: TPanel
Left = 0
Top = 31
Width = 1318
Width = 1326
Height = 74
Align = alTop
BevelInner = bvRaised
@ -295,8 +295,8 @@ object frmYSCR: TfrmYSCR
object cxGrid2: TcxGrid
Left = 0
Top = 127
Width = 1318
Height = 414
Width = 1326
Height = 422
Align = alClient
TabOrder = 2
object Tv2: TcxGridDBTableView
@ -519,7 +519,7 @@ object frmYSCR: TfrmYSCR
object cxTabControl1: TcxTabControl
Left = 0
Top = 105
Width = 1318
Width = 1326
Height = 22
Align = alTop
TabOrder = 3
@ -532,7 +532,7 @@ object frmYSCR: TfrmYSCR
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1318
ClientRectRight = 1326
ClientRectTop = 19
end
object Panel9: TPanel

3
应收应付(YSYF.dll)/U_YSCR.pas
View File

@ -13,7 +13,8 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, cxContainer, cxCurrencyEdit;
dxBarBuiltInMenu, cxContainer, cxCurrencyEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter;
type
TfrmYSCR = class(TForm)

29
应收应付(YSYF.dll)/U_YSMXlist.dfm
View File

@ -1,6 +1,6 @@
object frmYSMXlist: TfrmYSMXlist
Left = 349
Top = 383
Left = 173
Top = 272
Width = 1341
Height = 559
Caption = #24212#25910#23545#36134#20449#24687#34920
@ -21,7 +21,7 @@ object frmYSMXlist: TfrmYSMXlist
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1325
Width = 1333
Height = 31
ButtonHeight = 30
ButtonWidth = 59
@ -78,7 +78,7 @@ object frmYSMXlist: TfrmYSMXlist
object Panel1: TPanel
Left = 0
Top = 31
Width = 1325
Width = 1333
Height = 38
Align = alTop
BevelInner = bvRaised
@ -198,7 +198,7 @@ object frmYSMXlist: TfrmYSMXlist
object cxGrid2: TcxGrid
Left = 0
Top = 69
Width = 1325
Width = 1333
Height = 444
Align = alTop
TabOrder = 2
@ -302,12 +302,12 @@ object frmYSMXlist: TfrmYSMXlist
Position.RowIndex = 0
end
object V1Column7: TcxGridDBBandedColumn
Caption = #25968#37327
Caption = #24635#31859#25968
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Width = 60
Position.BandIndex = 1
Position.ColIndex = 5
Position.ColIndex = 6
Position.RowIndex = 0
end
object V1Column8: TcxGridDBBandedColumn
@ -316,7 +316,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter
Width = 60
Position.BandIndex = 1
Position.ColIndex = 6
Position.ColIndex = 7
Position.RowIndex = 0
end
object V1Column9: TcxGridDBBandedColumn
@ -325,7 +325,7 @@ object frmYSMXlist: TfrmYSMXlist
HeaderAlignmentHorz = taCenter
Width = 60
Position.BandIndex = 1
Position.ColIndex = 7
Position.ColIndex = 8
Position.RowIndex = 0
end
object V1Column10: TcxGridDBBandedColumn
@ -400,6 +400,17 @@ object frmYSMXlist: TfrmYSMXlist
Position.ColIndex = 4
Position.RowIndex = 0
end
object TV1Column3: TcxGridDBBandedColumn
Caption = #23454#38469#31859#25968
DataBinding.FieldName = 'SJQty'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.DisplayFormat = ',0.00;-,0.00'
HeaderAlignmentHorz = taCenter
Width = 70
Position.BandIndex = 1
Position.ColIndex = 5
Position.RowIndex = 0
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1

4
应收应付(YSYF.dll)/U_YSMXlist.pas
View File

@ -14,7 +14,8 @@ uses
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls,
cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator;
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxCurrencyEdit;
type
TfrmYSMXlist = class(TForm)
@ -68,6 +69,7 @@ type
V1Column15: TcxGridDBBandedColumn;
V1Column23: TcxGridDBBandedColumn;
TV1Column1: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

22
应收应付(YSYF.dll)/U_YSSCList.dfm
View File

@ -1,6 +1,6 @@
object frmYSSCList: TfrmYSSCList
Left = 363
Top = 424
Left = 195
Top = 230
Width = 1160
Height = 590
Caption = #24212#25910#27454#29983#25104#20449#24687#21015#34920
@ -21,7 +21,7 @@ object frmYSSCList: TfrmYSSCList
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1144
Width = 1152
Height = 33
ButtonHeight = 30
ButtonWidth = 59
@ -83,7 +83,7 @@ object frmYSSCList: TfrmYSSCList
object Panel1: TPanel
Left = 0
Top = 33
Width = 1144
Width = 1152
Height = 64
Align = alTop
BevelInner = bvRaised
@ -227,8 +227,8 @@ object frmYSSCList: TfrmYSSCList
object cxGrid2: TcxGrid
Left = 0
Top = 117
Width = 1144
Height = 434
Width = 1152
Height = 442
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
@ -377,7 +377,7 @@ object frmYSSCList: TfrmYSSCList
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
Caption = #24635#31859#25968
DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
@ -398,6 +398,12 @@ object frmYSSCList: TfrmYSSCList
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #23454#38469#31859#25968
DataBinding.FieldName = 'SJQty'
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
@ -406,7 +412,7 @@ object frmYSSCList: TfrmYSSCList
object cxTabControl1: TcxTabControl
Left = 0
Top = 97
Width = 1144
Width = 1152
Height = 20
Align = alTop
Font.Charset = GB2312_CHARSET

4
应收应付(YSYF.dll)/U_YSSCList.pas
View File

@ -11,7 +11,8 @@ uses
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu;
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
type
TfrmYSSCList = class(TForm)
@ -64,6 +65,7 @@ type
v1Column11: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
CRType: TEdit;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

6
应收应付(YSYF.dll)/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1
Left = 153
Top = 124
Left = 256
Top = 558
Width = 791
Height = 554
Caption = 'Form1'
@ -21,7 +21,7 @@ object Form1: TForm1
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 775
Width = 783
Height = 25
ButtonWidth = 57
Caption = 'ToolBar1'

2
应收应付(YSYF.dll)/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\盛兴复合\应收应付(YSYF.dll)\testDll.exe
HostApplication=D:\Dp7Repo\淃커덜쯤\D7DJfhshengxing\壇澗壇마(YSYF.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=

4
应收应付(YSYF.dll)/testDll.cfg
View File

@ -31,8 +31,8 @@
-M
-$M16384,1048576
-K$00400000
-LE"d:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl"
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

50
应收应付(YSYF.dll)/testDll.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkRoom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringTime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinXmas2008Blue=0

6
检验管理/ProjectGroup1.bpg
View File

@ -9,15 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
PROJECTS = TradeManage.dll testDll.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
TradeManage.dll: ..\..\D7DJqianjing\检验管理\TradeManage.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
testDll.exe: ..\..\D7DJqianjing\检验管理\testDll.dpr
$(DCC)

23
检验管理/ProjectGroup1.~bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

5
检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\盛兴复合\检验管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJfhshengxing\检验管理\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;

50
检验管理/TradeManage.skincfg Normal file
View File

@ -0,0 +1,50 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinBlack=0
dxSkinBlue=0
dxSkinBlueprint=0
dxSkinCaramel=0
dxSkinCoffee=0
dxSkinDarkRoom=0
dxSkinDarkSide=0
dxSkinDevExpressDarkStyle=0
dxSkinDevExpressStyle=0
dxSkinFoggy=0
dxSkinGlassOceans=0
dxSkinHighContrast=0
dxSkiniMaginary=0
dxSkinLilian=0
dxSkinLiquidSky=0
dxSkinLondonLiquidSky=0
dxSkinMcSkin=0
dxSkinMetropolis=0
dxSkinMetropolisDark=0
dxSkinMoneyTwins=0
dxSkinOffice2007Black=0
dxSkinOffice2007Blue=0
dxSkinOffice2007Green=0
dxSkinOffice2007Pink=0
dxSkinOffice2007Silver=0
dxSkinOffice2010Black=0
dxSkinOffice2010Blue=0
dxSkinOffice2010Silver=0
dxSkinOffice2013DarkGray=0
dxSkinOffice2013LightGray=0
dxSkinOffice2013White=0
dxSkinPumpkin=0
dxSkinSeven=0
dxSkinSevenClassic=0
dxSkinSharp=0
dxSkinSharpPlus=0
dxSkinSilver=0
dxSkinSpringTime=0
dxSkinStardust=0
dxSkinSummer2008=0
dxSkinTheAsphaltWorld=0
dxSkinsDefaultPainters=1
dxSkinValentine=0
dxSkinVS2010=0
dxSkinWhiteprint=0
dxSkinXmas2008Blue=0

3
检验管理/U_DataLink.pas
View File

@ -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; {数据库连接参数}

24
检验管理/U_MJManageNewFDNew.dfm
View File

@ -1,6 +1,6 @@
object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 322
Top = 165
Left = 191
Top = 151
Width = 1366
Height = 754
Caption = #25104#21697#26816#39564
@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 0
Top = 87
Width = 214
Height = 628
Height = 636
Align = alLeft
TabOrder = 0
object Tv3: TcxGridDBTableView
@ -125,8 +125,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ScrollBox1: TScrollBox
Left = 633
Top = 87
Width = 717
Height = 628
Width = 725
Height = 636
Align = alClient
Color = clWhite
ParentColor = False
@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 428
Top = 87
Width = 205
Height = 628
Height = 636
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1969,7 +1969,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 214
Top = 87
Width = 214
Height = 628
Height = 636
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
@ -1978,7 +1978,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 2
Top = 2
Width = 210
Height = 303
Height = 311
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
@ -2086,7 +2086,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object Panel8: TPanel
Left = 2
Top = 305
Top = 313
Width = 210
Height = 28
Align = alBottom
@ -2101,7 +2101,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end
object AOrdDefNote1: TRichEdit
Left = 2
Top = 333
Top = 341
Width = 210
Height = 293
Align = alBottom
@ -2328,7 +2328,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1350
Width = 1358
Height = 30
AutoSize = True
ButtonHeight = 30
@ -2516,7 +2516,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
object Panel6: TPanel
Left = 0
Top = 30
Width = 1350
Width = 1358
Height = 57
Align = alTop
BevelInner = bvRaised

7
检验管理/U_MJManageNewFDNew.pas
View File

@ -11,7 +11,8 @@ uses
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
DateUtils, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
ShellAPI, XMLDoc, XMLIntf;
ShellAPI, XMLDoc, XMLIntf, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
type
TfrmMJManageNewFDNewSF = class(TForm)
@ -525,6 +526,10 @@ begin
sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where');
SQL.Add(' B.subid=YF_Money_CR.YFTypeId ');
SQL.Add(' )');
sql.add(',sjQty=(select isnull(sum(A.sjcd),0) from WFB_MJJY A ');
sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where');
SQL.Add(' B.subid=YF_Money_CR.YFTypeId ');
SQL.Add(' )');
sql.Add(',PS=(select isnull(count(*),0) from WFB_MJJY A ');
sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where');
SQL.Add(' B.subid=YF_Money_CR.YFTypeId ');

4
检验管理/U_testdll.dfm
View File

@ -1,6 +1,6 @@
object Form1: TForm1
Left = 153
Top = 124
Left = 197
Top = 389
Width = 791
Height = 554
Caption = 'Form1'

4
检验管理/testDll.cfg
View File

@ -31,8 +31,8 @@
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

2
检验管理/testDll.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\路展贸易管理\testDll.exe
HostApplication=D:\Dp7Repo\项目代码\D7DJfhshengxing\检验管理\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=