畢業論文管理系統的設計與實現
——以貴州師范學院為例

龍誠

(貴州師范學院教務處，貴州貴陽 550018)

畢業論文管理系統的設計與實現
——以貴州師范學院為例

龍誠

(貴州師范學院教務處，貴州貴陽 550018)

傳統的畢業論文管理模式已不能滿足貴州師范學院的實際工作需求，通過對貴州師范學院畢業論文管理系統的設計和實現，運用現代計算機網絡技術，構建符合貴州師范學院畢業論文管理工作需求的管理系統，不僅有利于學校對畢業生論文的整個流程進行管理，同時也擺脫了傳統管理模式費力、費時的繁重工作。

管理系統;設計;實現;B/S;畢業論文

引言

畢業論文是全日制普通高等教育本科畢業生在校期間的最后一個教學環節，是畢業生學習深化和提高的一個重要過程，是檢驗學生綜合運用專業知識、培養創新能力和實踐能力的重要途徑之一［1］。本系統設計從畢業論文的開題、選題、審題、指導、指導教師工作自查、答辯、成績錄入、信息統計、材料歸檔等環節進行管理，實現了畢業論文的整個流程管理。系統實現了指導教師出題、學生選擇指導教師和對應的論文題目、指導教師和教研室對學生開題審核、學生必須按照《貴州師范學院畢業論文工作指南》要求完成畢業論文撰寫、要求各專業的畢業論文在實踐中完成的比例必須大于或等于50%文件上傳與下載、新聞發布等功能，通過系統管理確保畢業論文撰寫期間管理員、指導老師、學生之間信息的聯通，對保證畢業論文的質量有非常重要的現實意義。隨著網絡化的普及，學校校園網絡日益健全，實現無紙化辦公也成為未來的趨勢，并且隨著貴州師范學院教學體制改革的不斷加深，［2］本系統的建立為貴州師范學院畢業論文管理工作提供了方便。

一、需求分析

需求分析是系統開發的第一步，在系統開發之前，首先要明確系統的功能、用途、各項業務流程等，確保開發出來的系統能滿足用戶的需求。為了能清楚地了解貴州師范學院畢業論文管理系統的需求，通過召開座談會、收集日常辦公資料、征求各二級學院管理員意見等多種方式理清業務流程，采用軟件工程方法，對貴州師范學院畢業論文管理系統的需求進行詳細分析。

(一)可行性分析

畢業論文管理系統的可行性分析也稱可行性研究，即是通過對開發畢業論文管理系統的內容和軟、硬件條件的可能性和必要性分析，從經濟可行性、技術可行性、操作可行性和應用可行性幾個方面做調查研究，避免盲目開發系統。為了確保在最短的時間內開發出符合學校畢業論文管理工作實際需求的管理系統，可行性研究是必不可少的環節。本系統由我校自主開發，經濟成本低，各項功能與我校畢業論文管理工作緊密結合，實用性強，使用方便［3］。

1．經濟可行性分析。經濟可行性是將開發論文管理系統所產生的成本與運行論文管理系統后獲得的收益作比較，收益大于投入成本則可行。本系統是學校自行研究開發的論文管理系統，除必要的硬件設施外，學校無需額外投入其他資金，系統開發的總體投入成本低，并且系統運用到畢業論文的管理工作后，與以往的傳統管理模式相比，將減少大量的資金投入，同時提高畢業論文管理工作效益，節約了大量的人力和物力，所以本系統在經濟性上是完全可行的。

2．技術可行性分析。技術可行性是指在現有的技術和軟硬件條件下能否滿足系統的開發需求［4］。本系統是一個基于 B/S模式結構，通過Web運行的管理系統，采用visualBasic技術，使用比較成熟的SQL Server 2008數據庫，分模塊地進行系統設計，其技術平臺是比較完善的，運用現有的技術和校園網絡平臺，完全可以實現系統的各項功能。

3．操作可行性分析。本系統采用Web界面登錄，各項功能操作簡單，易于學習，學校指導教師、管理人員和本科畢業學生都具有高水平、高學歷、對新事物接受能力強的特點，雖然絕大多數學生、指導教師和管理人員都不是計算機相關專業人員，但畢業論文管理系統投入使用后，可對照系統說明書和工作流程圖學習，或只需對管理人員作簡單培訓即可熟練操作，因此，本系統的操作是可行的。

4．應用可行性分析。本科畢業論文是本科教學環節的重中之重，本系統主要應用于本科畢業論文工作管理，能夠為學生、指導教師和管理員之間提供便捷的溝通平臺，減少指導教師的工作量，所以，在應用上確實是可行的。

(二)系統業務需求

系統開發之前，畢業論文管理工作使用傳統的人工管理操作模式，隨著學校辦學規模的不斷擴大，這種傳統的人工管理模式存在以下問題:

1．學生論文選題不符合本專業的要求，主要表現在選題過大，不切合實際，選題偏離本專業知識，多數論文選題都只是停留在理論研究，缺少實踐環節，不符合本科教學要求等。

2．指導教師對學生的指導困難，主要是表現在學生很難找到指導教師，與指導教師見面次數少，指導教師未能及時發現問題，學生得不到有效的指導。

3．學院管理員很難了解到每個指導教師所指導學生的論文工作進度，難以把控論文的總體工作進度。

4．傳統的人工管理模式，材料收集和數據統計困難，且易出錯，主要表現在論文成績匯總、論文題目匯總、論文質量分析等方面。

針對以上存在的問題，學校決定開發畢業論文管理系統，規范畢業論文管理工作，其目的是要滿足以下幾個方面的業務需求［5］:

1．指導教師和教研室主任要對論文選題進行嚴格把關，確保學生論文選題符合專業要求。

2．確保學生選題的唯一性，學生選題要盡可能地在實習、實訓、實驗、工程實踐和社會調查中完成，以專業為單位，在實踐中完成比例小于50%的，不能進行下一步操作，需重新規范選題。

3．指導教師能對學生進行實時指導，學生可上傳論文給指導教師，老師與學生之間無需面對面交流，指導教師、評閱教師和教研室主任要對學生答辯資格進行審核。

4．指導教師和管理員都要能實時監控學生論文的工作進度，確保在規定的時間內完成規定的內容。

5．系統要能自動匯總學生成績和論文題目，對論文質量自動進行分析。

(三)系統功能需求

通過對學校畢業論文管理工作的分析，畢業論文管理系統亟待開發且勢在必行，系統主要由基礎信息管理、流程管理、系統管理、新聞公告管理、信息查詢統計5個模塊組成。系統設置學校管理員、學院管理員、教研室主任、指導教師、評閱教師、答辯教師、學生7個角色，每個角色對各個功能模塊具有的操作權限各不相同，其中學校管理員具有最高管理權限。

1．學校管理員具有系統管理的最高權限，能增加或刪除其他角色的各個操作權限，查看各學院論文工作進展。

2．學院管理員具有本學院的最高管理權限，操作權限范圍僅限于本學院，要對本學院的各項數據進行初始化操作，可查詢本學院的各項數據，時刻查看論文各項工作進展，安排論文評閱、答辯和答辯信息錄入。

3．教研室主任對畢業論文開題進行審核，對選題是否符合要求把關，認定學生的答辯資格。

4．指導教師根據專業特點和人才培養要求，制定符合要求的論文題目，確定學生選題，指導學生開題并撰寫畢業論文，審核學生答辯資格并給出具體評價。

5．評閱教師對學生論文進行評閱，審核學生答辯資格。

6．答辯教師參加答辯工作，錄入答辯信息。

7．學生選擇指導教師和對應的論文題目，撰寫開題報告和畢業論文，上傳論文開題報告、初稿、答辯稿和定稿，根據指導教師和答辯組要求修改論文。

二、系統設計

系統設計是系統開發的重要階段，是系統開發工作的核心，系統設計直接影響到最終系統的質量［6］。貴州師范學院畢業論文管理系統是一個基于B/S模式，通過Web運行的管理系統，使用visual Basic技術進行系統開發，此系統支持多用戶的管理模式，能夠智能化的檢索所需的信息，自動統計和分析數據［4］。管理員和指導教師可實時監控畢業生的工作進度，學生必須按照管理系統要求的工作進度和工作流程來完成畢業論文撰寫工作，其中工作進度時間由學校管理員根據學校要求進行設置，超過規定時間或不按照工作流程操作都將受到系統的限制。

(一)系統功能設計

畢業論文管理系統的參與者與業務功能比較多，畢業論文管理的過程是學生、教師和管理人員共同參與的工作過程［7］。系統管理和使用的過程具有流程性特點，設計的管理系統必須考慮到參與者的協調關系。系統管理員具有對所有功能模塊的操作權限和對系統的設置權限，學院管理員具有對本學院所有業務處理的權限，相對于系統管理員，也限制了其進行系統級的設置處理權限，學生、指導教師、評閱教師、答辯教師要使用的功能模塊相對明確和直接。為了在系統設計和運行使用時功能模塊的組織結構比較清晰，對系統的功能模塊進行了劃分，系統功能結構如圖1所示。

本系統總體上劃分為五大功能模塊，分別是基礎信息管理、流程管理、系統管理、新聞公告管理和信息查詢統計。

1．基礎信息管理

基礎信息管理實現畢業論文設計過程中基礎信息的維護與管理，包括對人員信息的維護(教師、學生)，對論文信息的維護與管理。

2．流程管理

流程管理實現對畢業論文全過程業務處理的信息維護與管理，包括指導教師要實施的審核開題報告、審核論文初稿、答辯稿，學生要實施的提交開題報告、提交論文初稿、答辯稿和定稿，評閱教師要實施的評閱審核，學院管理員要實施的三大安排:論文指導安排、評閱安排、答辯安排以及答辯成績的管理、論文評優管理。

3．系統管理

系統管理實現對系統的初始化設置，權限設置，安全管理等功能，包括菜單、角色、權限的定義和管理，用戶密碼管理，數據同步與備份，設置功能菜單的可用時間區段，設置答辯成績的構成方式。

圖1 系統功能結構圖

4．新聞公告管理

新聞公告管理實現對學校、學院兩級公告信息和評優信息的公布、維護與管理。

5．信息查詢統計

對畢業論文各階段產生的信息進行統計，并以適當的報告形式呈現給用戶。包括選題信息匯總，答辯分組、時間安排的統計匯總，答辯成績匯總，論文質量分析，進度查詢等。

(二)數據庫設計

因 SQL Server 2008容易安裝，SQL Server 2008數據庫兼容性好，故本系統采用SQL Server 2008作為數據庫，將每個表中可能會出現的數據項都單獨寫在一個表里，這樣可以避免數據冗余，表與表之間通過關鍵字建立聯系，通過使用主鍵與外鍵進行約束，盡可能減小數據冗余的可能性，表之間的聯系也會更加緊密［4］。

本系統的數據庫命名為BYLW，數據庫中共涉及到27個表，這些表都不是獨立存在的，表與表之間有密切聯系。上傳的相關文件存放在相應的文件夾中。

本系統主要涉及三個關系圖，分別是指導教師、學生和題目關系圖(圖2)，學院、教研室和指導教師關系圖(圖3)，學生、答辯教師、答辯小組和學院關系圖(圖4)。

圖2 指導教師、學生和題目關系

論文題目由指導教師確定，學生選擇指導教師和對應的題目，指導教師確定學生選題后即可確認指導教師、學生和題目三者直接的關系，指導教師、學生和題目關系為同一個指導教師可指導多個學生，一個學生只能由一個指導教師指導，一個學生只能選擇一個論文題目，一個題目也只能有一個學生選擇，一個指導教師可以申報多個論文題目，多個教師不能申報相同的論文題目。

圖3 學院、教研室和指導教師關系

學院、教研室和指導教師關系為一個學院可以有多個教研室，一個教研室只能屬于一個學院，一個學院有多個指導教師，一個教研室有多個教師，一個教師可以屬于多個教研室。

圖4 學生、答辯教師、答辯小組和學院關系

學生、答辯教師、答辯小組和學院關系為每個學生只屬于一個學院，一個學院有多個學生，每個學生只能被安排在一個答辯小組，一個答辯小組可安排多個學生，每個答辯教師可被安排到多個答辯小組，每個答辯小組可安排多個答辯教師，若存在一個答辯教師被安排到多個答辯小組的情況，則答辯的時間段不能重復，每個答辯教師可屬于多個學院，每個學院可以有多個答辯教師，若存在同一個答辯教師被安排到多個學院，則答辯的時間段不能重復，每個學院可以組建多個答辯小組，每個答辯小組只能屬于一個學院。

三、系統實現

因篇幅有限，在此只對系統的幾個重要功能進行實現，主要如下:

(一)登錄功能實現

1．界面設計

登錄頁面login．aspx首先用表格進行整體布局，將三個DropDownList控件、兩個TextBox控件和一個ImageButton控件置于表格中。

2．關鍵代碼片段

當用戶填寫登錄信息，單擊“登錄”按鈕，程序根據角色信息選擇在學生表或者在教師表中檢索是否有相應用戶存在，若用戶信息通過驗證，用Session對象存儲用戶信息，跳轉至mainfrm．aspx頁面，否則提示“用戶不存在!”?！暗卿洝卑粹o單擊事件代碼如下。

Sub Bt1Click()

Dim i As Integer=Me．checkLogin(DropDown-List1．Text，DropDownList2．Text，textbox1．Text．Trim，TextBox2．Text．Trim，DropDownList3．Text)

If(i＞0)Then

Session("NJ")=DropDownList1．Text＇年屆

Session("XY")=DropDownList2．Text＇學院

Session("Role")=DropDownList3．Text＇角色

Session("BH")=textbox1．Text．Trim＇編號(學號)

Response．Redirect("mainfrm．aspx")

Else

Response．Write("用戶不存在!!!")

End If

End Sub

(2)用戶信息驗證函數checkLogin

Function checkLogin()As Integer

Dim WCM as WebConfigurationManager

Dim myCommand As SqlCommand

Dim conn as string=WCM．ConnectionStrings ("BYDBConnectionString")

Dim con As SqlConnection

con=New SqlConnection(conn)．Connection-String

If role="學生"Then

＇從學生表中檢索數據

myCommand=New SqlCommand("Select count(*)from studentinfo where bynj=@nj and xymc=@xy and xh=@bh and pwd=@pwd"，con)

Else

Dim myCommand As SqlCommand=New Sql-Command("select count(*)from teacher where nj =@nj and xy=@xy and gh=@bh and pwd=@ pwd and rolename=@rolename"，con)

End If

myCommand．Parameters．Add(New SqlParameter("@nj"，SqlDbType．NVarChar，4))

myCommand．Parameters("@nj")．Value=nj

myCommand．Parameters．Add(New SqlParameter("@xy"，SqlDbType．NVarChar，30))

myCommand．Parameters("@xy")．Value=xy

myCommand．Parameters．Add(New SqlParameter("@bh"，SqlDbType．NVarChar，13))

myCommand．Parameters("@bh")．Value=bh

myCommand．Parameters．Add(New SqlParameter("@pwd"，SqlDbType．NVarChar，13))

myCommand．Parameters("@pwd")．Value =pwd

myCommand．Parameters．Add(New SqlParameter("@rolename"，SqlDbType．NVarChar，30))

myCommand．Parameters("@rolename")．Value=role

myCommand．Connection．Open()

Dim i As Integer=myCommand．ExecuteScalar ()

myCommand．Connection．Close()

Return i

End Function

(二)設置教師功能實現

1．界面設計

設置教師settutor．aspx頁面由檢索欄、教師基礎數據、圖片按鈕、已設教師信息組成，檢索欄由三個檢索條件和一個按鈕構成，用于從數據庫中提取滿足條件的已設置的教師信息;教師基礎數據由復選框、下拉列表框和Gridview控件組成，用于選擇并呈現教師基礎數據;已設教師信息由一個復選框、按鈕控件和一個Gridview控件組成，用于呈現和執行已設置教師信息的刪除。

2．關鍵代碼片段

ImageButton1按鈕的單擊事件代碼中實現將GridView1控件中所選擇的記錄信息復制到Grid-View1，并更新數據庫表Teacher。代碼所下所示:

Sub ImgBt()

Dim i As Integer

Dim sqlcon As SqlConnection=New SqlConnection(Me．strcon)＇創建數據庫連接

Dim sqlcom As SqlCommand

For i=0 To GridView1．Rows．Count-1＇循環遍歷GridView控件每一項

Dim cbox As CheckBox=CType(GridView1．Rows(i)．FindControl("cbSingleOrMore")，Check-Box)

If(cbox．Checked=True)Then＇如果操作為選中狀態

Dim strsql As String="INSERT INTO［Teacher］(［gh］，［nj］，［xy］，［jsxm］，［zc］，［xl］，［xw］，［zymc］，［email］，［pwd］，［rolename］，［lxfs］，［Inorout］)VALUES(@gh，@nj，@xy，@jsxm，@zc，@xl，@xw，@zymc，@email，@pwd，@rolename，@lxfs，@Inorout)"＇定義帶參數的刪除語句

sqlcon．Open()＇打開數據加連接

sqlcom=New SqlCommand(strsql，sqlcon)＇創建執行操作的命令對象

Dim prame1 As SqlParameter=New SqlParameter("@gh"，SqlDbType．VarChar)＇定義參數

sqlcom．Parameters．Add(prame1)＇添加參數

sqlcom．Parameters("@gh")．Value=CType (GridView1．Rows(i)．Cells(1)．Text．Trim，String)

……＇添加其他參數

sqlcom．Parameters("@inorout")．Value=IIf (DropDownList11．Text="內聘"，0，1)

Dim db As DataBase=New DataBase

Dim dv As DataView

dv=db．RunSelectSQL("SELECT*FROM ［Teacher］WHERE［gh］=?+CType(GridView1．Rows(i)．Cells(1)．Text．Trim，String)+?and［nj］=?+DropDownList1．Text+?AND［xy］=?+ DropDownList2．Text+?AND［rolename］=?+ DropDownList10．Text+"?)

If dv．Count＜=0 Then

sqlcom．ExecuteNonQuery()

End If

sqlcon．Close()＇關閉數據庫連接

End If

Next

GV2_DataBind()＇重新綁定數據控件

End Sub

(三)設置畢業學生功能實現

1．界面設計

設置教師setstudent．aspx頁面由檢索欄、教務學生基礎數據、圖片按鈕、已設畢業學生信息組成，檢索欄由五個檢索條件和一個按鈕構成，用于從數據庫中提取滿足條件的教務學生基礎數據和已設置的畢業學生信息;教務學生基礎數據由一個復選框和Gridview控件呈現;已設學生信息由一個復選框、按鈕控件和一個Gridview控件組成，用于呈現和執行畢業生信息的刪除。

2．關鍵代碼片段

檢索功能實現從教務學生表T_XJ_STUDBASEINFO和畢業學生表studentinfo中分別提取數據，結果分別在GridView1和GridView2控件中呈現，代碼如下:

Sub Bt()

GV_DataBind()＇重新綁定數據控件

GV2_DataBind()＇重新綁定數據控件

End Sub

‘教務學生信息

Public Sub GV_DataBind()

……

If TextBox1．Text＜＞""Then‘姓名為空

sqlstr="SELECT A．user_xh，A．XB，A．xm，A．SSBJ_ID，B．bjmc，B．yx_id xydm，C．zwmc xymc，B．zy_id zydm，D．zwmc zymc FROM T_XJ_STUDBASEINFO AS A inner join T_XJ_classinfo as B on A．SSBJ_ID=B．bjdm inner join T_ZY_DEPARTMENTINFO as C on B．yx_id=C．dm inner join T_ ZY_SPECIALITYINFO AS D on B．zy_id=D．dm where B．bjmc=@bjmc and A．xm=@xm"

Else

sqlstr="SELECT A．user_xh，A．XB，A．xm，A．SSBJ_ID，B．bjmc，B．yx_id xydm，C．zwmc xymc，B．zy_id zydm，D．zwmc zymc FROM T_XJ_STUDBASEINFO AS A inner join T_XJ_classinfo as B on A．SSBJ_ID=B．bjdm inner join T_ZY_DEPARTMENTINFO as C on B．yx_id=C．dm inner join T_ ZY_SPECIALITYINFO AS D on B．zy_id=D．dm where B．bjmc=@bjmc"

End If

……

End Sub

＇學生信息表

Public Sub GV2_DataBind()

If TextBox1．Text＜＞""Then‘姓名為空

Dim sqlstr As String="SELECT［xh］，［xb］，［xm］，［bynj］，［bjmc］，［xymc］，［zymc］FROM studentinfo where bjmc=@bjmc and xm=@xm and bynj=?＆DropDownList1．Text＆"?

……

Else

Dim sqlstr As String="SELECT［xh］，［xb］，［xm］，［bynj］，［bjmc］，［xymc］，［zymc］FROM studentinfo where bjmc=@bjmc and bynj=?＆DropDownList1．Text＆"?

……

End If

End Sub

(四)學生提交開題報告功能實現

1．界面設計

提交開題報告由 submitreport．aspx頁面和newreport．aspx頁面組成，submitreport．aspx頁面由一個Gridview控件、一個上傳控件FileUpload、兩個button控件組成。Gridview控件只顯示一條記錄，在頁面載入時通過綁定數據源控件sqldatasource提取數據，Gridview控件的第一列為CommandField字段，用行選擇行，第六列為模板列，包含四個CommandField字段，“填寫”、“修改”、和“查看”按鈕打開newreport．aspx頁面，“刪除”按鈕刪除已提交的開題報告信息。newreport．aspx頁面用于輸入開題報告內容向數據庫提交新增或修改信息。

2．關鍵代碼片段

上傳開題報告附件時，僅當用戶單擊了Grid-View1控件某行的“選擇”列，上傳控件和兩個button控件才呈可用狀態，fupFileSend實現從本地磁盤上選擇待上傳文件的路徑，但并不回觸發回發請求，發請求由上傳按鈕觸發，并執行上傳處理。上傳按鈕的單擊事件代碼。

Sub btnSend_Click()

If GridView1．SelectedIndex＜＞-1 Then

send(GridView1．Rows(GridView1．SelectedIndex)．Cells(8)．Text，GridView1．Rows(GridView1．SelectedIndex)．Cells(7)．Text，GridView1．Rows (GridView1．SelectedIndex)．Cells(9)．Text，Grid-View1．Rows(GridView1．SelectedIndex)．Cells (10)．Text)

End If

End Sub

上傳過程定義:

Sub send()

Try

Dim db As DataBase=New DataBase

Dim dv As DataView

＇獲取上傳文件的名稱

If Not GridView1 Is Nothing Then

If GridView1．Rows．Count＞0 Then

IffupFileSend．FileName．Trim．Length＞0 Then

If Sh="通過"Then

Response．Write("＜script language=＇javascript＇＞alert(＇審核通過后不能再提交＇);＜/script ＞")

Exit Sub

End If

If Zt="已填寫"Then

Dim upName As String=fupFileSend．FileName

＇獲取上傳文件的后綴名

Dim nameLast As String=upName．Substring (upName．LastIndexOf("．"))＇修改上傳文件的名稱

Dim SavePath As String=Server．MapPath ("～/file")＇//保存文件位置

Dim filename As String="KT"＆fname＆DateTime．Now．ToString("yyyy年M月d日h時m 分s秒")+nameLast

Dim path As String=String．Format("{0} {1}"，SavePath，filename)

update(bh，filename)‘更新上傳文件的服務器端路徑

fupFileSend．PostedFile．SaveAs(path)

Response．Write("＜script＞alert(＇上傳成功!＇) ＜/script＞")

End If

End If

End If

End If

Catch ex As Exception

Response．Write("＜script＞alert("＆ex．ToS-tring＆")＜/script＞")

End Try

End Sub

(五)審核開題報告功能實現

1．界面設計

審核開題報告由seereport．aspx頁面和newreport．aspx頁面組成，seereport．aspx頁面中主要控件是Gridview控件。Gridview控件在頁面載入時通過綁定數據源控件sqldatasource提取該教師負責指導的所有學生數據，Gridview控件通過模板列的CommandField字段打開打開 newreport．aspx頁面，審核相當于執行一次修改操作。在newreport．aspx頁面中輸入指導意見和選擇最終審核結果后提交。

2．關鍵代碼片段

學生修改開題報告和指導教師審核開題報告的實質都是對開題報告執行修改操作，都是通過調用update子程序實現，不同的是，審核需要添加更新“指導意見”和“審核”字段，而學生修改開題報告不能操作這兩個字段。代碼如下所示:

Private Sub update(ByVal apbh As Integer)

Dim sqlcon As SqlConnection=New SqlConnection(Me．strcon)＇創建數據庫連接

Dim sqlcom As SqlCommand＇創建命令對象變量

Dim strsql As String

If HiddenField2．Value="sh"Then

strsql="UPDATE［Ktbg］SET［yjzs］=@字數，［ktrq］=@開題日期，［kxyj］=@科學依據，［yjlr］=@研究內容，［jslx］=@技術路線，［jdap］=@階段安排，［ckzl］=@參考資料，［zdyj］=@指導意見，［sh］=@審核WHERE apbh="＆Convert．ToString(apbh)＇定義帶參數的更新語句

Else

strsql="UPDATE［Ktbg］SET［yjzs］=@字數，［ktrq］=@開題日期，［kxyj］=@科學依據，［yjlr］=@研究內容，［jslx］=@技術路線，［jdap］=@階段安排，［ckzl］=@參考資料WHERE apbh="＆Convert．ToString(apbh)＇定義帶參數的更新語句

End If

sqlcon．Open()＇打開數據加連接

sqlcom=New SqlCommand(strsql，sqlcon)＇創建執行操作的命令對象

Dim prame12 As SqlParameter=New SqlPa-rameter("@字數"，SqlDbType．Decimal)＇定義參數

sqlcom．Parameters．Add(prame12)＇添加參數

sqlcom．Parameters("@字數")．Value=Convert．ToDecimal(TextBox1．Text)＇參數賦值

……添加其他參數

If HiddenField2．Value="sh"Then

‘添加@指導意見，@審核參數

End If

Dim i As Integer=sqlcom．ExecuteNonQuery ()

sqlcon．Close()＇關閉數據庫連接

End Sub

四、總結

本系統的開發使用方便了學生和老師之間的交流，為畢業論文管理工作提供了有效的手段，提高了畢業論文管理工作效率。在對系統的需求進行充分調研和分析的基礎上，采用Visual Basic編程技術、SQL Server 2008數據庫技術等關鍵技術對系統分模塊地進行設計，最后實現了系統的各項功能。

目前，本系統已經正式投入使用，但是依然還存在不足之處，需在后期的使用和維護過程中，結合具體的使用需求，豐富拓展系統功能，邊使用，邊發現問題，邊解決問題，進一步完善系統功能，使系統真正為學校畢業論文管理工作提供優質的服務。

［1］令狐榮鋒．構建貴州師范學院實踐教學體系［J］．貴州師范學院學報，2014，30(07):76-79．

［2］互聯網文檔資源．畢業論文管理系統論文［EB/OL］．http://wenku．baidu．c，2012-12-23．

［3］王關海．高校本科畢業論文選題系統的設計與實現［D］．廈門:廈門大學，2013．

［4］李萍．基于Web的高校畢業論文管理系統的設計與實現［D］．長春:吉林大學，2009．

［5］李延鋒．最新高校教師教學管理創新與師資隊伍標準化建設實務全書［M］．北京:中國高等教育出版社，2008:05．

［6］張海藩．軟件工程［M］．北京:清華大學出版社，2009:06．

［7］孫文．基于Web的高校畢業論文管理系統［D］．上海:中國海洋大學，2011．

［責任編輯:陳業強］

Design an d practice of undergraduates dissertation management system——A case study of Guizhou Education University

LONG Cheng

(Teacher’s Affairs Administration，Guizhou Education University，Guiyang，Guizhou，550018)

The traditional undergraduate dissertation management system cannot meet the needs of Guizhou Education University．The present study，with the modern computer network technology，work on a management system for the management of undergraduate dissertation of Guizhou Education University，which will not only help to improve the whole management of undergraduate dissertations，but it can spare efforts and time．

Management system;Design;Practice;B/S;Undergraduate dissertation

TP315

A

1674-7798(2016)09-0023-09

10.13391/j.cnki.issn.1674-7798.2016.09.005

2016-06-30

龍 誠(1988-)，男，貴州錦屏人，碩士，貴州師范學院教務處實踐教學管理科副科長，研究方向:計算機科學，實踐教學。