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 uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters;
var var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

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

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

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

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

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

@ -13,7 +13,8 @@ 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, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, cxContainer, cxCurrencyEdit; dxBarBuiltInMenu, cxContainer, cxCurrencyEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinscxPCPainter;
type type
TfrmYSCR = class(TForm) TfrmYSCR = class(TForm)

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

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

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

@ -14,7 +14,8 @@ uses
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar, IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls, cxButtonEdit, cxTextEdit, cxDropDownEdit, RM_e_Xls,
cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels, cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator; cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxCurrencyEdit;
type type
TfrmYSMXlist = class(TForm) TfrmYSMXlist = class(TForm)
@ -68,6 +69,7 @@ type
V1Column15: TcxGridDBBandedColumn; V1Column15: TcxGridDBBandedColumn;
V1Column23: TcxGridDBBandedColumn; V1Column23: TcxGridDBBandedColumn;
TV1Column1: TcxGridDBBandedColumn; TV1Column1: TcxGridDBBandedColumn;
TV1Column3: TcxGridDBBandedColumn;
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);

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

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

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

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

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

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

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

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

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

@ -31,8 +31,8 @@
-M -M
-$M16384,1048576 -$M16384,1048576
-K$00400000 -K$00400000
-LE"d:\program files (x86)\borland\delphi7\Projects\Bpl" -LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"d:\program files (x86)\borland\delphi7\Projects\Bpl" -LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE -w-UNSAFE_TYPE
-w-UNSAFE_CODE -w-UNSAFE_CODE
-w-UNSAFE_CAST -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 $** DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $** BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll PROJECTS = TradeManage.dll testDll.exe
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
default: $(PROJECTS) default: $(PROJECTS)
#------------------------------------------------------------------------------ #------------------------------------------------------------------------------
testDll.exe: testDll.dpr TradeManage.dll: ..\..\D7DJqianjing\检验管理\TradeManage.dpr
$(DCC) $(DCC)
ProductPrice.dll: ProductPrice.dpr testDll.exe: ..\..\D7DJqianjing\检验管理\testDll.dpr
$(DCC) $(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 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\徐加艳项目代码\项目代码\盛兴复合\检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJfhshengxing\检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=
@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
Comments= Comments=
[Excluded Packages] [Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package 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 uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters;
var var
DConString:String; {全局连接字符串} DConString:String; {全局连接字符串}
server, dtbase, user, pswd: String; {数据库连接参数} server, dtbase, user, pswd: String; {数据库连接参数}

24
检验管理/U_MJManageNewFDNew.dfm
View File

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

9
检验管理/U_MJManageNewFDNew.pas
View File

@ -11,7 +11,8 @@ uses
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
DateUtils, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, DateUtils, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
ShellAPI, XMLDoc, XMLIntf; ShellAPI, XMLDoc, XMLIntf, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
type type
TfrmMJManageNewFDNewSF = class(TForm) TfrmMJManageNewFDNewSF = class(TForm)
@ -525,6 +526,10 @@ begin
sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where');
SQL.Add(' B.subid=YF_Money_CR.YFTypeId '); SQL.Add(' B.subid=YF_Money_CR.YFTypeId ');
SQL.Add(' )'); 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(',PS=(select isnull(count(*),0) from WFB_MJJY A ');
sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where'); sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where');
SQL.Add(' B.subid=YF_Money_CR.YFTypeId '); SQL.Add(' B.subid=YF_Money_CR.YFTypeId ');
@ -538,7 +543,7 @@ begin
sql.Add(',money=isnull((''' + Trim(Yprtprice) + '''),0)*(select isnull(sum(A.mjQty4),0) from WFB_MJJY A inner join JYOrder_Sub B on A.mainid=B.mainid where A.subid=YF_Money_CR.YFTypeId )'); sql.Add(',money=isnull((''' + Trim(Yprtprice) + '''),0)*(select isnull(sum(A.mjQty4),0) from WFB_MJJY A inner join JYOrder_Sub B on A.mainid=B.mainid where A.subid=YF_Money_CR.YFTypeId )');
end; end;
sql.Add(' where YFTypeId=''' + Trim(ysubid) + ''''); sql.Add(' where YFTypeId=''' + Trim(ysubid) + '''');
// showmessage(sql.text); //showmessage(sql.text);
ExecSQL; ExecSQL;
end; end;
with ADOTmp do with ADOTmp do

4
检验管理/U_testdll.dfm
View File

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

4
检验管理/testDll.cfg
View File

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

2
检验管理/testDll.dof
View File

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