您现在的位置：毕业论文 >> 论文 >> 正文

VB抽奖管理系统毕业论文(任务书+致谢+英文文献翻译+开题报告) 第12页

更新时间：2010-4-11: 来源：毕业论文

VB抽奖管理系统毕业论文(任务书+致谢+英文文献翻译+开题报告) 第12页
4.2.3 查询界面介绍
此界面为系统的查询功能，不仅可以查询已中奖客户的信息，还可以查询未中奖客户和原数据库中所有客户的信息，体现了强大的查询功能，为系统管理员的工作带来了极大的方便，节约了大量的人力和物力。
图4.2.3查询界面图
4.3 登录模块介绍
4.3 登录模块流程
图4.3 登录模块流程
4.4数据更新
数据更新概述
数据更新包括：抽奖号码、客户姓名、性别、年龄、联系方式、电话号码、通信地址、邮政编码等，不须因为增加一个项目而修改程序，更新操作包括：添加、删除、修改、查询。
4.5添加和删除客户信息
图4.5.1数据更新流程图——添加
   删除信息
图4.5.2数据更新流程图——删除
5编码
编码是根据详细设计阶段得到的流程图进行的代码书写，编码以系统管理员进入系统后根据各项中奖要求而逐步运行系统为例解释代码的设计时要考虑的因素和设计思路及设计方法。
5.1系统管理员运行系统模块部分代码及解释
5.1.1开始抽奖
点击“开始”控件，数据库中的号码开始循环滚动，再点击“停止”控件，对话框中出现一个随机选取的号码。
If cmdBegin.Caption = "开始" Then

        Timer1.Enabled = True
        cmdBegin.Caption = "停止"
        cmdOK.Enabled = False
        cmdCancel.Enabled = False
        cmdBegin.SetFocus
    Else

5.1.2遇到重复号码时的处理方案
当系统随机抽到一个重复的号码时，系统会提醒该号码已经抽过，本次抽取结果无效，继续下一次抽取。代码如下：
If RstSQL.Fields("Checked") = True Then
            cmdOK.Enabled = False
            cmdCancel.Enabled = True
            cmdCancel.SetFocus
            MsgBox "此号码已经抽到过并且已经做了保存！ ", vbInformation + vbOKOnly, "提示信息"
        Else
            cmdOK.Enabled = True
            cmdCancel.Enabled = True
            cmdOK.SetFocus
        End If

5.1.3系统管理员对所抽取的号码进行保存
系统管理员对所抽取的号码进行保存时假如结果无误就回把此号码保存进“中奖者数据库”中，如果保存失败系统也会提供相应的信息。如下：
Private Sub cmdOK_Click()
    Dim RstSQL As New ADODB.Recordset
On Error GoTo errLable
    With RstSQL
        .ActiveConnection = CnnDSN
        .LockType = adLockOptimistic
        .CursorType = adOpenStatic
        .Source = "UPDATE Lottery_Table SET Checked='1' WHERE Person_ID=" & Int(Text10.Text) & ""
        .Open
    End With
    cmdOK.Enabled = False
    cmdCancel.Enabled = False
    cmdBegin.SetFocus
    MsgBox "保存成功！ ", vbInformation + vbOKOnly, "提示信息"
    Exit Sub
errLable:
    MsgBox Err.Number + "：" + Err.Description, vbInformation + vbOKOnly, "错误信息"
    Exit Sub
End Sub