TClientDataSet中commandtext的问题

在应用TClientDataSet时，我想保存数据，代码如下：
with cdsSystem do
begin
CommandText:=CommandText+'insert into T_Customer('+
' CustomerID,Code,Name,'+
' PostalCode，CreateDate,AreaID)'+
' values(:p2,'+
' '''+fieldbyname('Code').asstring+''','+
' '''+fieldbyname('Name').asstring+''','+
' :p3,'+
' :p4,'+
' :p5);';
Params.ParamByName('p2').Value:=fieldbyname('CustomerID').asinteger;
Params.ParamByName('p3').Value:=fieldbyname('PostalCode').AsInteger
Params.ParamByName('p4').Value:=fieldbyname('CreateDate').asdatetime;
Params.ParamByName('p5').Value:=fieldbyname('AreaID').asinteger;
end;
现在我想不用参数赋值，直接把值放 到SQL语句的values()中，但引号的问题总困扰着我，对于字符类型
的值我懂了，但对于这些数值型和日期型应当怎么加引号才对呢
比如：
CommandText:=CommandText+'insert into T_Customer('+
' CustomerID,Code,Name,'+
' PostalCode，CreateDate,AreaID)'+
' values（fieldbyname('CustomerID').asinteger,'+
……
……
这里的fieldbyname('CustomerID').asinteger应该怎么使用引号才正确呢？
对于这些字段，我数据库里用的是NUMBER型和date型（oracle)
请问各位大侠，应该如何做呢？
谢谢~~~！~！~！~！~！

[此贴子已经被作者于2007-4-14 17:00:54编辑过]