数据库删除后如何让用户知道操作已经结束?谢谢大家!!(30分)

  • 主题发起人 主题发起人 lawzhang
  • 开始时间 开始时间
L

lawzhang

Unregistered / Unconfirmed
GUEST, unregistred user!
我的代码是这样的:
var i:Integer;
begin
i:=MessageBox(0,PChar('GAME库清除后玩家信息将丢失'),PChar('确定清除GAME库'),MB_ICONEXCLAMATION+MB_OKCANCEL);
if i = 1 then
begin
DataModule1.ADOQuery2.Close;
DataModule1.ADOQuery2.SQL.Add('DELETE FROM TBL_ABILITY');
DataModule1.ADOQuery2.SQL.Add('DELETE FROM TBL_CHARACTER');
DataModule1.ADOQuery2.ExecSQL;

由于数据库的数据比较多,删除需要一定的时间,我想在删除后弹出对话框,提示用户操作已经结束,请问大家该怎么实现,谢谢了!
 
在ExecSQL后面加上一句:ShowMessage('删除成功!');
这样就会删除完成之后提示的呀。
 
晕倒,ShowMessage是在删除完成之后弹出吗?我是菜鸟,不是很懂!
 
当然是在删除完之后才弹出来的,你试一下不就知道了吗??
 
肯定是啦!你可以自己试试!
 
帮楼主改一下代码,
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := MessageBox(0,PChar('GAME库清除后玩家信息将丢失'),
PChar('确定清除GAME库'),MB_ICONEXCLAMATION + MB_OKCANCEL);
if i <> idOK then Exit; //使用 idOK 更加直观,便于理解
try //捕捉错误
with DataModule1.ADOQuery2 do
begin //两条 SQL 语句要分开两步执行
Close;
SQL.Text := 'DELETE FROM [DELETE FROM TBL_ABILITY]';
ExecSQL;
SQL.Text := 'DELETE FROM [DELETE FROM TBL_CHARACTER]';
ExecSQL;
end;
ShowMessage('删除完成');
except
ShowMessage('删除失败');
end;
end;
 
谢谢大家!!!
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部