VB課程設計報告

PAGEPAGE3南京工程學院課程設計說明書(論文)題目密碼登錄課程名稱VB課程設計報告院（系、部、中心）能源與動力工程專業(yè)建筑環(huán)境與設備工程班級暖通091學生姓名劉江淮學號207090822設計地點圖書館指導教師于雷1設計起止時間：2010年6月28日至2010年7月3一、設計任務補全代碼，并按要求完成課程設計報告二、系統(tǒng)總體設計方案 密碼登錄是每一個數(shù)據(jù)庫應用程序所必備的一個功能模塊，覓得是為了保證系統(tǒng)及數(shù)據(jù)的安全。在用戶進入某個系統(tǒng)時會彈出如同的對話框。。。。。。。確認用戶輸入的權限師傅正確，級點擊“確認”的按鈕。當用戶輸入的密碼不正確時，系統(tǒng)將給出提示，如下圖所示。。。。。。。該模塊的實現(xiàn)比較通用，在類似數(shù)據(jù)庫應用中都需要用到。有的系統(tǒng)還根據(jù)用戶的需要提供了密碼更改的功能。當你需要更改密碼的時候會出現(xiàn)如下的對話框。首先輸入原始密碼，在輸入新密碼，確認新密碼，然后點擊“確認”鍵即可。三、程序總體框架圖輸入密碼輸入密碼判斷正誤密碼正確密碼錯誤修改密碼重新輸入密碼輸入原密碼新密碼確認新密碼登錄密碼正確登錄四、系統(tǒng)的調試源代碼寫完后，對系統(tǒng)進行調試運行，要求變量聲明，對可能出現(xiàn)的幾種錯誤，如：編輯時錯誤、編譯時錯誤、運行時錯誤、邏輯錯誤，進行修改，調試，運行，直至系統(tǒng)能正常運行。五、收獲體會Visualbasic語言是以結構化basic語言為基礎，以事件驅動為運行機制。他的誕生標志著元件設計和開發(fā)的新時代的開始。VB具有面向對象可視化設計工具，是事件驅動的編程機制，同時也提供了易學易用的應用程序集成開發(fā)環(huán)境。從Basic語言、Visualbasic語言的學習開始接觸到編程，以前有過一段Basic語言的學習，覺得比較簡單。當時很想自己能夠熟練的進行程序編輯，工程上的軟件編輯。隨著大一的Visualbasic語言的學習才逐漸發(fā)現(xiàn)這理想想要實現(xiàn)的難度。對我而言學習編程，不僅能夠幫自己解決在生活中可能遇到的一些問題；自己設計一些小游戲還可以給自己帶來一些樂趣。同時也為自己在尋找理想工作添加重要的砝碼。所以，我覺得在學習VB是我們要明確學習的目的。另外我覺得個人的數(shù)學基礎，思維邏輯能力對VB的學習有著至關重要的影響。而在學習的過程中最重要的就是理解，正如老師在課上經(jīng)常對我們所講的，不要始終照搬書上已有的代碼，要學會理解、掌握編程的思想與方法，這樣才能融會貫通，只有在理解方法的基礎上學習才是最有效的學習。Visualbasic語言的學習要多實踐，多交流。掌握編程方法必須在編程實際工作中去實踐和體會。在學習初期要經(jīng)常自己動手設計程序，集團設計師不要拘泥于固定的思維方式，遇到問題要多想幾種解決方案。而這也要求與同學多多的交流，畢竟每個人的思維方法不同，角度各異。通過交流可以不斷的吸收他人的長處，豐富編程實踐，從而提高自己的水平。親自動手實踐試創(chuàng)造性思維應用的體現(xiàn)，也是培養(yǎng)邏輯思維的好方法。六、源代碼代碼1OptionExplicitPublicPasswordAsString'密碼PublicFilePasswordAsString'保存在文件中的密碼（經(jīng)過加密處理）'將你輸入的每個字符轉換成密碼數(shù)字PublicFunctionFun_NumericPassword(ByValPasswordAsString)AsLongDimnValueAsLongDimchAsLongDimShift1AsLongDimShift2AsLongDimiAsIntegerDimStr_LenAsInteger'得到字符串內字符的數(shù)目Str_Len=Len(Password)'將每個字符轉換成數(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'程序結束PrivateSubForm_Unload(CancelAsInteger)IfLoginTest=FalseThenEndEndSub代碼3MsgBox"你輸入的舊密碼不正確！",vbExclamationtxtOld.Text=EmptytxtOld.SetFocusExitSub'原密碼輸入正確Else'新密碼確認錯誤IftxtPass.Text<>txtRepass.TextThenMsgBox"新密碼與確認密碼不一樣！請重新輸入。",vbExclamationtxtPass.Text=EmptytxtRepass.Text=EmptytxtPass.SetFocusExitSubEndIf'設置密碼Password=txtPass.TextEndIf'將你輸入的密碼加密FilePassword變量Mod_CiphertxtPass.Text,txtPass.Text,FilePassword'保存到文件DimFilenumAsIntegerFilenum=FreeFile'提供一個尚未使用的文件號DimLoadFilesAsStringLoadFiles=App.Path+"\Mypass.pas"OpenLoadFilesForOutputAsFilenumPrint#Filenum,FilePassword'把Cipher_Text的變量寫入文件里Close#Filenum'設置該文件為隱藏屬性SetAttr(LoadFiles),vbHidden'顯示錯誤信息IfErrThenMsgBox