菜鸟之问？如和不用dbnavigator而实现数据的添加，删除，修改？

Question

问题一： 
      在窗体上放上几个BUTTON 定义为 添加、修改、提交 。在其 CLICK 事件写入：
    Table1.Insert;Table1.Edit ;Table1.Post;就不用DbNavigator 了。
问题二：
      输入固定的格式，比如Edit 中输入日期：用 MaskEdit 就可以了。加入只要输入
    固定字符的话可以在Edit 的 OnKeyPress 或 OnKeyDown 事件定义。具体用法可以看
    OnKeyDown 的例子。
      if Key<>'OneKey' or Key<>'OtherKey' then
       do you stuff;

Answer 1

用查询更新数据库涉及到很多问题的权限，多表连接结果集更新等等太多了，这里只能简单举些例子。一般paradox表的sql更新一个表很容易实现，可以用format函数格式化sql语句，也可以用sql参数。下面是一些我写的相关例子。//插入
var
 sqLText: string;
begin
//用sql参数
  query1.Close;
  query1.UnPrepare;
  Query1.SQL.Clear;
  Query1.SQL.Add('insert into valta.db (qName, X, Y) Values (:qName, :X, :Y)');
  Query1.ParamByName('qname').AsString := 'xinsertx';
  Query1.ParamByName('X').AsInteger := 51;
  Query1.ParamByName('Y').AsInteger := 160;
  query1.Prepare;
  query1.ExecSQL;//不用sql参数
  query1.Close;
  Query1.SQL.Clear;
  SQLText := 'insert into valta.db (qName, X, Y) Values ("yinserty", 52, 170)';
  Query1.SQL.Add(sQLText);
  query1.Prepare;
  query1.ExecSQL;end;
//删除，用了format
var
 sqLText: string;
begin
  SQLText := Format('delete from  valta.db where qName = "%s" ', ['xinser']);
  query1.Close;
  query1.unPrepare;
  Query1.SQL.Clear;
  Query1.SQL.Add(sQLText);
  query1.Prepare;
  query1.ExecSQL;end;//update 更新
var
 sqLText: string;
begin
  query1.Close;
  query1.UnPrepare;
  Query1.SQL.Clear;
  sqLText := Format('Update valta.db Set qName = "%s", x = %d, y = %d where qName = "%s" ', ['pig', 100, 100, '0']);
  Query1.SQL.Add(sQLText);
  query1.Prepare;
  query1.ExecSQL;
end;
另外对于时间 可formatdatetime()   PDatestr := formatDateTime('mm''/''dd''/''yyyy', Pdate);
   DeleteQuery := TQuery.Create(nil);
   DeleteQuery.DatabaseName := 'csdn';
   DesSQL := Format('Delete from price where TDate < ''%s''', [PDateStr]);
   DeleteQuery.SQL.Add(DEsSQL);
   DeleteQuery.ExecSQL;
   DeleteQuery.Free;也可用参数
   
     SQLText := 'Insert Into EntityReg (price，date_buy, invoiceNo) Values (:Price, :Date_buy, :InvoiceNo)';
     Query1.ParamByName('Date_buy').AsdateTime := Date;查询很灵活，多看些书吧！   

Answer 2

谢谢laza ！希望早日变成您这样的高手！

Answer 3

来晚了！LAZA好厉害！！呵呵！