投票系统-文档 - 图文(2)

然后就可以进入系统了。

这是通过连接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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库投票系统-文档 - 图文(2)在线全文阅读。