这个是代码 
begin
         close;
         sql.Text:='insert into ccmaintain(zren,bmen,tel,mobile,bhao,xhao,xlsjian,gzxxiang,xlyyin,fwlxing,fwsjian,ztai,xlspren,bxiu,xlje) values'+
         '(:name,:dep,:phone,:telphone,:code,:typ,:time1,:errordesc,:ways,:typ2,:time2,:zhuangtai,:who,:yesno,:money)';
         parameters.ParamByName('name').Value:=Edit1.Text;
         parameters.ParamByName('dep').Value:=Edit2.Text;
         parameters.ParamByName('phone').Value:=Edit3.Text;
         parameters.ParamByName('telphone').Value:=Edit4.Text;
         parameters.ParamByName('code').Value:=Edit5.Text;
         parameters.ParamByName('typ').Value:=Edit6.Text;
         parameters.ParamByName('time1').Value:=StrToDate('2008-02-29');
         parameters.ParamByName('errordesc').Value:=Edit7.Text;
         parameters.ParamByName('ways').Value:=Edit8.Text;
         parameters.ParamByName('zhuangtai').Value:=Edit9.Text;
         parameters.ParamByName('yesno').Value:=Edit11.Text;
         parameters.ParamByName('who').Value:=Edit10.Text;
         parameters.ParamByName('money').Value:=Edit12.Text;
         parameters.ParamByName('time2').Value:=StrToDate('2008-02-29');
         //parameters.ParamByName('time1').Value:=StrToDate(formatdatetime('yyyy-mm-dd',
         //datetimepicker1.date));
         parameters.ParamByName('time2').Value:=StrToDate(formatdatetime('yyyy-mm-dd',
         datetimepicker2.date));
         if radiobutton1.Checked then Parameters.parambyname('typ2').Value:=radiobutton1.Caption;
         if radiobutton2.Checked then Parameters.parambyname('typ2').Value:=radiobutton2.Caption;
       ExecSql;
       end;