vb多用户登陆框vb多用户登陆框.ppt

复习 前面我们已经学习了成绩管理系统的查询、修改、删除模块，在后两个模块中，我们分别加了一个密码确认，目的是增加模块的安全性。 复习 提问： 1.以上的密码确认是怎样实现的（注意：密码是可以修改的）？ 答：?首先建立密码的数据类型。 ?创建密码的随机文件，输入初始密码。 ?登陆时，调出密码文件，核对密码是否跟输入的一致，如果 一样，允许修改。 2.在一个比较大的系统中，如果有很多模块需要密码，那么我们 是不是按照前面的方法给每个模块加一个密码 ? 为什么？ 答：不是，密码太多，容易混淆，不方便用户使用。 一旦密码泄漏，重新设置后，需要一一告诉以前的用户，不太 现实。 引入新课 3.如何解决这种问题？（想想现实中的例子） 答：建立一个多用户系统登陆框，好比win2000系统，可以拥有多个 用户，每个用户有自己的密码和自己的权限，当用户进入系统 时，核对用户名和密码，系统就赋予该用户具有什么样的权限。 多用户登陆框---随机文件的实际应用 南京市财经学校 分析问题（重点） （1）．首先，我们建立的是一个多用户的登陆框，那么在系统中就 应该有一个文件用来存放多个用户登陆信息。 两个事件： 1．? 创建用户， 把用户信息保存到随机文件中。 步骤： 建立数据类型 定义此数据类型变量 核实用户两次输入密码相同，把用户信息 保存。（确保文本框不为空） 创建用户 详细步骤 1. 分别判断三个文本框是否为空，如果为空，提醒用户输入完整。程序跳到最后进行等待。 2. 在不为空的情况下，判断后面两次密码是否相同，不相同的话就提醒用户再次输入，如果相同，把用户名和密码写入到文件的相应记录中。 3. 把文本框清空，等待下次输入。 分析问题（重点） 2. ?登陆： 步骤：打开密码文件 循环读取每条记录，把输入框的用户姓名和记录一一对应. 在找到相同姓名的情况下，再核实密码是否正确，如果正确 进入系统，否则，跳出对话框，告诉密码错误；如果找不到 用户名对应，就跳出，没有此人。 登陆 详细步骤 1. 首先判断文件中是否有记录，如果没有，就不需要核对用户名 和密码,如果存在就进行核对。 2. 在存在记录的情况下，从第一条记录开始一直到最后一条记录，循环读出每条记录。 3. 对于读出的记录，先比较mm.name是否和用户名相同,如果不相同，继续读下一条，如果相同，就比较此记录的mm.pass部分是否和密码框相同，如果相同进入系统，并且跳出循环。否则，跳出提示框“密码不正确”。 分析问题(难点) 1.在创建用户时存在以下两种情况： 用户在不关闭创建窗口的前提下，一下子输入好几对用户名和密码，怎么实现指针的顺次下移？ 用户在退出系统后，再次进入系统，创建用户，这时要考虑到前面记录不能覆盖的问题？ 要处理好前面两个问题，怎么办？ 先定义一个通用变量number 每次进入系统创建用户时，先检查系统内已有几个用户， number=lof(1)/len(recordvar) 在创建用户事件中，number=number+1 put #1, number, recordvar 解决问题 1．? 请学生根据以上的思路，把思考步骤用语言的形式表达出来 （主要培养学生语言的熟练程度） If Trim(mm.name) = Trim(text1.Text) Then If Trim(mm.pass) = Trim(text2.Text) Then form1.Show Me.Hide GoTo 结束 Else MsgBox 无效的密码，请重试!, , 登录 text2.SetFocus SendKeys {Home}+{End} GoTo 结束 End If 结束： 解决问题 If Text1(1).Text = Text1(2).