多次多人带音乐可控抽奖程序

此案例仅为快速实现功能，不涉及sql语句、编程思想的讲解。

一、抽奖软件 （有源代码） 

适用范围：活动抽奖、随机出题、俩俩PK抽签等等。 
所用软件：VB6.0和office中的access【推荐用2003】 
功能： 
1、将所有人员名单存放在access中，输入人数，可以随机抽出互不重复人员姓名。已被抽中人员不再被抽中。 
2、也可以设置一个或者多人不会被抽中，但是在滚动屏幕里可以看见名字。 
3、也可以设置可以被抽中多次。 
4、开始抽奖时，有音乐响起，音乐可以视个人爱好更换。每次抽奖时可以有不同音乐。 
5、可以打包生成可执行文件，没有安装VB和Office的电脑也可以运行。 
6、将抽中的人员姓名备份在记事本里。 
7、有重置功能，可以重复使用。 

二、准点报时 （有源代码） 
适用范围：准点播放广告电影；学校、企业、工厂准点报时等等。 
所用软件：VB6.0 、格式工厂 
功能： 
采用windows自带的播放器，根据设置的时间，到点自动播放电影（wmv格式等windows兼容格式）、音乐（mp3格式）。 

三、简单管理系统 （有源代码） 
用VB6.0制作的界面，对数据库进行查询数据、增加数据、修改数据、删除数据，从而可以做出简单的数据管理系统。 
所需软件：VB6.0、Access2003 

功能： 
1.登录界面，输入正确的帐号和密码，进入系统；如输入错误，给出来提示 
2.进入系统后，将数据库里的数据直接显示在界面的表格框里。 
3.输入姓名或者其他字段，查询出内容并显示在界面上。 
4.根据日期区间查询所需内容，并显示在界面上 
5.可以一条一条浏览数据 
6.双击表格，可以将数据显示在文本框中，然后可以修改、删除、新增数据记录。 
四、VB程序进行Excel数据导入、导出 （有源代码） 
所用软件：VB6.0、Excel2003、access2003【与VB兼容性较好】 
功能：1、VB窗体界面打印 
2、Excel数据批量导入数据库 
3、所有数据导出Excel 
4、根据条件查询出来的数据导出到Excel 
5、文本框里的多行多列的数据导入到Excel

五、VB6.0制作自定义控件（无源代码）

有的时候，多个控件和控件事情需要在多个窗体里运用很多次，为了提高效率，我们可以创建用户自定义控件。当我们从其他地方看到一个很好的用户控件，我们也可以拷贝和添加到自己的VB工程里运用。

六、VB6.0利用MD5加密保存在数据库里的数据，即使打开数据库里面的表，也无法知道数据内容。
（有源代码）

1、VB连接有密码的数据库

2、将密码进行加密，在数据库看不到真实的密码

3、实现登录功能

4、实现注册新用户功能，已注册用户不能重复注册

5、实现密码修改功能，必须要知道原密码。

友情提醒：
因为VB6.0是比较老的软件了，为了优秀兼容，建议使用XP 和 win7 32位的系统。
xp与vb的兼容性是优秀匹配的。
win7 64位和win10 已测也是可以正常打开运行。

特别说明 ： 以下所有源代码在win7 64位 和 win10 64位下，打开VB程序均可运行成功。如果想在win10系统下编写程序，请先安装VB6.0 企业版，软件可以进群下载，如何安装可观看老师另外给大家录制的VB6.0在win10下安装企业版的视频，连接数据库时win10会遇到找不到OLE DB提供的access 4.0程序，可参照第一个和第六个程序，不用UDL 直接用代码连接数据库。数据库如果不是2003版本 是2010以上的可以直接从老师提供的文件里拷贝一个mdb的access2003 即可，无需再安装2010高级版本。

即
 Rs.ActiveConnection = "file name=manage.udl"
修改为
rs.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb"

即
cn.ConnectionString = "file name=manage.udl"
修改为
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Test.mdb"