房地产软件计算类,明天就要交活了,设计还没完成,现在没有电脑
Tcalculate = class(TObject)
private
FfloorRate: float;//层数加价比率 价格*(1+floorRate)
FfaceRate : float;//朝向加价比率
FbuyRate : float;购买面积
FoverRate : float;超标加价比率
FallowArea: float;允许购买面积
FbuyArea : float;实际购买面积
FoverArea : float;超标面积
FfixRate : float;维修费比率
Fprice : float;单价
FTotal : float;总价
...计算方法略
public
constractor create(.....)
constractor create(.....)
end;这是业务计算类create 时把所有值都传进来是不可能的,比如有时只需计算超标面积即 buyArea-alloArea,create参数传这两个即可。
Ftotal = ((FallowArea*FPrice) + overArea*(1+FoverRate)) *(1+FfloorRate)*(1+FfaceRate)比如界面层有五个文本框,输入之后马上就能出结果
edtbuyArea
edtAllorAreaedtoverArea<-结果 -> 还有好多方法没有写,没有头续了 数据是直接传进来的,估计类中不会用到数据库之类的东西,还用写析构方法么? 还是多写几个create方法?
Tcalculate = class(TObject)
private
FfloorRate: float;//层数加价比率 价格*(1+floorRate)
FfaceRate : float;//朝向加价比率
FbuyRate : float;购买面积
FoverRate : float;超标加价比率
FallowArea: float;允许购买面积
FbuyArea : float;实际购买面积
FoverArea : float;超标面积
FfixRate : float;维修费比率
Fprice : float;单价
FTotal : float;总价
...计算方法略
public
constractor create(.....)
constractor create(.....)
end;这是业务计算类create 时把所有值都传进来是不可能的,比如有时只需计算超标面积即 buyArea-alloArea,create参数传这两个即可。
Ftotal = ((FallowArea*FPrice) + overArea*(1+FoverRate)) *(1+FfloorRate)*(1+FfaceRate)比如界面层有五个文本框,输入之后马上就能出结果
edtbuyArea
edtAllorAreaedtoverArea<-结果 -> 还有好多方法没有写,没有头续了 数据是直接传进来的,估计类中不会用到数据库之类的东西,还用写析构方法么? 还是多写几个create方法?
procedure ReadData;
begin
FoverArea := ADOTable.fieldbyname('FoverArea').asString;//AsString乱写的反正就是拿值
//其它
end;
之后再写分别的计算方法,需要用到什么时,就调用哪个参.就不用写那么多的构造方法呢..