如何用VB.net做一个简单的小软件(第一步)

如何做个简单的小软件呢？如果要求不高，那winform绝对是必选项，那么废话不多少了，先用winform做个简单的登录界面，一步一步的开启做软件之路，冲鸭！冲鸭！

首先呢，在做登录界面之前，我们得有数据库是不是，用来保存我们的用户信息，老样子还是用Access作数据库吧，按照下图的样子做个用户信息表，里面初步要有用户ID、用户姓名、用户账号、用户密码，以后随着功能的添加还要设置账号类型、权限等内容，目前设置这些就够了。

好了，我们数据库里就有了第一位用户张哈哈的用户信息了。下面要开始表演了，啧啧！

打开vs2019 创建新项目，语言选择Visual Basic(就是vb.net),平台选择windows，选中windows 窗体应用（.NET Framework），如下图所示，点击下一步。

设置项目名称等内容就不说了，都是设置好后，就是下图这个样子。

然后这里就省略一些字了，经过调整大小，设置一些属性参数，把界面调整到下图的样子。

是不是有点像登录界面的样子了，winform是事件驱动的，登录界面里有两个按钮，在单击他们时就会产生点击事件，点击登录按钮就要跳转到主程序界面，点击取消按钮就要关闭登录界面，按照这个思路开始写代码。首先双击登录按钮，进入Button1_Click事件里。如图所示

按照思路开始编写程序，Button1_Click里面的代码就是这样的

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

Dim sql As String

Dim conn As New OleDbConnection

Dim PassWord As String

Dim UserName As String

UserName = TextBox1.Text.Trim

PassWord = TextBox2.Text.Trim

If UserName = "" Or PassWord = "" Then

MessageBox.Show("账号或密码不能为空")

Return

End If

conn.ConnectionString = "provider =microsoft.ace.oledb.12.0;data source=C:\Users\huanglong\Desktop\数据库.accdb"

sql = String.Format("select 用户账号,用户密码 from 用户信息表 where 用户账号='{0}' and 用户密码='{1}'", UserName, PassWord)

Dim adapter As New OleDbDataAdapter(sql, conn)

Dim dt As New DataSet

adapter.Fill(dt, "用户信息表")

Dim datareader As DataTableReader

Try

datareader = dt.Tables("用户信息表").CreateDataReader

If datareader.Read Then

If datareader.HasRows Then

MessageBox.Show("登录成功")

End If

Else

MessageBox.Show("登录失败，请输入正确账号密码")

Return

End If

Catch ex As Exception

MessageBox.Show("出现异常" & ex.Message)

End Try

Me.Hide()

End Sub

篇幅有限，代码就不详细讲了，大家应该能看懂，编译一下就是如下图这样

输入正确的数据库里的用户账号和密码，点击登录按钮就会弹出登录成功

输入错误的话会弹出登录失败界面

然后进入Button2_Click事件，就是取消按钮的点击事件，上面说了点击取消按钮整个登录界面将关闭，用Me.Close就行了，Me代表当前窗体，C#里用this这个关键词表示当前窗体。

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

Me.Close()

End Sub

这就是非常简单的登陆界面，可以在创建个窗体，当账号和密码输入正确时点击登录按钮后登录界面隐藏，界面跳转到新创建的窗体里。今天就不介绍了，下次才进一步介绍

下次见了[送心][送心][送心]