高分求救!看看吧,一段小程序,数据库记录竟然未随之增减?!...程序语句?属性设置? 等待...

                            
procedure   TForm1.Button1Click(Sender:   TObject);         //增加卡种   
  begin  
  node:=TreeView1.selected;  
                  node.ImageIndex:=2;  
                  node.selectedIndex:=3;  
                  with   table2   do  
                  begin  
                          Insert;  
                          FieldByName('mz').Asstring:=spinEdit1.text;  
                          FieldByName('zl').Asstring:=Edit1.Text;  
                          Post;  
                          Refresh;  
                          button1.Enabled:=false;  
                  end;  
  end;  
  procedure   TForm1.Button2Click(Sender:   TObject);       //删除  
          var  
          Button2:Integer;  
          begin  
                  Button2:=Application.MessageBox('确实要删除吗?','警告!',mb_OKCancel+mb_DefButton1);  
                  if   Button2=IDCANCEL   then   abort  
                  else  
                      with   table2   do                                                                                
                          begin  
                              delete;  
  //                         Refreshdata;  
                      end;  
          end;

查看回复