query问题(绝对简单,但一直没人帮解决,为什么呢?????)大侠们救救我啊!!!

Question

我做一工资系统,用bde里面的query组件,当用select field[0],field[1]..field[n]时,field[0]..field[n]都是money型字段(因为不知道有多少个field,所以必须用代码设置)我想将它们的currency属性设置为false,用代码怎样才能实现呢?

Answer 1

SQLStr := 'select ';
for i:=0..n do
  SQLStr:=SQLStr+ field[i]; //Field 是字段名称列表数组
SQLStr := SQLStr + 'where 条件';
query.sql := SqlStr;
for i:=0..n do
begin
  Query1.FieldDefs.Add(Field[i],ftCurrency);
  (Query1.Fields[i] as TCurrencyField).currency :=False;
end;

Answer 2

更正：
以上sqlstr少了分隔字符
for i:=0..n do
  if i<> n then
    SQLStr:=SQLStr+ field[i]+ ','; //Field 是字段名称列表数组