var begintime1,endtime,alltime:TTime; S1,S2,S3,S4,S5:double; time1:integer; begin begintime1:=dm_main.ADOTable1.FieldValues['上机时间']; endtime:=now; time1:=Round(secondsbetween(begintime1,endtime)/60); //********************计费开始*********************** S1:=dm_main.tbl_ShiDuanJiaGe.FieldValues['普通卡']; S2:=dm_main.tbl_ShiDuanJiaGe.FieldValues['会员卡']; S3:=dm_main.tbl_ShiDuanJiaGe.FieldValues['高级会员卡']; if dm_main.ADOTable1.Lookup('上机类型','A','上机类型')='A' then begin dxedit5.Text:=floattostr(time1*s1); end; if dm_main.ADOTable1.Lookup('上机类型','B','上机类型')='B' then begin dxedit5.Text:=floattostr(time1*s2) end; end;