为什么我用clientdataset新增记录时汉字只有一半？

为什么我用clientdataset新增记录时汉字只有一半？
源程序如下：
with cds1 do begin
    close;
    commandtext:='insert into codetable (codeid,codename) values (:codeid,:codename)';
    params.ParamByName('codeid').AsString :=trim(edit1.text);  
    params.ParamByName('codename').value :=trim(edit2.text);
    showmessage(params.ParamByName('codename').value);
    try
      Execute;
    except
      application.MessageBox('新增类别失败，请重试！','警告！',64);
      exit;
    end;
end;例如：
参数codeid='AB'
    codename='方案及应用剖析'
则：在服务器上的数据为  
codeid     codename
AB         方案及如果codename传的是字母就不会出现问题。