學(xué)生作業(yè)管理系統(tǒng)方案

...wd......wd......wd...※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※2014級(jí)高級(jí)語(yǔ)言程序設(shè)計(jì)石家莊鐵道大學(xué)四方學(xué)院集中實(shí)踐報(bào)告書課題名稱學(xué)生作業(yè)管理系統(tǒng)姓名學(xué)號(hào)系、部土木工程系專業(yè)班級(jí)指導(dǎo)教師劉仁芬2015年6月25日一、設(shè)計(jì)任務(wù)及要求：設(shè)計(jì)任務(wù)：學(xué)生作業(yè)管理系統(tǒng)要求：1．內(nèi)容要求1.用戶名認(rèn)證：區(qū)別教師與同學(xué)的登錄。2.新用戶注冊(cè)：要提交作業(yè)的同學(xué)設(shè)定自己的用戶名和密碼，并填入自己的真實(shí)姓名和學(xué)號(hào)。3.學(xué)生作業(yè)提交和查詢功能：學(xué)生可以在提交作業(yè)并能查詢以往作業(yè)的成績(jī)。4.教師作業(yè)查詢和下載功能：可將已完成作業(yè)下載批改。5.教師作業(yè)布置和成績(jī)上傳功能：教師可布置的作業(yè)，提交已經(jīng)批改正的作業(yè)供學(xué)生查詢。二、指導(dǎo)教師評(píng)語(yǔ)：三、成績(jī)指導(dǎo)教師簽名：年月日學(xué)生作業(yè)管理系統(tǒng)的開發(fā)1選題的意義作業(yè)管理系統(tǒng)將提供更合理快捷的查詢信息，即可以單條件查詢，也可以多條件組合查詢。同時(shí)提供對(duì)用戶發(fā)布最新資訊信息的功能。作業(yè)管理系統(tǒng)是一個(gè)更為實(shí)用的平臺(tái)，學(xué)?？梢栽诖税l(fā)布所屬的基本信息，詳細(xì)信息，并可對(duì)學(xué)生和教師做出記錄。既是信息發(fā)布的平臺(tái)，也是信息管理的工具。2系統(tǒng)功能需求分析2.1系統(tǒng)概述設(shè)計(jì)一個(gè)網(wǎng)絡(luò)版的作業(yè)管理系統(tǒng)，適用于某些學(xué)校。系統(tǒng)包括詳細(xì)信息介紹，除了基本的信息，也包括各種用戶的信息。除此以外，該系統(tǒng)最重要的可以方便管理員工對(duì)用戶信息的記錄，同時(shí)系統(tǒng)將整個(gè)信息整理，按不同的分類進(jìn)展信息統(tǒng)計(jì)，工程主管就可以查看這些信息。2.2系統(tǒng)的組成及各模塊的功能1.基本信息：管理員、客戶和信息錄入。學(xué)校管理的一些初始數(shù)據(jù)，也必須的。管理的其他模塊全部是調(diào)用這些數(shù)據(jù)得到。2.用戶管理：提供用戶姓名、地址、、帳號(hào)等管理資料庫(kù)功能。3.系統(tǒng)維護(hù)：數(shù)據(jù)整理、密碼管理、數(shù)據(jù)去除等。4.對(duì)整個(gè)系統(tǒng)要有管理員進(jìn)展管理，對(duì)某些需要及時(shí)更新的信息進(jìn)展修改，添加或者刪除。5.整個(gè)系統(tǒng)要求操作簡(jiǎn)捷，方便用戶使用。2.3系統(tǒng)的運(yùn)行環(huán)境1.系統(tǒng)使用環(huán)境操作系統(tǒng):WindowsXP/7系統(tǒng)支持：Visualbasic6.0及以上版本支持庫(kù)數(shù)據(jù)庫(kù)：Access。硬件環(huán)境：處理器;IntelPentium166MX或者更高。硬盤：剩余使用空間1GB以上。內(nèi)存：32MB以上。顯卡：SVGA顯示適配器。2.系統(tǒng)開發(fā)環(huán)境操作系統(tǒng)：WindowsXP/7。系統(tǒng)支持：VisualBasic6.03系統(tǒng)設(shè)計(jì)3.1總體構(gòu)造設(shè)計(jì)登錄主界面教師登錄學(xué)生登錄查尋作業(yè)登錄主界面教師登錄學(xué)生登錄查尋作業(yè)管理教師表管理學(xué)生信息表查詢課表上傳作業(yè)查詢平時(shí)成績(jī)查詢教師信息批改和修改作業(yè)錄入學(xué)生成績(jī)表圖1總體模塊圖3.2數(shù)據(jù)庫(kù)實(shí)現(xiàn)表1登錄界面數(shù)據(jù)表字段名稱數(shù)據(jù)類型字段大小姓名文本50密碼文本50表2課表字段名稱數(shù)據(jù)類型字段大小姓名文本255星期一文本255星期二文本255星期三文本255星期四文本255星期五文本255任課教師文本255班級(jí)文本255表3教師表字段名稱數(shù)據(jù)類型字段大小姓名文本255所教課程文本255年齡文本文本長(zhǎng)整型教齡文本文本長(zhǎng)整型學(xué)歷文本文本255出生年月日期/時(shí)間255性別文本255表4學(xué)生信息登記表字段名稱數(shù)據(jù)類型字段大小姓名文本255學(xué)校文本255家庭住址文本255出生年月文本255學(xué)號(hào)文本2554系統(tǒng)實(shí)現(xiàn)4.1登錄模塊的設(shè)計(jì)與實(shí)現(xiàn)圖2登錄界面程序代碼：PrivateSubCommand1_Click()學(xué)生登錄界面.Show主界面.HideEndSubPrivateSubCommand2_Click()教師登錄界面.ShowForm1.HideEndSub4.2其他模塊的設(shè)計(jì)與實(shí)現(xiàn)圖3教師登錄主界面程序代碼：PrivateSubAdodc1_Click()新增用戶.ShowEndSubPrivateSubCombo1_Change()combo1bo1""EndSubPrivateSubCommand1_Click()Adodc1mandType=adCmdTextAdodc1.RecordSource="select*from用戶名where姓名='"&combo1.Text&"'and密碼="&Text2.TextAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox("密碼錯(cuò)誤")Else教師管理界面.Show教師登錄界面.HideEndIfEndSubPrivateSubCommand2_Click()EndFrom1.ShowEndSubPrivateSubCommand3_Click()教師注冊(cè).ShowEndSubPrivateSubForm_Load()Adodc1.RefreshDoWhileAdodc1.Recordset.EOF=Falsecombo1.AddItemAdodc1.Recordset.Fields("姓名")Adodc1.Recordset.MoveNextLoopEndSub圖4教師管理界面程序代碼：PrivateSube_Click(IndexAsInteger)上傳.Show教師管理界面.HideEndSubPrivateSubForm_Load()EndSubPrivateSubq_Click(IndexAsInteger)管理學(xué)生信息表.Show教師管理界面.HideEndSubPrivateSubt2_Click(IndexAsInteger)教師配課.ShowEndSubPrivateSubw_Click(IndexAsInteger)管理教師表.Show教師管理界面.HideEndSubPrivateSuby_Click(IndexAsInteger)錄入平時(shí)成績(jī)表.Show教師管理界面.HideEndSub圖5教師注冊(cè)程序代碼：PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox"請(qǐng)?zhí)顚懲暾畔ⅲ?,vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseIfText1.Text<>""AndText2.Text=""ThenMsgBox"請(qǐng)?zhí)顚懲暾畔ⅲ?,vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseIfText1.Text=""AndText2.Text<>""ThenMsgBox"請(qǐng)?zhí)顚懲暾畔ⅲ?,vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0)=Trim(Text1.Text)Adodc1.Recordset.Fields(1)=Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox"增加成功！",vbExclamation+vbOKOnlyAdodc1.Refresh教師登錄界面.Show教師注冊(cè).HideEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub圖6錄入平時(shí)成績(jī)程序代碼：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()Adodc1.Recordset.UpdateEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()Adodc1.Recordset.DeleteEndSub圖7管理學(xué)生信息表程序代碼：PrivateSubCommand1_Click()Adodc1.Recordset.UpdateMsgBox"已保存成功"EndSubPrivateSubCommand2_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand3_Click()Adodc1.Recordset.DeleteMsgBox"已刪除"EndSubPrivateSubCommand4_Click()UnloadMe教師管理界面.ShowEndSub圖8管理教師表程序代碼：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()Adodc1.Recordset.UpdateMsgBox"已保存成功"EndSubPrivateSubCommand3_Click()Adodc1.Recordset.DeleteEndSubPrivateSubCommand4_Click()UnloadMe教師管理界面.ShowEndSub圖9批改作業(yè)程序代碼：PrivateSubCommand1_Click()CommonDialog1.ShowOpenDimzsAsStringwh=FreeFileOpenCommonDialog1.FileNameForInputAs#whI=0DoWhileNotEOF(wh)zs=zs+Input(1,#wh)I=I+1LoopText1=zsClose#whEndSubPrivateSubCommand2_Click()wh=FreeFileOpenCommonDialog1.FileNameForAppendAs#whDimzsAsString,xmAsStringwh1=FreeFileOpenCommonDialog2.FileNameForInputAs#wh1DoWhileNotEOF(wh1)Input#wh1,xmWrite#wh,xmLoopClose#wh1Close#whMsgBox"已保存成功"EndSubPrivateSubCommand3_Click()CommonDialog2.ShowOpenDimxmAsStringwh1=FreeFileOpenCommonDialog2.FileNameForInputAs#wh1I=0DoWhileNotEOF(wh1)xm=xm+Input(1,#wh1)I=I+1LoopText2=xmClose#wh1EndSub圖10教師配課程序代碼：PrivateSubCommand1_Click()配課.ShowEndSubPrivateSubCommand2_Click()Adodc1.Recordset.DeleteEndSub圖11配課程序代碼:PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""AndText3.Text=""AndText4.Text=""AndText5.Text=""AndText6.Text=""AndText7.Text=""AndText8.Text=""ThenMsgBox"請(qǐng)?zhí)顚懲暾畔ⅲ?,vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0)=Trim(Text3.Text)Adodc1.Recordset.Fields(1)=Trim(Text4.Text)Adodc1.Recordset.Fields(2)=Trim(Text5.Text)Adodc1.Recordset.Fields(3)=Trim(Text6.Text)Adodc1.Recordset.Fields(4)=Trim(Text7.Text)Adodc1.Recordset.Fields(5)=Trim(Text8.Text)Adodc1.Recordset.Fields(6)=Trim(Text1.Text)Adodc1.Recordset.Fields(7)=Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox"增加成功！",vbExclamation+vbOKOnlyAdodc1.RefreshCallCommand2_ClickEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""EndSubPrivateSubCommand3_Click()課表.ShowForm1.HideEndSubPrivateSubForm_Load()Ado