、开奖、查询、设置、退出等系统的具体功能。
代码如下:
PrivateSubCmdExitPreset_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
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.Enabled=True
EndSub
PrivateSubcmdGenerateRand_Click()
'本子程序产生指定个数的随机彩票号码
Dimtemp_noAsString,MyCounterAsInteger
DimiAsInteger,jAsInteger
DimPicked_noAsInteger
Dimnotexit_flg
MyCounter=0
j=0
'外循环控制生成的随机彩票注数
DoWhileMyCounter
0Then
Picked_no=Picked_no+1
EndIf
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
PrivateSubTimer1_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,由于我们的系统要求,采用它完全可以适合我们的工作需求,并且
上一篇:vb库存管理系统(论文+开题报告+源代码)(论文和程序)
下一篇:对硕士毕业生迁移失业目的地的实证研讨