用VB制作用户系统

用VB做/多个用户名密码登录程序~

这样更简洁清楚一些：
Private Sub cmdOK_Click()If txtUserName.Text = "vb01" And txtPassword.Text = "123" Or _txtUserName.Text = "vb02" And txtPassword.Text = "123" Thent1 = MsgBox("登陆成功", , "系统提示")frmLogin.HideForm1.ShowElset2 = MsgBox("用户名或密码不对", , "系统提示")End IfEnd Sub

VB编写一个可以注册帐号的登录系统步骤：
1）1）首先需要用数据库软件（如ACCESS软件）建立一个数据库，新建几个表，用以记录帐号密码的表、登录日志表和其他与此有关的所需要的表等。
2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选合适的OLE DB连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。
ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性实现。
5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。
6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。
以下是用ADO数据对象编写的登录和注册的代码：
1）标准模块代码：
Option Explicit Public loginname As String Public cn As New ADODB.Connection '定义数据库的连接存放数据和代码 Public rs As New ADODB.Recordset Public sql As String Public Newname As String2）注册窗体代码：
Option Explicit Dim Password As String Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1 "" Then sql = "select * from 用户管理 where 用户名='" & Text1.Text & "'" ' and 密码='" & Text2.Text & "'" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic If rs.EOF = True Then '没有该用户名可以注册 MsgBox "用户名可以注册!" rs.Close cn.Close Newname = Text1.Text Text4 = Newname Text2.SetFocus Else MsgBox "该用户名已经存在，换名注册!" Text1.Text = "" Text1.SetFocus End If End If Exit Subfinish: MsgBox Err.DescriptionEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2 "" Then Password = Text2.Text Text5 = Password Text3.SetFocus End IfEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text3.Text = Text2.Text Then Command3.Enabled = True Command3.SetFocus ElseIf KeyAscii = 13 And Text3.Text Text2.Text Then Text3 = "" Text3.SetFocus End IfEnd SubPrivate Sub Command1_Click() Unload MeEnd SubPrivate Sub Command3_Click() sql = "select * from 用户管理" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic rs.AddNew rs.Fields(0) = Newname rs.Fields(1) = Password rs.Update rs.Close cn.Close Command3.Enabled = FalseEnd Sub3）登录窗体代码：
Option Explicit Dim pnum As IntegerPrivate Sub Command1_Click() On Error GoTo finish '防错代码，防止意外而导致的退出 sql = "select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'" cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False" cn.Open rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDynamic, adLockOptimistic '以上使用最通用的方法来查询数据库中是否有匹配的记录 If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的 If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出 pnum = pnum + 1 MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum rs.Close cn.Close Text1.Text = "" Text2.Text = "" Text1.SetFocus Exit Sub Else MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示" End End If Else loginname = rs.Fields(0) Form1.Show rs.Close cn.Close End If Exit Subfinish: MsgBox Err.Description rs.Close cn.CloseEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '获取按键，如果是回车就运行image_click按钮的内容 Call Command1_Click End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Command3_Click() frmZhuce.ShowEnd Sub

首先假设有一数组，此数组存的是：账号、用户密码、用户等级等信息。

程序运行时你就该读入以上这些信息，并存在以上数组

程序运行后第一时间显示登录框

 

假设你的 管理员管理页面 窗体名称为：Frm管理员管理页面

             各组别的登录页面的窗体名：Frm级别1登录页面

                                                           Frm级别2登录页面

                                                            ……………………

Private Sub Command1_Click()

    把Text1和TText2的文字与数据库里的对比

    '首先对比账号，如果账号没有，弹出消息框说明没有这个账号

 

    '如果有这个账号，再对比此账号的密码，如果密码错误，再弹出消息框说明密码错误

 

    '在账号与密码都对的情况下，比对该账号的级别，判断该显示哪一级别的窗体

    SELECT CASE  帐号级别

    CASE 管理员

            Frm管理员管理页面.SHOW

    CASE 级别1

            Frm级别1登录页面.SHOW

    CASE 级别1

            Frm级别2登录页面.SHOW

 

    END IF

End Sub

 

以上账号与密码还可以限制输入的字符是数字还是字母

 

用text框的KeyPress,判断键盘输入的字符可能达到限制作用,除了数字,别的字符输不进去.

Private Sub text1_KeyPress(KeyAscii As Integer) '限制只能输入数字

KeyAscii = ValiText(KeyAscii, "0123456789.", True)

End Sub

同样的,text2也可以用上面的方法限制输入的只是数字与字母,因为字母分大小写,所以"字符"长了些

Private Sub text1_KeyPress(KeyAscii As Integer) '限制只能输入数字

KeyAscii = ValiText(KeyAscii, _

"0123456789.abcdefghijklmnopqrstuvwxyz _

ABCDEFGHIJKLMNOPQRSTUVWXYZ", True)

End Sub

可以直接复制上面的代码到VB程序中使用.

注意，上面的空格加下划线是换行用的，“ _”可以删除，也可以在程序中留着。

其实用不到数据库，记事本完全可以做到

---

托克托县13427396620： 用VB制作用户系统 - ？
常先阿立： 首先假设有一数组,此数组存的是:账号、用户密码、用户等级等信息.程序运行时你就该读入以上这些信息,并存在以上数组 程序运行后第一时间显示登录框 假设你的 管理员管理页面 窗体名称为:Frm管理员管理页面 各组别的登录页面的窗...

托克托县13427396620： 如何使用VB控件创建用户界面 - ？
常先阿立： 进入VB6.0软件,双击“标准EXE”显示的页面如图.预设正确的用户名和密码为aaa和abc123.先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签,再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的...

托克托县13427396620： 谁能教我用VB做个登录系统 - ？
常先阿立： access数据库、adodc控件 Private Sub Command1_Click() Adodc1.RecordSource = ＂select * from 表 where 用户名='＂ & Text1 & ＂'＂ Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox ＂没有这个用户,请重新输入!＂, , ＂注意＂ ...

托克托县13427396620： 用vb编一个简单的登录系统 - ？
常先阿立： 这是一个例子.Access 中有一个表,“学生表”,表中有“姓名”,＂学号＂字段.VB窗体有两个,一个名为“Form1＂, 另一个名为＂Form2＂ Form1是登录窗体,该窗体上有Text1, Text2 和Command1控件. 在Form1窗体中加入下面代码...

托克托县13427396620： VB 制作一登陆界面？
常先阿立： 无论使用什么语言. 跟数据库连接,使用的编程语言都提供了连接的技术的. 至于登录次数,这个也简单.你可以数据库里一张表,结构如下 序号 帐号 密码 登录次数1 张三 aaa 12 李四 bbb 4 每当张三登录一次,验证他输入的的用户名和密码,跟数据库一致就同意登录. 并且给登录次数加一有空看看淘宝特卖商城www.taobaowang1.tk 电脑常识

托克托县13427396620： 怎样用VB设计一个用户注册登录系统 - ？
常先阿立： 怎么处理?当然是将用户数据保存到数据库中去啦!也可以保存到文本文件,看你 喜欢咯,既然不用代码也没什么好说的

托克托县13427396620： 怎样用VB编写用户登陆的程序? - ？
常先阿立： 主要需要两个文本框,一个用于输入密码,一个用于输入用户名.两个按钮,一个＂登陆＂,一个＂取消＂. 你的用户名和密码需要通过数据库验证,那么还得连接数据库.如果你程序的用户名和密码固定,而且不再添加新的.那么更简单. 这是一个...

托克托县13427396620： vb做登录系统如何实现点击确认就进入系统了 - ？
常先阿立： 首先添加两个窗体form1和form2,再在form1上添加控件:Label1、Label2、textbox1、textbox2和一个command1.假如form1是系统的“欢迎界面” form2是“系统界面”,那么在form1中写下:Dim i As Integer Private Sub Command1_Click() ...

托克托县13427396620： vb的用户管理系统 - ？
常先阿立： 其实这两个窗体的功能主要是在你写的sql语句上的区别.你可以用原来的代码,只要把sql语句修改下,添加新用户的代码修改成insert into 表名 (用户名,密码) values ('＂+ yonghuming +＂...

托克托县13427396620： 如何利用VB编制用户密码登录程序 - ？
常先阿立： VB6.0企业版里有自定义好的用户登录程序窗口.有模板,新建一个模板,打开之后,看看代码,自己再修改一下就OK了.