基于vb的杂志分发系统设计与实现

《基于vb的杂志分发系统设计与实现》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基于VB的杂志分发系统设计与实现浙江沈淦张利波近来补订的《软件报》陆续到了，读着还散发着墨香味的文章感觉还真不错，每次等待报刊杂志的感觉就像等待一位好友，朋友如约而至，心中自是一片惬意，可惜，有时朋友未能如约而至，心中难免些许失落。也难怪，像笔者所在学校，教师有上百号人，加上班级、办公室、其他各行政科室、阅览室，大大小小、零零总总的报刊杂志加在一起，传达室每天分发量少说也有几十份，出点差错也难免。基于此，笔者决定设计一个杂志分发系统，让传达室工作“减负”，让每份报刊杂志准确到达主人手中。【编程分析】杂志分发

2、系统主要实现拿到杂志后输入其邮发代号，自动显示征订该杂志的读者和信箱信息，免去人工查询时间和降低查询出错几率。该系统的数据库需设计三张表格：①读者表，主要字段含读者姓名、办公室、信箱地址；②杂志基本信息表，主要字段是杂志邮发代号、杂志名称、杂志类别；③订阅表，主要字段有读者姓名、杂志邮发代号、当前是第几期杂志、收到杂志日期；对应在数据库中的设计为dingyue(name,code,qishu,receive)，magazine(code,magazine,type)，teacher(name,office,

3、box)。数据库连接通过VB“外接程序”——“可视化数据管理器”菜单，新建ACCESS表格，在其内部创建三张表格，创建字段时要选择合适的字段类型。设计数据库之后，具体功能实现可通过几个模块进行分析。一、读者模块读者模块主要实现读者基本信息记录的添加、删除、修改。1、添加在该部分设计过程中，充分发挥VB6.0的ADODC、DATA等控件相结合的强大绑定功能，添加ADODC控件的方法：“工程”——“部件”，在“控件”选项卡中选定“MicrosoftADODataControl6.0(OLEDB)”选项。笔者采用

4、控件代替代码的方法。在ADODC控件的属性中连接数据库中的teacher表。添加记录时，先检查字段值的文本框是否已输入内容，否则给予输入提示，在输入基础上进行容错性和唯一性检查，读者姓名作为主键不允许输入相同值，若单位出现同名同姓，可在姓名后添加数字来区分。当然也可以再添加读者编号字段为主键，来解决姓名相同的情况。‘表中主键(name)的唯一性检验，通过SQL查询语句实现，代码略‘若没有重复，则添加一条读者记录WithFrmreadermodify.Adodc1.Recordset.AddNew’添加一条记

5、录.Fields(0).Value=Trim(TxtnaText)‘添加姓名字段值.Fields(1).Value=Trim(Combo1.Text)‘添加办公室字段值.Fields(2).Value=Trim(Txtbox.Text)‘添加信箱字段值.UpdateEndWith2、删除执行记录删除时，要排除相同记录或空白记录，由于在记录添加时，对此已进行考虑，所以可直接执行删除操作，具体代码如下。WithAdodc1.Recordset.Delete’删除该记录.Update’刷新EndWith3、修改修

6、改记录时，姓名字段作为主键不允许被修改，修改内容是除主键以外的其他字段值，这样可以省略主键唯一性的检查。若记录中的主键也要进行修改，则可以通过删除记录来执行。WithFrmreadermodify.Adodc1.Recordset‘根据新内容，修改该记录非主键的字段值.Fields(1).Value=Trim(Combo1.Text)‘修改读者表的办公室字段.Fields(2).Value=Trim(Txtbox.Text)‘修改读者表的信箱字段.UpdateEndWith杂志基本信息是杂志的基本属性，如杂

7、志名称，邮发代号、CN刊号，ISSN刊号，地址等信息，本系统中杂志基本信息表只设置了邮发代号、杂志名称、杂志类别三个字段，其中邮发代号作为主键，不允许重复。从功能上同读者模块，设置添加记录、删除记录、修改记录的功能，此处不再赘述。二、订阅模块订阅杂志作为本系统的主要功能，表中设置四个字段：邮发代号、读者姓名、当前第几期、收到杂志日期，其中邮发代号、读者姓名、当前第几期作为主键，订阅记录添加时需进行唯一性检查。根据设计字段，若整年征订为月刊杂志，需要操作12次，为提高此类问题的输入效率，通过选择初始和结束月份

8、，结合该杂志类型，进行一次输入，程序中将自动生成这几个月中的每一期订阅记录，为此订阅模块分整订杂志和破订杂志两部分来考虑。1、破订破订期一般是单本杂志的单期订阅，因此征订期数通过直接输入办法，邮发代号和读者姓名通过列表选择即可。‘记录的字段内容的容错性检查，代码略‘用SQL语句进行唯一性检查，代码略‘通过唯一性检查，进行破订记录添加WithAdodc1.Recordset.AddNew.Fields(0).Val