同上问题!请各位大侠解释一下下面的程序中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;
程序如下:
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货