十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
建立一个模块,在其中定义全局变量
成都创新互联-专业网站定制、快速模板网站建设、高性价比广德网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式广德网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖广德地区。费用合理售后完善,10多年实体公司更值得信赖。
Public a as string
public b as string
然后在注册,登陆界面分别引用就好了
页面打不开?难道防火墙阻拦?一般不会取消对VS2008的支持吧,要不再你卸载界面下卸载看看有没有注册选项,vs2008专业版在卸载的时候有注册选项的
创建完相应的用户名,密码控件之后,输入以下代码:
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