vb课程设计-多用户登陆框.doc

《vb课程设计-多用户登陆框.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、课程设计------多用户登陆框的制作1、教材分析（1）该节课的教学内容是建立一个多用户的系统登陆框和修改框，主要知识点是随机文件的读取和存储，以及循环和判断语句的使用。（2）该教学内容对系统设计来说，是一个功能上的极大扩充，使设计的系统真正有了实用价值。2、目标定位（1）教学目标通过建立系统登陆框和修改框，使学生真正了解随机文件的特点，灵活掌握随机文件的读取和存储，以及在实际开发中的使用，让学生认识到没有文件的系统功能是单一的，（2）教学重点；怎样使用随机文件来完成我们的问题。（3）教学难点；解决问题的思路。（4）教学准备多媒体教学3、教学流程首先，回顾一下前面学的知识，在前面我们已经简单的

2、讲了一个密码登陆框，提问：1．那么请某个同学总结一下，密码登陆框的基本思路是什么？思路应该是确定一个默认的密码，然后等用户登陆的时候，核对默认密码和输入密码是否一致。2．提出，这个简单的密码登陆框功能上有什么缺点？能不能符合现在社会的需要？比如，当密码泄漏后，失去了安全的功能。还有，不同的登陆者应该有不同的权限，这样我们是不是要同时验证用户名和密码，就好比我们使用过的win2000以上的系统，它是一个多用户的操作系统，那么我们应该想一想做一个像win2000的密码等陆框，该怎么完成？3．请学生提出自己的思路？（观看界面设计思考）（1）．首先，我们建立的是一个多用户的登陆框，那么在系统中就应该有

3、一个文件用来存放多个用户登陆信息。也就是说，先前的那种固定密码登陆肯定不能使用了。思路：（培养学生解决问题的能力）两个事件：1．创建用户，把用户信息保存到随机文件中。步骤：建立数据类型定义此数据类型变量核实用户两次输入密码相同，把用户信息保存。(保证文本框不为空，)2．登陆：步骤：打开密码文件循环读取每条记录，把输入框的用户姓名和记录一一对应。在找到相同姓名的情况下，再核实密码是否正确，如果正确进入系统，否则，跳出对话框，告诉密码错误；如果还没有用户名对应，就跳出，没有此人。1、学生根据以上的思路，把思考步骤用语言的形式表达出来（主要培养学生语言的熟练程度）难点：n1.在创建用户时存在以下两种

4、情况：Ø用户在不关闭创建窗口的前提下，一下子输入好几对用户名和密码，怎么实现指针的顺次下移？Ø用户在退出系统后，再次进入系统，创建用户，这时要考虑到前面纪录不能覆盖的问题？要处理好前面两个问题，怎么办？v先定义一个通用变量numberv每次进入系统创建用户时，先检查系统内已有几个用户，number=lof(1)/len(recordvar)v在创建用户事件中，number=number+1put#1,number,recordvar1、简单讲解主要语言结构等陆比较关键代码Ifnumber>0ThenFori=1TonumberGet#2,i,mmIfTrim(mm.name)=Trim(tex

5、t1.Text)ThenIfTrim(mm.pass)=Trim(text2.Text)Thenform1.ShowMe.HideGoTo结束ElseMsgBox"无效的密码，请重试!",,"登录"text2.SetFocusSendKeys"{Home}+{End}"GoTo结束EndIfEndIfNextiMsgBox("没有此用户")Elseform1.ShowUnloadMeEndIf结束:创建用户关键代码SelectCaseIndexCase0IfText1(0).Text=""ThenMsgBox("请输入用户名")EndIfIfText1(1).Text=""ThenMsgBox

6、("请输入密码")GoTo结束EndIfIfText1(2).Text=""ThenMsgBox("请输入确认密码")GoTo结束EndIfIfText1(1).Text=Text1(2).TextThenmm.name=Text1(0).Textmm.pass=Text1(1).Texti=i+1Put#2,i,mmText1(0).Text=""Text1(1).Text=""Text1(2).Text=""ElseMsgBox("两次密码不相同")EndIf结束:Case1UnloadForm9EndSelect1、学生练习，建一个完整的等陆框2、总结一下随机文件的特点，方便查询修改，让

7、学生仿照此登陆框，做一个修改框，可以修改已经存在的用户的密码。南京市财经学校张镭镭