各位gg、dd，为什么我的程序老死？

Question

编译程序，运行后如程序有问题，会出错误提示，可我按下Ctrl+F9,然后点击确定终止程序，然后我的电脑就不行了，在也打不开任何程序，为什么呀？？？？？

Answer 1

procedure Tfrm_chaxunrwd.suiButton2Click(Sender: TObject);
begin
  inherited;
 self.Close;
end;procedure Tfrm_chaxunrwd.suiButton1Click(Sender: TObject);
varbh0:string;
sql:string;
begin //²éѯ
  inherited;     bh0:=bh.Text;
      if (bh.Text='')then
        sql:='select * from rwd where rwid='''+bh0+'''';
      q.Close;
     q.SQL.Clear;
     q.SQL.Add(sql);
      q.Open;
end;
procedure Tfrm_chaxunrwd.FormShow(Sender: TObject);
var     //³õʼ»¯
   tq:tadoquery;
begin
inherited;
 q.Close ;
 q.Open ;
frm_chaxunrwd.WindowState:=wsmaximized;
tq:=tadoquery.Create(nil);
  try
  tq.Connection:=datamodule1.ADOConnection1;
  tq.Close;
  tq.SQL.Clear;
  tq.SQL.Add('select rwid from rwd group by rwid');
  tq.Open;
  bh.Items.Clear;
  bh.Items.Add('');
  while not tq.Eof do
    begin
      bh.Items.Add(tq.fieldbyname('rwid').AsString);
      tq.Next;
      end;
      bh.ItemIndex:=0;            finally
      tq.free;
      end;end;
procedure Tfrm_chaxunrwd.suiButton4Click(Sender: TObject);
begin
  inherited;
if application.MessageBox('È·¶¨ÒªÉ¾³ýÂð£¿','Ìáʾ',mb_yesno)=6 then
q.Delete;
end;procedure Tfrm_chaxunrwd.suiButton6Click(Sender: TObject);
begin  //ÐÞ¸Ä
  inherited;
suidbgrid1.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit,dgediting]
end;procedure Tfrm_chaxunrwd.suiButton5Click(Sender: TObject);
begin  //±£´æ
  inherited;
  q.Post;
  suidbgrid1.Options:=[dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit]end;

Answer 2

你没事放这么多inherited;干什么啊？