vb多用户登陆框

1、复习前面我们已经学习了成绩管理系统的查询、修改、删除模块，在后两个模块中，我们分别加了一个密码确认，目的是增加模块的安全性。复习提问：1.以上的密码确认是怎样实现的（注意：密码是可以修改的）？答：首先建立密码的数据类型。 创建密码的随机文件，输入初始密码。 登陆时，调出密码文件，核对密码是否跟输入的一致，如果 一样，允许修改。2.在一个比较大的系统中，如果有很多模块需要密码，那么我们 是不是按照前面的方法给每个模块加一个密码 ? 为什么？答：不是，密码太多，容易混淆，不方便用户使用。 一旦密码泄漏，重新设置后，需要一一告诉以前的用户，不太 现实。引入新课3.如何解决这种问题？（想想现实中的例子

2、）答：建立一个多用户系统登陆框，好比win2000系统，可以拥有多个 用户，每个用户有自己的密码和自己的权限，当用户进入系统 时，核对用户名和密码，系统就赋予该用户具有什么样的权限。多用户登陆框-随机文件的实际应用 南京市财经学校zhang111112022-07-164分析问题（重点）（1）首先，我们建立的是一个多用户的登陆框，那么在系统中就 应该有一个文件用来存放多个用户登陆信息。两个事件：1 创建用户， 把用户信息保存到随机文件中。 步骤： 建立数据类型 定义此数据类型变量 核实用户两次输入密码相同，把用户信息 保存。（确保文本框不为空） 创建用户详细步骤1. 分别判断三个文本框是否为空

3、，如果为空，提醒用户输入完整。程序跳到最后进行等待。2. 在不为空的情况下，判断后面两次密码是否相同，不相同的话就提醒用户再次输入，如果相同，把用户名和密码写入到文件的相应记录中。3. 把文本框清空，等待下次输入。分析问题（重点）2. 登陆：步骤：打开密码文件 循环读取每条记录，把输入框的用户姓名和记录一一对应. 在找到相同姓名的情况下，再核实密码是否正确，如果正确 进入系统，否则，跳出对话框，告诉密码错误；如果找不到 用户名对应，就跳出，没有此人。 登陆详细步骤1. 首先判断文件中是否有记录，如果没有，就不需要核对用户名 和密码,如果存在就进行核对。2. 在存在记录的情况下，从第一条记录开始

4、一直到最后一条记录，循环读出每条记录。3. 对于读出的记录，先比较是否和用户名相同,如果不相同，继续读下一条，如果相同，就比较此记录的mm.pass部分是否和密码框相同，如果相同进入系统，并且跳出循环。否则，跳出提示框“密码不正确”。分析问题(难点)1.在创建用户时存在以下两种情况：用户在不关闭创建窗口的前提下，一下子输入好几对用户名和密码，怎么实现指针的顺次下移？用户在退出系统后，再次进入系统，创建用户，这时要考虑到前面记录不能覆盖的问题？要处理好前面两个问题，怎么办？先定义一个通用变量number每次进入系统创建用户时，先检查系统内已有几个用户， number=lof(1)/

5、len(recordvar)在创建用户事件中，number=number+1 put #1, number, recordvar解决问题1 请学生根据以上的思路，把思考步骤用语言的形式表达出来 （主要培养学生语言的熟练程度）If Trim() = 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).Text T = Text1(0).Textmm.pass = Text1(1).TextPut #2, i + 1, mmText1(0).Text = Text1(1).Text = Text1(2).Text = ElseMsgBox (两次密码不相同)End If结束:创建用户总结1.随机文件的特点，方便查询修改， 2. 随机文件一般使