#6.3.2.1我要借書用戶可以通過選擇書的編號進行借閱，借閱之后會在借閱表中產(chǎn)生借閱信息。根據(jù)用戶不同，借書數(shù)量不同，老師為10本，學(xué)生為5本，當庫存不足時會顯示庫存不足，這時借閱會失敗。6.3.2.2我要還書用戶可以通過選擇書的編號進行還書，還書之后會在借閱表中產(chǎn)生還書信息6.3.2.3借閱信息將借閱表中的信息顯示出來6.3.2.4超期罰款當借閱的時間超過規(guī)定時間（教師為90天，學(xué)生為60天），便會產(chǎn)生超期罰款，超期時間，每天罰款0.1元0超期罰款一口》罰款金額|0還款退出6.3.2.5修改密碼用戶可在此進行密碼修改，當新密碼和確認密碼不相同時，確認按鈕則會變成不可以狀態(tài)，且確認密碼右側(cè)會有“兩次密碼不同，請確認密碼”的提示，只有當新密碼和確認密碼相同時，確認按鈕才會變成可用狀態(tài)舅春巒碼不同，請確認舅春巒碼不同，請確認取消PrivateSubCommand1_Click()請輸入賬戶登錄Text1.SetFocusExitSubEndIf請輸入密碼登錄Text2.SetFocusExitSubEndIf請輸入新密碼登錄Text3.SetFocusExitSubEndIfsqlstr=*from用戶where卡號&Trim(Text1)&and登錄密碼&Adodc1.RecordSource=sqlstrAdodc1.RefreshWithAdodc1.RecordsetIfNot.EOFThen登錄密碼.Update密碼修改成功UnloadMeElse賬戶或密碼輸入錯誤，請重新輸入。警告Text1.SetFocusExitSubEndIfEndWithEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubText4_Change()Command1.Enabled=FalseIfTrim(Text4)=Trim(Text3)Then兩次密碼相同Command1.Enabled=TrueElse兩次密碼不同，請確認密碼ExitSubEndIfEndSubPrivateSubtext4_keypress(keyasciiAsInteger)Ifkeyascii=13ThenCommand1_ClickEndIfEndSub背景設(shè)置PrivateSubForm_Load()'窗體居中顯示Me.Light(0).Enabled=TrueMe.Light(1).Enabled=FalseMe.Music(0).Enabled=TrueMe.Music(1).Enabled=False'準備播放音樂IsMusicOn=False歌曲的位置'播放器界面模式WindowsMediaPlayer1.settings.volume=100'音量，0-100WindowsMediaPlayer1.settings.playCount=100'播放次數(shù)WindowsMediaPlayer1.Controls.stop歡迎使用中南大學(xué)圖書館管理系統(tǒng)EndSubPrivateSubForm_Unload(CancelAsInteger)'退出時檢查并關(guān)閉音樂IfIsMusicOn=TrueThenWindowsMediaPlayer1.Controls.stopEndIfEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSub'背景圖片控制11111111111111111111111111111111111111111111111111111111111111111111111PrivateSubLight_Click(IndexAsInteger)Light(Index).Enabled=FalseIfIndex=0Then'打開背景圖片Image1.Visible=TrueLight(1).Enabled=TrueEndIfIfIndex=1Then'關(guān)閉背景圖片Image1.Visible=FalseLight(0).Enabled=TrueEndIfEndSub'背景音樂控制11111111111111111111111111111111111111111111111111111111111111111111111PrivateSubMusic_Click(IndexAsInteger)Music(Index).Enabled=FalseIfIndex=0Then'打開背景音樂IsMusicOn=TrueWindowsMediaPlayer1.Controls.play'播放Music(1).Enabled=TrueEndIfIfIndex=1Then'關(guān)閉背景音樂IsMusicOn=FalseWindowsMediaPlayer1.Controls.stop'關(guān)閉Music(0).Enabled=TrueEndIfEndSub心得體會這次課程設(shè)計使我熟悉了系統(tǒng)設(shè)計的整體步驟。系統(tǒng)設(shè)計大體可分為需求分析、概念設(shè)計、邏輯設(shè)計、物理設(shè)計、功能實現(xiàn)及調(diào)試測試六大步驟。其中，讓我感觸最深的是需求分析階段，在這兩個階段，必須對所要設(shè)計的系統(tǒng)有總體的構(gòu)思和了解，知道自己要做什么，要實現(xiàn)什么，并且要實際的進行相關(guān)的調(diào)查，不能憑想象或自己的了解，這樣會在后續(xù)的工作中遇到很多的問題。還有功能實現(xiàn)階段，在此階段，我們通過所學(xué)知識，以及利用課本和網(wǎng)上的資料，將理論付諸實踐，將設(shè)計出來的虛構(gòu)的東西變成實實在在的一個程序，必須懂得如何高效利用身邊的資源。這次課程設(shè)計加深了我對數(shù)據(jù)庫系統(tǒng)概論相關(guān)知識和SQLServer2008R2和VB6.0相關(guān)功能的理解。例如對建立基本表，對控件的使用還有對SQL語言和VB語言的運用等，都比以前更加的熟練。并在解決遇到的各種問題的過程中，學(xué)到了很多新的知識。當然，在實習的過程中也存在一些問題。由于需求分析階段的工作完成的不是很充分，在后面的設(shè)計過程中，前后時常會出現(xiàn)矛盾，不一致現(xiàn)象，因此要反復(fù)的修改前面的結(jié)果，導(dǎo)致整個工作進行的不是很順利。我們做任何事，無論是課程設(shè)計還是其他的一些事，都會遇到一些困難，在這時候，千萬不能有退卻