修正DB.pas单元小数进位的问题

1、在db.pas中第5549行

   Text := FormatCurr(FmtStr, C);

改为

Text := FormatFloat(FmtStr, C);

2、重新编译DB.pas将产生的db.dcu文件替换Lib文件夹是的db.dcu文件（应先删除“C:\Program Files\Borland\Delphi7\Lib”db.dcu文件，这时在有数据库的程序中会报“找不到db.dcu文件”错误，重新在程序中指定DB.pas所在路径“C:\Program Files\Borland\Delphi7\Source\Vcl”）

3、再检查数据效果OK了