如何购买文小学,如何购买文2016年

更新时间:2024-02-03 作者:用户投稿原创标记本站原创 点赞:16097 浏览:70477

VB开发彩票销售系统-论文

摘 要

随着彩票热在中国大地上的日益高涨,彩票销售管理也显得越来越重要,随着信息技术在管理上越来越深入而广泛的应用,管理信息系统的实施在技术上已逐步成熟,因而

利用VB来设计一套彩票销售管理系统不但是必要的,而且在技术上是完全可行的.

本文介绍了在VisualBasic6.0环境下采用"自上而下地总体规划,自下而上地应用开发"的策略开发彩票管理信息系统的过程.通过围绕彩票销售管理的销售,,查询等过程详细描述了使用计算机来处理的全过程.

本系统虽然界面一般,但操作简单,且简单实用.

【关 键 词】管理信息系统,彩票销售,VisualBasic

目录

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,结束语

.Enabled等于True

cmdQuery.Enabled等于True

cmdPreset.Enabled等于True

cmdQuit中.Enabled等于True

EndSub

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.Enablrued等于True

EndSub

PrivateSubcmdGenerateRand_Click()

'本子程序产生指定个数的随机彩票

Dimtemp_noAsString,MyCounterAsInteger

DimiAsInteger,jAsInteger

DimPicked_noAsInteger

Dimnotexit_flg

MyCounter等于0

j等于0

'外循环控制生成的随机彩票注数

DoWhileMyCounter<,rand_sum

i等于1

rs.Opens

cmdPreset.Enabled等于True

cmdQuit.Enabled等于True

CmdReset_Click

EndSub

PrivateSubCmdReset_Click()

DimiAsInteger

DoWhilei<,等于4

rs.Openstrsql,n

lblQuery3.Caption等于rs("winno")

rs.Close

strsql等于"selectcount(期号)*2.00assub_sumfrom彩票where期号等于'"&,DataComboQuery1.Text&,"'"

rs.Openstrsql,n

lblQuery5.Caption等于rs("sub_sum")

rs.Close

strsql等于"Selectasbetnofrom彩票where期号等于'"&,DataComboQuery1.Text&,"'"

rs.Openstrsql,n

DoUntilrs.EOF

win_flag等于False

Fori等于7To2Step-1

Forj等于1To8-iStep1

IfMid(lblQuery3.Caption,j,i)等于Mid(rs("betno"),j,i)Then

win_flag等于True

k(7-i)等于k(7-i)+1

ExitFor

EndIf

Nextj

Ifwin_flagThen

ExitFor

EndIf

Nexti

rs.MoveNext

Loop

rs.Close

n.Close

Fori等于0To5

lblQuery7(i)等于k(i)

Nexti

Else

lblQuery3.Caption等于""

lblQuery5.Caption等于0

EndIf

EndSub

PrivateSubForm_Load()

lblTimer.Caption等于Now()

EndSub

PrivateSubrand_sum_Change()

DimMyCounter,Picked_noAsInteger

MyCounter等于0

Picked_no等于0

DoWhileMyCounter<,等于4

IfLen(Trim((txt_no(MyCounter))))<,>,0Then

Picked_no等于Picked_no+1

nEndIf

MyCounter等于MyCounter+1

Loop

Ifrand_sum.Text>,5-Picked_noThen

rand_sum.Text等于5-Picked_no

ElseIfrand_sum.Text<,等于0Then

rand_sum.Text等于0

EndIf

EndSub

PLrivateSubTimer1_Timer()

lblTimer.Caption等于Now()

EndSub

PrivateSubtxt_no_LostFocus(IndexAsInteger)

DimMyCounter,Picked_noAsInteger

MyCounter等于0

Picked_no等于0

DoWhileMyCounter<,等于4

IfLen(Trim((txt_no(MyCounter))))<,>,0Then

Picked_no等于Picked_no+1

EndIf

MyCounter等于MyCounter+1

Loop

VScroll1.Min等于5-Picked_no

VScroll1.Max等于0

EndSub

PrivateSubtxtQuery_Change()

IfLen(Trim(txtQuery.Text))等于7Then

IfIsNumeric(txtQuery.Text)Then

Dimi,jAsInteger

Dimcongratulation_msgAsString

Dimwin_flagAsBoolean

wi_flag等于False

congratulation_msg等于"谢谢您对社会福利事业的支持!您没有!"

Fori等于7To2Step-1

Forj等于1To8-iStep1

IfMid(lblQuery3.Caption,j,i)等于Mid(txtQuery.Text,j,i)Then

win_flag等于True

SelectCase7-i

Case0:congratulation_msg等于"恭喜您!中了特等奖!!!"

Case1:congratulation_msg等于"恭喜您!中了一等奖!!!"

Case2:congratulation_msg等于"恭喜您!中了二等奖!!!"

Case3:congratulation_msg等于"恭喜您!中了三等奖!!!"

Case4:congratulation_msg等于"恭喜您!中了四等奖!!!"

Case5:congratulation_msg等于"恭喜您!中了五等奖!!!"

EndSelect

ExitFor

EndIf

Nextj

Ifwin_flagThen

ExitFor

EndIf

Nexti

MsgBoxcongratulation_msg

'IfNotwin_flagThen

'MsgBox"谢谢您对社会福利事业的支持!您没有!"

'EndIf

Else

MsgBox"请输入7位0~9的数字!!!"

txtQuery.SetFocus

EndIf

EndIf

EndSub

PrivateSubVScroll1_Change()

rand_sum.Text等于VScroll1.Value

Ifrand_sum.Text等于0Then

cmdGenerateRand.Enabled等于False

Else

cmdGenerateRand.Enabled等于True

EndIf

EndSub

4.2销售模块:本模块主要是对需要购写彩票的客户进行两种方式的选购,每次最多五注,包括机选和手选两种模式,并将选购的结果进行打印.

4.3模块:

由系统自动运算出本期的结果,并显示出的.

4.4查询:查询某期的结果,共有六个层次,并可显示出某一是否.

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

4.6彩票打印:

将客户的选注结果进行打印输出,以作凭证.

5,系统的实现

5.1系统开发环境:

系统开发环境包括硬件平台和软件平台两种.

硬件平台是指开发与运行所需要的硬件环境,主要包括计算机机型及硬件配置.由于本系统是一个小型的MIS管理系统,因此对计算机硬件的要求不高,比较经济,只要配备有PII处理器(或以上),64M内存(或以上),10G硬盘(或以上)的普通微机即可顺利运行.

软件平台是指系统开发与运行的软件环境.本系统在开发时选用了稳定性较强的WindowsXP中文专业版和VisualBasic6.0作为开发语言,同时选用了Access数据库,由于这些软件产品都是Microsoft公司的产品,因此彼此之间的兼容性较好,开发出的应用系统稳定性较高.

VisualBasic6.0具有可视化的开发环境,可以快速完成系统的开发,内部集成的数据库访问通道,使得可以轻松方便的对数据库管理.

数据库采用MICROSOFTACCESS,由于我们的系统要求,采用它完全可以适合我们的工作需求,并且它所支持的数据类型十分丰富,维护简便,费用比较低,人员素质要求不是很高,容易升级. 本系统在单机上运行.

5.2系统测试:

散模块进行单个测试,而是用系统化的方法装配和测试软件系统,是一个严格的过程,必须认真地进行,其计划的产生和单元模块测试的完成日期要协调起来,这种测试应在系统目标机上进行,造成系统应用的环境条件,除了开发部分项目负责人参加以外,还应该有相应系统的用户参加,给评审员进行演示.

(3)确认测试

确认测试是对通过组合测试的软件进行的,这些软件已经存于系统目标设备的介质上,确认测试的目的是对表明软件是可以工作的,并且符合"软件需求说明书"中规定的全部功能和性能要求.确认测试是按照这些要求定出的"确认测试计划"进行的.测试工作是由一个独立的组织进行,而且测试要从用户的角度出发.


(4)系统测试

系统测试是对整体性能的测试,主要解决各子系统之间的数据通信和数据共享问题以及检测系统不否达到用户的实际要求,系统测试的依据是系统分析报告.系统测试应在系统的整个范围内进行,这种测试不只对软件进行,而是对构成系统的硬,软件一起进行.系统测试与建构同时进行或略慢.系统测试需要确认从头到尾的功能正常才算完成,应当尽量避免系统测试延到项目末尾进行.

(5)用户验收测试

在系统测试完成后,进行用户的验收测试,它是用户在实际应用环境中所进行的真实数据测试.

在具体的测试中,一般应遵循以下原则:由程序设计者之外的人进行测试,测试用例应由两部分组成:输入数据和预期输出结果,应选用不合理的输入数据与非法输入测试,不仅要检验程序是否实现预期功能,还应检查程序是否做了不应该做的工作,集中测试容易出错的程序模块,对程序修改以后,必须重新进行测试.

在开发本系统时,为了使系统能够稳定运行,对本系统进行了有针对性的全面测试,采取的方式是:

1,菜单项测试:为了保证每一项下拉菜单能够正确实现系统设计的功能,我把相关的基础数据,基本上全部输入到本系统中,并对每一个菜单项反复进行了增加,删除,修改等操作,从而保证了菜单级功能的正确实现.

2,数据跟踪:完成菜单项测试后,我又对系统内的每一个数据进行了跟踪.经过实践证实,说明该功能完全正常,对其它的功能模块也进行了类似的设置.

3,综合测试:在以上测试的基础上对系统功能进行了整体的测试,依次来检验系统功能是否符合系统设计的要求.

5.3系统运行与维护:

系统的运行:

1初始数据的输入

本系统的的输入采用鼠标和键盘相结合的输入方法.

2,怎样进入系统

将本系统所在的文件夹拷贝到硬盘,然后执行其中的彩票销售管理系统的程序文件即可,应注意要将全部文件的属性变以存档,消除只读属性.

3,怎样使用本系统:

本系统的使用相应简单,基本上只要会使用Windows软件就会使用本系统,在具体的操作时,只需点击鼠标左键即可进行相应功能的选择.

4,系统的维护:

本系统是个较复杂的人-机系统,由于系统外部环境与内部因素的变化,不断影响系统的运行,同时需要系统不断地适应这些变化,不断地完善系统,以提高系统运行的效率与怎么写作水平,这就需要自始至终进行系统的维护工作.

系统的维护主要包括四个方面:

上还是在实践中,都给与我很大的帮助,使我得到很大的提高,这对于我以后的工作和学习都有一种巨大的帮助,在此感谢他耐心的辅导.另外,在系统开发过程中还有同组的同学也给了我不少帮助,这里一并表示感谢.

相关论文范文