Group_99/D7lmSanshui
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

空加规则

Browse Source
This commit is contained in:
zian 2024-07-26 13:06:32 +08:00
parent ec475516a9
commit 62c17bbec5
6 changed files with 61 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
应收应付/U_YSCR.dfm
View File

@ -20,7 +20,7 @@ object frmYSCR: TfrmYSCR
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1193 Width = 1201
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 = 1193 Width = 1201
Height = 70 Height = 70
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -255,8 +255,8 @@ object frmYSCR: TfrmYSCR
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 123 Top = 123
Width = 1193 Width = 1201
Height = 289 Height = 297
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -427,7 +427,7 @@ object frmYSCR: TfrmYSCR
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 101 Top = 101
Width = 1193 Width = 1201
Height = 22 Height = 22
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -440,13 +440,13 @@ object frmYSCR: TfrmYSCR
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 22 ClientRectBottom = 22
ClientRectRight = 1193 ClientRectRight = 1201
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 412 Top = 420
Width = 1193 Width = 1201
Height = 237 Height = 237
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4

15
应收应付/U_YSCR.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,
cxNavigator, dxBarBuiltInMenu; cxNavigator, dxBarBuiltInMenu, 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
TfrmYSCR = class(TForm) TfrmYSCR = class(TForm)

12
应收应付/U_YSKInput.dfm
View File

@ -625,15 +625,27 @@ object frmYSKInput: TfrmYSKInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 145 Width = 145
end end
object Tv1Column4: TcxGridDBColumn
Caption = #31354#21152#37329#39069
DataBinding.FieldName = 'kjiamoney'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #31354#21152 Caption = #31354#21152
DataBinding.FieldName = 'Kjia' DataBinding.FieldName = 'Kjia'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #31354#21152#25968#37327 Caption = #31354#21152#25968#37327
DataBinding.FieldName = 'KjiaQTY' DataBinding.FieldName = 'KjiaQTY'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 65
end end

30
应收应付/U_YSKInput.pas
View File

@ -96,6 +96,7 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject); procedure TSaveClick(Sender: TObject);
@ -469,8 +470,8 @@ end;
procedure TfrmYSKInput.v1QtyPropertiesEditValueChanged(Sender: TObject); procedure TfrmYSKInput.v1QtyPropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName, SPrice,SKjiaQTY: string; mvalue, FFieldName, SPrice,SKjiaQTY,sKJia: string;
FQty, FPrice, FMxMoney, FHKMoney, FPiYangCost, FBZPrice, FBZMoney, FKjiaQTY, FKjiamoney: double; FQty, FPrice, FMxMoney, FHKMoney, FPiYangCost, FBZPrice, FBZMoney, FKjiaQTY, FKjiamoney,FKjia: double;
FPS: Integer; FPS: Integer;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -495,16 +496,33 @@ begin
FPiYangCost := FieldByName('PiYangCost').AsFloat; FPiYangCost := FieldByName('PiYangCost').AsFloat;
FBZPrice := FieldByName('BZPrice').AsFloat; FBZPrice := FieldByName('BZPrice').AsFloat;
FBZMoney := FieldByName('BZMoney').AsFloat; FBZMoney := FieldByName('BZMoney').AsFloat;
SKjiaQTY := FieldByName('kjiaQTY').asstring; SKjiaQTY := FieldByName('kjiaQTY').asstring ;
FKjiaQTY := StrtoFloatDef(SKjiaQTY, 0) ; // Skjia:= FieldByName('kjia').asstring ;
//// FKjiaQTY := StrtoFloatDef(SKjiaQTY, 0) ;
// FKjia := StrtoFloatDef(SKjia, 0) ;
// if SKjiaQTY <> '' then
// begin
// FKjiaQTY := StrtoFloatDef(SKjiaQTY, 0) ;
// end;
// if SKjiaQTY= ''then
// begin
Skjia:= FieldByName('kjia').asstring ;
FKjia := StrtoFloatDef(SKjia, 0) ;
FKjiaQTY := strtofloat(format('%.2f', [FKjia * FPS]));
// end;
end; end;
FKjiamoney := strtofloat(format('%.2f', [FPrice * FKjiaQTY])); FKjiamoney := strtofloat(format('%.2f', [FPrice * FKjiaQTY]));
FBZMoney := strtofloat(format('%.2f', [FPS * FBZPrice])); FBZMoney := strtofloat(format('%.2f', [FPS * FBZPrice]));
FHKMoney := strtofloat(format('%.2f', [FQty * FPrice])); FHKMoney := strtofloat(format('%.2f', [FQty * FPrice]));
FMxMoney := FHKMoney + FPiYangCost + FBZMoney+FKjiamoney ; FMxMoney := FHKMoney + FPiYangCost + FBZMoney - FKjiamoney ;
with YFSub do with YFSub do
begin begin
Edit; Edit;
FieldbyName('Kjiaqty').Value := FKjiaQTY;
FieldbyName('Kjiamoney').Value := FKjiamoney;
FieldbyName('BZMoney').Value := FBZMoney; FieldbyName('BZMoney').Value := FBZMoney;
FieldbyName('HKMoney').Value := FHKMoney; FieldbyName('HKMoney').Value := FHKMoney;
FieldbyName('MxMoney').Value := FMxMoney; FieldbyName('MxMoney').Value := FMxMoney;
@ -660,7 +678,7 @@ begin
self.YFSub.FieldByName('PiYangCost').Value := 0; self.YFSub.FieldByName('PiYangCost').Value := 0;
self.YFSub.FieldByName('BZPrice').Value := 0; self.YFSub.FieldByName('BZPrice').Value := 0;
self.YFSub.FieldByName('BZMoney').Value := 0; self.YFSub.FieldByName('BZMoney').Value := 0;
self.YFSub.FieldByName('KjiaQTY').Value := StrToFloatdef(CDS_Main.FieldByName('Kjia').AsString, 0) * StrToFloatdef(CDS_Main.FieldByName('JQty').AsString, 0); // self.YFSub.FieldByName('KjiaQTY').Value := StrToFloatdef(CDS_Main.FieldByName('Kjia').AsString, 0) * StrToFloatdef(CDS_Main.FieldByName('JQty').AsString, 0);
self.YFSub.post; self.YFSub.post;
CDS_Main.Delete; CDS_Main.Delete;

4
应收应付/U_YSMXlist.dfm
View File

@ -1,6 +1,6 @@
object frmYSMXlist: TfrmYSMXlist object frmYSMXlist: TfrmYSMXlist
Left = 323 Left = 266
Top = 172 Top = 265
Width = 1574 Width = 1574
Height = 614 Height = 614
Caption = #24212#25910#23545#36134#20449#24687#34920 Caption = #24212#25910#23545#36134#20449#24687#34920

2
应收应付/YSYF.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\淃커덜쯤\힛彊\壇澗壇마\testDll.exe HostApplication=D:\Dp7Repo\淃커덜쯤\D7lmSanshui\壇澗壇마\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=