用VB制作用户系统

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

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

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

假设你的 管理员管理页面 窗体名称为：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程序中使用.

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

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