锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net登录窗口 vbnet webclient

IT技术text

VB.Net 新手问题：如何关闭登录界面并跳到另一个界面me.dispose()
楼主针对这个问题我也纠结过很久不过就在刚刚我找到了问题所在：
还是用me.close（）
打开
项目
》
最下面一行有一个属性》
应用程序》下面
【vb.net登录窗口 vbnet webclient】有一个关机模式
改为：当最后一个窗体关闭时 。。。注意
me.close要写在窗体show（）后面
例如
写成
f2.show()
me.close()
不要写成
me.close（）
f2.show（）
写一个vb.net代码 ， 关于登陆和关闭Q~程序，窗口如下已经设计好 。你设计一个界面，让别人来写代码 ， 可能吗？
另外根据你的想法 ， VB.NET没法实现，需要用C写DLL注入，还要破解QQ的加密函数！
用vb.net，后台用access 做一个登录窗口建个模块 ， Dim varcnn As OleDb.OleDbConnectionReadOnly Property cnn() As OleDb.OleDbConnection
Get
If varcnn Is Nothing OrElse varcnn.StateConnectionState.Open ThenDim 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 = https://www.04ip.com/post/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
ElseMessageBox.Show("密码不正确！")Return
End If
End UsingMe.Close()
End SubPrivate 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: 在应用程序遇到未处理vb.net登录窗口的异常时引发 。
' 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 SubEnd ClassEnd Namespace
vb.net登录窗口你测试一下吧 。
用VB 。net做登录窗口，连接数据库失败 。Private Sub Command1_Click()
\'首先引用MicrosoftActivexDataObjects2.xLibrary
Dim objconAs New ADODB.Connection
Dim objrsAs 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;userid=sa;password=hNXQF222;InitialCatalog=Northwind;DataSource=\"
objrs.Open \"select*fromOrders\", objcon, 3, 1
\'在部件中添加DataGrid控件
Set DataGrid1.DataSource = objrs
End Sub
基于VB.NET的windows窗体程序如何连接sql2008数据库，制作一个登录界面这个问题好宽泛vb.net登录窗口，简单说下步骤吧：
简单来说vb.net登录窗口，直接连接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四个控件vb.net登录窗口，先写好连接字符串，然后建立连接，写好SQL语句 ， 通过DataAdapter从数据库读取数据到Datatable 。这样只有在SQL服务器中附加数据库才能实现访问 。还可以使用DSN实现数据库连接，控件依次更换为ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步骤和上面说的一样 。
SQL语句就是从数据库查用户名对应的密码，将数据从数据库读取到DataTable后，与用户输入的密码比对 ， 相符则登陆成功，否则提示错误 。
过程中的细节问题欢迎追问
如何用VB.net连接数据库做一个简单的登陆窗口？Label1.Caption = "融通系统外挂程序"
If Dir(App.Path"/hjw.mdb")"" Then
Set mydata = https://www.04ip.com/post/OpenDatabase(App.Path"\hjw")
Set myrs1 = mydata.OpenRecordset("user", dbOpenTable)
Else
Set mydata = https://www.04ip.com/post/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 "没有这个用户，请重新输入用户名！", vbOKOnlyvbExclamation, "警告"
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 "没有这个用户，请重新输入用户名!", vbOKOnlyvbExclamation, "警告"
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 "输入密码不正确 ， 请重新输入！", vbOKOnlyvbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If
End Sub
关于vb.net登录窗口和vbnet webclient的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：区块链金融媒体转型方向，区块链金融媒体转型方向有哪些

    下一篇：主播王者荣耀活动现场直播，王者荣耀活动主持