急急急<如何取表中字段的数据类型>急急急

Question

小弟想编一个通用的DBF查询工具，打开数据库浏览是没问题了，现在要选定一条记录删除，我想把此表所有字段名以及此条记录字段值取出来，放入sql语句“delete from 表名 where 字段名＝''''+字段值+'''，可是字段属性有整型，有字符还有其他，如何辨别其字段属性，望举例做答！

Answer 1

使用TQuery的params列表，variant类型作为字段值，可以做到与类型无关，例如,如果已有tmpQuery:TQuery和acDatabase:TDatabase，则：var
  ParamValue: variant;
begin
    with tmpQuery do
    begin
      try
        ParamValue := ? 
        acDatabase.StartTransaction();
        SQL.Text := 'delete from 表名 where 字段名 = :随便';
        Params[0].Value := ParamValue;
        ExecSQL();
        acDatabase.Commit();
      except
        acDatabase.Rollback();
        Close;
        raise
      end;//try
      Close;
    end;//with
end;

Answer 2

例如：整数的类型就是ftinteger
可以用DataSet的DataType的属性
详情请看帮助

Answer 3

var FDataSet: TDataSet;var sValue: string;   //条件值
    FieldNm: string;  //字段名
  Case GetFieldType(FieldNm) of
   1: sValue := QuotedStr(sValue);
   2: begin
        Try
          StrToFloat(sValue);
        Except
          ShowMessage('"'+sValue+'" is not a virtual value.');
          Exit;
        End;
      end;
   3: sValue := VarCntbool(sValue);
   4: begin
        Try
          StrToDateTime(sValue);
        Except
          ShowMessage('"'+sValue+'" is not a virtual value.');
          Exit;
        End;
        sValue := QuotedStr(sValue);
      end;
  end;{  将字符串转为逻辑型值  }
Function  TFram_Filter.VarCntbool(value: string): String;
begin
  If (UpperCase(Trim(value))='TRUE') or (Trim(value)='1') then
    Result := '1'
  else
    Result := '0';
end;{  返回字段类型  }
Function TFram_Filter.GetFieldType(FieldNm: string): Integer;
begin
  Case FDataSet.FieldbyName(FieldNm).DataType of
   ftString, ftWideString, ftFixedChar:
     Result := 1;
   ftBoolean :
     Result := 3;
   ftDate, ftTime, ftDateTime:
     Result := 4;
   else Result := 2;
  end;
end;供参考