vb.net注册界面 vb编程代码怎么写

求一份VB.NET的注册页面的代码

创建完相应的用户名，密码控件之后，输入以下代码：

Imports System.Data.OleDb

Public Class Form1

Private Sub cmdok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdok.Click

Dim m_username As String

Dim m_userpwd As String

Dim cmd_result As MsgBoxResult

Dim m_da As New OleDbDataAdapter

Dim m_ds As New DataSet

Dim m_command As New OleDbCommand

Dim strsql As String

m_username = txtusername.Text

m_userpwd = txtuserpwd.Text

strsql = " select * from user_info where username='" m_username "' and userpwd='" m_userpwd "'"

OleDbConnection1.Open()

m_command.CommandType = CommandType.Text

m_command.CommandText = strsql

m_command.Connection = OleDbConnection1

m_da.SelectCommand = m_command

m_da.Fill(m_ds, "user_info")

If m_ds.Tables("user_info").Rows.Count 0 Then

cmd_result = MsgBox("欢迎登录", MsgBoxStyle.OKOnly, "提示")

Else

MsgBox("登录失败，请确认用户名和密码")

End If

End Sub

End Class

相关问答

Q1: DW网页制作asp.net注册页面（VB语句）

在站点根目录下建立bin文件夹,再在vb.net注册界面你安装dreaweaver目录（macromedia\dreamweaver

mx

2004\configuration\serverbehaviors\shared\asp.net\scripts）找到dreamweaverctrls.dll把它copy到bin下就行vb.net注册界面！

Q2: 请问用VB.NET中 如何将注册窗口的用户名和密码传递给登录窗口的用户名和密码？拜托了

建立一个模块vb.net注册界面，在其中定义全局变量

Public a as string

public b as string

然后在注册，登陆界面分别引用就好vb.net注册界面了

Q3: vb.net怎么写注册代码

Private Sub 提交_Click()

Dim stemp As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

stemp = "select * from user"

rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If Me!密码 确认密码 Then

MsgBox "两次输入的密码不一致，请重新输入", vbExclamation, "Error"

Exit Sub

Else

stemp = "insert into user"

stemp = stemp "(用户名，密码，身份证号)"

stemp = stemp " values('" Me!用户名 "','" Me!密码 "','" Me!身份证号 "')"

DoCmd.RunSQL stemp1

Set rs = Nothing

End If

MsgBox "The information of register have saved already!", vbExclamation, "information"

End Sub

Q4: asp.net中用vb语言写一个用户注册页面详细代码

!-- #include file="retop.asp" --

html

head

link rel="stylesheet" href="common.css" type="text/css"

script language="vbscript"

!--

Sub pass2_OnBlur

'判断两次密码是否相同

if formreg.pass1.value formreg.pass2.value then

document.formreg.elements(2).focus()

MsgBox"两次输入的密码不一致！"

end if

end Sub

Sub btnreg_OnClick

'判断用户名是否正确

if Trim(formreg.username.value)=Empty then

document.formreg.elements(0).focus()

MsgBox"用户名不能为空！"

exit Sub

else if len(formreg.username.value)12 then

document.formreg.elements(0).focus()

MsgBox"用户名不能超过12个字符！"

exit Sub

end if

end if

'判断用户密码是否正确

if Trim(formreg.pass1.value)=Empty then

document.formreg.elements(1).focus()

MsgBox"密码不能为空！"

exit Sub

else if len(formreg.pass1.value)12 then

document.formreg.elements(1).focus()

MsgBox"密码不能超过12个字符！"

exit Sub

end if

end if

formreg.Submit

end Sub

--

/script

title同学通讯录/title

style type="text/css"

!--

.STYLE1 {color: #FF0000}

--

/style

/head

body

h4请输入注册信息h4

form method="post" name="formreg" action="register2.asp"

p用 户 名:input type="text" name="username" size="12"

(span class="STYLE1"* 必填，最长12个字符/span)/p

p用户密码:input type="password" name="pass1" size="12"

(span class="STYLE1"* 必填，最长12个字符/span)/p

p重输密码:input type="password" name="pass2" size="12"

(span class="STYLE1"* 必填，最后验证密码/span)/p

pinput type="button" name="btnreg" value="确定"

input type="reset" value="取消"

/p

/form

/body

/html

Q5: VB.NET 2008 速成版 注册

页面打不开？难道防火墙阻拦？一般不会取消对VS2008的支持吧，要不再你卸载界面下卸载看看有没有注册选项，vs2008专业版在卸载的时候有注册选项的

关于vb.net注册界面和vb编程代码怎么写的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。