各位高手请进来帮帮忙

Question

procedure TForm_add.FormCreate(Sender: TObject);
begin
 query1.Close;
 query1.Open;
 query1.CachedUpdates:=true;
 query1.RequestLive:=true;
  query1.Append;
end;
procedure TForm_add.BitBtn1Click(Sender: TObject);
var
s_sql:string;
begin
if dbedit2.text='' then
   begin
   showmessage('姓名不能为空');
   exit;
   end;
   if dbedit1.text='' then
   begin
   showmessage('编号不能为空');
   exit;
   end;
   try
     strtoint(dbedit1.text);
     except
       showmessage('休想蒙混过关！编号只能是数字！');
       exit;
     end;
Query1.Close;
Query1.SQL.Clear;
s_sql:='select * FROM  "message.db" where 编号=''' + dbedit1.text + '''';
Query1.SQL.Add(s_sql);
Query1.Open;
 if Query1.RecordCount <> 0 then
  begin
  showmessage('该编号已经存在。');
  exit;
  end;
Query1.ApplyUpdates;
Showmessage('添加联系人'' ' + dbedit2.Text +' '' 成功');
Query1.Append;
end;end.
这些语句就是要将数据添加到表里面
但是没用
希望大家救救我啊

Answer 1

Query1.Close;
Query1.SQL.Clear;
s_sql:='select * FROM  "message.db" where 编号=''' + dbedit1.text + '''';
Query1.SQL.Add(s_sql);
Query1.Prepare;    //在这里加上这句就ok了
Query1.Open;

Answer 2

对不起，上面看错了，以为你是用SQL语句增加的记录。
你可以用SQL语句来增加记录……

Answer 3

procedure TForm_add.FormCreate(Sender: TObject);
begin
 query1.Close;
 query1.Open;
 query1.CachedUpdates:=true;
 query1.RequestLive:=true;
  query1.Append;
end;
procedure TForm_add.BitBtn1Click(Sender: TObject);
var
s_sql:string;
begin
if dbedit2.text='' then
   begin
   showmessage('姓名不能为空');
   exit;
   end;
   if dbedit1.text='' then
   begin
   showmessage('编号不能为空');
   exit;
   end;
   try
     strtoint(dbedit1.text);
     except
       showmessage('休想蒙混过关！编号只能是数字！');
       exit;
     end;
Query2.Close;
Query2.SQL.Clear;
s_sql:='select * FROM  "message.db" where 编号=''' + dbedit1.text + '''';
Query2.SQL.Add(s_sql);
Query2.Open;
 if Query2.RecordCount <> 0 then
  begin
  showmessage('该编号已经存在。');
  exit;
  end;
Query1.ApplyUpdates;
Showmessage('添加联系人'' ' + dbedit2.Text +' '' 成功');
Query1.Append;
end;end.
我这样改了就可以了
Query1的 databasename,sql,都设了植
Query2只databasename设了，
大家能不能帮我解释下是为什么啊