三层结构中对数据库增加一条数据出错,请高手看看...

对人员基本信息表增加数据,我是在服务器端自己写了个方法,参数非常非常长... 运行时会提示我列名 是否签定合同 出错  可是数据库中列名是叫这个,位置也没有错...  还有,我最后一列是图像类的,不知道怎么添加和读取... 在这个添加的方法中我就没有加入最后列的了
服务器端是这样写的
procedure Trenapp.addinfo(no, name, sex: OleVariant; born: TDateTime;
  school, zy, xl, xw: OleVariant; biye: TDateTime; zz, zcxl, zc,
  dengji: OleVariant; ruzhi, zhuanzheng, lizhi: TDateTime; x: Integer; sfz,
  shifou, qixian: OleVariant; heq, hez: TDateTime; bm, zw, xz: OleVariant;
  age: Integer; marry, blood, jg, mz, zzmm, sb, tel, other: OleVariant);
  var cmdadd:string;
  begin
  cmdadd:='';
cmdadd:='insert into basicinfo values(:no,:name,:sex,:born,:school,:zy,:xl,:xw,:biye,:zz,:zcxl,:zc,:dengji,:ruzhi,:zhuanzheng,:lizhi,:x,:sfz,:shifou,:qixian,:heq,:hez,:bm,:zw,:xz,:age,:marry,:blood,:jg,:mz,:zzmm,:sb,:tel,:other)';
with ADOQuery1 do
  begin
   close;
   sql.clear;
   sql.add(cmdadd);
   Parameters.ParamByName('no').Value:=no;
   Parameters.ParamByName('name').Value:=name;
   Parameters.ParamByName('sex').Value:=sex;
   Parameters.ParamByName('born').Value:=born;
   Parameters.ParamByName('school').Value:=school;
   Parameters.ParamByName('zy').Value:=zy;
   Parameters.ParamByName('xl').Value:=xl;
   Parameters.ParamByName('xw').Value:=xw;
   Parameters.ParamByName('biye').Value:=biye;
   Parameters.ParamByName('zz').Value:=zz;
   Parameters.ParamByName('zcxl').Value:=zcxl;
   Parameters.ParamByName('zc').Value:=zc;
   Parameters.ParamByName('dengji').Value:=dengji;
   Parameters.ParamByName('ruzhi').Value:=ruzhi;
   Parameters.ParamByName('zhuanzheng').Value:=zhuanzheng;
   Parameters.ParamByName('lizhi').Value:=lizhi;
   Parameters.ParamByName('x').Value:=x;
   Parameters.ParamByName('sfz').Value:=sfz;
   Parameters.ParamByName('shifou').Value:=shifou;
   Parameters.ParamByName('qixian').Value:=qixian;
   Parameters.ParamByName('heq').Value:=heq;
   Parameters.ParamByName('hez').Value:=hez;
   Parameters.ParamByName('bm').Value:=bm;
   Parameters.ParamByName('zw').Value:=zw;
   Parameters.ParamByName('xz').Value:=xz;
   Parameters.ParamByName('age').Value:=age;
   Parameters.ParamByName('marry').Value:=marry;
   Parameters.ParamByName('blood').Value:=blood;
   Parameters.ParamByName('jg').Value:=jg;
   Parameters.ParamByName('mz').Value:=mz;
   Parameters.ParamByName('zzmm').Value:=zzmm;
   Parameters.ParamByName('sb').Value:=sb;
   Parameters.ParamByName('tel').Value:=tel;
   Parameters.ParamByName('other').Value:=other;    Prepared;
   execsql;
    close;
  end;end;客户端是这样写的procedure Taddfrm.Button3Click(Sender: TObject);
var sv:irenappdisp;
no,name,sex:string;
born:tdatetime;
school, zy, xl, xw:string;
biye:tdatetime;
zz,zcxl,zc,dengji:string;
ruzhi, zhuanzheng, lizhi: TDateTime;
x: Integer; sfz,shifou:string; qixian:integer;
heq, hez: TDateTime;bm, zw, xz:string;
age: Integer; marry, blood, jg, mz, zzmm, sb, tel, other:string;begin
sv:=irenappdisp(idispatch(dmfrm.dcom1.GetServer));
no:='a00001';
name:='ddddddddd' ;dmfrm.cds6.Close;
trysv.addinfo(no,name,sex,born,school, zy, xl, xw,biye,zz,zcxl,zc,dengji,ruzhi, zhuanzheng, lizhi,x,sfz,shifou, qixian,heq, hez,bm, zw, xz,age,marry, blood, jg, mz, zzmm, sb, tel, other);
 dmfrm.cds6.Open;
 except
on e:exception do
          begin
             messagedlg('连接错误:'+chr(13)+chr(10)+e.Message,mtwarning,[mbok],0);
          end;
end;end;
因为我只想试下能不能加成功,所以都没有具体的去给每个参数具体的值...只给了人员编号和人员姓名....运行,出错...请高手们看看是什么原因啊!