中南大學(xué)數(shù)據(jù)庫(kù)設(shè)計(jì)報(bào)告

1、數(shù)據(jù)庫(kù)技術(shù)與應(yīng)用實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)題目：畢業(yè)設(shè)計(jì)選題系統(tǒng) 姓 名： 學(xué) 號(hào)： 班 級(jí)： 聯(lián)系方式： 2015年12月目錄一、設(shè)計(jì)目的二、設(shè)計(jì)要求三、設(shè)計(jì)過(guò)程1.數(shù)據(jù)庫(kù)的設(shè)計(jì)1）實(shí)體聯(lián)系模型圖（E-R圖）2）E-R圖轉(zhuǎn)化的關(guān)系表2.系統(tǒng)功能模塊,功能描述和主要VB程序代碼1）系統(tǒng)功能模塊2）功能描述3）主要VB程序代碼登錄驗(yàn)證代碼。信息查詢等代碼。存儲(chǔ)信息等代碼。3.程序運(yùn)行展示四、心得體會(huì)與總結(jié)一、設(shè)計(jì)目的目前，隨著計(jì)算機(jī)和網(wǎng)絡(luò)技術(shù)的不斷發(fā)展，各高校相繼建成了自己的校園網(wǎng)，并充分利用校園網(wǎng)提供的新環(huán)境，為學(xué)校的教學(xué)、教研和教務(wù)管理所服務(wù)。因此，畢業(yè)設(shè)計(jì)選題系統(tǒng)已經(jīng)成為了教學(xué)教務(wù)管理系統(tǒng)的重要部分。當(dāng)

2、前畢業(yè)設(shè)計(jì)選題系統(tǒng)允許學(xué)生在一定的范圍內(nèi)選擇合適自己的畢業(yè)設(shè)計(jì)題目，具有很大的靈活性，使學(xué)生不需要在固定的時(shí)間，固定的地點(diǎn)選題，避免了很大的麻煩。二、設(shè)計(jì)要求教師和學(xué)生進(jìn)行雙向選擇，即學(xué)生可選擇相應(yīng)的畢業(yè)設(shè)計(jì)題目，教師也可選擇學(xué)生1）教師：l 教師可以增加畢業(yè)設(shè)計(jì)題目，人數(shù)，及要求。l 教師可錄取報(bào)名的學(xué)生，查看學(xué)生的詳細(xì)信息如學(xué)生的基本信息，成績(jī)等內(nèi)容。l 先錄取填報(bào)自己的題目作為第一選題志愿的學(xué)生，再錄取第二志愿的學(xué)生。l 針對(duì)不同的用戶，可進(jìn)行相關(guān)的統(tǒng)計(jì)、查詢可查看報(bào)自己的學(xué)生人數(shù)，基本信息等。2） 學(xué)生：l 可瀏覽教師的畢業(yè)設(shè)計(jì)題目及教師的簡(jiǎn)介等內(nèi)容。l 可修改自己的個(gè)人信息（基本信息

3、）。l 可以報(bào)畢業(yè)設(shè)計(jì)題目，每人限報(bào)兩個(gè)，第一選題志愿和第二選題志愿。3） 管理員l 可對(duì)每個(gè)教師、學(xué)生進(jìn)行統(tǒng)計(jì)分析與維護(hù)。三、設(shè)計(jì)過(guò)程1.數(shù)據(jù)庫(kù)的設(shè)計(jì)類型 1）實(shí)體聯(lián)系模型圖（E-R圖）:密碼用戶名課題名稱課題編號(hào)老師編號(hào)老師姓名課題選題學(xué)院專業(yè)學(xué)號(hào)電話簡(jiǎn)介性別成績(jī)姓名學(xué)生用戶M1課題介紹編號(hào)課題名稱人數(shù)學(xué)生錄取姓名電話性別簡(jiǎn)介老師1N2）E-R圖轉(zhuǎn)化的關(guān)系表(只列出了幾個(gè)主要表)表一(st_info)字段名稱數(shù)據(jù)類型是否主鍵St_idChar(10)是St_nameVarchar(20)否St_sexChar(4)否St_collegeVarchar(20)否St_numVarchar(1

4、5)否St_commentVarchar(200)否St_scorefloat否表二(t_info)字段名稱數(shù)據(jù)類型是否主鍵t_idChar(10)是t_nameVarchar(16)否t_sexChar(4)否t_numVarchar(20)否t_commmentVarchar(200)否表三(xuanti)字段名稱數(shù)據(jù)類型是否主鍵St_idChar(10）是St_nameVarchar(20)是St_sexChar(4)否Work_numVarchar(20)否Work_nameVarchar(20)否T_idchar(10)否renshuVarchar(100)否表四(Users)字段名

5、稱數(shù)據(jù)類型是否主鍵UserNameVarchar(20)否PasswordVarchar(20)否leixingVarchar(10否2.系統(tǒng)功能模塊,功能描述和主要VB程序代碼教師學(xué)生管理員畢業(yè)設(shè)計(jì)選題系統(tǒng) 1）系統(tǒng)功能模塊 查看修改自己信息查看老師信息瀏覽題目選擇課題老師課題統(tǒng)計(jì)學(xué)生選題統(tǒng)計(jì)維護(hù)學(xué)生信息查看及錄取發(fā)布課題2)功能描述管理員：老師課題統(tǒng)計(jì)：查看老師發(fā)布的課題及課題書(shū)；學(xué)生選題統(tǒng)計(jì) ：查看并統(tǒng)計(jì)學(xué)生選題的數(shù)目與編號(hào)；維護(hù)：維護(hù)系統(tǒng)。教師：學(xué)生信息查看及錄取：來(lái)查看和錄取已經(jīng)選了自己的學(xué)生；發(fā)布課題：發(fā)布課題讓學(xué)生選擇。學(xué)生查看修改自己信息：查看自己的信息，若有錯(cuò)誤可進(jìn)行修改；查

6、看老師信息：查看老師的信息；瀏覽題目：瀏覽老師所發(fā)布的題目；選擇課題：選擇自己喜歡的課題。3)主要VB程序代碼登錄驗(yàn)證代碼。Private Sub cmdOk_Click()If txtUserName.Text = "" ThenMsgBox "用戶名不能為空，請(qǐng)輸入用戶名！", vbCritical, "提示"ElseadoUser.RecordSource = "select * from users where username='" & Trim(txtUserName) & &q

7、uot;'"adoUser.RefreshIf adoUser.Recordset.EOF ThentxtUserName.Text = ""txtPwd.Text = ""txtUserName.SetFocusMsgBox "用戶名輸入錯(cuò)誤，請(qǐng)選擇！", vbCritical, "提示ElseIf txtPwd.Text = "" ThenMsgBox "密碼不能為空，請(qǐng)輸入密碼！", vbCritical, "提示"txtPwd.Text =

8、 ""txtPwd.SetFocusElseIf adoUser.Recordset.Fields("Password") = txtPwd.Text ThenSelect Case adoUser.Recordset.Fields("leixing")Case 0If Combo1.Text = "管理員" ThenMsgBox "管理員已成功登錄！", vbExclamation, "提示"manage_system.ShowMe.HideElseMsgBox "

9、;您沒(méi)有此權(quán)限！", vbOKOnly + vbCritical, "提示"End IfCase 1If Combo1.Text = "教師" ThenMsgBox "教師已成功登錄！", vbExclamation, "提示"t_system.ShowMe.HideElseMsgBox "您沒(méi)有此權(quán)限！", vbOKOnly + vbCritical, "提示"End IfCase 2If Combo1.Text = "學(xué)生" ThenMsgB

10、ox "學(xué)生已成功登錄！", vbExclamation, "提示"st_system.ShowMe.HideElseMsgBox "您沒(méi)有此權(quán)限！", vbOKOnly + vbCritical, "提示"End IfEnd SelectElseMsgBox ("密碼輸入錯(cuò)誤，請(qǐng)重新輸入！"), vbCritical, "提示"txtPwd.Text = ""txtPwd.SetFocusEnd IfEnd IfEnd IfEnd Sub信息查詢等代碼s

11、trName = frmLogin.txtUserName.TextAdodc1.RecordSource = "select * from st_info where st_id='" & Trim(strName) & " '"Adodc1.Refresh sqlStr = "select * from xuanti where t_id='" _ & Trim(frmLogin.txtUserName.Text) & "'" Adodc1.Rec

12、ordSource = sqlStr Adodc1.Refresh With Adodc1.Recordset If Not .EOF Then Text1(7).Text = .Fields("work_name") Else MsgBox "沒(méi)有找到相關(guān)信息，請(qǐng)?zhí)砑樱?quot;, vbOKOnly + vbExclamation, "警告" Exit Sub End If End With a = Adodc1.Recordset.Fields("st_id") Adodc2.RecordSource = "

13、select * from st_info where st_id='" _ & Trim(a) & "'" Adodc2.Refresh With Adodc2.Recordset If Not .EOF Then Text1(0).Text = .Fields("st_name") Text1(1).Text = .Fields("st_college") Text1(2).Text = .Fields("st_sex") Text1(3).Text = .Fields

14、("st_specially") Text1(4).Text = .Fields("st_num") Text1(5).Text = .Fields("st_comment") Text1(6).Text = .Fields("st_score") Else MsgBox "沒(méi)有找到相關(guān)信息，請(qǐng)?zhí)砑樱?quot;, vbOKOnly + vbExclamation, "警告" Exit Sub End IfEnd With存儲(chǔ)信息等代碼Dim i As IntegerFor i = 0

15、 To 4If Text3(i).Text = "" ThenMsgBox "請(qǐng)將信息填寫完整", vbOKOnly + vbExclamation, "警告"Exit SubEnd IfNext isqlStr = "select * from work_info"Adodc1.RecordSource = sqlStrAdodc1.RefreshWith Adodc1.Recordset.AddNew.Fields("t_name") = Text3(0).Text.Fields("

16、;t_id") = Text3(4).Text.Fields("work_content") = Text3(3).Text.Fields("work_num") = Text3(2).Text.Fields("work_name") = Text3(1).Text.UpdateEnd WithMsgBox "課題信息添加完成！", vbOKOnly + vbExclamation, "警告"clearTextBox3.程序運(yùn)行展示。首先開(kāi)始運(yùn)行程序，用戶通過(guò)自己選定的權(quán)限：管理員、老

17、師和學(xué)生，輸入自己的賬號(hào)密碼來(lái)進(jìn)入不同的操作界面，如下圖。進(jìn)入學(xué)生系統(tǒng) ，學(xué)生可以進(jìn)行以下下操作：1.學(xué)生自己信息查看與修改2.查看所有老師的信息3.查看課題信息4.選擇課題老師權(quán)限系統(tǒng)：1.錄取學(xué)生和查看學(xué)生信息 2.發(fā)布課題管理員管理系統(tǒng)：1.老師發(fā)布課題統(tǒng)計(jì)2.學(xué)生選題統(tǒng)計(jì)3.維護(hù)系統(tǒng)四、心得體會(huì)與總結(jié)不知不覺(jué)幾個(gè)星期過(guò)去了，我制作的畢業(yè)設(shè)計(jì)選題系統(tǒng)也大功告成，雖然我做的這個(gè)畢業(yè)設(shè)計(jì)選題系統(tǒng)相對(duì)于我們真正在實(shí)際生活中使用的系統(tǒng)還有很大的差距，但是通過(guò)對(duì)VB與數(shù)據(jù)庫(kù)設(shè)計(jì)書(shū)籍的翻閱和學(xué)習(xí)雷琪老師課上教授的東西，我學(xué)習(xí)到了許多關(guān)于VB程序和制作數(shù)據(jù)庫(kù)的知識(shí)。為了制作好這個(gè)畢業(yè)設(shè)計(jì)管理系統(tǒng)，我還

18、了解了一些如何去連接數(shù)據(jù)庫(kù)的VB技術(shù)。通過(guò)學(xué)習(xí)，我對(duì)數(shù)據(jù)庫(kù)和VB有了更深層次得到了解，也有了更濃厚的興趣。尤其是對(duì)如何設(shè)計(jì)一個(gè)管理系統(tǒng)的過(guò)程與一些技巧手法更有了另外一番了解，對(duì)數(shù)據(jù)庫(kù)和VB的基礎(chǔ)知識(shí)也有了一定的掌握。在這個(gè)過(guò)程中，我同樣認(rèn)識(shí)到數(shù)據(jù)庫(kù)不只是一門基本的學(xué)科，而是多種課程的綜合，它是一門能融合多學(xué)科的綜合應(yīng)用。我剛開(kāi)始做這個(gè)畢業(yè)設(shè)計(jì)管理系統(tǒng)的時(shí)候，我無(wú)從下手。但是，我發(fā)現(xiàn)當(dāng)我在不斷地實(shí)踐中，許許多多的失敗中，我通過(guò)對(duì)書(shū)籍和網(wǎng)絡(luò)上知識(shí)的汲取，使得我有了如何做好VB程序的意識(shí)。確實(shí)，萬(wàn)事開(kāi)頭難，正是我有了如何做好VB程序的意識(shí)，知道了正確簡(jiǎn)便的方法，我就很快的做好了一個(gè)又一個(gè)窗體。其實(shí)，我在制作途中認(rèn)識(shí)有些功能的窗體制作方法大同小異，就如只要你會(huì)做一個(gè)添加錄取學(xué)生信息的窗體，你就會(huì)接著做另外一個(gè)如添加課題信息的窗體。在制作動(dòng)態(tài)網(wǎng)頁(yè)時(shí)，我遇到了連接數(shù)據(jù)庫(kù)失敗各種程序代碼錯(cuò)誤等情況，但是我通過(guò)百度和對(duì)同學(xué)的請(qǐng)教，在結(jié)合自己的不斷實(shí)踐，終于得到了我想要的畢業(yè)設(shè)