然后就可以进入系统了。
这是通过连接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