基于ACCESS的抽奖Draw lots数据库设计与实现

1、主窗体界面如下；

2、员工信息表如下，同时自动备份一个映射表；

3、启动主窗体，可以看到只有”三等奖”控件是激活可用的，点击”三等奖”控件，界面如下；

4、点击”抽奖开始”控件，因无法显示动态图，实际效果是”幸运星”后的人名文本框会不断滚屏显示，界面如下；

5、点击”中奖结果”控件，则弹出一个对话框，提示中奖人员名单，界面如下；

6、点击”OK”按钮后，可以看到只有”二等奖”控件是激活可用的，重复前述操作，则可依次得到二等奖，一等奖的人员名单，这里不再赘述了，界面如下；

7、VBA代码如下1st；

8、VBA代码如下2nd；

9、VBA代码如下3rd；

10、VBA代码如下4th；

11、VBA代码如下5th；

12、VBA代码如下6th；

13、VBA代码如下7th；