vb.net登录窗 vb程序设计登录窗口

用vb.net ，后台用access 做一个登录窗口

建个模块， Dim varcnn As OleDb.OleDbConnection ReadOnly Property cnn() As OleDb.OleDbConnection

东海ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：18982081108（备注：SSL证书合作）期待与您的合作！

Get

If varcnn Is Nothing OrElse varcnn.State ConnectionState.Open Then Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" My.Application.Info.DirectoryPath "\Contact.mdb"";Persist Security Info=True"

varcnn = New OleDbConnection(cnstr)

varcnn.Open()

End If

Return varcnn

End Get

登录窗体，新建一个就行了。代码Public Class LoginForm1

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Using cmd As New OleDb.OleDbCommand("select password from tbuser where userid =?", cnn)

cmd.Parameters.Add("?", OleDbType.VarChar).Value = Me.UsernameTextBox.Text

Dim obj As Object = cmd.ExecuteScalar

If (Not IsDBNull(obj)) AndAlso (obj IsNot Nothing) AndAlso obj = PasswordTextBox.Text Then

Me.DialogResult = Windows.Forms.DialogResult.OK

Else MessageBox.Show("密码不正确！") Return

End If

End Using Me.Close()

End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

Me.DialogResult = Windows.Forms.DialogResult.Cancel

Me.Close()

End SubEnd Class 项目属性里点查看应用程序事件，写代码Namespace My ' 以下事件可用于 MyApplication:

'

' Startup: 应用程序启动时在创建启动窗体之前引发。

' Shutdown: 在关闭所有应用程序窗体后引发。如果应用程序异常终止，则不会引发此事件。

' UnhandledException: 在应用程序遇到未处理的异常时引发。

' StartupNextInstance: 在启动单实例应用程序且应用程序已处于活动状态时引发。

' NetworkAvailabilityChanged: 在连接或断开网络连接时引发。

Partial Friend Class MyApplication

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup

Dim f As New LoginForm1

If Not f.ShowDialog = DialogResult.OK Then

End

End If

End Sub End ClassEnd Namespace

你测试一下吧。

VB.Net 新手问题：如何关闭登录界面并跳到另一个界面

me.dispose()

楼主针对这个问题我也纠结过很久不过就在刚刚我找到了问题所在：

还是用me.close（）

打开

项目

》

最下面一行有一个属性》

应用程序》下面

有一个关机模式

改为：当最后一个窗体关闭时。。。注意

me.close要写在窗体show（）后面

例如

写成

f2.show()

me.close()

不要写成

me.close（）

f2.show（）

请教一个关于vb.net登录界面的问题

你的算法非常的傻，剧慢没有可用性。

用一个sql查询 查找 密码=输入密码，用户名等于输入的用户的记录，找到了即登录..

dim oRd as new recordset

dim db as connection ' 用db打开数据库

dim sa as string

sa=”select * from table where username='" txtDIM_Username.Text _

"' and userpassword='" txtDIM_Password.Text "'"

ord.open sa,db

if ord.eof() or ord.bof()

‘未找到，不能登录

else

'找到 登录成功....

endif

用VB。net做登录窗口，连接数据库失败。

Private Sub Command1_Click()

\'首先引用Microsoft Activex Data Objects 2.x Library

Dim objcon As New ADODB.Connection

Dim objrs As New ADODB.Recordset

Dim strConn As String

strConn = \"Provider=SQLOLEDB.1;User ID=sa;password=密码;Initial Catalog=数据库名称;Data Source=本机IP地址(192.168.1.136)\"

objcon.Open strConn

\'strConn = \"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=hNXQF222;Initial Catalog=database;Data Source=192.168.1.136\"

\'objcon.Open \"Provider=sqloledb.1;user id=sa;password=hNXQF222;Initial Catalog=Northwind;Data Source=\"

objrs.Open \"select * from Orders\", objcon, 3, 1

\'在部件中添加DataGrid控件

Set DataGrid1.DataSource = objrs

End Sub