畢業(yè)論文管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)
——以貴州師范學(xué)院為例

龍誠(chéng)

(貴州師范學(xué)院教務(wù)處，貴州貴陽(yáng) 550018)

畢業(yè)論文管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)
——以貴州師范學(xué)院為例

龍誠(chéng)

(貴州師范學(xué)院教務(wù)處，貴州貴陽(yáng) 550018)

傳統(tǒng)的畢業(yè)論文管理模式已不能滿(mǎn)足貴州師范學(xué)院的實(shí)際工作需求，通過(guò)對(duì)貴州師范學(xué)院畢業(yè)論文管理系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)，運(yùn)用現(xiàn)代計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)，構(gòu)建符合貴州師范學(xué)院畢業(yè)論文管理工作需求的管理系統(tǒng)，不僅有利于學(xué)校對(duì)畢業(yè)生論文的整個(gè)流程進(jìn)行管理，同時(shí)也擺脫了傳統(tǒng)管理模式費(fèi)力、費(fèi)時(shí)的繁重工作。

管理系統(tǒng);設(shè)計(jì);實(shí)現(xiàn);B/S;畢業(yè)論文

引言

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

一、需求分析

需求分析是系統(tǒng)開(kāi)發(fā)的第一步，在系統(tǒng)開(kāi)發(fā)之前，首先要明確系統(tǒng)的功能、用途、各項(xiàng)業(yè)務(wù)流程等，確保開(kāi)發(fā)出來(lái)的系統(tǒng)能滿(mǎn)足用戶(hù)的需求。為了能清楚地了解貴州師范學(xué)院畢業(yè)論文管理系統(tǒng)的需求，通過(guò)召開(kāi)座談會(huì)、收集日常辦公資料、征求各二級(jí)學(xué)院管理員意見(jiàn)等多種方式理清業(yè)務(wù)流程，采用軟件工程方法，對(duì)貴州師范學(xué)院畢業(yè)論文管理系統(tǒng)的需求進(jìn)行詳細(xì)分析。

(一)可行性分析

畢業(yè)論文管理系統(tǒng)的可行性分析也稱(chēng)可行性研究，即是通過(guò)對(duì)開(kāi)發(fā)畢業(yè)論文管理系統(tǒng)的內(nèi)容和軟、硬件條件的可能性和必要性分析，從經(jīng)濟(jì)可行性、技術(shù)可行性、操作可行性和應(yīng)用可行性幾個(gè)方面做調(diào)查研究，避免盲目開(kāi)發(fā)系統(tǒng)。為了確保在最短的時(shí)間內(nèi)開(kāi)發(fā)出符合學(xué)校畢業(yè)論文管理工作實(shí)際需求的管理系統(tǒng)，可行性研究是必不可少的環(huán)節(jié)。本系統(tǒng)由我校自主開(kāi)發(fā)，經(jīng)濟(jì)成本低，各項(xiàng)功能與我校畢業(yè)論文管理工作緊密結(jié)合，實(shí)用性強(qiáng)，使用方便［3］。

1．經(jīng)濟(jì)可行性分析。經(jīng)濟(jì)可行性是將開(kāi)發(fā)論文管理系統(tǒng)所產(chǎn)生的成本與運(yùn)行論文管理系統(tǒng)后獲得的收益作比較，收益大于投入成本則可行。本系統(tǒng)是學(xué)校自行研究開(kāi)發(fā)的論文管理系統(tǒng)，除必要的硬件設(shè)施外，學(xué)校無(wú)需額外投入其他資金，系統(tǒng)開(kāi)發(fā)的總體投入成本低，并且系統(tǒng)運(yùn)用到畢業(yè)論文的管理工作后，與以往的傳統(tǒng)管理模式相比，將減少大量的資金投入，同時(shí)提高畢業(yè)論文管理工作效益，節(jié)約了大量的人力和物力，所以本系統(tǒng)在經(jīng)濟(jì)性上是完全可行的。

2．技術(shù)可行性分析。技術(shù)可行性是指在現(xiàn)有的技術(shù)和軟硬件條件下能否滿(mǎn)足系統(tǒng)的開(kāi)發(fā)需求［4］。本系統(tǒng)是一個(gè)基于 B/S模式結(jié)構(gòu)，通過(guò)Web運(yùn)行的管理系統(tǒng)，采用visualBasic技術(shù)，使用比較成熟的SQL Server 2008數(shù)據(jù)庫(kù)，分模塊地進(jìn)行系統(tǒng)設(shè)計(jì)，其技術(shù)平臺(tái)是比較完善的，運(yùn)用現(xiàn)有的技術(shù)和校園網(wǎng)絡(luò)平臺(tái)，完全可以實(shí)現(xiàn)系統(tǒng)的各項(xiàng)功能。

3．操作可行性分析。本系統(tǒng)采用Web界面登錄，各項(xiàng)功能操作簡(jiǎn)單，易于學(xué)習(xí)，學(xué)校指導(dǎo)教師、管理人員和本科畢業(yè)學(xué)生都具有高水平、高學(xué)歷、對(duì)新事物接受能力強(qiáng)的特點(diǎn)，雖然絕大多數(shù)學(xué)生、指導(dǎo)教師和管理人員都不是計(jì)算機(jī)相關(guān)專(zhuān)業(yè)人員，但畢業(yè)論文管理系統(tǒng)投入使用后，可對(duì)照系統(tǒng)說(shuō)明書(shū)和工作流程圖學(xué)習(xí)，或只需對(duì)管理人員作簡(jiǎn)單培訓(xùn)即可熟練操作，因此，本系統(tǒng)的操作是可行的。

4．應(yīng)用可行性分析。本科畢業(yè)論文是本科教學(xué)環(huán)節(jié)的重中之重，本系統(tǒng)主要應(yīng)用于本科畢業(yè)論文工作管理，能夠?yàn)閷W(xué)生、指導(dǎo)教師和管理員之間提供便捷的溝通平臺(tái)，減少指導(dǎo)教師的工作量，所以，在應(yīng)用上確實(shí)是可行的。

(二)系統(tǒng)業(yè)務(wù)需求

系統(tǒng)開(kāi)發(fā)之前，畢業(yè)論文管理工作使用傳統(tǒng)的人工管理操作模式，隨著學(xué)校辦學(xué)規(guī)模的不斷擴(kuò)大，這種傳統(tǒng)的人工管理模式存在以下問(wèn)題:

1．學(xué)生論文選題不符合本專(zhuān)業(yè)的要求，主要表現(xiàn)在選題過(guò)大，不切合實(shí)際，選題偏離本專(zhuān)業(yè)知識(shí)，多數(shù)論文選題都只是停留在理論研究，缺少實(shí)踐環(huán)節(jié)，不符合本科教學(xué)要求等。

2．指導(dǎo)教師對(duì)學(xué)生的指導(dǎo)困難，主要是表現(xiàn)在學(xué)生很難找到指導(dǎo)教師，與指導(dǎo)教師見(jiàn)面次數(shù)少，指導(dǎo)教師未能及時(shí)發(fā)現(xiàn)問(wèn)題，學(xué)生得不到有效的指導(dǎo)。

3．學(xué)院管理員很難了解到每個(gè)指導(dǎo)教師所指導(dǎo)學(xué)生的論文工作進(jìn)度，難以把控論文的總體工作進(jìn)度。

4．傳統(tǒng)的人工管理模式，材料收集和數(shù)據(jù)統(tǒng)計(jì)困難，且易出錯(cuò)，主要表現(xiàn)在論文成績(jī)匯總、論文題目匯總、論文質(zhì)量分析等方面。

針對(duì)以上存在的問(wèn)題，學(xué)校決定開(kāi)發(fā)畢業(yè)論文管理系統(tǒng)，規(guī)范畢業(yè)論文管理工作，其目的是要滿(mǎn)足以下幾個(gè)方面的業(yè)務(wù)需求［5］:

1．指導(dǎo)教師和教研室主任要對(duì)論文選題進(jìn)行嚴(yán)格把關(guān)，確保學(xué)生論文選題符合專(zhuān)業(yè)要求。

2．確保學(xué)生選題的唯一性，學(xué)生選題要盡可能地在實(shí)習(xí)、實(shí)訓(xùn)、實(shí)驗(yàn)、工程實(shí)踐和社會(huì)調(diào)查中完成，以專(zhuān)業(yè)為單位，在實(shí)踐中完成比例小于50%的，不能進(jìn)行下一步操作，需重新規(guī)范選題。

3．指導(dǎo)教師能對(duì)學(xué)生進(jìn)行實(shí)時(shí)指導(dǎo)，學(xué)生可上傳論文給指導(dǎo)教師，老師與學(xué)生之間無(wú)需面對(duì)面交流，指導(dǎo)教師、評(píng)閱教師和教研室主任要對(duì)學(xué)生答辯資格進(jìn)行審核。

4．指導(dǎo)教師和管理員都要能實(shí)時(shí)監(jiān)控學(xué)生論文的工作進(jìn)度，確保在規(guī)定的時(shí)間內(nèi)完成規(guī)定的內(nèi)容。

5．系統(tǒng)要能自動(dòng)匯總學(xué)生成績(jī)和論文題目，對(duì)論文質(zhì)量自動(dòng)進(jìn)行分析。

(三)系統(tǒng)功能需求

通過(guò)對(duì)學(xué)校畢業(yè)論文管理工作的分析，畢業(yè)論文管理系統(tǒng)亟待開(kāi)發(fā)且勢(shì)在必行，系統(tǒng)主要由基礎(chǔ)信息管理、流程管理、系統(tǒng)管理、新聞公告管理、信息查詢(xún)統(tǒng)計(jì)5個(gè)模塊組成。系統(tǒng)設(shè)置學(xué)校管理員、學(xué)院管理員、教研室主任、指導(dǎo)教師、評(píng)閱教師、答辯教師、學(xué)生7個(gè)角色，每個(gè)角色對(duì)各個(gè)功能模塊具有的操作權(quán)限各不相同，其中學(xué)校管理員具有最高管理權(quán)限。

1．學(xué)校管理員具有系統(tǒng)管理的最高權(quán)限，能增加或刪除其他角色的各個(gè)操作權(quán)限，查看各學(xué)院論文工作進(jìn)展。

2．學(xué)院管理員具有本學(xué)院的最高管理權(quán)限，操作權(quán)限范圍僅限于本學(xué)院，要對(duì)本學(xué)院的各項(xiàng)數(shù)據(jù)進(jìn)行初始化操作，可查詢(xún)本學(xué)院的各項(xiàng)數(shù)據(jù)，時(shí)刻查看論文各項(xiàng)工作進(jìn)展，安排論文評(píng)閱、答辯和答辯信息錄入。

3．教研室主任對(duì)畢業(yè)論文開(kāi)題進(jìn)行審核，對(duì)選題是否符合要求把關(guān)，認(rèn)定學(xué)生的答辯資格。

4．指導(dǎo)教師根據(jù)專(zhuān)業(yè)特點(diǎn)和人才培養(yǎng)要求，制定符合要求的論文題目，確定學(xué)生選題，指導(dǎo)學(xué)生開(kāi)題并撰寫(xiě)畢業(yè)論文，審核學(xué)生答辯資格并給出具體評(píng)價(jià)。

5．評(píng)閱教師對(duì)學(xué)生論文進(jìn)行評(píng)閱，審核學(xué)生答辯資格。

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

7．學(xué)生選擇指導(dǎo)教師和對(duì)應(yīng)的論文題目，撰寫(xiě)開(kāi)題報(bào)告和畢業(yè)論文，上傳論文開(kāi)題報(bào)告、初稿、答辯稿和定稿，根據(jù)指導(dǎo)教師和答辯組要求修改論文。

二、系統(tǒng)設(shè)計(jì)

系統(tǒng)設(shè)計(jì)是系統(tǒng)開(kāi)發(fā)的重要階段，是系統(tǒng)開(kāi)發(fā)工作的核心，系統(tǒng)設(shè)計(jì)直接影響到最終系統(tǒng)的質(zhì)量［6］。貴州師范學(xué)院畢業(yè)論文管理系統(tǒng)是一個(gè)基于B/S模式，通過(guò)Web運(yùn)行的管理系統(tǒng)，使用visual Basic技術(shù)進(jìn)行系統(tǒng)開(kāi)發(fā)，此系統(tǒng)支持多用戶(hù)的管理模式，能夠智能化的檢索所需的信息，自動(dòng)統(tǒng)計(jì)和分析數(shù)據(jù)［4］。管理員和指導(dǎo)教師可實(shí)時(shí)監(jiān)控畢業(yè)生的工作進(jìn)度，學(xué)生必須按照管理系統(tǒng)要求的工作進(jìn)度和工作流程來(lái)完成畢業(yè)論文撰寫(xiě)工作，其中工作進(jìn)度時(shí)間由學(xué)校管理員根據(jù)學(xué)校要求進(jìn)行設(shè)置，超過(guò)規(guī)定時(shí)間或不按照工作流程操作都將受到系統(tǒng)的限制。

(一)系統(tǒng)功能設(shè)計(jì)

畢業(yè)論文管理系統(tǒng)的參與者與業(yè)務(wù)功能比較多，畢業(yè)論文管理的過(guò)程是學(xué)生、教師和管理人員共同參與的工作過(guò)程［7］。系統(tǒng)管理和使用的過(guò)程具有流程性特點(diǎn)，設(shè)計(jì)的管理系統(tǒng)必須考慮到參與者的協(xié)調(diào)關(guān)系。系統(tǒng)管理員具有對(duì)所有功能模塊的操作權(quán)限和對(duì)系統(tǒng)的設(shè)置權(quán)限，學(xué)院管理員具有對(duì)本學(xué)院所有業(yè)務(wù)處理的權(quán)限，相對(duì)于系統(tǒng)管理員，也限制了其進(jìn)行系統(tǒng)級(jí)的設(shè)置處理權(quán)限，學(xué)生、指導(dǎo)教師、評(píng)閱教師、答辯教師要使用的功能模塊相對(duì)明確和直接。為了在系統(tǒng)設(shè)計(jì)和運(yùn)行使用時(shí)功能模塊的組織結(jié)構(gòu)比較清晰，對(duì)系統(tǒng)的功能模塊進(jìn)行了劃分，系統(tǒng)功能結(jié)構(gòu)如圖1所示。

本系統(tǒng)總體上劃分為五大功能模塊，分別是基礎(chǔ)信息管理、流程管理、系統(tǒng)管理、新聞公告管理和信息查詢(xún)統(tǒng)計(jì)。

1．基礎(chǔ)信息管理

基礎(chǔ)信息管理實(shí)現(xiàn)畢業(yè)論文設(shè)計(jì)過(guò)程中基礎(chǔ)信息的維護(hù)與管理，包括對(duì)人員信息的維護(hù)(教師、學(xué)生)，對(duì)論文信息的維護(hù)與管理。

2．流程管理

流程管理實(shí)現(xiàn)對(duì)畢業(yè)論文全過(guò)程業(yè)務(wù)處理的信息維護(hù)與管理，包括指導(dǎo)教師要實(shí)施的審核開(kāi)題報(bào)告、審核論文初稿、答辯稿，學(xué)生要實(shí)施的提交開(kāi)題報(bào)告、提交論文初稿、答辯稿和定稿，評(píng)閱教師要實(shí)施的評(píng)閱審核，學(xué)院管理員要實(shí)施的三大安排:論文指導(dǎo)安排、評(píng)閱安排、答辯安排以及答辯成績(jī)的管理、論文評(píng)優(yōu)管理。

3．系統(tǒng)管理

系統(tǒng)管理實(shí)現(xiàn)對(duì)系統(tǒng)的初始化設(shè)置，權(quán)限設(shè)置，安全管理等功能，包括菜單、角色、權(quán)限的定義和管理，用戶(hù)密碼管理，數(shù)據(jù)同步與備份，設(shè)置功能菜單的可用時(shí)間區(qū)段，設(shè)置答辯成績(jī)的構(gòu)成方式。

圖1 系統(tǒng)功能結(jié)構(gòu)圖

4．新聞公告管理

新聞公告管理實(shí)現(xiàn)對(duì)學(xué)校、學(xué)院兩級(jí)公告信息和評(píng)優(yōu)信息的公布、維護(hù)與管理。

5．信息查詢(xún)統(tǒng)計(jì)

對(duì)畢業(yè)論文各階段產(chǎn)生的信息進(jìn)行統(tǒng)計(jì)，并以適當(dāng)?shù)膱?bào)告形式呈現(xiàn)給用戶(hù)。包括選題信息匯總，答辯分組、時(shí)間安排的統(tǒng)計(jì)匯總，答辯成績(jī)匯總，論文質(zhì)量分析，進(jìn)度查詢(xún)等。

(二)數(shù)據(jù)庫(kù)設(shè)計(jì)

因 SQL Server 2008容易安裝，SQL Server 2008數(shù)據(jù)庫(kù)兼容性好，故本系統(tǒng)采用SQL Server 2008作為數(shù)據(jù)庫(kù)，將每個(gè)表中可能會(huì)出現(xiàn)的數(shù)據(jù)項(xiàng)都單獨(dú)寫(xiě)在一個(gè)表里，這樣可以避免數(shù)據(jù)冗余，表與表之間通過(guò)關(guān)鍵字建立聯(lián)系，通過(guò)使用主鍵與外鍵進(jìn)行約束，盡可能減小數(shù)據(jù)冗余的可能性，表之間的聯(lián)系也會(huì)更加緊密［4］。

本系統(tǒng)的數(shù)據(jù)庫(kù)命名為BYLW，數(shù)據(jù)庫(kù)中共涉及到27個(gè)表，這些表都不是獨(dú)立存在的，表與表之間有密切聯(lián)系。上傳的相關(guān)文件存放在相應(yīng)的文件夾中。

本系統(tǒng)主要涉及三個(gè)關(guān)系圖，分別是指導(dǎo)教師、學(xué)生和題目關(guān)系圖(圖2)，學(xué)院、教研室和指導(dǎo)教師關(guān)系圖(圖3)，學(xué)生、答辯教師、答辯小組和學(xué)院關(guān)系圖(圖4)。

圖2 指導(dǎo)教師、學(xué)生和題目關(guān)系

論文題目由指導(dǎo)教師確定，學(xué)生選擇指導(dǎo)教師和對(duì)應(yīng)的題目，指導(dǎo)教師確定學(xué)生選題后即可確認(rèn)指導(dǎo)教師、學(xué)生和題目三者直接的關(guān)系，指導(dǎo)教師、學(xué)生和題目關(guān)系為同一個(gè)指導(dǎo)教師可指導(dǎo)多個(gè)學(xué)生，一個(gè)學(xué)生只能由一個(gè)指導(dǎo)教師指導(dǎo)，一個(gè)學(xué)生只能選擇一個(gè)論文題目，一個(gè)題目也只能有一個(gè)學(xué)生選擇，一個(gè)指導(dǎo)教師可以申報(bào)多個(gè)論文題目，多個(gè)教師不能申報(bào)相同的論文題目。

圖3 學(xué)院、教研室和指導(dǎo)教師關(guān)系

學(xué)院、教研室和指導(dǎo)教師關(guān)系為一個(gè)學(xué)院可以有多個(gè)教研室，一個(gè)教研室只能屬于一個(gè)學(xué)院，一個(gè)學(xué)院有多個(gè)指導(dǎo)教師，一個(gè)教研室有多個(gè)教師，一個(gè)教師可以屬于多個(gè)教研室。

圖4 學(xué)生、答辯教師、答辯小組和學(xué)院關(guān)系

學(xué)生、答辯教師、答辯小組和學(xué)院關(guān)系為每個(gè)學(xué)生只屬于一個(gè)學(xué)院，一個(gè)學(xué)院有多個(gè)學(xué)生，每個(gè)學(xué)生只能被安排在一個(gè)答辯小組，一個(gè)答辯小組可安排多個(gè)學(xué)生，每個(gè)答辯教師可被安排到多個(gè)答辯小組，每個(gè)答辯小組可安排多個(gè)答辯教師，若存在一個(gè)答辯教師被安排到多個(gè)答辯小組的情況，則答辯的時(shí)間段不能重復(fù)，每個(gè)答辯教師可屬于多個(gè)學(xué)院，每個(gè)學(xué)院可以有多個(gè)答辯教師，若存在同一個(gè)答辯教師被安排到多個(gè)學(xué)院，則答辯的時(shí)間段不能重復(fù)，每個(gè)學(xué)院可以組建多個(gè)答辯小組，每個(gè)答辯小組只能屬于一個(gè)學(xué)院。

三、系統(tǒng)實(shí)現(xiàn)

因篇幅有限，在此只對(duì)系統(tǒng)的幾個(gè)重要功能進(jìn)行實(shí)現(xiàn)，主要如下:

(一)登錄功能實(shí)現(xiàn)

1．界面設(shè)計(jì)

登錄頁(yè)面login．a(chǎn)spx首先用表格進(jìn)行整體布局，將三個(gè)DropDownList控件、兩個(gè)TextBox控件和一個(gè)ImageButton控件置于表格中。

2．關(guān)鍵代碼片段

當(dāng)用戶(hù)填寫(xiě)登錄信息，單擊“登錄”按鈕，程序根據(jù)角色信息選擇在學(xué)生表或者在教師表中檢索是否有相應(yīng)用戶(hù)存在，若用戶(hù)信息通過(guò)驗(yàn)證，用Session對(duì)象存儲(chǔ)用戶(hù)信息，跳轉(zhuǎn)至mainfrm．a(chǎn)spx頁(yè)面，否則提示“用戶(hù)不存在!”?！暗卿洝卑粹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＇學(xué)院

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

Session("BH")=textbox1．Text．Trim＇編號(hào)(學(xué)號(hào))

Response．Redirect("mainfrm．a(chǎn)spx")

Else

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

End If

End Sub

(2)用戶(hù)信息驗(yàn)證函數(shù)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="學(xué)生"Then

＇從學(xué)生表中檢索數(shù)據(jù)

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

(二)設(shè)置教師功能實(shí)現(xiàn)

1．界面設(shè)計(jì)

設(shè)置教師settutor．a(chǎn)spx頁(yè)面由檢索欄、教師基礎(chǔ)數(shù)據(jù)、圖片按鈕、已設(shè)教師信息組成，檢索欄由三個(gè)檢索條件和一個(gè)按鈕構(gòu)成，用于從數(shù)據(jù)庫(kù)中提取滿(mǎn)足條件的已設(shè)置的教師信息;教師基礎(chǔ)數(shù)據(jù)由復(fù)選框、下拉列表框和Gridview控件組成，用于選擇并呈現(xiàn)教師基礎(chǔ)數(shù)據(jù);已設(shè)教師信息由一個(gè)復(fù)選框、按鈕控件和一個(gè)Gridview控件組成，用于呈現(xiàn)和執(zhí)行已設(shè)置教師信息的刪除。

2．關(guān)鍵代碼片段

ImageButton1按鈕的單擊事件代碼中實(shí)現(xiàn)將GridView1控件中所選擇的記錄信息復(fù)制到Grid-View1，并更新數(shù)據(jù)庫(kù)表Teacher。代碼所下所示:

Sub ImgBt()

Dim i As Integer

Dim sqlcon As SqlConnection=New SqlConnection(Me．strcon)＇創(chuàng)建數(shù)據(jù)庫(kù)連接

Dim sqlcom As SqlCommand

For i=0 To GridView1．Rows．Count-1＇循環(huán)遍歷GridView控件每一項(xiàng)

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

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

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)"＇定義帶參數(shù)的刪除語(yǔ)句

sqlcon．Open()＇打開(kāi)數(shù)據(jù)加連接

sqlcom=New SqlCommand(strsql，sqlcon)＇創(chuàng)建執(zhí)行操作的命令對(duì)象

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

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

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

……＇添加其他參數(shù)

sqlcom．Parameters("@inorout")．Value=IIf (DropDownList11．Text="內(nèi)聘"，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()＇關(guān)閉數(shù)據(jù)庫(kù)連接

End If

Next

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

End Sub

(三)設(shè)置畢業(yè)學(xué)生功能實(shí)現(xiàn)

1．界面設(shè)計(jì)

設(shè)置教師setstudent．a(chǎn)spx頁(yè)面由檢索欄、教務(wù)學(xué)生基礎(chǔ)數(shù)據(jù)、圖片按鈕、已設(shè)畢業(yè)學(xué)生信息組成，檢索欄由五個(gè)檢索條件和一個(gè)按鈕構(gòu)成，用于從數(shù)據(jù)庫(kù)中提取滿(mǎn)足條件的教務(wù)學(xué)生基礎(chǔ)數(shù)據(jù)和已設(shè)置的畢業(yè)學(xué)生信息;教務(wù)學(xué)生基礎(chǔ)數(shù)據(jù)由一個(gè)復(fù)選框和Gridview控件呈現(xiàn);已設(shè)學(xué)生信息由一個(gè)復(fù)選框、按鈕控件和一個(gè)Gridview控件組成，用于呈現(xiàn)和執(zhí)行畢業(yè)生信息的刪除。

2．關(guān)鍵代碼片段

檢索功能實(shí)現(xiàn)從教務(wù)學(xué)生表T_XJ_STUDBASEINFO和畢業(yè)學(xué)生表studentinfo中分別提取數(shù)據(jù)，結(jié)果分別在GridView1和GridView2控件中呈現(xiàn)，代碼如下:

Sub Bt()

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

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

End Sub

‘教務(wù)學(xué)生信息

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

＇學(xué)生信息表

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

(四)學(xué)生提交開(kāi)題報(bào)告功能實(shí)現(xiàn)

1．界面設(shè)計(jì)

提交開(kāi)題報(bào)告由 submitreport．a(chǎn)spx頁(yè)面和newreport．a(chǎn)spx頁(yè)面組成，submitreport．a(chǎn)spx頁(yè)面由一個(gè)Gridview控件、一個(gè)上傳控件FileUpload、兩個(gè)button控件組成。Gridview控件只顯示一條記錄，在頁(yè)面載入時(shí)通過(guò)綁定數(shù)據(jù)源控件sqldatasource提取數(shù)據(jù)，Gridview控件的第一列為CommandField字段，用行選擇行，第六列為模板列，包含四個(gè)CommandField字段，“填寫(xiě)”、“修改”、和“查看”按鈕打開(kāi)newreport．a(chǎn)spx頁(yè)面，“刪除”按鈕刪除已提交的開(kāi)題報(bào)告信息。newreport．a(chǎn)spx頁(yè)面用于輸入開(kāi)題報(bào)告內(nèi)容向數(shù)據(jù)庫(kù)提交新增或修改信息。

2．關(guān)鍵代碼片段

上傳開(kāi)題報(bào)告附件時(shí)，僅當(dāng)用戶(hù)單擊了Grid-View1控件某行的“選擇”列，上傳控件和兩個(gè)button控件才呈可用狀態(tài)，fupFileSend實(shí)現(xiàn)從本地磁盤(pán)上選擇待上傳文件的路徑，但并不回觸發(fā)回發(fā)請(qǐng)求，發(fā)請(qǐng)求由上傳按鈕觸發(fā)，并執(zhí)行上傳處理。上傳按鈕的單擊事件代碼。

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

上傳過(guò)程定義:

Sub send()

Try

Dim db As DataBase=New DataBase

Dim dv As DataView

＇獲取上傳文件的名稱(chēng)

If Not GridView1 Is Nothing Then

If GridView1．Rows．Count＞0 Then

IffupFileSend．FileName．Trim．Length＞0 Then

If Sh="通過(guò)"Then

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

Exit Sub

End If

If Zt="已填寫(xiě)"Then

Dim upName As String=fupFileSend．FileName

＇獲取上傳文件的后綴名

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

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

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

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

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

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

(五)審核開(kāi)題報(bào)告功能實(shí)現(xiàn)

1．界面設(shè)計(jì)

審核開(kāi)題報(bào)告由seereport．a(chǎn)spx頁(yè)面和newreport．a(chǎn)spx頁(yè)面組成，seereport．a(chǎn)spx頁(yè)面中主要控件是Gridview控件。Gridview控件在頁(yè)面載入時(shí)通過(guò)綁定數(shù)據(jù)源控件sqldatasource提取該教師負(fù)責(zé)指導(dǎo)的所有學(xué)生數(shù)據(jù)，Gridview控件通過(guò)模板列的CommandField字段打開(kāi)打開(kāi) newreport．a(chǎn)spx頁(yè)面，審核相當(dāng)于執(zhí)行一次修改操作。在newreport．a(chǎn)spx頁(yè)面中輸入指導(dǎo)意見(jiàn)和選擇最終審核結(jié)果后提交。

2．關(guān)鍵代碼片段

學(xué)生修改開(kāi)題報(bào)告和指導(dǎo)教師審核開(kāi)題報(bào)告的實(shí)質(zhì)都是對(duì)開(kāi)題報(bào)告執(zhí)行修改操作，都是通過(guò)調(diào)用update子程序?qū)崿F(xiàn)，不同的是，審核需要添加更新“指導(dǎo)意見(jiàn)”和“審核”字段，而學(xué)生修改開(kāi)題報(bào)告不能操作這兩個(gè)字段。代碼如下所示:

Private Sub update(ByVal apbh As Integer)

Dim sqlcon As SqlConnection=New SqlConnection(Me．strcon)＇創(chuàng)建數(shù)據(jù)庫(kù)連接

Dim sqlcom As SqlCommand＇創(chuàng)建命令對(duì)象變量

Dim strsql As String

If HiddenField2．Value="sh"Then

strsql="UPDATE［Ktbg］SET［yjzs］=@字?jǐn)?shù)，［ktrq］=@開(kāi)題日期，［kxyj］=@科學(xué)依據(jù)，［yjlr］=@研究?jī)?nèi)容，［jslx］=@技術(shù)路線(xiàn)，［jdap］=@階段安排，［ckzl］=@參考資料，［zdyj］=@指導(dǎo)意見(jiàn)，［sh］=@審核WHERE apbh="＆Convert．ToString(apbh)＇定義帶參數(shù)的更新語(yǔ)句

Else

strsql="UPDATE［Ktbg］SET［yjzs］=@字?jǐn)?shù)，［ktrq］=@開(kāi)題日期，［kxyj］=@科學(xué)依據(jù)，［yjlr］=@研究?jī)?nèi)容，［jslx］=@技術(shù)路線(xiàn)，［jdap］=@階段安排，［ckzl］=@參考資料WHERE apbh="＆Convert．ToString(apbh)＇定義帶參數(shù)的更新語(yǔ)句

End If

sqlcon．Open()＇打開(kāi)數(shù)據(jù)加連接

sqlcom=New SqlCommand(strsql，sqlcon)＇創(chuàng)建執(zhí)行操作的命令對(duì)象

Dim prame12 As SqlParameter=New SqlPa-rameter("@字?jǐn)?shù)"，SqlDbType．Decimal)＇定義參數(shù)

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

sqlcom．Parameters("@字?jǐn)?shù)")．Value=Convert．ToDecimal(TextBox1．Text)＇參數(shù)賦值

……添加其他參數(shù)

If HiddenField2．Value="sh"Then

‘添加@指導(dǎo)意見(jiàn)，@審核參數(shù)

End If

Dim i As Integer=sqlcom．ExecuteNonQuery ()

sqlcon．Close()＇關(guān)閉數(shù)據(jù)庫(kù)連接

End Sub

四、總結(jié)

本系統(tǒng)的開(kāi)發(fā)使用方便了學(xué)生和老師之間的交流，為畢業(yè)論文管理工作提供了有效的手段，提高了畢業(yè)論文管理工作效率。在對(duì)系統(tǒng)的需求進(jìn)行充分調(diào)研和分析的基礎(chǔ)上，采用Visual Basic編程技術(shù)、SQL Server 2008數(shù)據(jù)庫(kù)技術(shù)等關(guān)鍵技術(shù)對(duì)系統(tǒng)分模塊地進(jìn)行設(shè)計(jì)，最后實(shí)現(xiàn)了系統(tǒng)的各項(xiàng)功能。

目前，本系統(tǒng)已經(jīng)正式投入使用，但是依然還存在不足之處，需在后期的使用和維護(hù)過(guò)程中，結(jié)合具體的使用需求，豐富拓展系統(tǒng)功能，邊使用，邊發(fā)現(xiàn)問(wèn)題，邊解決問(wèn)題，進(jìn)一步完善系統(tǒng)功能，使系統(tǒng)真正為學(xué)校畢業(yè)論文管理工作提供優(yōu)質(zhì)的服務(wù)。

［1］令狐榮鋒．構(gòu)建貴州師范學(xué)院實(shí)踐教學(xué)體系［J］．貴州師范學(xué)院學(xué)報(bào)，2014，30(07):76-79．

［2］互聯(lián)網(wǎng)文檔資源．畢業(yè)論文管理系統(tǒng)論文［EB/OL］．http://wenku．baidu．c，2012-12-23．

［3］王關(guān)海．高校本科畢業(yè)論文選題系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)［D］．廈門(mén):廈門(mén)大學(xué)，2013．

［4］李萍．基于Web的高校畢業(yè)論文管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)［D］．長(zhǎng)春:吉林大學(xué)，2009．

［5］李延鋒．最新高校教師教學(xué)管理創(chuàng)新與師資隊(duì)伍標(biāo)準(zhǔn)化建設(shè)實(shí)務(wù)全書(shū)［M］．北京:中國(guó)高等教育出版社，2008:05．

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

［7］孫文．基于Web的高校畢業(yè)論文管理系統(tǒng)［D］．上海:中國(guó)海洋大學(xué)，2011．

［責(zé)任編輯:陳業(yè)強(qiáng)］

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

龍 誠(chéng)(1988-)，男，貴州錦屏人，碩士，貴州師范學(xué)院教務(wù)處實(shí)踐教學(xué)管理科副科長(zhǎng)，研究方向:計(jì)算機(jī)科學(xué)，實(shí)踐教學(xué)。