抽奖

jianganew

快到年终活动了，发个抽奖系统给大家使用：

一、抽奖操作说明：
1、点击选中相应的奖项设置，没有选中时为“随机奖”；
2、设置抽取相应奖项的名额数（可在“设置”中预设）；
3、点击“开始”，或按“空格键”为开始运行抽奖程序；
  （当没有下一步操作时，一直在随机读取，没有进行抽取模式）
4、按任意字母键，主键盘数字键，或点击鼠标， 则进入抽取模式，开始进行抽奖。
  （抽奖为批量抽取模式，即一次抽取“名额”中规定的数量）

二、抽奖显示：
1、当设置为“慢速”时，中奖名单逐一显示。（适合于现场抽奖）
2、当设置为“快速”时，中奖名单批量显示。（适合于非现场抽奖）

三、数据操作：
1、点击“中奖统计：”，可以读取所有中奖名单；
2、选中相应的奖项，点击“读取”，可载入相应的中奖名单；
3、点击“保存”，相应保存表中记录；
4、点击“删除”，则删除表格选中的一条记录;
5、点击“刷新”，回到起始界面。

四、预先“设置”：
1、点击“设置”，进入设置相关字段、数据；
   如“主题”、“奖项设置”、“名单设置”等

2、人员名单：
   本抽奖系统，读取是ini中的记录数据。因此，需将人员名单存为ini文本记录。
  （推荐方法：先建立人员名单的Excel表<List.xls> —>再点击“存为ini记录”，将人员名单存为ini文本记录)   
  （1）、Excel表格：xls、et格式
         行1为表头，行2开始为人员名单记录
         列1、列2、列3，为相关记录项，可为姓名、员工号、所在部门
  （2）、Excel存为ini：
         点击“读取表”，载入人员名单记录，再点击“存为ini记录”，将名单存为文本记录。

五、List.ini说明：
   [字段名]
   关键字=值
   字段名: name
   关键字：数字序列
   值：姓名|员工号|所在部门
   ini示例：
   [name]
   1=任我行|GENBT0126301|总经室
   2=东方不败|GENBT0290491|信息管理部
   3=西门吹牛|GENBT0127049|市场部

六、“残存记录”提示：
  为防止程序错误关闭而设。
  当打开“抽奖系统”时，可能会出现提示：“有残存记录,会影响抽奖！”
  1、全新抽奖时，必须清理残余记录！点击“是”；
  2、抽奖过程中断后，再打开“抽奖系统”时，点击“否”。

afan

设计得不错，帖子也图文并茂

redapple2008

au3写的？这个能不能做弊？就是事先指定好的人获奖？

jianganew

redapple2008 发表于 2019-10-22 11:21
au3写的？这个能不能做弊？就是事先指定好的人获奖？

是用au3写的。
为了公平，没有设置“做弊”的代码。

qxguoxing

设计好炫，拿来学习学习。

haijie1223

很用心的设计，赞一个！

Dontang2018

可惜没有原码....
可惜没有原码....

Dontang2018

设计好炫，拿来学习学习。可惜没有原码....

bxpcn

炫酷，不错。

txen548

回复下来看看