请教对Table操作时的问题

                            
以下是我的对数据表进行简单的添加、修改、删除记录的代码,不加修改、删除这两个功能时,用   
  procedure   TForm1.ButtonAddClick(Sender:   TObject);  
  begin  
      Table1.Insert;  
      Table1.FieldByName('Name').asstring:=Edit1.Text;  
      Table1.FieldByName('X').asstring:=Edit2.Text;  
      Table1.FieldByName('Y').asstring:=Edit3.Text;  
      Table1.FieldByName('H').asstring:=Edit4.Text;  
      Table1.Post;  
  end;  
  来添加记录没有任何问题,可是加上修改、删除的代码后就会出现添加的是空记录的问题,请教各位是哪里有问题,应该怎么解决?  
   
  procedure   TForm1.ButtonAddClick(Sender:   TObject);  
  begin  
      Table1.Insert;  
      Table1.FieldByName('Name').asstring:=Edit1.Text;  
      Table1.FieldByName('X').asstring:=Edit2.Text;  
      Table1.FieldByName('Y').asstring:=Edit3.Text;  
      Table1.FieldByName('H').asstring:=Edit4.Text;  
      Table1.Post;  
  end;  
   
  procedure   TForm1.Table1AfterScroll(DataSet:   TDataSet);  
  begin  
      With   Table1   do  
      begin  
          Edit1.Text:=Table1.FieldByName('Name').asstring;  
          Edit2.Text:=Table1.FieldByName('X').asstring;  
          Edit3.Text:=Table1.FieldByName('Y').asstring;  
          Edit4.Text:=Table1.FieldByName('H').asstring;  
      end;  
  end;  
   
  procedure   TForm1.ButtonModifyClick(Sender:   TObject);  
  begin  
      Table1.Edit;  
      Table1.FieldByName('Name').asstring:=Edit1.Text;  
      Table1.FieldByName('X').asstring:=Edit2.Text;  
      Table1.FieldByName('Y').asstring:=Edit3.Text;  
      Table1.FieldByName('H').asstring:=Edit4.Text;  
      Table1.Post;  
  end;  
   
  procedure   TForm1.ButtonDelClick(Sender:   TObject);  
  begin  
      Table1.Delete;  
  end;  
 

查看回复

最新教程