vb課程設(shè)計多用戶登陸框

第頁課程設(shè)計多用戶登陸框的制作教材分析

（1）該節(jié)課的教學(xué)內(nèi)容是建立一個多用戶的系統(tǒng)登陸框和修改框，主要知識點(diǎn)是隨機(jī)文件的讀取和存儲，以及循環(huán)和判斷語句的使用。

（2）該教學(xué)內(nèi)容對系統(tǒng)設(shè)計來說，是一個功能上的極大擴(kuò)充，使設(shè)計的系統(tǒng)真正有了實用價值。目標(biāo)定位

（1）教學(xué)目標(biāo)

通過建立系統(tǒng)登陸框和修改框，使學(xué)生真正了解隨機(jī)文件的特點(diǎn)，靈活掌握隨機(jī)文件的讀取和存儲，以及在實際開發(fā)中的使用，讓學(xué)生認(rèn)識到?jīng)]有文件的系統(tǒng)功能是單一的，

（2）教學(xué)重點(diǎn)；怎樣使用隨機(jī)文件來完成我們的問題。

（3）教學(xué)難點(diǎn)；解決問題的思路。

（4）教學(xué)準(zhǔn)備多媒體教學(xué)教學(xué)流程

首先，回顧一下前面學(xué)的知識，在前面我們已經(jīng)簡單的講了一個密碼登陸框，提問：1．那么請某個同學(xué)總結(jié)一下，密碼登陸框的基本思路是什么？思路應(yīng)該是確定一個默認(rèn)的密碼，然后等用戶登陸的時候，核對默認(rèn)密碼和輸入密碼是否一致。2．提出，這個簡單的密碼登陸框功能上有什么缺點(diǎn)？能不能符合現(xiàn)在社會的需要？比如，當(dāng)密碼泄漏后，失去了安全的功能。還有，不同的登陸者應(yīng)該有不同的權(quán)限，這樣我們是不是要同時驗證用戶名和密碼，就好比我們使用過的win2000以上的系統(tǒng)，它是一個多用戶的操作系統(tǒng)，那么我們應(yīng)該想一想做一個像win2000的密碼等陸框，該怎么完成？3．請學(xué)生提出自己的思路？（觀看界面設(shè)計思考）（1）．首先，我們建立的是一個多用戶的登陸框，那么在系統(tǒng)中就應(yīng)該有一個文件用來存放多個用戶登陸信息。也就是說，先前的那種固定密碼登陸肯定不能使用了。思路：（培養(yǎng)學(xué)生解決問題的能力）兩個事件：創(chuàng)建用戶，把用戶信息保存到隨機(jī)文件中。步驟：建立數(shù)據(jù)類型定義此數(shù)據(jù)類型變量核實用戶兩次輸入密碼相同，把用戶信息保存。(保證文本框不為空，)登陸：步驟：打開密碼文件循環(huán)讀取每條記錄，把輸入框的用戶姓名和記錄一一對應(yīng)。在找到相同姓名的情況下，再核實密碼是否正確，如果正確進(jìn)入系統(tǒng)，否則，跳出對話框，告訴密碼錯誤；如果還沒有用戶名對應(yīng)，就跳出，沒有此人。學(xué)生根據(jù)以上的思路，把思考步驟用語言的形式表達(dá)出來（主要培養(yǎng)學(xué)生語言的熟練程度）難點(diǎn)：n1.在創(chuàng)建用戶時存在以下兩種情況：用戶在不關(guān)閉創(chuàng)建窗口的前提下，一下子輸入好幾對用戶名和密碼，怎么實現(xiàn)指針的順次下移？用戶在退出系統(tǒng)后，再次進(jìn)入系統(tǒng)，創(chuàng)建用戶，這時要考慮到前面紀(jì)錄不能覆蓋的問題？要處理好前面兩個問題，怎么辦？先定義一個通用變量number每次進(jìn)入系統(tǒng)創(chuàng)建用戶時，先檢查系統(tǒng)內(nèi)已有幾個用戶，number=lof(1)/len(recordvar)在創(chuàng)建用戶事件中，number=number+1put#1,number,recordvar簡單講解主要語言結(jié)構(gòu)等陸比較關(guān)鍵代碼Ifnumber>0ThenFori=1TonumberGet#2,i,mmIfTrim()=Trim(text1.Text)ThenIfTrim(mm.pass)=Trim(text2.Text)Thenform1.ShowMe.HideGoTo結(jié)束ElseMsgBox"無效的密碼，請重試!",,"登錄"text2.SetFocusSendKeys"{Home}+{End}"GoTo結(jié)束EndIfEndIfNextiMsgBox("沒有此用戶")Elseform1.ShowUnloadMeEndIf結(jié)束:創(chuàng)建用戶關(guān)鍵代碼SelectCaseIndexCase0IfText1(0).Text=""ThenMsgBox("請輸入用戶名")EndIfIfText1(1).Text=""ThenMsgBox("請輸入密碼")GoTo結(jié)束EndIfIfText1(2).Text=""ThenMsgBox("請輸入確認(rèn)密碼")GoTo結(jié)束EndIfIfText1(1).Text=Text1(2).TextT=Text1(0).Textmm.pass=Text1(1).Texti=i+1Put#2,i,mmText1(0).Text=""Text1(1).Text=""Text1(2).Text=""ElseMsgBox("兩次密碼不相同")EndIf結(jié)束:Case1UnloadForm9EndSelect學(xué)生練習(xí)，建一個完整的等陸框總結(jié)一下隨機(jī)文件的特點(diǎn)，方便查詢修改，讓學(xué)生仿照此登陸框，做一個修改框，可以修改已經(jīng)存在的