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

1、.中南大學(xué)本科生課程實踐報告(數(shù)據(jù)庫應(yīng)用基礎(chǔ) )題目詩詞信息管理系統(tǒng)學(xué)生姓名王祖佳指導(dǎo)教師劉澤星生物科學(xué)與技術(shù)學(xué)院（生命學(xué)院科學(xué)院）專業(yè)班級生物科學(xué)類 1202學(xué)生學(xué)號3702120225計算機(jī)基礎(chǔ)教學(xué)實驗中心專業(yè)資料.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)功能模塊如下圖：詩詞信息管理系統(tǒng)系詩詩背詞景統(tǒng)人管設(shè)管管理置理理查修刪查添刪改除詢詢加改詩詩詩詩詩詩人人人詞詞詞信信信息息息專業(yè)

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

3、3 、數(shù)據(jù)庫設(shè)計：SQL ，將本系統(tǒng)所需數(shù)據(jù)，存入 PoemManager數(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 NULLPoet 詩人信息表列名數(shù)據(jù)類型是否為空其他說明作者編號IntNOT NULL設(shè)為主鍵作者姓名Char(8)NOT NULL年代Char(4)NOT NULL專業(yè)資料

4、.簡介TextNOT NULL二、主要界面Visual Basic主要包含以下這個界面窗體：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(刪改詩人信息窗體，captio

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

6、 = Truefrmmain.ShowElseMsgBox "密碼不正確喲"Unload frmmainUnload MeEnd IfEnd Sub2 、 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

7、.music(1).Enabled = False專業(yè)資料.connStr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog=poemmanager"frmmain.ScaleMode = vbPixelsismusicOn = FalseWindowsMediaPlayer1.Visible = FalseWindowsMediaPlayer1.URL = App.Path & "bg2.mp3"WindowsMediaP

8、layer1.uiMode = "mini"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 = False專業(yè)資料.End IfIf Index = 1 Thenimage1.Visible = False

9、light(0).Enabled = TrueEnd IfEnd SubPrivate 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（將主頁面和其他各個窗體頁面連接起來）專業(yè)資料.Private Sub modifypoem_Click()frmModify

10、Poem.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 = True專業(yè)資料.End SubPrivate Sub cmdCa

11、ncel_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 Sub專業(yè)資料.Private Sub cm

12、dSave_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 Sub專業(yè)資料.6 、 frmmodifypoet刪改詩人信息窗體程序代碼Private Sub cmdCancel_Click()frm

13、main.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é)專業(yè)資料.在本次課程設(shè)計過程中，種滿了諸多困難。 把平時所學(xué)的知識靈活運(yùn)用在實踐中是很大的挑戰(zhàn)。在設(shè)計過程中，最大的困難就是正確地設(shè)計窗體，并且正確輸入代碼，保證正常運(yùn)行，達(dá)到預(yù)期設(shè)計的目的！設(shè)計制作的過程， 對我而言就是一個不停輸代碼、不停驗證、出錯了又不斷修改的過程。窗體的設(shè)計要力求完整便捷，但是在制作過程中，經(jīng)常找不到所需要