VB开发彩票销售系统-论文
 
 
摘  要
 
    随着彩票热在中国大地上的日益高涨，彩票销售管理也显得越来越重要，随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟，因而
利用VB来设计一套彩票销售管理系统不但是必要的，而且在技术上是完全可行的。
    本文介绍了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”的策略开发彩票管理信息系统的过程。通过围绕彩票销售管理的销售、开奖、查询等过程详细描述了使用计算机来处理的全过程。
    本系统虽然界面一般，但操作简单，且简单实用。
【关键词】管理信息系统、彩票销售、Visual Basic
 
 
目录
1.系统概述
 1.1可行性分析
 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数据存储分析：实体联系图
 2.4功能分析：功能层次图
 3．系统设计
 3.1软件模块结构设计
 3．1．1系统方案确定
 3．1．2软件结构设计
 3．2数据库设计
 4．系统的详细设计
 4．1系统主界面
 4．2销售模块
 4.3开奖模块
 4．4中奖查询
 4.5设置
 4.6彩票打印
 5、系统实现
 5．1系统开发环境
 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图可画成下图。
 
 
 
 
 
 
 彩票销售管理系统中E-R图
 
2.4功能分析：功能层次图
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
 

3．系统设计
3.1软件模块结构设计
 3．1．1系统方案确定。通过对系统的调研与分析，系统主要应完成的功能如系统功能流程图所示的功能。
 3．1．2软件结构设计。本系统在执行时，先根据不同的客户的号码需要来
进行相应的操作，然后可以输入数据或者进行其它的查询或浏览等操作；总体来说，本系统属于一个事务型管理系统。 
 
 
 
 
 
 
 
 
 
                    
  
  
  
  
  
  
  
3．2数据库设计
 数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的
一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库彩票序号 自动编号 长整型  
购买日期 日期/时间    
每期信息表：
字段名称 类型 宽度 小数位
期号 文本 7  
中奖号码 文本 7  
开奖日期 日期/时间    
兑奖截止日期 日期/时间    
4、系统的实现：
本部分主要内容为本系统的运行界面以及主要界面的源代码。
 4．1系统主界面：本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有五个命令按钮，从而实现了本系统从销售、开奖、查询、设置、退出等系统的具体功能。

代码如下：
Private Sub CmdExitPreset_Click()
frameSale.Visible = False
frameWinner.Visible = False
frameQuery.Visible = False
framePreset.Visible = False
 
cmdSale.Enabled = True
cmdWinner.Enabled = True
cmdQuery.Enabled = True
cmdPreset.Enabled = True
cmdQuit.Enabled = True
End Sub
 
Private
frameSale.Visible = False
frameWinner.Visible = False
frameQuery.Visible = False
framePreset.Visible = False
 
cmdSale.Enabled = True
cmdWinner.Enabled = True
cmdQuery.Enabled = True
cmdPreset.Enabled = True
cmdQuit.Enabled = True
End Sub
 
Private Sub cmdGenerateRand_Click()
'本子程序产生指定个数的随机彩票号码
Dim temp_no As String, MyCounter As Integer
Dim i  As Integer, j As Integer
Dim Picked_no As Integer
Dim notexit_flg
MyCounter = 0
j = 0
'外循环控制生成的随机彩票注数
Do While MyCounter < rand_sum
    i = 1
rs.Open s
cmdPreset.Enabled = True
cmdQuit.Enabled = True
CmdReset_Click
End Sub
 
Private Sub CmdReset_Click()
Dim i As Integer
Do 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 i
Else
    lblQuery3.Caption = ""
    lblQuery5.Caption = 0
End If
End Sub
 
Private Sub Form_Load()
lblTimer.Caption = Now()
End Sub
 
Private Sub rand_sum_Change()
Dim MyCounter, Picked_no As Integer
MyCounter = 0
Picked_no = 0
Do While MyCounter <= 4
    If Len(Trim((txt_no(MyCounter)))) <> 0 Then
        Picked_no = Picked_no + 1
    End If
    MyCounter = MyCounter + 1
Loop
If rand_sum.Text > 5 - Picked_no Then
    rand_sum.Text = 5 - Picked_no
ElseIf rand_sum.Text <= 0 Then
    rand_sum.Text = 0
End If
End Sub
 
Private Sub Timer1_Timer()
lblTimer.Caption = Now()
End Sub
 
Private Sub txt_no_LostFocus(Index As Integer)
Dim MyCounter, Picked_no As Integer
MyCounter = 0
Picked_no = 0
Do While MyCounter <= 4
    If Len(Trim((txt_no(MyCounter)))) <> 0 Then
        Picked_no = Picked_no + 1
    End If
    MyCounter = MyCounter + 1
Loop
VScroll1.Min = 5 - Picked_no
VScroll1.Max = 0
End 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位0~9的数字!!!"
        txtQuery.SetFocus
    End If
End If
End Sub
 
Private Sub VScroll1_Change()
rand_sum.Text = VScroll1.Value
If rand_sum.Text = 0 Then
    cmdGenerateRand.Enabled = False
Else
    cmdGenerateRand.Enabled = True
End If
End Sub
4．2销售模块：本模块主要是对需要购买彩票的客户进行两种方式的选购，每次最多五注，包括机选和手选两种模式，并将选购的结果进行打印。

4.3开奖模块：

由系统自动运算出本期的结果，并显示出中奖的号码。
4．4中奖查询：查询某期的中奖结果，共有六个层次，并可显示出某一号码是否中奖。

4.5设置：可以在此处设置新一期的彩票设置信息。

4.6彩票打印：
将客户的选注结果进行打印输出，以作凭证。

 5、系统的实现
 5．1系统开发环境：
 系统开发环境包括硬件平台和软件平台两种。
 硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的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办公自动化编程》.国防工业出版社

相关论文