delphi Á¬½ÓsqliteÊý¾Ý¿â£¬insert±¨´í

¿ÉÒÔÌí¼ÓÊý¾Ý£¬µ«ÊǵãÌí¼Óºó»á±¨.access violation at address 0049AB84 in module 

Ô´Âë
procedure Tstudent.add_buttonClick(Sender: TObject);
var
  sqlstr:string;
begin
  if (id_edit.Text='') and (username_edit.Text='')  then
  begin
    application.MessageBox('ÇëÊäÈëÍêÕûÊý¾ÝÐÅÏ¢','Ìí¼Ó³ö´í',0);
    id_edit.SetFocus;
    exit;
  end;
  with ASQLite3Query1 do
  begin
    close;
    sql.clear;
    sql.add('insert into student values(:id,:username,:telephone,:address,:state)');
    ASQLite3Query1.Params.ParamByName('id').Value:=strtoint(id_edit.Text);
    ASQLite3Query1.Params.ParamByName('username').Value:=username_edit.Text;
    ASQLite3Query1.Params.ParamByName('telephone').Value:=strtoint(phone_edit.Text);
    ASQLite3Query1.Params.ParamByName('address').Value:=address_edit.Text;
    ASQLite3Query1.Params.ParamByName('state').Value:=state_edit.Text;
    execSQL;
    showmessage(ASQLite3Query1.SQL.Text);
  end;
end;

---

ÊÇÕâ¶Î´úÂëµÄÎÊÌâÂð£¿ÄãÏȼӸö¶Ïµã¿´¿´£¬ºÃÏñ²»ÊÇÕâ¶Î´úÂëµÄÎÊÌ⣡Ӧ¸ÃÊÇÄĸöÄ£¿é³öÎÊÌâÁË£¡

---

Â¥Ö÷µÄÄǸöÒ²²»ÐÐ
{{----}