Question

用VB制作用户系统

用VB6编写程序，进入后弹出登录框，要求输入账号密码。账号密码管理员给注册。如果输入的是管理员账号（如88888）并登录成功，就弹出管理员管理页面（这个就是个修改数据库的程序），用户登录弹出登录的用户的等级和信息（在数据库储存的），用户可以修改部分的信息，有些信息需要管理员修改。如果登录失败就弹出：对不起，您的账号或密码错误。请问该怎么编写代码？需要放什么控件？我是初学者，尽量讲的清楚点...给力的话加20分。

Answer 1

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

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

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

 

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

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

追问

能具体介绍一下数据库和用法吗？

追答

关于VB与数据库的用法，是个系统的问题的，建议你买来本来系统学习一下，这里三言两语是说不清楚的。对不起

Answer 2

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