vbnet登录系统,vbk登录系统

vb.net多个用户登录系统怎么做

需要连接数据库，你可以用access做个小型数据库

每次系统登录的时候，根据用户名去数据库查询密码

相关问答

Q1: 本人使用VB.NET，正在做一个用户注册登录系统，但是不知该如何实现输入的账号和数据库的信息进行比对。

/// summary

/// 是否存在该记录

/// /summary

public bool Exists(string user_id)

{

StringBuilder Sql = new StringBuilder();

Sql.Append("select count(1) from USER_INFO");

Sql.Append(" where USER_ID=:user_id");

OracleParameter[] parameters = {

new OracleParameter(":user_id", OracleType.VarChar,20)

};

parameters[0].Value = user_id;

object obj = cn.Runsa.Data.OracleHelper.ExecuteScalar(ConfigurationManager.ConnectionStrings["oraclethree"].ToString(), CommandType.Text, Sql.ToString(), parameters);

if (obj == null || obj.ToString() == "0")

{

return false;

}

else

{

return true;

}

Q2: 基于VB.Net+sql数据库的学生信息管理系统，怎么连接数据库实现登录啊

1：Access，建立数据库，数据库命名为Database1.mdb。

（注意：这里的后缀是MDB,如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式！）

2：数据库建立后就进入了数据表界面，可以输入数据了，输完以后CRRL+S保存，输入表名，这里表名为test，ok，准备工作搞定。

菜单中找到工程→部件→勾选 ，

Microsoft ADO Data Control 6.0

Microsoft Hierarchical Flexgrid Control 6.0

勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件。

选择 ADODC控件和MSHFlexGrid控件，放在窗体的合适位置

设置ADODC控件的属性：

右键窗体内ADODC1控件

1：ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则ok，确定。

2：ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。

设置MSHFlexGrid控件的属性：

VB右侧属性表里，找到datasource，选择adodc1

就完事了

Q3: VB.NET怎么登录带用户名和密码的服务器，链接数据库？

做不到，access数据库是本地数据库，不支持网络访问，建议你换成sql server或者mysql之类的数据库。

注：如果一定要远程访问access也不是不行，有两种办法，一个是服务器如果跟你在同一个局域网，可以把数据库文件夹共享出来，当做共享文件访问。另一种是在那台服务器上装个sql server数据库，sql server可以创建出链接数据库链接到那个access.

Q4: 安装vb.net后 不能直接登录操作系统

有这样的?我没见过,孤陋寡闻了.试试"控制面板-用户帐户-选择登陆和注销选项",把"使用欢迎屏幕"的"勾"去掉...

Q5: vb.net 登录问题

你每次取出的是表中的首条记录，当然只能用首条记录登陆了！

Dim name, password As String

name = TextBox1.Text

Dim com As New OleDb.OleDbCommand("select * from denglu where name='" name "'", conn)

Dim dr As OleDb.OleDbDataReader

conn.Open()

dr = com.ExecuteReader

dr.Read()

password = dr.GetString(1)

If TextBox3.Text = password Then

mesbox("成功!")

Else

msgbox("失败")

End If

dr.Close()

conn.Close()

这种情况下，效率极不好！你能理解什么意思就行了！否则将你的程序改完了！