No Money No Honey

DELPHI 7 使用ADO元件寫入資料庫強制四捨五入小數到第四位問題

parameters.parambyname('tmpprice').datatype：=ftFloat;   <==寫入資料前先將欄位設定成 Float 型態即可解決此問題。

參考:http://jzinfo.javaeye.com/blog/432853

1. var   
2.     adoquery1:Tadoquery;   
3. begin   
4.     adoquery1:=Tadoquery.create(nil);   
5.     try   
6.        if not DM.adonconnection1.connected then   
7.            DM.adoconnection1.connected:=true;   
8.        adoquery1.connection:=DM.adoconnection1;   
9.        adoquery1.enableBCD:=False;       //禁用bcd类型   
10.        with adoquery1 do   
11.        begin   
12.            close;   
13.            sql.clear;   
14.            sql.add('insert into materialInfo values(:tmppno,:tmpvendor,:tmpdesc,:tmpprice)');   
15.            parameters.parambyname('tmppno').value:=trim(edit1.text);   
16.            parameters.parambyname('tmpvendor').value:=trim(edit2.text);   
17.            parameters.parambyname('tmpdesc').value:=trim(edit3.text);   
18.            parameters.parambyname('tmpprice').datatype：=ftFloat;       //设置下数据类型   
19.            parameters.parambyname('tmpprice').value:=trim(edit4.text);   
20.            execsql;   
21.        end;   
22.     finally   
23.         adoquery1.free;   
24.     end;   
25. end;