我想请教2个数据库的问题(50分)

(1)如何用Query控件将EDIT中的值的插到ACCESS数据表中，并将有此值的记录插入到
另一新表，并将原表中有此值的记录删除，我已写了代码，但运行有错。

Query3.Close();
Query3.SQL.Clear();
Query3.SQL.Add("select from staffentry where No1=:Q18");
Query3.ParamByName("Q18").AsString=Edit18.Text;
Query3.Open();

Query3.Close();
Query3.RequestLive=true;
Query3.SQL.Clear();
Query3.SQL.Add("Insert into staffentry (left) Values (true)");
Query3.RequestLive=false;
Query3.Close();
Query3.RequestLive=true;
Query3.SQL.Add("Delete from staffentry where (Left='true')");
Query3.SQL.Add("select [Name1],[No1],[Age],[Salary],[Id],[Phone],[Intime],[Worktime],[Headname] into staffleft from staffentry where (left=true)");
if (!Query3.Prepared) Query3.Prepare();
Query3.ExecSQL();

(2)我想在DELPHI中实现将用户在EDIT中输入“入职时间“后，在另一EDIT中自动计算其“工龄”，并插入到ACCESS数据库中去？

》》Query3.SQL.Add("select from staffentry where No1=:Q18");
》》Query3.ParamByName("Q18").AsString=Edit18.Text;
把根这些类似的全换成''，要单引号！
》》Query3.SQL.Add("Delete from staffentry where (Left='true')");
是布尔值吧
Query3.SQL.Add('Delete from staffentry where (Left=True)');
最好先删除再Insert，防止有关键字冲突。

2。在Edit的Onchange中写代码计算，然后给另一Edit赋值，写表
如果用在Edit中敲入回车标识输入完毕，就在OnkeyDown中写代码判断是否回车键然后再做

1）前面的程序是改都没法改，因为看不出你究竟是要做什么。
2）在Edit1的OnKeyPress事件中写以下代码：
If
Key=#13
Then
Begin
Key:=#0;
Edit2.SetFoucs;
End;
在Edit2的OnEnter事件中写
If
Edit1.text<>''
then
Begin
Edit2:=IntToStr(StrToInt(FormatDateTime('yyyy',now))-StrToInt(Copy(Edit1.text,1,4)));
End;

看不懂啊！做什么啊！