谁来帮我看看啊？

为什么执行这个插入后数据库里没有写入呢？
if(Trim(Edit1.Text)='') then
 begin
    ShowMessage('学号不能为空!');
    Exit;
 end;
  with Query1 do
 begin
 open;
  Query1.Active:=true;
     
 SQL.Clear;
 SQL.Add('insert into student values (:student_id,:class_id,:student_name,:image,:sex,:birthday,:school_date,:nation,:card_id,:politics,:native_place,:is_login,:health_id,:rid,:cid)');
 ParamByName('student_id').AsString:=Trim(Edit1.Text);
 ParamByName('student_name').AsString:=Trim(Edit2.Text);
 ParamByName('card_id').AsString:=Trim(Edit3.Text);
 ParamByName('class_id').AsString:=Trim(Edit4.Text);
 ParamByName('sex').AsString:=Trim(ComboBox1.Text);
 ParamByName('nation').AsString:=Trim(ComboBox2.Text);
 ParamByName('native_place').AsString:=Trim(ComboBox3.Text);
 ParamByName('politics').AsString:=Trim(ComboBox4.Text);
 ParamByName('is_login').AsString:=Trim(ComboBox5.Text);
 ParamByName('birthday').AsDateTime:=DateTimepicker1.Date;
 ParamByName('school_date').AsDateTime:=DateTimepicker2.Date; ParamByName('health_id').AsString:='';
 ParamByName('rid').AsString:='';
 ParamByName('cid').AsString:='';
 ExecSQL;
 ShowMessage('操作已成功!');
 end;
图片image插入得代码如下：query1.Database.Open;
table1.Open;
if OpenpictureDialog1.Execute then
begin     image1.Picture:=TPicture.Create;
     Table1.Edit;
     image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
     Table1.FieldByName('image').Assign(image1.Picture);
end;
表里得字段如下：student_id,:class_id,:student_name,:image,:sex,:birthday,:school_date,:nation,:card_id,:politics,:native_place,:is_login,:health_id,:rid,:cid
但是后三个不要插入！
这是怎么回事呢？在线等！