同上问题!请各位大侠解释一下下面的程序中beep的作用.摆脱!!
程序如下:
  try
    with FORM_main.TabUser  do
    begin
      close;
      open;
      first;
      while not eof do
      begin
        ComboBox1.Items.Add(FieldByName('User_Name').AsString);
        ComboBox1.Text := FieldByName('User_Name').AsString;
        next;
      end;
      close;
    end;
  except
    beep;
    showmessage('打开用户表失败!');
  end;