我想做一个包厢计时计费系统，delphi请给点提示

来源：百度知道 编辑：UC知道 时间：2024/05/25 00:28:25
我想做个包厢计时计费的系统，包厢等级分为三种，例如：普通包房在开单后30分钟内，计费为120元，之后，每30分钟计费一次，每30分钟计费30元，不足30元，按30元计费。即时更新！

var
ttime:integer; //分钟数
dt1,dt2:TDateTime;
je:integer; //金额，
begin
dt1 :=now();
dt2 := 开房时间的日期
ttime:= SecondsBetween(dt1,dt2);
if ttime <30 then begin
je:=120;
end else begin
je:=120;
//这个计算可以不足30以30来计算了
je:=je +(ttime div 30) * 30;
end;
showmessage('金额：' + inttotstr(je));
end;

想要即时更新，就发上面的代码放到 timer 控制中。 不要用 showmeesge 来显示了，，，用一个 label标签吧。

上面的应该写成函数.不然的话,这个代码只够用1个包厢的.....

在TIMER中查询数据库--搜索包厢信息---按楼上的函数计算---输出

不过最好不用TIMER,会用线程最好.