投票系统-文档 - 图文

郑州大学

ZhengzhouUniversity

软 件 开 发 实 验 报 告

课题名称 基于 VB.NET 的投票系统的设计与实现

学 院 信息工程学院（软件学院） 专业班级 11级 信管 6（2）班 指导老师 周春雷老师 组 长 刘赞（20117611222） 成 员 袁凯（20117611238）

薛金帅（20117611236）

杨佳达（20117611148）

目录

一．编写目的 .................................................................................... 3 二．编写思路 .................................................................................... 3 三 软件开发环境和工具 ................................................................... 3

3.1 软件开发工具 ...................................................................... 3

3.2 Access数据库简介 .............................................................. 3

四．系统介绍 .................................................................................... 4 （1）主界面 ........................................................................................ 4 （2）登陆系统 ..................................................................................... 4 （3）投票界面 ..................................................................................... 9 ( 4 )球员信息界面 .............................................................................. 12 （5）继续投票界面 ........................................................................... 13 （6） 查看投票结果 ......................................................................... 14 五．编写心得 ....................................................................................... 16

一：编写目的

随着现代科学技术的迅猛发展，计算机技术已经渗透到各个领域，成为各行业必不可少的工具，特别是Internet技术的推广和信息高速公路的建立，使IT产业在市场竞争中越发显示出其独特的优势，步入信息化时代，有巨大的数据信息等待加工处理和传输，这使得对书数据库的进一步开发和利用显得尤为迫切。 作为国内市场的一些中小型超市，它们在信息化过程中的步伐要落后于大中型超市，而对于这些企业的资源管理，信息的存储和处理也显得迫切需要，要适应市场竞争，就需要有高效的处理方式和管理方法，因此加快超市的信息化进程是必可少的。

二：编写思路

首先本系统针对的是NBA爱好者，要使用被系统，必须先注册一个账号，然后进入主界面，通过菜单栏实现本系统的各个功能。

首先是主界面，包括用户登陆，退出，欣赏等。

其次是用户投票，包括选择心仪球员，查看球员信息等。然后，可以进行投票，也可以查看投票结果。

三：软件开发环境和工具

3.1 软件开发工具

Visual Basic（VB）给用户提供了可视化编程环境，因其简单易学、功能强大而得到了广泛的应用。VB.NET.NET是一种由微软公司开发的包含协助开发环境的事件驱动

编程语言。从任何标准来说，VB.NET.NET都是世界上使用人数最多的语言——不仅是盛赞VB.NET的开发者还是抱怨VB.NET的开发者的数量。它源自于BASIC编程语言。VB.NET.NET拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB.NET提供的组件快速建立一个应用程序。

3.2 Access数据库简介

Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理 系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2012年12月4日,最新的微软Office Access 2013在微软Office 2013里发布,微软Office Access 2010 是前一个版本。MS ACCESS以它自己的格式将数据存储在基于Access Jet的数据库引擎里。它还可以直接导入或者链接数据(这些数据存储在其他应用程序和数据库)。软件开发人员和数据架构师可以使用Microsoft Access开发应用软件,“高级用户”可以使用它来构建软件应用程序。和其他办公应用程序一样，ACCESS支持Visual Basic宏语言,它是一个面向对象的编程语言,可以引用各种对象，包括DAO(数据访问对象),ActiveX数据对象,以及

许多其他的ActiveX组件。可视对象用于显示表和报表，他们的方法和属性是在VB.NET编程环境下，VB.NET代码模块可以声明和调用Windows操作系统函数

四：系统介绍

4.1系统主界面:

4.2 登陆系统

（1）注册账号

要使用本系统，首先需要注册，注册界面如下：

用户输入用户名密码即可注册，如过未填写内容则会提示：

其次，密码和确认密码必须相同，否则也会提示：

如果密码一致则会提示注册成功：

然后就可以进入系统了。

这是通过连接access数据库，然后使用insert命令将文本框中的信息传递到数据表中。 具体代码如下：

mports System.Data.OleDb

Public Class 注册

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim conn As OleDbConnection

Dim Connstring As String = \科比.mdb\ Conn = New OleDbConnection(Connstring) Conn.Open()

Dim cmd As New OleDbCommand Dim ds As New DataSet cmd.Connection = Conn

cmd.CommandText = \

Dim sdr As Data.OleDb.OleDbDataAdapter = New OleDbDataAdapter(cmd) sdr.Fill(ds, \)

If TextBox1.Text = \ Or TextBox2.Text = \ Or TextBox3.Text = \ Then MsgBox(\注册信息不能为空！\) Else

If TextBox2.Text = TextBox3.Text Then Dim cmd1 As New OleDbCommand cmd1.Connection = Conn

cmd1.CommandText = \用户名,密码) values ('\ & TextBox1.Text & \ & TextBox2.Text & \

cmd1.ExecuteNonQuery() Me.Refresh()

MsgBox(\注册成功！请登录！\, MsgBoxStyle.OkOnly, \提示\) Me.Hide() 登陆.Show()

Else

MsgBox(\密码必须一致！请重新输入！\, MsgBoxStyle.OkOnly, \提示\)

TextBox2.Focus() End If End If End Sub 'End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() Form1.Show() End Sub

Private Sub 注册_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub End Class

登陆界面通过链接数据库，然后用select命令选择出对应用户名的密码，然后与用户所输入的密码进行比较，如果正确则能够进入系统，否则提示错误。 登陆界面的代码如下：

Imports System.Data.OleDb Public Class 登陆

Dim objconn As OleDb.OleDbConnection

End Sub

Private Sub 登陆_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim objconn As OleDbConnection

Dim connstring As String = \科比.mdb\ objconn = New OleDbConnection(connstring) Try

objconn.Open()

MessageBox.Show(\已链接,连接正确对话框\) Catch oledbe As OleDbException

MessageBox.Show(oledbe.Message, \连接失败\) End Try

Me.BackgroundImage = Image.FromFile(\)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

MessageBox.Show(\登陆成功！\) Me.Hide()

Form2.Show() End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Hide() 注册.Show() End Sub End Class

欣赏界面还可以循环5张图片为背景，代码如下：

：

4.3投票界面

主界面里包含了:投票，球员头像。

该窗体对应的代码如下：

Public Class Form2

Public count(5) As Integer Dim initwidth As Integer

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Start() initwidth = Me.Width

PictureBox1.Image = Image.FromFile(\) PictureBox2.Image = Image.FromFile(\) PictureBox3.Image = Image.FromFile(\) PictureBox4.Image = Image.FromFile(\) PictureBox5.Image = Image.FromFile(\) End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label1.Left = (Label1.Left + 1) Mod (initwidth - Label1.Width) End Sub

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown Me.Left = Me.Left - initwidth / 2 Me.Width = Me.Width * 2

Me.StartPosition = FormStartPosition.CenterScreen End Sub

Private Sub Form2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

If Me.Width > initwidth Then

Me.Left = Me.Left + initwidth / 2 Me.Width = Me.Width / 2 End If End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(\感谢您投上宝贵的一票\) ' count(1) += count(1) Me.Hide() Form3.Show() End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

MsgBox(\感谢您投上宝贵的一票\) ' count(2) += count(2) Me.Hide() Form3.Show() End Sub

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

MsgBox(\感谢您投上宝贵的一票\) ' count(3) += count(3) Me.Hide() Form3.Show() End Sub

Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

MsgBox(\感谢您投上宝贵的一票\) ' count(4) += count(4) Me.Hide() Form3.Show() End Sub

Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

MsgBox(\感谢您投上宝贵的一票\) ' count(5) += count(5) Me.Hide() Form3.Show() End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Me.Hide() 科比信息.Show() End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click Me.Hide() 詹姆斯信息.Show() End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click Me.Hide() 保罗信息.Show() End Sub

Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click Me.Hide() 杜兰特信息.Show() End Sub

Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click Me.Hide() 韦德信息.Show() End Sub End Class

4.4 球员信息界面

其中，通过单击球员头像可以查看球员信息：

投完票可以继续投票： 4.5 接续投票

其代码是：

Public Class Form3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Form2.Show()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() form4.show() End Sub

Private Sub judge(ByVal pc As Integer) End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub End Class

接下来可以查看投票结果 4.6 查看投票结果

代码如下：

Imports System.Data.OleDb

Public Class Form4

Dim objconn As OleDb.OleDbConnection

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim objconn As oleDbConnection

Dim connstring As String = \科比.mdb\ objconn = New OleDbConnection(connstring) Try

objconn.Open()

MessageBox.Show(\已链接,连接正确对话框\) Catch oledbe As OleDbException

MessageBox.Show(oledbe.Message, \连接失败\) End Try

Dim SQLStr As String = \科比\ Dim objCom As New OleDbCommand objCom.Connection = objconn

objCom.CommandType = CommandType.Text objCom.CommandText = SQLStr

Dim objDataAdapter As New OleDbDataAdapter objDataAdapter.SelectCommand = objCom Dim objDs As New DataSet

objDataAdapter.Fill(objDs, \科比\)

Me.DataGridView1.DataSource = objDs.Tables(\科比\)

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub End Class

至此，整个系统介绍完毕。

五．编写心得：

学习VB程序设计的方法 (1)保持良好的学习心态

1、要有自信,自强,积极主动学习.

2、克服畏难情绪,树立学好程序设计的信心 (2)要有良好的学习习惯

1、课前预习,认真听课并适当做些笔记,课后要认真复习消化所学内容,完成作业. 2、VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想就在这时形成的,良好的程序设计习惯也在这个阶段养成. (3)学习程序设计要注重理解一些重要的概念.

VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习. (4)自己动手编写程序

程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力. (5)阅读,借签别人设计的好程序

多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己 提高自身水平.

(6) VB程序设计学习的重点

1、程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.

2、只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.等你在编写大量程序之后,我想过二级肯定没问题，不过能不能做到真知灼见,运用自如我就不敢说了.

3、动手能力的培养是这门课和以往课程最大的不同之处.重点放在思路,算法,编程构思和程序实现上.语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用. )上机调试程序应注意的几点:

1、上机前应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等) 2、每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学.

3、平时应多抽课余时间多上机调试程序.注意系统的提示信息,遇到问题多问几次为什么.

(6)养成良好的编程习惯 1、程序构思要有说明; 2、学会如何调试程序; 3、对运行结果要做正确与否的分析.

二、复习过程简单的说就是细看书，勤做题，最后练上机。

细看书，就是在考试前的一个月内，以看书为主，越细越好（如果你时间紧的话可只重点看些考点涉及的东西），把书上的知识点(最好看几份历年试题，让自己明白考什么。)看懂看透，暂时不明白的或者不理解的先用笔记本记下。这样你的笔记本就有每章你不懂的知识点

和题目了，之后可以问同学，问老师……如此反复，半个月下来你的笔试水平考试应该没问题了；下半个月的时间可以一边练习题目，一边练习上机。切不可前一段时间做题，后一段时间上机，那样的话会有很多忘记的知识点。

本文来源：https://www.bwwdw.com/article/cu98.html