1、教師評語管理系統(tǒng)的設計畢業(yè)設計教師評語管理系統(tǒng)班級學號姓名目錄摘 要 3Abstract4第一章 引言 411 課題背景 412 系統(tǒng)簡介 5第二章 系統(tǒng)的分析 621 系統(tǒng)開發(fā)的目標和思想 62 2 系統(tǒng)的可行性分析 6 第三章 系統(tǒng)的設計 7 31 系統(tǒng)的功能結構設計 7 32 系統(tǒng)的數(shù)據庫設計 7 33 界面設計與代碼設計 10結束語 32致謝 33參考文獻 34摘要教師評語管理系統(tǒng)用計算機管理教師給學生撰寫評語信息的一種計算機應 用技術的創(chuàng)新在計算機還未普及之前中介管理都是由教師人員手工抄寫的方式 來操作的現(xiàn)在一般的教師評語管理都是采用計算機作為工具的實用的計算機評 語生成管理程序來幫

2、助學生管理員進行更有效的學生評語寫作評語管理系統(tǒng)是 典型的信息管理系統(tǒng) MIS 其開發(fā)主要包括后臺數(shù)據庫的建立和維護以及前端應 用程序的開發(fā)兩個方面對于前者要求建立起數(shù)據一致性和完整性強數(shù)據安全性 好的庫而對于后者則要求應用程序功能完備易使用等特點經過分析我們使用MICROSOF公司的VISUAL BASIC開發(fā)工具利用其提供的各種面向對象的開發(fā)工具尤其是數(shù)據窗口這一能方便而簡潔操縱數(shù)據庫的智能 化對象首先在短時間內建立系統(tǒng)應用原型然后對初始原型系統(tǒng)進行需求迭代不 斷修正和改進直到形成用戶滿意的可行系統(tǒng)關鍵字評語管理 MISvisual basic 數(shù)據庫AbstractTeachers co

3、mment management system for teachers to use computer management information students wrote comments a computer application technology innovation Management has not yet popular in the computer before the intermediary personnel manual transcription by teachers are the way to operate Nowthe general com

4、mentsof teachers are using computers as a management tool for computer comments generated management procedures to help students managers more effective students writing comments Comment management system is a typical management information system MIS including its main development background to the

5、 establishment and maintenance of the database and front-end application development 2 The request for the establishment of strong data consistency and integrity good for the security of the data For the latter request applications functions such as easy to use featuresAfter analysis we use Microsof

6、t visual basic development tool companies the use of its various object-oriented development tools especially data that can be easily accessible and concise window manipulation database intelligent objects the first prototype application system in a short time and then computation of the initial pro

7、totype system needs to constantly revise and improve until the formation of a viable system of user satisfactionKeyword comments management MISvisual basic database引言課題背景 教師評語管理系統(tǒng)用計算機管理教師給學生撰寫評語信息的一種計算機應 用技術的創(chuàng)新在計算機還未普及之前中介管理都是由教師人員手工抄寫的方式 來操作的現(xiàn)在一般的教師評語管理都是采用計算機作為工具的實用的計算機評 語生成管理程序來幫助學生管理員進行更有效的學生評語寫

8、作評語管理系統(tǒng)是 典型的信息管理系統(tǒng) MIS 其開發(fā)主要包括后臺數(shù)據庫的建立和維護以及前端應 用程序的開發(fā)兩個方面對于前者要求建立起數(shù)據一致性和完整性強數(shù)據安全性好的庫而對于后者則要求應用程序功能完備易使用等特點系統(tǒng)簡介本系統(tǒng)主要由以下功能模塊構成評語項目管理 增加評語項目刪除選定項目增加項目分類刪除項目分類評語維護學生管理 查找學生添加學生刪除學生添加新評語系統(tǒng)管理 修改密碼添加用戶退出系統(tǒng)系統(tǒng)的分析系統(tǒng)開發(fā)的目標和思想本系統(tǒng)主要服務于教師對學生寫評語的工作利用本評語生成系統(tǒng)教師可以 方便的快捷的給班級的學生寫評語主要操作是定位學生對數(shù)據庫添加評語信息 最后可以完成對學生的查詢以及評語的修改

9、系統(tǒng)的可行性分析技術上本系統(tǒng)采用 visual basic 60 與微軟的 access 作為數(shù)據庫技術上開 發(fā)難度一般經濟上本系統(tǒng)服務于學校教師提高了教育工作者辦事效率節(jié)省了開支所以具有經濟上的可行性社會上本系統(tǒng)同時也方便了廣大老師寫評語尋求者以及家長所以具有社會可行性系統(tǒng)的設計系統(tǒng)的功能結構設計32 系統(tǒng)的數(shù)據庫設計1 工作評語2 集體活動評語3 紀律評語4 建議期望評語5 課堂評語6 特長愛好評語7 體育鍛煉評語8 衛(wèi)生評語9 系統(tǒng)管理10 學生操行11 學生管理12 學生成績評語13 印象評語14 作業(yè)評語 界面設計與代碼設計 登陸界面設計 登陸界面代碼設計Private Sub Co

10、mmand1_ClickDim sql As StringDim rs_login As New ADODBRecordsetIf Trim txtuserTextIlliThen判斷輸入的用戶名是否為空MsgBox " 沒有這個用戶 " vbOKOnly vbExclamation "" txtuserSetFocusElsesql "select from系統(tǒng)管理 wheretxtuserTextrs_loginOpen sql conn adOpenKeyset adLockPessimisticIf rs_loginEOF True T

11、henMsgBox " 沒有這個用戶 " vbOKOnly vbExclamation ""txtuserSetFocusElseIf Trim rs_loginFields 1 Trim txtpwdText ThenuserID txtuserTextrs_loginCloseUnload MemainformShowElseMsgBox "密碼不正確 " vbOKOnly vbExclamation ""txtpwdSetFocusEnd IfEnd IfEnd If cnt cnt 1If cnt 3 Th

12、enUnload MeEnd IfExit SubEnd SubPrivate Sub Command2_ClickUnload MeEnd SubPrivate Sub Form_LoadDim connectionstring As String connectionstring "provider Microcomcom" _"data source pingyumdb"connOpen connectionstringcnt 0End Sub 添加學生界面設計 添加學生代碼設計Private Sub Command1_ClickDim sql A

13、s StringIf Trim Text1Text "" ThenMsgBox " 學生姓名不能為空 " vbOKOnly vbExclamation "" Text1SetFocusExit SubEnd IfIf Trim Text2Text "" ThenMsgBox " 學號不能為空 " vbOKOnly vbExclamation ""Text2SetFocusExit SubEnd IfIf Trim Text3Text "" ThenMsgB

14、ox " 班級不能為空 " vbOKOnly vbExclamation ""Text3SetFocusExit SubEnd Ifsql "select from 學生管理 "rsCursorLocation adUseClientrsOpen sql conn adOpenKeyset adLockPessimisticWhile rsEOF FalseIf Trim rsFields 0 Trim Text2Text ThenMsgBox " 學號不能重復 " vbOKOnly vbExclamation &

15、quot;"Text1SetFocusText1Text ""Text2Text ""Text3Text ""Exit SubElsersMoveNextEnd IfWendrsAddNewrsFields 0 Text2TextrsFields 1 Text1TextrsFields 2 Text3TextrsUpdatersCloseMsgBox " 添加用戶成功 " vbOKOnly vbExclamation ""Unload MeEnd SubPrivate Sub Comm

16、and2_ClickUnload MeEnd Sub查找學生界面設計查找學生代碼設計Private Sub Command1_ClickDim rs As New ADODBRecordsetDim find As StringDim sql As StringList1ClearList1AddItem " 學號" Space 5 " 姓名" Space 5 " 班級"If Option1Value True Thensql "select from 學生管理 where 學生姓名 " Text1Text &qu

17、ot;" rsOpen sql conn adOpenKeyset adLockPessimisticIf rsEOF False ThenrsMoveFirstWhile rsEOF FalseList1AddItem rsFields 0 Space 5 rsFields 1 Space 5 rsFields 2rsMoveNextWendText1Text ""ElseMsgBox " 沒有找到目標 " vbOKOnly vbExclamation ""End IfEnd IfIf Option2Value True

18、Thensql "select from 學生管理 where 學號 " Text2Text "" rsOpen sql conn adOpenKeyset adLockPessimisticIf rsEOF False ThenrsMoveFirstWhile rsEOF FalseList1AddItem rsFields 0 Space 5 rsFields 1 Space 5 rsFields 2rsMoveNextWendText2Text ""ElseMsgBox " 沒有找到目標 " vbOKOnly

19、 vbExclamation ""End IfEnd IfIf Option3Value True Thensql "select from 學生管理 where 班級 " Text3Text ""rsOpen sql conn adOpenKeyset adLockPessimisticIf rsEOF False ThenrsMoveFirstWhile rsEOF FalseList1AddItem rsFields 0 Space 5 rsFields 1 Space 5 rsFields 2rsMoveNextWendTex

20、t3TextIlliElseMsgBox " 沒有找到目標 " vbOKOnly vbExclamation ""End IfEnd IfrsCloseEnd SubPrivate Sub Command2_ClickUnload MeEnd SubPrivate Sub List1_ClickDim i As LongDim sql As StringDim rsclick As New ADODBRecordseti CLng List1ListIndexID Left List1Text 6If i 0 ThenrsclickCursorLocat

21、ion adUseClientsql "select from 學生操行 where 學號 " ID "" " order by 學期"rsclickOpen sql conn adOpenKeyset adLockPessimisticIf rsclickEOF False ThenrsclickMoveFirstElseMsgBox " 該生沒有評語 " vbOKOnly vbExclamation ""Exit SubEnd IfText4Text "" 文本框清空Wh

22、ile rsclickEOF FalseText4Text Text4Text vbCrLf " 第 " rsclickFields 1 " 期 " vbCrLf Space 2 _3 SpacersclickFields 2 vbCrLf Space 10 rsclickFields2 rsclickFields 4rsclickMoveNextWendrsclickCloseExit SubElseMsgBox " 請選擇學生 " vbOKOnly vbExclamation ""Exit SubEnd IfE

23、nd Sub添加學生界面設計添加學生代碼設計Private Sub Command1_ClickDim sql As StringDim rs_add As New ADODBRecordsetIf Trim Text1Text "" ThenMsgBox " 用戶名不能為空 " vbOKOnly vbExclamation ""Exit SubText1SetFocusElsesql "select from 系統(tǒng)管理 "rs_addOpen sql conn adOpenKeyset adLockPessimi

24、sticWhile rs_addEOF FalseIf Trim rs_addFields 0 Trim Text1Text ThenMsgBox " 已有這個用戶 " vbOKOnly vbExclamation ""Text1SetFocusText1Text ""Text2Text ""Text3Text ""Exit SubElsers_addMoveNextEnd IfWendIf Trim Text2Text Trim Text3Text ThenMsgBox " 兩次密碼

25、不一致 " vbOKOnly vbExclamation ""Text2SetFocusText2Text ""Text3Text ""Exit SubElsers_addAddNewrs_addFields 0 Text1Textrs_addFields 1 Text2Textrs_addUpdaters_addCloseMsgBox " 添加用戶成功 " vbOKOnly vbExclamation ""Unload MeEnd IfEnd IfEnd Sub修改密碼界面設計修改界

26、面代碼設計Private Sub Command1_ClickDim rs_chang As New ADODBRecordsetDim sql As StringIf Trim Text1Text Trim Text2Text ThenMsgBox " 密碼不一致 " vbOKOnly vbExclamation "" Text1SetFocusText1Text ""Text2Text ""Elsesql "select from 系統(tǒng)管理 where 用戶名 " userID "

27、" rs_changOpen sql conn adOpenKeyset adLockPessimistic rs_changFields 1 Text1Textrs_changUpdate rs_changCloseMsgBox " 密碼修改成功 " vbOKOnly vbExclamation ""Unload MeEnd IfEnd SubPrivate Sub Command2_ClickUnload MeEnd Sub主界面設計主界面代碼設計Option ExplicitDim rs1 As New ADODBRecordsetDim

28、 cat As New adoxCatalogDim tbl As New adoxtableDim list2state As BooleanDim ID_num As StringDim txttbl As StringDim txtfield As StringDim str1 As StringDim str2 As StringDim xq As IntegerDim selstu As BooleanDim selxm As BooleanDim xing As StringPrivate mnode As NodePrivate Sub write_ClickEnd SubPri

29、vate Sub addnewpyxm_ClickCommand9_ClickEnd SubPrivate Sub addpy_ClickCommand4_ClickEnd SubPrivate Sub addstudent_Click標記 list2 的狀態(tài)記錄學號記錄當前評語項目名稱 記錄當前項目分支名稱 記錄當前評語項目 記錄當前項目中類別 記錄學期記錄教師姓名Form1ShowEnd SubPrivate Sub addstupy_ClickCommand10_ClickEnd SubPrivate Sub adduser_ClickForm3ShowEnd SubPrivate Su

30、b addxmfl_ClickCommand12_ClickEnd SubPrivate Sub changepwd_ClickForm4ShowEnd SubPrivate Sub Combo1_ClickDim caoxing As Stringcaoxing Combo1TextText1 1 Text Text1 1 Text "操行評定 " caoxingEnd SubPrivate Sub Command1_ClickText1 1 Text Text1 1 Text vbCrLf DateEnd SubPrivate Sub Command10_ClickIf

31、 selstu True ThenCommand1EnabledTrueCommand2EnabledTrueCommand7EnabledTrueCommand8EnabledTrueCommand14EnabledTrueCombo1Enabled TrueSSTab1TabEnabled 1 TrueCommand10EnabledFalseList1Enabled FalseSSTab1Tab 1ElseMsgBox " 請選擇學生 " vbOKOnly vbExclamation ""End IfEnd SubPrivate Sub Comma

32、nd11_ClickDim answer As StringDim delxm As StringDim table As New tableDim ind As IntegerIf TreeView1SelectedItemChildren 0 Thendelxm TreeView1SelectedItemTextanswer MsgBox " 確定要刪除這一項嗎 " vbYesNo ""If answer vbYes Thencomte delxmind TreeView1SelectedItemIndexTreeVcomve indElseExit

33、 SubEnd IfElse" vbOKOnly ""MsgBox " 請選擇要刪除的項目而不是項目分類Exit SubEnd IfExit SubEnd SubPrivate Sub Command12_ClickDim flname As StringDim tbl As tableDim sql As StringDim rs As New ADODBRecordsetDim xmname As StringDim ind As IntegerDim nod As NodeSet nod TreeView1SelectedItemIf InStr

34、TreeView1SelectedItemFullPath "" 0 Thenflname InputBox " 輸入項目分類名稱 " " 增加項目分類 "If flname "" ThenMsgBox " 分類名稱不能為空 " vbOKOnly ""Exit SubElsexmname TreeView1SelectedItemTextind TreeView1SelectedItemIndexcatTables xmname ColumnsAppend flname ad

35、VarWChar 255Set mnode TreeVcom ind tvwChildmnodeText flnameEnd IfElseMsgBox " 只能 在項目中添 加分 類請 單擊要添加分 類的 項目名稱 " vbOKOnly ""End IfEnd SubPrivate Sub Command13_ClickDim flname As StringDim answer As StringDim xmname As StringDim ind As IntegerIf InStr TreeView1SelectedItemFullPath &q

36、uot;" 0 ThenvbOKOnly ""刪除項目分類 "MsgBox " 請選擇要刪除的項目分類而不是項目名稱Exit SubElsexmname TreeView1Selectedcomind TreeView1SelectedItemIndexflname TreeView1SelectedItemTextanswer MsgBox " 確定要刪除這一項嗎 " vbYesNoIf answer vbYes ThencatTables xmname ColumnsDelete flnameTreeVcomve ind

37、End IfEnd IfExit SubEnd SubPrivate Sub Command14_ClickText1 1 Text ""End SubPrivate Sub Command15_ClickList1ClearDim refreshstu As New ADODBRecordsetDim sql As StringrefreshstuCursorLocation adUseClientsql "select from 學生管理 order by 學號 " 打開學生管理數(shù)據表 在列表框中顯示所有的學生refreshstuOpen sql c

38、onn adOpenKeyset adLockPessimisticWhile refreshstuEOF FalseList1AddItem refreshstuFields 1 " refreshstuFields 0refreshstuMoveNextWendrefreshstuCloseEnd SubPrivate Sub Command2_Clickxing InputBox " 輸入老師姓或姓名 "Text1 1 Text Text1 1 Text vbCrLf Space 12 xing " 老師 "End SubPrivate

39、Sub Command3_ClickDim i As Integeri List2ListIndexIf Text1 1 Text "" ThenText1 1 Text Space 2 Text1 1 Text List2TextElseText1 1 Text Text1 1 Text List2TextEnd IfEnd SubPrivate Sub Command4_ClickDim rs As New ADODBRecordsetDim sql As StringDim str As String記錄用戶輸入Dim prompt As String函數(shù)參數(shù)prom

40、pt " 在" str1 "中的 " str2 "類別中添加新的評語str InputBox prompt "添加新評語 "List2AddItem strsql "select " str2 " from " str1rsOpen sql conn adOpenKeyset adLockPessimistic rsAddNewrsFields str2 strrsUpdatersCloseEnd SubPrivate Sub Command5_ClickDim rs As New A

41、DODBRecordsetDim sql As StringDim i As Integer記錄用戶輸入Dim str As StringDim prompt As String 函數(shù)參數(shù)prompt " 修改" str1 " 中的" str2 " 類別評語 " List2Text str InputBox prompt " 修改評語 "If str "" ThenExit SubElsei List2ListIndexList2RemoveItem List2ListIndexList2Add

42、Item strsql "select " str2 " from " str1rsOpen sql conn adOpenKeyset adLockPessimisticrsMove irsFields str2 strrsUpdatersCloseEnd IfEnd SubPrivate Sub Command6_ClickDim rs As New ADODBRecordsetDim sql As StringDim i As IntegerDim answer As String記錄用戶輸入Dim prompt As String 函數(shù)參數(shù)pro

43、mpt " 確實要刪除此條評語嗎 "answer MsgBox prompt vbYesNo " 刪除評語 "If answer vbYes Theni List2ListIndexList2RemoveItem List2ListIndexsql "select " str2 " from " str1rsOpen sql conn adOpenKeyset adLockPessimisticrsMove irsDeletersUpdatersCloseEnd IfEnd SubPrivate Sub Comma

44、nd7_ClickDim rs As New ADODBRecordsetDim sql As StringrsCursorLocation adUseClientsql "select from 學生操行 where 學號 " ID_num "" "order by學期"rsOpen sql conn adOpenKeyset adLockPessimisticDim cx As StringrsAddNewrsFields 0ID_numrsFields 1xq 1rsFields 3DatersFields 4IIxing &q

45、uot;老師"cx Replace Text1 1 Text Date ""cx Replace cx xingII老師" ""rsFields 2 cx rsUpdate rsCloseCommand1EnabledFalseCommand2EnabledFalseCommand7EnabledFalseCommand8EnabledFalseCommand14EnabledFalseCombo1Enabled False SSTab1TabEnabled 1 False Command10Enabled True List1Ena

46、bled TrueEnd SubPrivate Sub Command8_ClickList1Enabled TrueCommand10Enabled TrueCommand1Enabled FalseCommand2Enabled FalseCommand7Enabled FalseCommand8Enabled FalseCommand14Enabled FalseCombo1Enabled FalseEnd SubPrivate Sub Command9_ClickDim xmname As StringDim rs As New ADODBRecordsetDim table As N

47、ew tableDim tbl As tableDim field As StringDim str As StringOn Error GoTo adderrorxmname InputBox " 輸入新評語項目名稱 " " 添加評語項目 "If xmname "" ThenMsgBox " 項目名稱不能為空 " vbOKOnly ""Exit SubElseIf Right xmname 2II評語 " ThentableName xmnameElsetableName xmnam

48、e " 評語 "End Ifcomnd tableTreeVcomrFor Each tbl In catTablesstr tblNameIf Right str 2 " 評語" ThenSet mnode TreeVcommnodeText strDim i As IntegerDim nodeindex As Integernodeindex mnodeIndexFor i 0 To comt - 1Set mnode TreeVcom nodeindex tvwChildmnodeText com i NameNextEnd IfNextEnd

49、IfExit Sub adderrorMsgBox ErrDescription vbOKOnly vbExclamation ""End SubPrivate Sub delpy_ClickCommand6_ClickEnd SubPrivate Sub delstudent_ClickDim answer As StringDim i As IntegerDim ID As StringDim sql As StringDim rsdelstu As New ADODBRecordsetID Label4Captioni List1ListIndexIf selstu

50、True Thenanswer MsgBox " 確定要刪除此學生嗎 " vbYesNo ""If answer vbYes Thensql "select from 學生管理 where 學號 " ID "" rsdelstuCursorLocation adUseClientrsdelstuOpen sql conn adOpenKeyset adLockPessimisticrsdelstuDeletersdelstuUpdatersdelstuCloseList1RemoveItem iEnd IfElse

51、MsgBox " 請選擇要刪除的學生 " vbOKOnly vbExclamation ""End IfExit SubEnd SubPrivate Sub delxmfl_ClickCommand13_ClickEnd SubPrivate Sub exitsys_ClickUnload MeEnd SubPrivate Sub findstudent_ClickForm2ShowEnd SubPrivate Sub Form_LoadDim connectionstring As StringDim sql As StringOn Error GoT

52、o openerrorrs1CursorLocation adUseClient打開學生管理數(shù)據表sql "select from 學生管理 order by 學號 " 在列表框中顯示所有的學生rs1Open sql conn adOpenKeyset adLockPessimistic While rs1EOF FalseList1AddItem rs1Fields 1 " " rs1Fields 0 rs1MoveNextWendCombo1AddItem "優(yōu)"Combo1AddItem "良"Combo1A

53、ddItem "中"Combo1AddItem "差" pymanageEnabled False weihupyEnabled False list2state False setcommandstateSSTab1TabEnabled 1 FalseCommand1Enabled FalseCommand2Enabled FalseCommand8Enabled FalseCommand7Enabled FalseCommand14Enabled FalseCombo1Enabled Falseselstu Falseselxm FalseComma

54、nd9Enabled FalseCommand11Enabled FalseCommand13Enabled FalseCommand12Enabled FalseDim str As StringSet catActiveConnection connTreeView1LabelEdit tvwManualFor Each tbl In catTablesstr tblNameIf Right str 2 " 評語" ThenSet mnode TreeVcommnodeText strDim i As IntegerDim nodeindex As Integernod

55、eindex mnodeIndexFor i 0 To comt - 1Set mnode TreeVcom nodeindex tvwChild mnodeText com i NameNextEnd IfNextExit SubopenerrorMsgBox ErrDescriptionEnd SubPrivate Sub List1_Click Dim i As Long rs1Requery rs1MoveFirsti CLng List1ListIndex rs1Move iID_num rs1Fields 0 selstu True displaystudent displaypy

56、End SubPublic Sub displaystudentLabel2Caption rs1Fields 1Label4Caption rs1Fields 0Label6Caption rs1Fields 2End SubPublic Sub displaypyDim rs As New ADODBRecordsetDim sql As StringDim cnt As IntegerDim i As IntegerOn Error GoTo displaypyerrorrsCursorLocation adUseClientsql "select from 學生操行 wher

57、e 學號 " ID_num "" "order by 學期"rsOpen sql conn adOpenKeyset adLockPessimisticIf rsEOF False ThenrsMoveFirstElseMsgBox " 該生沒有評語 " vbOKOnly vbExclamation ""Exit SubEnd IfText1 0 Text "" 文本框清空While rsEOF False學期"Text1 0 Text Text1 0 Text vbCrLf

58、 "第 " rsFields 1 "vbCrLf Space 2 _rsFields 2 vbCrLf Space 10 rsFields 3 Space 2 rsFieldsrsMoveNextWendrsMovePreviousxq rsFields 1rsCloseExit SubdisplaypyerrorMsgBox ErrDescriptionEnd SubPrivate Sub List2_ClickweihupyEnabled TrueEnd SubPrivate Sub modifypyxm_ClickCommand11_ClickEnd Sub

59、Private Sub TreeView1_NodeClick ByVal Node As MSComctlLibNodeOn Error GoTo clickerrorDim i As IntegerDim rs As New ADODBRecordsetDim sql As Stringi TreeView1SelectedItemIndex pymanageEnabled TrueDim a As IntegerCommand9Enabled TrueCommand11Enabled TrueCommand12Enabled TrueCommand13Enabled TrueIf TreeView1SelectedItemChildren 0 Thentxttbl TreeView1SelectedItemTextIf TreeView1SelectedItemExpanded True Then