管理信息系统课程设计(12)

查询其结果见如图8-2。

图8-2 查询结果表

3． 删除按键Click事件过程 Set deleted on

yn=messagebox("确定要删除这条记录吗?" ,4+32, "提示") If yn=6 Delete

=messagebox("删除成功!" ,48,"提示") Endif

Thisform.refresh() 运行过程如下：

单击“删除”按钮，，提示内容为“确定要删除这条记录吗？”如图9-1。

单击“是”按钮，就会出现一个新的提示，提示信息为“删除成功！”单击“确定”信息删除成功。在图9-1中单击“否”按钮，自动退出删除程序，如图9-2 。