应收款结算根据 实际数结算, 对账单上结算数量,跟实际数量两个都显示。金额=实际米数*单价
This commit is contained in:
parent
526c7e2fae
commit
8432e7bdee
|
|
@ -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; {数据库连接参数}
|
||||
|
|
|
|||
|
|
@ -85,13 +85,13 @@ begin
|
|||
// DParameters1:='管理';//103
|
||||
// DParameters2:='人民币';
|
||||
// DParameters1:='高权限';
|
||||
// DParameters1:='高权限';
|
||||
DParameters1:='高权限';
|
||||
// Parameters1:='高权限';
|
||||
// DataBase:='高权限';
|
||||
// DataBase:='1';
|
||||
// DParameters1:='0';
|
||||
// DParameters3:='项目分开';
|
||||
// DParameters4:='对方单位分开';
|
||||
DParameters3:='项目分开';
|
||||
DParameters4:='对方单位分开';
|
||||
// DParameters5:='开票';
|
||||
// DParameters6:='其它'; //应付款
|
||||
// DParameters7:='匹数'; //应收款
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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'
|
||||
|
|
|
|||
|
|
@ -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=
|
||||
|
|
|
|||
|
|
@ -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
50
应收应付(YSYF.dll)/testDll.skincfg
Normal 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
|
||||
|
|
@ -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
23
检验管理/ProjectGroup1.~bpg
Normal 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)
|
||||
|
||||
|
||||
|
|
@ -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
50
检验管理/TradeManage.skincfg
Normal 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
|
||||
|
|
@ -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; {数据库连接参数}
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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 ');
|
||||
|
|
@ -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 )');
|
||||
end;
|
||||
sql.Add(' where YFTypeId=''' + Trim(ysubid) + '''');
|
||||
// showmessage(sql.text);
|
||||
//showmessage(sql.text);
|
||||
ExecSQL;
|
||||
end;
|
||||
with ADOTmp do
|
||||
|
|
|
|||
|
|
@ -1,6 +1,6 @@
|
|||
object Form1: TForm1
|
||||
Left = 153
|
||||
Top = 124
|
||||
Left = 197
|
||||
Top = 389
|
||||
Width = 791
|
||||
Height = 554
|
||||
Caption = 'Form1'
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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=
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user