vb点虐 做登录窗口 vb登录对话框

基于VB.NET的windows窗体程序如何连接sql2008数据库，制作一个登录界面

这个问题好宽泛，简单说下步骤吧：

网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、重庆小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了罗山免费建站欢迎大家使用！

简单来说，直接连接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四个控件，先写好连接字符串，然后建立连接，写好SQL语句，通过DataAdapter从数据库读取数据到Datatable。这样只有在SQL服务器中附加数据库才能实现访问。还可以使用DSN实现数据库连接，控件依次更换为ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步骤和上面说的一样。

SQL语句就是从数据库查用户名对应的密码，将数据从数据库读取到DataTable后，与用户输入的密码比对，相符则登陆成功，否则提示错误。

过程中的细节问题欢迎追问

如何用VB点虐 连接数据库做一个简单的登陆窗口？

Label1.Caption = "融通系统外挂程序"

If Dir(App.Path "/hjw.mdb") "" Then

Set mydata = OpenDatabase(App.Path "\hjw")

Set myrs1 = mydata.OpenRecordset("user", dbOpenTable)

Else

Set mydata = CreateDatabase(App.Path "\hjw", dbLangGeneral, dbVersion40)

mydata.Execute "create table ku (建立日期 text(100),库名 text(100),功能 text(100))"

mydata.Execute "create table system (店号 integer,建立日期 text(100),文件路径 text(100),软件版本 text(100),路径1 text(50),路径2 text(50),路径3 text(50),路径4 text(50))"

kuname = "system"

kugn = "文件信息"

Me.showlist1

mydata.Execute "create table user (user text(50),passwd text(50),name text(50),quanx integer)"

kuname = "user"

kugn = "用户信息"

Me.showlist1

Private Sub cmdOK_Click()

txtUserName.SetFocus

If Trim(txtUserName.Text = "") Then

MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

sql = "select * from user where user = '" txtUserName.Text "'"

'Debug.Print sql

'Set mrc = ExecuteSQL(sql, MsgText)

Set myrs2 = mydata.OpenRecordset(sql)

If myrs2.EOF = True Then

MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

Else

If Trim(myrs2.Fields(1)) = Trim(txtPassword.Text) Then

UserName = myrs2.Fields(2)

myrs2.Close

Me.Hide

' UserName = Trim(txtUserName.Text)

'Debug.Print UserName

MDIform1.Show

Else

MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"

txtPassword.SetFocus

txtPassword.Text = ""

End If

End If

End If

End Sub

用vb点虐 ，后台用access 做一个登录窗口

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

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点虐 做登录窗口 vb登录对话框
当前URL：https://www.cdcxhl.com/article44/ddesdee.html

成都网站建设公司_创新互联，为您提供做网站、动态网站、面包屑导航、网站收录、服务器托管、移动网站建设

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联