这个是代码
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;
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;
怎么改就不会报错了
把约束删除就可以了