全國(guó)統(tǒng)考管理系統(tǒng)

1、武漢科技大學(xué)城市學(xué)院課程設(shè)計(jì)報(bào)課程名稱(chēng)數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì)題 目學(xué)生考試管理信息系統(tǒng)院 系城院信息科學(xué)與工程系專(zhuān) 業(yè)信息管理與信息系統(tǒng)班 級(jí)07級(jí)信管1班姓 名張峰指導(dǎo)教師余紅珍2009年 7月 1 日設(shè)計(jì)題目:全國(guó)統(tǒng)考管理設(shè)計(jì)主要內(nèi)容：一、開(kāi)發(fā)平臺(tái)：VB+ SQL SERVER 2000二、功能要求：1、設(shè)計(jì)內(nèi)容設(shè)計(jì)一個(gè)全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。該系統(tǒng)的用戶(hù)由一般用戶(hù)和管理員組成，然后 不同的用戶(hù)擁有不同的權(quán)限，各自完成各自的管理功能。首先是歡迎界面，然后選擇登錄， 登錄的時(shí)候首先要判斷用戶(hù)的身份，合法的用戶(hù)然后進(jìn)入到系統(tǒng)主界面中，不同的用戶(hù)看到 不同的系統(tǒng)功能。用sql server200

2、0創(chuàng)建后臺(tái)數(shù)據(jù)庫(kù)，然后利用程序設(shè)計(jì)語(yǔ)言（VB）編寫(xiě)程 序?qū)崿F(xiàn)對(duì)數(shù)據(jù)庫(kù)的操作，按照要求完成所有的功能和模塊。2、全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)主要功能該系統(tǒng)除完成全國(guó)統(tǒng)考管理的各項(xiàng)功能外，還應(yīng)為用戶(hù)提供統(tǒng)考信息查詢(xún)功能，為不同 用戶(hù)設(shè)定不同的權(quán)限，滿(mǎn)足不同的要求。（1）登錄界面。（2）學(xué)生管理：考場(chǎng)查詢(xún)、成績(jī)查詢(xún)。（3）管理員管理（按英語(yǔ)和計(jì)算機(jī)統(tǒng)考管理）：報(bào)名（增、刪、改、查）、安排考場(chǎng)（增、 刪、改、查）、成績(jī)登錄（增、刪、改、查）、本用戶(hù)密碼修改。3、全國(guó)統(tǒng)考統(tǒng)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)表單（可以按照需求增加）（1）學(xué)生檔案：學(xué)生代碼、姓名、性別、出生日期、籍貫、政治面貌、專(zhuān)業(yè)班級(jí)（2）統(tǒng)考成績(jī)：學(xué)生代碼

3、（外碼）、姓名、考號(hào)、考試日期、考試科目、考試成績(jī)（3）班級(jí)：班號(hào)、所屬系、專(zhuān)業(yè)、人數(shù)、班主任（4）考場(chǎng)：編號(hào)、地址、起始考號(hào)、終止考號(hào)、考試科目（5）準(zhǔn)考證：考號(hào)、學(xué)生代碼、姓名、考場(chǎng)（6）管理員表：用戶(hù)名、密碼（7）報(bào)名表：姓名，學(xué)號(hào)，籍貫，政治面貌，備注三、課程設(shè)計(jì)報(bào)告主要內(nèi)容：1全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)需求分析（給出系統(tǒng)的功能模塊圖，對(duì)各個(gè)功能作出詳 細(xì)介紹）2全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)界面設(shè)計(jì)（給出界面截圖及其主要控件的屬性設(shè)置表格）3全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)（給出數(shù)據(jù)庫(kù)各個(gè)表單中數(shù)據(jù)的字段名，數(shù) 據(jù)類(lèi)型及其相應(yīng)的說(shuō)明）4 全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)程序設(shè)計(jì)（按照功能模

4、塊給出詳細(xì)的程序代碼）1.全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)需求分析考場(chǎng)查詢(xún)成績(jī)查詢(xún) 英語(yǔ)統(tǒng)考管理計(jì)算機(jī)統(tǒng)考管理密碼修改圖1.1學(xué)生考試管理信息系統(tǒng)1.1歡迎界面系統(tǒng)啟動(dòng)之后便可進(jìn)入歡迎界面，單擊“登陸系統(tǒng)”按鈕便可進(jìn)入選擇登陸 界面。1.2選擇登錄可選擇管理員登陸和學(xué)生登錄登陸。1.2.1選中管理員登錄后便進(jìn)入管理員登陸界面管理員通過(guò)輸入用戶(hù)名和密碼進(jìn)入管理員管理界面進(jìn)行管理1.2.2選中學(xué)生登陸后便進(jìn)入學(xué)生登陸界面學(xué)生通過(guò)輸入姓名和學(xué)號(hào)進(jìn)入學(xué)生管理界面進(jìn)行管理1.3管理員管理界面可以進(jìn)行英語(yǔ)統(tǒng)考管理、計(jì)算機(jī)統(tǒng)考管理、修改密碼1.3.1試英語(yǔ)統(tǒng)考管理利用VB界面，管理員可以查詢(xún)，添加，刪除，修改考試

5、信息，修改了數(shù)據(jù) 庫(kù)中的信息。1.3.2計(jì)算機(jī)統(tǒng)考管理利用VB界面，管理員可以查詢(xún)，添加，刪除，修改考試信息，修改了數(shù)據(jù) 庫(kù)中的信息。1.3.3修改密碼管理員可以修改自己的登錄密碼。1.4學(xué)生界面學(xué)生可以進(jìn)行考場(chǎng)查詢(xún)，成績(jī)查詢(xún)。1.4.1考場(chǎng)查詢(xún)學(xué)生通過(guò)登錄查詢(xún)考場(chǎng)信息。1.4.2成績(jī)查詢(xún)學(xué)生通過(guò)登錄查詢(xún)成績(jī)信息。2.全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)界面設(shè)計(jì)圖2.1歡迎界面圖2.2登陸界面圖2.3學(xué)生登陸界面此學(xué)生管理|n| x|考場(chǎng)查詢(xún)學(xué)生管理成績(jī)查詢(xún)退出-Ini x|圖2.4學(xué)生管理界面編號(hào)地讓起蛇考號(hào)綣止考號(hào)耋試科目中南QQ010020囊語(yǔ)02中北0010020英語(yǔ)03中南0010020英語(yǔ)0

6、4東北0010020英語(yǔ)職考場(chǎng)查詢(xún)請(qǐng)輸入編號(hào)查詢(xún)刷新退出圖2.5學(xué)生考場(chǎng)查詢(xún)界面表2.1考場(chǎng)查詢(xún)界面屬性表對(duì)象屬性設(shè)置值dadagriddatasourceAdodc1tapstoptrueVisualtrueAdodclcaptionAdodc1commandtype2-adcmdtablerecordsource考場(chǎng)表單visiblefalse圖2.6管理員登陸界面-Ini x|管理員管理內(nèi)容圖2.6管理員管理界面表2.2管理員管理界面屬性表對(duì)象屬性設(shè)定值Command!Caption英語(yǔ)統(tǒng)考管理Command2Caption計(jì)算機(jī)統(tǒng)考管理CommandsCaption修改密碼圖2.8管理

7、員密碼修改界面表2.3考場(chǎng)查詢(xún)界面屬性表對(duì)象屬性設(shè)定值TextlcausesvalidatiTrueText2causesvalidatiTrueText3causesvalidatitrue&報(bào)名管理f 查諼 TL_添加、冊(cè)除，修改姓名學(xué)號(hào)籍貫政治面貌MH2007002內(nèi)登MM200TOO1黃岡黨員善良MX2007008西北團(tuán)員DOTAMF2007015中南團(tuán)員猥瑣ML21：|：171：109未知屏蔽MO2007006城里黨員質(zhì)樸MW200TO10山里黨員可愛(ài)請(qǐng)輸入要查詢(xún)的姓名查詢(xún)刷新退出圖2.9報(bào)名管理界面表2.4報(bào)名管理界面屬性表對(duì)象屬性設(shè)置值dadagriddatasourceAdod

8、c1AdodclcaptionAdodc1commandtype2-adcmdtablerecordsource報(bào)名表單visiblefalseSSTablcaption添加caption刪除caption修改Caption查詢(xún)3.全國(guó)統(tǒng)考管理數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)學(xué)生考試管理信息系統(tǒng)總共涉及7張表，分別是準(zhǔn)考證表單，學(xué)生檔案表單，報(bào)名表單，班級(jí)表單，管理員表單，統(tǒng)考成績(jī)表單，考場(chǎng)表單。表3.1準(zhǔn)考證表單字段名稱(chēng)標(biāo)始名稱(chēng)數(shù)據(jù)類(lèi)型是否允許為空字段說(shuō)明testno考試號(hào)char否主碼sno學(xué)號(hào)char否sname姓名Char否testplace考場(chǎng)號(hào)char否外碼表3.2學(xué)生檔案表單字段名稱(chēng)標(biāo)始

9、名稱(chēng)數(shù)據(jù)類(lèi)型是否允許為空字段說(shuō)明sno學(xué)生代碼char否主碼sname姓名char否ssex性別Charsbirthday生日Charsadress籍貫char外碼sbackgroud政治背景Char表3.3報(bào)名表單字段名稱(chēng)標(biāo)始名稱(chēng)數(shù)據(jù)類(lèi)型是否允許為空字段說(shuō)明姓名姓名char否學(xué)號(hào)學(xué)號(hào)char否主碼籍貫籍貫Char否政治面貌政治面貌Char否備注備注char否外碼表3.4班級(jí)表單字段名稱(chēng)標(biāo)始名稱(chēng)數(shù)據(jù)類(lèi)型是否允許為空字段說(shuō)明classno班號(hào)Char否主碼Sdept所屬系Char否Subject專(zhuān)業(yè)Char否Pecount人數(shù)Char否director班主任Char否表3.5管理員表單字段名稱(chēng)標(biāo)

10、始名稱(chēng)數(shù)據(jù)類(lèi)型是否允許為空字段說(shuō)明Username用戶(hù)名Char否主碼Password密碼Char否表3.6統(tǒng)考成績(jī)表單字段名稱(chēng)標(biāo)始名稱(chēng)數(shù)據(jù)類(lèi)型是否允許為空字段說(shuō)明sno學(xué)生代碼Char否主碼sname姓名Char是stestno考號(hào)Char是Stesttime考試日期Char是stestcourse考試科目Char是stestgrade考試成績(jī)Char是表3.7考場(chǎng)表單字段名稱(chēng)標(biāo)始名稱(chēng)數(shù)據(jù)類(lèi)型是否允許為空字段說(shuō)明Number學(xué)號(hào)char否主碼Adress籍貫char否Begintestno其實(shí)考號(hào)char是Endtestno終止考號(hào)testsubject考試科目4.1歡迎界面歡迎界面是整個(gè)系

11、統(tǒng)的首頁(yè)，用戶(hù)可通過(guò)它進(jìn)入到登陸系統(tǒng)。4.2登陸界面進(jìn)入此界面后，使用者可根據(jù)自己的身份選擇登陸方式。學(xué)生選擇學(xué)生登 陸，管理員選擇管理員登陸。4.3學(xué)生登陸界面程序設(shè)計(jì)學(xué)生用戶(hù)在此界面輸入自己的學(xué)號(hào)和姓名通過(guò)驗(yàn)證后方可進(jìn)入下一個(gè)界面。部分重要代碼如下Private Sub Command1_Click()If Text1.Text = ThenMsgBox ”請(qǐng)輸入學(xué)號(hào)！”Text1.SetFocusExit SubEnd IfIf Text2.Text = ThenMsgBox ”請(qǐng)輸入姓名！”Text2.SetFocusExit SubEnd If將學(xué)號(hào)和姓名賦給全局變量Sno = Te

12、xt1.TextSname = Text2.TextAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 學(xué)生檔案表 where sno= & Trim(Text1.Text) & and sname= & Trim(Text2.Text) & Adodc1.Refresh判斷管理員所填信息是否正確If Adodc1.Recordset.EOF = True ThenMsgBox ”學(xué)號(hào)與姓名不相符，請(qǐng)重新輸入！”Text1.Text =Text2.Text =Text1.SetFocusElseMsgBox ”登陸

13、成功！”Form13.HideForm6.ShowText1.Text =Text2.Text =End IfEnd Sub4.4管理員登陸界面管理員需要輸入自己的用戶(hù)名和密碼，經(jīng)過(guò)系統(tǒng)驗(yàn)證無(wú)誤后就可以進(jìn)入下一 個(gè)界面了。它的代碼與管理員登陸代碼類(lèi)似，輸入的用戶(hù)名和密碼必須是管理員 表中相應(yīng)的信息，否則就無(wú)法成功登陸。4.5管理員登陸界面管理員登陸進(jìn)去后，可以進(jìn)行英語(yǔ)統(tǒng)考管理、計(jì)算機(jī)統(tǒng)考管理、修改密碼。4.6管理員密碼修改界面程序設(shè)計(jì)管理員如需修改自己的密碼可在此界面進(jìn)行，管理員通過(guò)登陸界面登陸到 此，然后在此界面中輸入原始密碼和新密碼并驗(yàn)證新密碼，確認(rèn)后如果無(wú)誤就會(huì) 提示用戶(hù)修改成功，并且其

14、密碼在管理員表表單中也會(huì)有相應(yīng)的修改。(代碼如 下)Private Sub Command1_Click()If Trim(Text2.Text) = ThenMsgBox 請(qǐng)?zhí)钆f密碼！Text2.Text =Text2.SetFocusExit SubEnd If判斷新密碼是否為空If Trim(Text3.Text) = ThenMsgBox 請(qǐng)?zhí)顚?xiě)新密碼！Text3.SetFocusExit SubEnd If判斷確認(rèn)密碼是否為空If Trim(Text4.Text) = ThenMsgBox 請(qǐng)?jiān)俅未_認(rèn)密碼！Text4.Text =Text4.SetFocusExit SubEnd I

15、f判斷密碼長(zhǎng)度是否符合要求If Len(Text3.Text) 10 ThenMsgBox 新密碼不符合要求，為2-10個(gè)字符！Text3.Text =Text3.SetFocusExit SubEnd If判斷兩次輸入是否相同！If Text3.Text Text4.Text ThenMsgBox 兩次密碼輸入不一致，請(qǐng)重新輸入！Text3.SetFocusText4.SetFocusExit SubEnd If判斷原密碼是否正確Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 管理員表 where Usern

16、ame = & Trim(Text1.Text) & Adodc1.RefreshIf Trim(Text2.Text) Trim(Adodc1.Recordset.Fields(Password).Value) ThenMsgBox ”舊密碼錯(cuò)誤，請(qǐng)重新輸入！Text2.Text =Text2.SetFocusExit SubEnd If修改密碼Adodc1.Recordset.UpdateAdodc1.Recordset.Fields(Username) = Trim(Text1.Text)Adodc1.Recordset.Fields(Password) = Trim(Text4.Tex

17、t)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox ”密碼修改成功！文本框清空Text4.Text =Text2.Text =Text3.Text =Unload MeEnd Sub4.7英語(yǔ)統(tǒng)考查詢(xún)界面管理員可通過(guò)此界面所提供的內(nèi)容查詢(xún)管理所有統(tǒng)考信息。所有的信息通過(guò) 控件DataGrid與Adodc控件和相應(yīng)的數(shù)據(jù)庫(kù)連接起來(lái)，設(shè)置相應(yīng)的屬性后所有 信息便可顯示在DataGrid上供用戶(hù)查看。(代碼如下)Private Sub Command1_Click()If Text16.Text = ThenMsgBox 請(qǐng)輸入姓名Text16.SetFocu

18、sExit SubEnd IfAdodcl.CommandType = adCmdTextAdodcl.RecordSource = select * from 報(bào)名表 where 姓名 = & Trim(Text16.Text) & Adodc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox 無(wú)此姓名，請(qǐng)重新輸入！ Text16.SetFocusText16.Text = Exit SubEnd IfEnd Sub-Ini x|&報(bào)名管理圖4.1管理員查詢(xún)界面4.8英語(yǔ)統(tǒng)考添加界面管理員可通過(guò)此界面所提供的內(nèi)容查詢(xún)管理所有統(tǒng)考信息。所有的信

19、息通過(guò)控件 DataGrid與Adodc控件和相應(yīng)的數(shù)據(jù)庫(kù)連接起來(lái)，設(shè)置相應(yīng)的屬性后所有信息便可 顯示在DataGrid上供用戶(hù)查看。（代碼如下）Private Sub Command3_Click()If Text1.Text = ThenMsgBox 請(qǐng)輸入姓名Textl.SetFocusExit SubEnd IfAdodcl.CommandType = adCmdTextAdodcl.RecordSource = select * from 報(bào)名表 where 姓名=& Trim(Textl.Text) & Adodcl.RefreshIf Adodcl.Recordset.EOF =

20、 False ThenMsgBox 姓名已存在，請(qǐng)重新輸入！Textl.SetFocusTextl.Text =Exit SubEnd IfIf Text2.Text = ThenMsgBox 學(xué)號(hào)Text2.SetFocusExit SubEnd IfIf Text3.Text = ThenMsgBox 請(qǐng)輸入籍貫Text3.SetFocusExit SubEnd IfIf Text4.Text = ThenMsgBox 請(qǐng)輸入政治面貌Text4.SetFocusExit SubEnd IfIf Text5.Text = ThenMsgBox 備注Text5.SetFocusExit Sub

21、End IfDim res As Integerres = MsgBox(確實(shí)添加此記錄！，vbExclamation + vbYesNo + vbDefaultButton2)提示用 戶(hù)If res = vbYes Then 如果確實(shí)要添加Adodcl.Recordset.AddNewAdodcl.Recordset.Fields(姓名”).Value = Trim(Textl.Text)Adodcl.Recordset.Fields(學(xué)號(hào)”).Value = Trim(Text2.Text)Adodcl.Recordset.Fields(籍貫”).Value = Trim(Text3.Te

22、xt)Adodcl.Recordset.Fields(政治面貌”).Value = Trim(Text4.Text)Adodc1.Recordset.Fields( 備注).Value = Trim(Text5.Text)Adodcl.Recordset.UpdateAdodc1.RefreshMsgBox 添加成功Text1.SetFocusText2.SetFocusText3.SetFocusText4.SetFocusText4.SetFocusText5.SetFocusExit SubEnd IfEnd Sub圖4.2英語(yǔ)統(tǒng)考添加界面5.小結(jié)每次做課程設(shè)計(jì)之后總有番感慨，這次亦然。

23、以前只是對(duì)游戲中那些注冊(cè)過(guò)程和登錄過(guò)程 很感興趣，沒(méi)想到這次自己也可以嘗試一下了，想象著自己設(shè)計(jì)出的美麗界面，激動(dòng)是自然 的。但是沒(méi)有一件事是真正簡(jiǎn)單的，從三個(gè)星期之前踏入機(jī)房那刻開(kāi)始，大大小小的問(wèn)題就 沒(méi)斷過(guò)，因此解決問(wèn)題成了整個(gè)課程設(shè)計(jì)的主要內(nèi)容。問(wèn)題來(lái)了就要迎上去，怎么解決問(wèn)題 呢，剛開(kāi)始大家都是不會(huì)做，互相問(wèn)來(lái)問(wèn)去也沒(méi)啥進(jìn)展，討教老師吧又不好意思，所以很是 急啊。做的這個(gè)系統(tǒng)操作界面是VB，以前也學(xué)過(guò)VB，缺乏知識(shí)的整體應(yīng)用和實(shí)際工程項(xiàng)目 的開(kāi)發(fā)訓(xùn)練，以往的教學(xué)設(shè)計(jì)按部就班地學(xué)習(xí)VB程序設(shè)計(jì)的知識(shí)點(diǎn)，沒(méi)有依托完整的實(shí)際 項(xiàng)目，令學(xué)生對(duì)知識(shí)點(diǎn)的學(xué)習(xí)感到支離破碎、不成整體，容易遺忘，而且沒(méi)

24、有工程項(xiàng)目開(kāi)發(fā) 實(shí)際技能的歷練和體驗(yàn)，無(wú)法直接感受所學(xué)知識(shí)在實(shí)際工作中的地位和作用，影響學(xué)習(xí)效果， 因此也沒(méi)有什么印象了。這從何下手啊，真是讓人急啊，我想既然不會(huì)那就學(xué)習(xí)學(xué)長(zhǎng)們的吧， 于是就開(kāi)始學(xué)習(xí)一位學(xué)姐的課程設(shè)計(jì)，看看人家是怎么做的。VB程序設(shè)計(jì)的知識(shí)點(diǎn)主要應(yīng) 該包括：對(duì)象和窗體概念、代碼基礎(chǔ)、程序基本結(jié)構(gòu)、數(shù)組、過(guò)程、控件、菜單設(shè)計(jì)、對(duì)話(huà) 框設(shè)計(jì)、文件讀寫(xiě)、數(shù)據(jù)庫(kù)等。我在實(shí)際設(shè)計(jì)過(guò)程中慢慢回憶起老師以前所教給我們的內(nèi)容： 比如通過(guò)具體的例子，講解如何對(duì)對(duì)象觸發(fā)事件，如何利用語(yǔ)句改變對(duì)象的屬性，VB事件 驅(qū)動(dòng)的程序設(shè)計(jì)，逐步建立起VB編程基本方法和步驟。這樣我就能慢慢開(kāi)始動(dòng)手了，然后 思考著整個(gè)設(shè)計(jì)的框架，該如何讓整