F
fjqzcb
Unregistered / Unconfirmed
GUEST, unregistred user!
问题:数据库的数据为0,但查询出来的数据会出现类似-1.53e的东西!
代码如下:
with DM.jxDS_ADS2 do begin
CommandText:='select sum(MTotal)/100 as jxMTotal, sum(MHelp)/100 as jxMHelp, '
+'sum(MSelf)/100 as jxMSelf from Bill '
+'where PDate>=:NewValueParam1 and PEnable and '
+'PDate<=:NewValueParam2 and KPName=:KPNParam';
Parameters.ParamByName('NewValueParam1').Value :=FormatDateTime('yyyy-m-d',DTPicker1.Datetime);
Parameters.ParamByName('NewValueParam2').Value :=FormatDateTime('yyyy-m-d',DTPicker2.Datetime);
Parameters.ParamByName('KPNParam').Value :=combobox1.Text;
end;
with DM.jxDS_ADS4 do begin
CommandText:='select sum(MCard)/100 as jxMCard from Bill '
+'where PDate between :NewValueParam1 and '
+':NewValueParam2 and KPName=:KPNParam';
Parameters.ParamByName('NewValueParam1').Value :=FormatDateTime('yyyy-m-d',DTPicker1.Datetime);
Parameters.ParamByName('NewValueParam2').Value :=FormatDateTime('yyyy-m-d',DTPicker2.Datetime);
Parameters.ParamByName('KPNParam').Value :=combobox1.Text;
end;
edit1.Text:=floattostr(DM.jxDS_ADS2.FieldValues['jxMTotal']
-DM.jxDS_ADS2.FieldValues['jxMHelp']
-DM.jsDS_ADS4.FieldValues['jxMCard']);
代码如下:
with DM.jxDS_ADS2 do begin
CommandText:='select sum(MTotal)/100 as jxMTotal, sum(MHelp)/100 as jxMHelp, '
+'sum(MSelf)/100 as jxMSelf from Bill '
+'where PDate>=:NewValueParam1 and PEnable and '
+'PDate<=:NewValueParam2 and KPName=:KPNParam';
Parameters.ParamByName('NewValueParam1').Value :=FormatDateTime('yyyy-m-d',DTPicker1.Datetime);
Parameters.ParamByName('NewValueParam2').Value :=FormatDateTime('yyyy-m-d',DTPicker2.Datetime);
Parameters.ParamByName('KPNParam').Value :=combobox1.Text;
end;
with DM.jxDS_ADS4 do begin
CommandText:='select sum(MCard)/100 as jxMCard from Bill '
+'where PDate between :NewValueParam1 and '
+':NewValueParam2 and KPName=:KPNParam';
Parameters.ParamByName('NewValueParam1').Value :=FormatDateTime('yyyy-m-d',DTPicker1.Datetime);
Parameters.ParamByName('NewValueParam2').Value :=FormatDateTime('yyyy-m-d',DTPicker2.Datetime);
Parameters.ParamByName('KPNParam').Value :=combobox1.Text;
end;
edit1.Text:=floattostr(DM.jxDS_ADS2.FieldValues['jxMTotal']
-DM.jxDS_ADS2.FieldValues['jxMHelp']
-DM.jsDS_ADS4.FieldValues['jxMCard']);