VB課程設(shè)計報告

PAGEPAGE3南京工程學(xué)院課程設(shè)計說明書(論文)題目密碼登錄課程名稱VB課程設(shè)計報告院（系、部、中心）能源與動力工程專業(yè)建筑環(huán)境與設(shè)備工程班級暖通091學(xué)生姓名劉江淮學(xué)號207090822設(shè)計地點圖書館指導(dǎo)教師于雷1設(shè)計起止時間：2010年6月28日至2010年7月3一、設(shè)計任務(wù)補全代碼，并按要求完成課程設(shè)計報告二、系統(tǒng)總體設(shè)計方案 密碼登錄是每一個數(shù)據(jù)庫應(yīng)用程序所必備的一個功能模塊，覓得是為了保證系統(tǒng)及數(shù)據(jù)的安全。在用戶進入某個系統(tǒng)時會彈出如同的對話框。。。。。。。確認用戶輸入的權(quán)限師傅正確，級點擊“確認”的按鈕。當(dāng)用戶輸入的密碼不正確時，系統(tǒng)將給出提示，如下圖所示。。。。。。。該模塊的實現(xiàn)比較通用，在類似數(shù)據(jù)庫應(yīng)用中都需要用到。有的系統(tǒng)還根據(jù)用戶的需要提供了密碼更改的功能。當(dāng)你需要更改密碼的時候會出現(xiàn)如下的對話框。首先輸入原始密碼，在輸入新密碼，確認新密碼，然后點擊“確認”鍵即可。三、程序總體框架圖輸入密碼輸入密碼判斷正誤密碼正確密碼錯誤修改密碼重新輸入密碼輸入原密碼新密碼確認新密碼登錄密碼正確登錄四、系統(tǒng)的調(diào)試源代碼寫完后，對系統(tǒng)進行調(diào)試運行，要求變量聲明，對可能出現(xiàn)的幾種錯誤，如：編輯時錯誤、編譯時錯誤、運行時錯誤、邏輯錯誤，進行修改，調(diào)試，運行，直至系統(tǒng)能正常運行。五、收獲體會Visualbasic語言是以結(jié)構(gòu)化basic語言為基礎(chǔ)，以事件驅(qū)動為運行機制。他的誕生標志著元件設(shè)計和開發(fā)的新時代的開始。VB具有面向?qū)ο罂梢暬O(shè)計工具，是事件驅(qū)動的編程機制，同時也提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境。從Basic語言、Visualbasic語言的學(xué)習(xí)開始接觸到編程，以前有過一段Basic語言的學(xué)習(xí)，覺得比較簡單。當(dāng)時很想自己能夠熟練的進行程序編輯，工程上的軟件編輯。隨著大一的Visualbasic語言的學(xué)習(xí)才逐漸發(fā)現(xiàn)這理想想要實現(xiàn)的難度。對我而言學(xué)習(xí)編程，不僅能夠幫自己解決在生活中可能遇到的一些問題；自己設(shè)計一些小游戲還可以給自己帶來一些樂趣。同時也為自己在尋找理想工作添加重要的砝碼。所以，我覺得在學(xué)習(xí)VB是我們要明確學(xué)習(xí)的目的。另外我覺得個人的數(shù)學(xué)基礎(chǔ)，思維邏輯能力對VB的學(xué)習(xí)有著至關(guān)重要的影響。而在學(xué)習(xí)的過程中最重要的就是理解，正如老師在課上經(jīng)常對我們所講的，不要始終照搬書上已有的代碼，要學(xué)會理解、掌握編程的思想與方法，這樣才能融會貫通，只有在理解方法的基礎(chǔ)上學(xué)習(xí)才是最有效的學(xué)習(xí)。Visualbasic語言的學(xué)習(xí)要多實踐，多交流。掌握編程方法必須在編程實際工作中去實踐和體會。在學(xué)習(xí)初期要經(jīng)常自己動手設(shè)計程序，集團設(shè)計師不要拘泥于固定的思維方式，遇到問題要多想幾種解決方案。而這也要求與同學(xué)多多的交流，畢竟每個人的思維方法不同，角度各異。通過交流可以不斷的吸收他人的長處，豐富編程實踐，從而提高自己的水平。親自動手實踐試創(chuàng)造性思維應(yīng)用的體現(xiàn)，也是培養(yǎng)邏輯思維的好方法。六、源代碼代碼1OptionExplicitPublicPasswordAsString'密碼PublicFilePasswordAsString'保存在文件中的密碼（經(jīng)過加密處理）'將你輸入的每個字符轉(zhuǎn)換成密碼數(shù)字PublicFunctionFun_NumericPassword(ByValPasswordAsString)AsLongDimnValueAsLongDimchAsLongDimShift1AsLongDimShift2AsLongDimiAsIntegerDimStr_LenAsInteger'得到字符串內(nèi)字符的數(shù)目Str_Len=Len(Password)'將每個字符轉(zhuǎn)換成數(shù)字Fori=1ToStr_Lench=Asc(Mid$(Password,i,1))'返回各字符的ASCII碼nValue=nValueXor(ch*2^Shift1)nValue=nValueXor(ch*2^Shift2)Shift1=(Shift1+7)Mod19Shift2=(Shift2+13)Mod22NextiFun_NumericPassword=nValueEndFunction'加密子程序PublicSubMod_Cipher(ByValPasswordAsString,ByValFrom_TextAsString,To_TextAsString)ConstMIN_ASC=32'Space.ConstMAX_ASC=126'~.ConstNUM_ASC=MAX_ASC-MIN_ASC+1DimoffsetAsLongDimStr_LenAsIntegerDimiAsIntegerDimchAsIntegerTo_Text=""'得到了加密的數(shù)字offset=Fun_NumericPassword(Password)Rnd-1'對隨機數(shù)生成器做初始化的動作RandomizeoffsetStr_Len=Len(From_Text)Fori=1ToStr_Lench=Asc(Mid$(From_Text,i,1))Ifch>=MIN_ASCAndch<=MAX_ASCThench=ch-MIN_ASCoffset=Int((NUM_ASC+1)*Rnd)ch=((ch+offset)ModNUM_ASC)ch=ch+MIN_ASCTo_Text=To_Text&Chr$(ch)EndIfNextiEndSub'解密子程序PublicSubMod_Decipher(ByValPasswordAsString,ByValFrom_TextAsString,To_TextAsString)ConstMIN_ASC=32ConstMAX_ASC=126ConstNUM_ASC=MAX_ASC-MIN_ASC+1DimoffsetAsLongDimStr_LenAsIntegerDimIAsIntegerDimchAsIntegeroffset=Fun_NumericPassword(Password)Rnd-1RandomizeoffsetStr_Len=Len(From_Text)Fori=1ToStr_Lench=Asc(Mid$(From_Text,i,1))Ifch>=MIN_ASCAndch<=MAX_ASCThench=ch-MIN_ASCoffset=Int((NUM_ASC+1)*Rnd)ch=((ch-offset)ModNUM_ASC)Ifch<0Thench=ch+NUM_ASCch=ch+MIN_ASCTo_Text=To_Text&Chr$(ch)EndIfNextiEndSub代碼2OnErrorResumeNextDimFilenumAsIntegerDimPlain_TextAsString'從文件中讀取密碼LoadFiles=App.Path+"\Mypass.pas"Filenum=FreeFile'提供一個尚未使用的文件號OpenLoadFilesForInputAsFilenumInput#Filenum,FilePassword'把Cipher_Text的變量寫入文件里Close#Filenum'將文件中的密碼解密到Plain_Text變量Mod_DeciphertxtLogin.Text,FilePassword,Plain_Text'密碼輸入錯誤，則退出程序IftxtLogin.Text<>Plain_TextThen'"quit"作為萬能密碼IftxtLogin.Text<>"quit"ThenMsgBox"你輸入的密碼不對，你是非法用戶！",vbExclamation,"錯誤"txtLogin.Text=EmptytxtLogin.SetFocusElsefrmMain.ShowLoginTest=TrueUnloadMeEndIf'密碼正確Else'將正確的密碼保存到密碼變量中Password=Plain_Text'進入主窗體frmMain.ShowLoginTest=True'UnloadMeEndIfEndSub'取消按鈕PrivateSubcmdCancel_Click()UnloadMeEndSub'程序結(jié)束PrivateSubForm_Unload(CancelAsInteger)IfLoginTest=FalseThenEndEndSub代碼3MsgBox"你輸入的舊密碼不正確！",vbExclamationtxtOld.Text=EmptytxtOld.SetFocusExitSub'原密碼輸入正確Else'新密碼確認錯誤IftxtPass.Text<>txtRepass.TextThenMsgBox"新密碼與確認密碼不一樣！請重新輸入。",vbExclamationtxtPass.Text=EmptytxtRepass.Text=EmptytxtPass.SetFocusExitSubEndIf'設(shè)置密碼Password=txtPass.TextEndIf'將你輸入的密碼加密FilePassword變量Mod_CiphertxtPass.Text,txtPass.Text,FilePassword'保存到文件DimFilenumAsIntegerFilenum=FreeFile'提供一個尚未使用的文件號DimLoadFilesAsStringLoadFiles=App.Path+"\Mypass.pas"OpenLoadFilesForOutputAsFilenumPrint#Filenum,FilePassword'把Cipher_Text的變量寫入文件里Close#Filenum'設(shè)置該文件為隱藏屬性SetAttr(LoadFiles),vbHidden'顯示錯誤信息IfErrThenMsgBox