VB开发彩票销售系统论文毕业设计（论文）word格式.doc

VB开发彩票销售系统-论文  摘 要  随着彩票热在中国大地上的日益高涨，彩票销售管理也显得越来越重要，随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟，因而利用VB来设计一套彩票销售管理系统不但是必要的，而且在技术上是完全可行的。 本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发彩票管理信息系统的过程。通过围绕彩票销售管理的销售、开奖、查询等过程详细描述了使用计算机来处理的全过程。 本系统虽然界面一般，但操作简单，且简单实用。【关键词】管理信息系统、彩票销售、Visual Basic   目录1.系统概述1.1可行性分析1.2系统设计的背景1.3系统的功能简介1.3.1 项目规划1.3.2销售133开奖134查询135设置1.36退出1.4系统开发的目标2.系统分析2.1业务流程分析2.2数据流程分析2.3数据存储分析：实体联系图2.4功能分析：功能层次图3系统设计3.1软件模块结构设计311系统方案确定312软件结构设计32数据库设计4系统的详细设计41系统主界面42销售模块4.3开奖模块44中奖查询4.5设置4.6彩票打印5、系统实现51系统开发环境5.2系统测试5.3 系统运行与维护5.4系统的转换方案6、结束语参考文献1系统概述：本彩票销售管理系统可以说是一个综合性的管理系统，这它集成了彩票销售、开奖、查询、设置等多种实用的功能，因而具有较强的实用性。1.1可行性分析由于本系统管理的对象单一,且每个数据内容具有较强的关联性，涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。对机器要求的配置较低，一般的电脑在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，别是参考其它程序的功能，因此完全可以实现。本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6.0中文版开发成功的。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下： Visual Basic语言Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。1.2系统设计的背景考虑到彩票发行网点的建设要尽量减少成本，所以要开发一种操作简单、功能较齐全且对机器配置要求不高的软件系统。1.3系统的功能简介本系统主要可以实现以下的管理功能：销售、开奖、查询、设置等等。1.3.1 项目规划本信息管理系统是一个典型的数据库应用程序,特规划如下:1.3.2销售系统的销售分两种方式，一种是自选，一种是机选，完全与实际中的操作一样，但每次最多只能操作五注，并直接与打印机进行关联操作，可将自己的选择结果通过打印机输出，当一个客户销售完毕，轮到一下客户时，只需点击复位键，就会清除刚才的选择结果，从而提高了工作效率。1.3.3开奖：该模块是根据数学规律对所有已经卖出的彩票的结果进行抽奖，并及时显示出抽奖结果（即号码）1.3.4查询：为了帮助彩票购买者及时查询自己所购的彩票是否中奖，特设置了此模块，在此处我们首先可以选择已经售出彩票的期数，则系统自动显示出此期的中奖结果，以及彩票的销售量，共有六个层次的奖项，即特等奖、一、二、三、四、五等奖，并可以输入某一注彩票的号码进行即时查询。1.3.5设置：此模块是本彩票系统的最基础的功能模块，我们在此处设置彩票的期数、开奖日期、兑奖日期等基本的参数。1.3.6退出：退出本系统操作。1.4系统开发的目标出于本系统是彩票销售管理的一个综合性的系统，本系统的设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。2.系统分析2.1业务流程分析彩票销售管理业务流程图：购买人员输入计算机工作人员经理注数号码 输出       2.2数据流程分析：客户客户人员彩票销售管理系统 彩票站注数号码查询统计        彩票销售管理系统数据流程图2.3数据存储分析：实体联系图首先来做出彩票销售管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，客户、彩票、销售站组成了这个系统的三个实体。这个E-R图可画成下图。客户销售站结果彩票mn      彩票销售管理系统中E-R图彩票销售管理系统销售开奖查询设置退出机选号码打印彩票取消复位取消复位2.4功能分析：功能层次图                 3系统设计3.1软件模块结构设计311系统方案确定。通过对系统的调研与分析，系统主要应完成的功能如系统功能流程图所示的功能。312软件结构设计。本系统在执行时，先根据不同的客户的号码需要来进行相应的操作，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。 接受数据处理中心注数号码开奖结果                 32数据库设计数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库彩票序号自动编号长整型 购买日期日期/时间  每期信息表：字段名称类型宽度小数位期号文本7 中奖号码文本7 开奖日期日期/时间  兑奖截止日期日期/时间  4、系统的实现：本部分主要内容为本系统的运行界面以及主要界面的源代码。41系统主界面：本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有五个命令按钮，从而实现了本系统从销售、开奖、查询、设置、退出等系统的具体功能。代码如下：Private Sub CmdExitPreset_Click()frameSale.Visible = FalseframeWinner.Visible = FalseframeQuery.Visible = FalseframePreset.Visible = False cmdSale.Enabled = TruecmdWinner.Enabled = TruecmdQuery.Enabled = TruecmdPreset.Enabled = TruecmdQuit.Enabled = TrueEnd Sub Private frameSale.Visible = FalseframeWinner.Visible = FalseframeQuery.Visible = FalseframePreset.Visible = False cmdSale.Enabled = TruecmdWinner.Enabled = TruecmdQuery.Enabled = TruecmdPreset.Enabled = TruecmdQuit.Enabled = TrueEnd Sub Private Sub cmdGenerateRand_Click()'本子程序产生指定个数的随机彩票号码Dim temp_no As String, MyCounter As IntegerDim i As Integer, j As IntegerDim Picked_no As IntegerDim notexit_flgMyCounter = 0j = 0'外循环控制生成的随机彩票注数Do While MyCounter < rand_sum i = 1rs.Open scmdPreset.Enabled = TruecmdQuit.Enabled = TrueCmdReset_ClickEnd Sub Private Sub CmdReset_Click()Dim i As IntegerDo While i <= 4 rs.Open strsql, cnn lblQuery3.Caption = rs("winno") rs.Close strsql = "select count(期号)*2.00 as sub_sum from 彩票 where 期号 = '" & DataComboQuery1.Text & "'" rs.Open strsql, cnn lblQuery5.Caption = rs("sub_sum") rs.Close strsql = "Select 投注号码 as betno from 彩票 where 期号 = '" & DataComboQuery1.Text & "'" rs.Open strsql, cnn Do Until rs.EOF win_flag = False For i = 7 To 2 Step -1 For j = 1 To 8 - i Step 1 If Mid(lblQuery3.Caption, j, i) = Mid(rs("betno"), j, i) Then win_flag = True k(7 - i) = k(7 - i) + 1 Exit For End If Next j If win_flag Then Exit For End If Next i rs.MoveNext Loop rs.Close cnn.Close For i = 0 To 5 lblQuery7(i) = k(i) Next iElse lblQuery3.Caption = "" lblQuery5.Caption = 0End IfEnd Sub Private Sub Form_Load()lblTimer.Caption = Now()End Sub Private Sub rand_sum_Change()Dim MyCounter, Picked_no As IntegerMyCounter = 0Picked_no = 0Do While MyCounter <= 4 If Len(Trim(txt_no(MyCounter) <> 0 Then Picked_no = Picked_no + 1 End If MyCounter = MyCounter + 1LoopIf rand_sum.Text > 5 - Picked_no Then rand_sum.Text = 5 - Picked_noElseIf rand_sum.Text <= 0 Then rand_sum.Text = 0End IfEnd Sub Private Sub Timer1_Timer()lblTimer.Caption = Now()End Sub Private Sub txt_no_LostFocus(Index As Integer)Dim MyCounter, Picked_no As IntegerMyCounter = 0Picked_no = 0Do While MyCounter <= 4 If Len(Trim(txt_no(MyCounter) <> 0 Then Picked_no = Picked_no + 1 End If MyCounter = MyCounter + 1LoopVScroll1.Min = 5 - Picked_noVScroll1.Max = 0End Sub Private Sub txtQuery_Change()If Len(Trim(txtQuery.Text) = 7 Then If IsNumeric(txtQuery.Text) Then Dim i, j As Integer Dim congratulation_msg As String Dim win_flag As Boolean wi_flag = False congratulation_msg = "谢谢您对社会福利事业的支持! 您没有中奖!" For i = 7 To 2 Step -1 For j = 1 To 8 - i Step 1 If Mid(lblQuery3.Caption, j, i) = Mid(txtQuery.Text, j, i) Then win_flag = True Select Case 7 - i Case 0: congratulation_msg = "恭喜您! 中了特等奖!" Case 1: congratulation_msg = "恭喜您! 中了一等奖!" Case 2: congratulation_msg = "恭喜您! 中了二等奖!" Case 3: congratulation_msg = "恭喜您! 中了三等奖!" Case 4: congratulation_msg = "恭喜您! 中了四等奖!" Case 5: congratulation_msg = "恭喜您! 中了五等奖!" End Select Exit For End If Next j If win_flag Then Exit For End If Next i MsgBox congratulation_msg 'If Not win_flag Then 'MsgBox "谢谢您对社会福利事业的支持! 您没有中奖!" 'End If Else MsgBox "请输入7位09的数字!" txtQuery.SetFocus End IfEnd IfEnd Sub Private Sub VScroll1_Change()rand_sum.Text = VScroll1.ValueIf rand_sum.Text = 0 Then cmdGenerateRand.Enabled = FalseElse cmdGenerateRand.Enabled = TrueEnd IfEnd Sub42销售模块：本模块主要是对需要购买彩票的客户进行两种方式的选购，每次最多五注，包括机选和手选两种模式，并将选购的结果进行打印。4.3开奖模块：由系统自动运算出本期的结果，并显示出中奖的号码。44中奖查询：查询某期的中奖结果，共有六个层次，并可显示出某一号码是否中奖。4.5设置：可以在此处设置新一期的彩票设置信息。4.6彩票打印：将客户的选注结果进行打印输出，以作凭证。5、系统的实现51系统开发环境：系统开发环境包括硬件平台和软件平台两种。硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济，只要配备有PII处理器（或以上）、64M内存（或以上）、10G硬盘（或以上）的普通微机即可顺利运行。软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，同时选用了Access数据库，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。Visual Basic 6.0具有可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，使得可以轻松方便的对数据库管理。数据库采用MICROSOFT ACCESS，由于我们的系统要求，采用它完全可以适合我们的工作需求，并且它所支持的数据类型十分丰富，维护简便，费用比较低，人员素质要求不是很高，容易升级。 本系统在单机上运行。5.2系统测试：散模块进行单个测试，而是用系统化的方法装配和测试软件系统，是一个严格的过程，必须认真地进行，其计划的产生和单元模块测试的完成日期要协调起来，这种测试应在系统目标机上进行，造成系统应用的环境条件，除了开发部分项目负责人参加以外，还应该有相应系统的用户参加，给评审员进行演示。(3)确认测试确认测试是对通过组合测试的软件进行的，这些软件已经存于系统目标设备的介质上，确认测试的目的是对表明软件是可以工作的，并且符合“软件需求说明书”中规定的全部功能和性能要求。确认测试是按照这些要求定出的“确认测试计划”进行的。测试工作是由一个独立的组织进行，而且测试要从用户的角度出发。(4)系统测试系统测试是对整体性能的测试，主要解决各子系统之间的数据通信和数据共享问题以及检测系统不否达到用户的实际要求，系统测试的依据是系统分析报告。系统测试应在系统的整个范围内进行，这种测试不只对软件进行，而是对构成系统的硬、软件一起进行。系统测试与建构同时进行或略慢。系统测试需要确认从头到尾的功能正常才算完成，应当尽量避免系统测试延到项目末尾进行。(5)用户验收测试在系统测试完成后，进行用户的验收测试，它是用户在实际应用环境中所进行的真实数据测试。在具体的测试中，一般应遵循以下原则：由程序设计者之外的人进行测试；测试用例应由两部分组成：输入数据和预期输出结果；应选用不合理的输入数据与非法输入测试；不仅要检验程序是否实现预期功能，还应检查程序是否做了不应该做的工作；集中测试容易出错的程序模块；对程序修改以后，必须重新进行测试。在开发本系统时，为了使系统能够稳定运行，对本系统进行了有针对性的全面测试，采取的方式是：1、菜单项测试：为了保证每一项下拉菜单能够正确实现系统设计的功能，我把相关的基础数据，基本上全部输入到本系统中，并对每一个菜单项反复进行了增加、删除、修改等操作，从而保证了菜单级功能的正确实现。2、数据跟踪：完成菜单项测试后，我又对系统内的每一个数据进行了跟踪。经过实践证实，说明该功能完全正常，对其它的功能模块也进行了类似的设置。3、综合测试：在以上测试的基础上对系统功能进行了整体的测试，依次来检验系统功能是否符合系统设计的要求。5.3 系统运行与维护：系统的运行：1初始数据的输入本系统的的输入采用鼠标和键盘相结合的输入方法。2、怎样进入系统将本系统所在的文件夹拷贝到硬盘，然后执行其中的彩票销售管理系统的程序文件即可，应注意要将全部文件的属性变以存档，消除只读属性。3、怎样使用本系统：本系统的使用相应简单，基本上只要会使用Windows软件就会使用本系统，在具体的操作时，只需点击鼠标左键即可进行相应功能的选择。4、系统的维护：本系统是个较复杂的人-机系统，由于系统外部环境与内部因素的变化，不断影响系统的运行，同时需要系统不断地适应这些变化，不断地完善系统，以提高系统运行的效率与服务水平，这就需要自始至终进行系统的维护工作。系统的维护主要包括四个方面：上还是在实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢他耐心的辅导。另外，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。 参考文献：1、周佩德.数据库原理及应用.电子工业出版社2、李光明.Visual Basic 6.0编程实例大制作.冶金工业出版社3、黄淼云.VB6.0办公自动化编程.国防工业出版社