怎样把EDIT和DATETIMEPICKER中的东西导 到库里去

Question

我的数据库里有一个表A中有三个字段分别是ID char(8), DAY  tinyiny, DT datetime
 程序中有两个edit,前一个(edit1)输入ID,后一个(edit2)输入DAY 两个datetimepicker 其中前面一个(datetimepicker1)输入日期，后面一个(datetimepicker2)输入时间，我该如何把输入EDIT和DATETIMEPICKER组件中的内容输入到表A去procedure TFormNew.BitBtn_new_enterClick(Sender: TObject);
var
  ？？ 
begin
   ？？
    with ADOQuery1 do
    begin
       close;
       sql.Clear;
       sql.Add('insert into A  values（)) ;
      
         ？？    end;
end;

Answer 1

with ADOQuery1  do
    begin
       close;
       sql.Clear;
       sql.Add('insert into A(ID,DAY,DT)  values(:a,:b,:c)') ;
       Parameters[0].Value :=edit1.text;
       Parameters[1].Value :=edit2.text;
       Parameters[2].Value := datetostr(datetimepicker1.date)+' '+timetostr(datetimepicker2.Time) ;
       ExecSQL;
    end;

Answer 2

with ADOQuery1  do
    begin
       close;
       sql.Clear;
       sql.Add('insert into A(ID,DAY,DT)  values(''' + edit1.text + ''',' +edit2.text + ',''' + datetostr(datetimepicker1.date)+' '+timetostr(datetimepicker2.Time) + ''')') ;
       ExecSQL;
    end;--------------------------------------
看！
那支正飞向太阳的蛾子.....
就是我！
--------------------------------------