delphi2007 教程

这到底是怎么回事呀？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061221085732195.html
怎么我写了一段程序，删除满足条件的记录！  
  怎么运行起来老是提示：   Table   is   read   only   ！  
  我已经把RequestLive属性设计有True   ；怎么回事！！！  
  哪位大虾帮下忙！！非常感谢！！！  
   
   
  下面是程序的一小段代码：  
  //按栋删除学生!  
      if   RadioButton6.Checked   =   true   then  
      begin  
          if   edit6.Text   =   ''   then  
          begin  
              showmessage('请输入栋号!')   ;  
              abort   ;  
          end   ;  
          i   :=   0   ;  
          query1.Close   ;  
          query1.SQL.Clear   ;  
          query1.SQL.Add('select   *   from   building   ,   house   ,   bed')   ;  
          query1.SQL.Add('   where   building.building_no   =   house.building_no     AND   house.house_no   =   bed.house_no   ')   ;  
          query1.SQL.Add('   AND   building.building_no   =   :para_building_no')   ;  
          query1.ParamByName('para_building_no').AsString   :=   trim(edit6.Text)   ;  
          query1.Open   ;  
          if   query1.RecordCount   >=   1   then  
          begin  
              while   Not   query1.Eof   do  
              begin  
                  if   query1.FieldByName('s_no').AsString   <>   ''   then  
                  begin  
                      s_no[i]   :=   query1.fieldByName('s_no').AsString   ;  
                      i   :=   i   +   1   ;  
                      query2.Close   ;  
                      query2.SQL.Clear   ;  
                      query2.SQL.Add('select   *   from   bed   where   s_no   =   :para_s_no')   ;  
                      query2.ParamByName('para_s_no').AsString   :=   query1.fieldByName('s_no').AsString   ;  
                      query2.Open   ;  
                      if   query2.RecordCount   >=   1   then  
                      begin  
                          query2.Edit   ;  
                          query2.FieldByName('s_no').AsString   :=   ''   ;  
                          query2.FieldByName('bed_state').AsString   :=   '不到'   ;  
                          query2.Post   ;  
                      end   ;  
                  end   ;  
                  query1.Next   ;  
              end   ;  
              i   :=   i   -   1   ;  
              while   i   >=   0   do  
              begin  
                  query1.Close   ;  
                  query1.SQL.Clear   ;  
                  query1.SQL.Add('select   *   from   student   where   s_no   =   :para_s_no')   ;  
                  query1.ParamByName('para_s_no').AsString   :=   s_no[i]   ;  
                  query1.Open   ;  
                  if   query2.RecordCount   >=   1   then  
                  begin  
                      query1.Edit   ;  
                      query1.Delete   ;  
                      query1.Post   ;  
                  end   ;  
                  i   :=   i   -   1   ;  
              end   ;  
              showmessage('删除操作成功!共删除'   +   inttostr(i+1)   +   '条记录!')   ;  
          end  
          else  
              showmessage(edit6.text   +   '栋不存在!')   ;  
    end   ;

query1.Edit   ;  
            query1.Delete   ;  
            query1.Post   ;  
   
   
  Delete   后不用POST

谢谢！  
  但是还是出现同样的错误！！！  
  奇怪，到底是哪里出现的问题？  
  真是找不出？？？   哪位大峡帮下？？？急呀！！！

query的readonly   的属性设为false看看  
 

query有readonly属性吗？  
  还是不行！

但是还是出现同样的错误！！！  
  奇怪，到底是哪里出现的问题？  
  真是找不出？？？   哪位大峡帮下？？？急呀！！！

你的数据库是只读的吧?  
  或者连接数据的用户名没有权限删除这个表.

应该不是这的原因！  
  我按照别的（比如说按照学号）就可以删除，所以不是你所说的那个原因！！！  
  真的不知道是什么缘故？？？  
  ？？

怀疑是query1中的语句得到的视图，在你删除它中记录时，无法判断该删除的记录，所以会提示说只读的，你换一下方法，将你要删除的表放到query1中，其他的字段另想办法吧

怎么还是不行呀？  
  这是怎么回事呀？真搞不懂！！！

建议你的删除语句也用SQL语句写，这样就可以不必理会数据集的状态了。

我用了SQL语句写了，还是不行！！  
  哎！这是咋的？

如果用SQL语句写了都不行，应该是数据库自身的原因。

还是没有解决？？？？

query1.RequestLive   设置为true   ！