数据库添加数据的问题？

Question

数据库为Paradox7，one.DB 数据库别名：me
数据库结构为：“(”内为该字段数据类型物品(字符型)  单价($型)   日期(Date)   时间(Time)  现要根据用户填入EDIT的信息往数据库内添加记录(日期和时间值由自动读取系统时间日期得到timetostr(time)) 
请问如何实现
要用什么控件
要求：用户只能通过EDIT控件操作，不能直接操作数据库表(也就是DBGrid1.readonly:=true)

Answer 1

SQL语名要如何写。就是SQL.ADD(..........)
省略号部份中的数据类型要如何搞？

Answer 2

既然你只要用ＥＤＩＴ，那么需要数据转换！
关于时间类型你可以用Datetimepicker控件，但针对日期和时间需要设置其
Datetimepicker.kind

Answer 3

你参考一下下面的代码吧：
      DDM.tmpSTable.Insert;
      DDM.tmpSTable.Edit;
      DDM.tmpSTable['Id'] := SellId;
      DDM.tmpSTable['xh'] := StrToInt(Edit2.Text);
      DDM.tmpSTable['A2'] := Edit3.Text;
      DDM.tmpSTable['ShiJian'] := now();
      DDM.tmpSTable['Number'] := StrToInt(Edit5.Text);
      DDM.tmpSTable['price'] := StrToFloat(Edit4.Text);
      DDM.tmpSTable['Riqi'] := Date();

Answer 4

TQuery1.Close();
TQuery1.SQL.Add('select * from table');
TQuery1.Open();
TQuery1.Append();
TQuery1.Fields.Fields[0].Value:=Edit1.Text;
TQuery1.Fields.Fields[1].Value:=StrToFloat(Edit1.Text);
TQuery1.Fields.Fields[1].Value:=Date();
TQuery1.Fields.Fields[1].Value:=Time();

Answer 5

TQuery1.Close();
TQuery1.SQL.Add('select * from table');
TQuery1.Open();
TQuery1.Append();
TQuery1.Fields.Fields[0].Value:=Edit1.Text;
TQuery1.Fields.Fields[1].Value:=StrToFloat(Edit1.Text);
TQuery1.Fields.Fields[1].Value:=Date();
TQuery1.Fields.Fields[1].Value:=Time();
对不起
TQuery1.Post();

Answer 6

TO  WbtServer() :
用你的方法，系统出错。
提示为：    Cannot Modify a read-only dataset!
我的程序如下：
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Query2.Close();
Query2.SQL.Add('select * from intotoday.db');//intotoday为数据库
Query2.Open();
Query2.Append();
Query2.Fields.Fields[0].Value:=Edit3.Text;
Query2.Fields.Fields[1].Value:=StrToFloat(Edit4.Text);
Query2.Fields.Fields[2].Value:=StrToFloat(Edit5.Text);
Query2.Fields.Fields[3].Value:=StrToFloat(Edit6.Text);
Query2.Fields.Fields[4].Value:=datetostr(date);
Query2.Fields.Fields[5].Value:=timetostr(time);
Query2.Fields.Fields[6].Value:=Edit7.Text;
Query2.Fields.Fields[7].Value:=Edit8.Text;
Query2.Fields.Fields[8].Value:=Edit9.Text;
Query2.Post();
end;可是我的数据库没有设只读啊!
请问应该什么解决？谢谢!