詩詞信息管理系統(tǒng)課程設(shè)計報告書

1、中南大學本科生課程實踐報告(數(shù)據(jù)庫應(yīng)用基礎(chǔ))題 目詩詞信息管理系統(tǒng) 學生姓名王祖佳指導教師劉澤星學 院生物科學與技術(shù)學院（生命科學院）專業(yè)班級生物科學類1202學生學號3702120225 計算機基礎(chǔ)教學實驗中心 2013年 07 月 03 日一、系統(tǒng)設(shè)計1、整體設(shè)計： 系統(tǒng)總體由SQL數(shù)據(jù)庫和Visual Basic功能窗口組成，實現(xiàn)二者的鏈接，完成查詢、修改、刪除等指令。2、模塊設(shè)計：詩詞信息管理系統(tǒng)主要實現(xiàn)詩詞管理、詩人信息管理、背景設(shè)置和系統(tǒng)管理等功能，系統(tǒng)功能模塊如下圖：查詢詩人信息刪除詩人信息修改詩人信息查詢詩詞刪改詩詞添加詩詞背景設(shè)置詩人管理詩詞管理系統(tǒng)管理詩詞信息管理系統(tǒng)系統(tǒng)各

2、模塊的功能如下：1、 系統(tǒng)管理模塊：用于登錄系統(tǒng)和退出系統(tǒng)；2、 詩詞管理模塊：（1） 添加詩詞模塊用戶根據(jù)自己的需要可以自行添加詩詞信息。（2） 刪改詩詞模塊用戶根據(jù)自己的需要，可以自行查詢指定詩詞，并進行刪除或修改。（3） 查詢詩詞模塊可以按照詩人姓名、年代、體裁分別進行查詢。3、 詩人管理模塊：（1） 修改詩人信息模塊可修改詩人姓名、年代、簡介等信息。（2） 刪除詩人信息模塊通過輸入詩人姓名進行查詢，并可進行刪除；（3） 查詢詩人信息模塊可查詢詩人的全部信息；4、 背景設(shè)置模塊：包括打開背景、關(guān)閉背景、打開背景音樂、關(guān)閉背景音樂等模塊3、數(shù)據(jù)庫設(shè)計：SQL，將本系統(tǒng)所需數(shù)據(jù)，存入Poem

3、Manager數(shù)據(jù)庫中。該數(shù)據(jù)庫包含兩份基本表，詩詞基本表和詩人基本表。兩張表如下圖： Poem詩詞信息表列名數(shù)據(jù)類型是否為空其他說明詩詞編號IntNOT NULL設(shè)為主鍵題目Char(40)NOT NULL作者編號IntNOT NULL年代Char(4)NOT NULL體裁Char(10)NOT NULL類別Char(10)NOT NULL內(nèi)容TextNOT NULL Poet詩人信息表列名數(shù)據(jù)類型是否為空其他說明作者編號IntNOT NULL設(shè)為主鍵作者姓名Char(8)NOT NULL年代Char(4)NOT NULL簡介TextNOT NULL 二、主要界面 Visual Basic主

4、要包含以下這個界面窗體：1. frmmain(作為系統(tǒng)主窗體，caption屬性為“詩詞信息管理系統(tǒng)”)；2. frmIn(系統(tǒng)登錄窗體，caption屬性為“登陸管理系統(tǒng)”)；3. frmaddpoem(添加詩詞窗體，caption屬性為“添加詩詞”)；4. frmaddpoet(添加詩人信息窗體，caption屬性為“添加詩人”)；5. frmmodifypoem(刪改詩詞信息窗體，caption屬性為“修改詩詞信息”)；6. frmmodifypoet(刪改詩人信息窗體，caption屬性為“修改詩人信息”)；7. frmquerypoem（查詢詩詞信息窗體，caption屬性為“查詢詩

5、詞信息”）；8. frmquerypoet（查詢詩人信息窗體，caption屬性為“查詢詩人信息”）； 三、源程序1、frmIn系統(tǒng)登錄窗體程序代碼：Private Sub cmdOK_Click()If username = "IRIS" And userpassword = "123456" Then（設(shè)置唯一用戶名和唯一密碼）MsgBox "親、歡迎您的到來"Unload Mefrmmain.Enabled = Truefrmmain.ShowElseMsgBox "密碼不正確喲"Unload frmmain

6、Unload MeEnd IfEnd Sub 2、frmmain系統(tǒng)主窗體程序代碼Private Sub Form_Load() （設(shè)置窗體的基本界面，背景和音樂）Me.Top = (Screen.Height - Me.Height) 2Me.Left = (Screen.Width - Me.Width) 2Me.light(0).Enabled = TrueMe.light(1).Enabled = FalseMe.music(0).Enabled = TrueMe.music(1).Enabled = FalseconnStr = "Provider=SQLOLEDB.1;I

7、ntegrated Security=SSPI;Persist Security Info=False;Initial Catalog=poemmanager"frmmain.ScaleMode = vbPixelsismusicOn = FalseWindowsMediaPlayer1.Visible = FalseWindowsMediaPlayer1.URL = App.Path & "bg2.mp3"WindowsMediaPlayer1.uiMode = "mini"WindowsMediaPlayer1.settings.V

8、olume = 100WindowsMediaPlayer1.settings.PlayCount = 100 End SubPrivate Sub form_unload(cancel As Integer)If ismusicOn = True ThenEnd IfEnd SubPrivate Sub light_clicik(Index As Integer)light(Index).Enabled = FalseIf Index = 0 Thenimage1.Visible = Truelight(1).Enabled = FalseEnd IfIf Index = 1 Thenima

9、ge1.Visible = Falselight(0).Enabled = TrueEnd IfEnd Sub Private Sub music_Click(Index As Integer)music(Index).Enabled = FalseIf Index = 0 ThenismusicOn = Truemusic(1).Enabled = TrueEnd IfIf Index = 1 ThenismusicOn = Falsemusic(0).Enabled = TrueEnd IfEnd Sub（將主頁面和其他各個窗體頁面連接起來） Private Sub modifypoem_

10、Click()frmModifyPoem.ShowEnd SubPrivate Sub querypoem_Click()frmQueryPoem.ShowEnd SubPrivate Sub querypoet_Click()frmQueryPoet.ShowEnd SubPrivate Sub updatepoet_Click()frmUpdatePoet.ShowEnd Sub3、 frmaddpoem添加詩詞窗體程序代碼Private Sub cmdAdd_Click()cmdAdd.Enabled = FalsecmdSave.Enabled = TrueEnd SubPrivate

11、 Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub cmdSave_Click()cmdAdd.Enabled = TruecmdSave.Enabled = FalseEnd Sub（Adodc1控件將數(shù)據(jù)庫信息聯(lián)系到窗體）4、frmaddpoet添加詩人信息窗體程序代碼 Private Sub cmdAdd_Click()cmdAdd.Enabled = FalsecmdSave.Enabled = TrueEnd SubPrivate Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Su

12、b cmdSave_Click()cmdAdd.Enabled = TruecmdSave.Enabled = FalseEnd Sub（Adodc1控件將數(shù)據(jù)庫信息聯(lián)系到窗體）5、frmmodifypoem刪改詩詞信息窗體程序代碼Private Sub cmdCancel_Click()frmmain.ShowEnd SubPrivate Sub cmdDelete_Click()End SubPrivate Sub cmdModify_Click()End Sub6、frmmodifypoet刪改詩人信息窗體程序代碼Private Sub cmdCancel_Click()frmmain.

13、ShowEnd SubPrivate Sub cmdDelete_Click()End SubPrivate Sub cmdUpdate_Click()End Sub（Adodc1控件將數(shù)據(jù)庫信息聯(lián)系到窗體）7、frmquerypoem查詢詩詞信息窗體程序代碼 使用Adodc控件將窗體和數(shù)據(jù)庫連接起來8、frmquerypoet查詢詩人信息窗體程序代碼 使用Adodc控件將窗體和數(shù)據(jù)庫連接起來 四、課程設(shè)計總結(jié)在本次課程設(shè)計過程中，種滿了諸多困難。把平時所學的知識靈活運用在實踐中是很大的挑戰(zhàn)。在設(shè)計過程中，最大的困難就是正確地設(shè)計窗體，并且正確輸入代碼，保證正常運行，達到預期設(shè)計的目的！設(shè)計制作的過程，對我而言就是一個不停輸代碼、不停驗證、出錯了又不斷修改的過程。窗體的設(shè)計要力求完整便捷，但是在制作過程中，經(jīng)常找