軟件工程課程設(shè)計報告-4

濱江學(xué)院軟件工程課程設(shè)計報告(2011--2012年度第2學(xué)期)課程名稱：軟件工程課程設(shè)計題目：個人通訊錄管理系統(tǒng)院系：濱江學(xué)院計算機系班級：動漫（2）班 學(xué)號：20102359059姓名：鄭強指導(dǎo)教師：李振宏設(shè)計周數(shù)：兩周日期：2012年5月24日PAGE11摘要：個人通訊錄管理系統(tǒng)是針對系統(tǒng)服務(wù)對象的具體要求設(shè)計的，能夠輸入所有人員的相關(guān)信息，實現(xiàn)人員的分類管理和查詢。本系統(tǒng)運用VB6.0及SQLServer2000實現(xiàn)，主要設(shè)計了以下幾大功能：(1)新建、修改、刪除通訊錄記錄(2)能根據(jù)姓名進行模糊查詢(3)能根據(jù)電話查詢某人(4)方便的瀏覽逐條記錄一、課程設(shè)計的目的與要求一、設(shè)計內(nèi)容及要求建立通訊錄信息，信息包含編號、姓名、年齡、電話和學(xué)校等；能夠提供添加、查找和修改通訊錄信息的功能；能夠提供按姓名查詢；將通訊錄保存在文件中；能夠按表格方式輸出通訊錄信息二、設(shè)計正文概述1.1課題題目：學(xué)生選課系統(tǒng)1.2系統(tǒng)的主要目標(biāo)：利用VB6.0及SQLServer2000自行設(shè)計一個個人通訊錄管理系統(tǒng)，數(shù)據(jù)庫里包括2個表：person、密碼表。密碼表用于記錄用于登錄系統(tǒng)的用戶名及密碼；person用于記錄個人的基本通信信息。1.3系統(tǒng)的開發(fā)環(huán)境及運行環(huán)境：操作系統(tǒng)：WindowsXPProSP2建模工具：RationalRose2003數(shù)據(jù)庫系統(tǒng)：SQLServer2000開發(fā)工具：VisualStudio2005Web服務(wù)器：IIS+ASP.NET2.0平臺系統(tǒng)需求分析本系統(tǒng)運用VB6.0及SQLServer2000實現(xiàn)，擁有1個登錄窗體，1個主窗體，1個查詢窗體，一個注冊窗體。登錄窗體里可以由單擊事件調(diào)用注冊窗體，登錄成功后進入主窗體，主窗體實現(xiàn)信息的錄入及各個功能。本系統(tǒng)在SQLServer2000數(shù)據(jù)庫里設(shè)計了2個數(shù)據(jù)表：密碼表：(用戶名，密碼)用于記錄注冊過的用戶名及密碼person：(手機，姓，名，地址，所在組，郵件，公司，職位)系統(tǒng)總體設(shè)計3.1設(shè)計問題域子系統(tǒng)用戶實體：密碼用戶名用戶密碼用戶名用戶圖2.1用戶實體及其屬性2.個人通信信息的E-R模型：personperson姓職位公司名手機郵件地址所在組圖2.2個人通信信息實體的E-R模型2.3關(guān)系模型本系統(tǒng)設(shè)計了2個實體，密碼實體，person實體，兩個實體不存在聯(lián)系。因此可將本系統(tǒng)的E-R模型轉(zhuǎn)化為下述關(guān)系模型：密碼表：(用戶名，密碼)person：(手機，姓，名，地址，所在組，郵件，公司，職位)表結(jié)構(gòu)設(shè)計本系統(tǒng)在SQLServer2000數(shù)據(jù)庫里共設(shè)計了3個數(shù)據(jù)表來記錄數(shù)據(jù)：密碼表，person。1.密碼表：表2.1密碼表的結(jié)構(gòu)列名數(shù)據(jù)類型長度約束用戶名char10主鍵密碼char6不為空2.person：表2.2person的結(jié)構(gòu)列名數(shù)據(jù)類型長度約束手機char20主鍵姓char10允許空名char10允許空地址char30允許空所在組char10允許空郵件char30允許空公司char30允許空職位char20允許空第3章系統(tǒng)各功能模塊的詳細(xì)設(shè)計3.1登錄界面輸入正確的用戶名及密碼即可登陸系統(tǒng)，若連續(xù)3次輸入錯誤的密碼則窗口自動關(guān)閉。圖3.1登錄界面代碼：PrivateSubCmdLand_Click()StaticmiCountAsIntegerDimsqlstrAsStringsqlstr="Select*From密碼表where用戶名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThenMsgBox"用戶名錯誤，重新輸入",vbExclamation,"警告"Text1.Text=""Text1.SetFocusElseIfAdodc1.Recordset.Fields("密碼")=Text2ThenForm1.ShowUnloadMeElseMsgBox"密碼錯誤，重新輸入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCommand1_Click()Form4.ShowEndSubPrivateSubCommand2_Click()UnloadMeEndSub主窗體界面在本窗口實現(xiàn)信息的瀏覽，新建，刪除以及修改，按確定執(zhí)行操作，按取消則放棄操作。圖3.2系統(tǒng)主窗體代碼：PrivateSubCmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdChange.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueCmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText4.Locked=FalseText5.Locked=FalseText6.Locked=FalseText7.Locked=FalseText8.Locked=FalseText1.SetFocusLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdChange_Click()CmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdChange.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText4.Locked=FalseText5.Locked=FalseText6.Locked=FalseText7.Locked=FalseText8.Locked=FalseText1.SetFocusLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdDel_Click()x=MsgBox("確定要刪除當(dāng)前記錄嗎？",vbYesNo+vbQuestion,"確認(rèn)")Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdChange.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdFind_Click()Form2.ShowEndSubPrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLastCmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text9.TextAdodc1.Recordset.MovenLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdNext_Click()Adodc1.Recordset.MoveNextCmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastCmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdOk_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdChange.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseText1.Locked=TrueText2.Locked=TrueText3.Locked=TrueText4.Locked=TrueText5.Locked=TrueText6.Locked=TrueText7.Locked=TrueText8.Locked=TrueLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePreviousCmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSubPrivateSubForm_Load()CmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdChange.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseLabel9.Caption="記錄："&Adodc1.Recordset.AbsolutePosition&"/"&Adodc1.Recordset.RecordCountEndSub查詢界面選擇要查詢的條件，輸入查詢的信息，按下查詢按鈕即可顯示查詢結(jié)果，按下返回按鈕返回上級窗口。圖3.3查詢界面窗體代碼：PrivateSubCmdBack_Click()Form1.ShowUnloadMeEndSubPrivateSubCmdFind_Click()DimstrAsStringstr="Select*Fromperson"str=str&"Whereperson."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSubPrivateSubForm_Load()Combo1.AddItem"姓"Combo1.AddItem"名"Combo1.AddItem"手機"Combo1.AddItem"地址"Combo1.AddItem"公司"Combo1.AddItem"所在組"Text1.Text=""EndSub3.4注冊界面輸入要創(chuàng)建的用戶名，然后輸入兩次相同的密碼，即可在密碼表中增加新的用戶及密碼，用來登錄系統(tǒng)。圖3.4用戶注冊窗體代碼：PrivateSubCommand1_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"請輸入用戶名！",vbExclamation,"確認(rèn)密碼"Text1.SetFocusExitSubElsesqlstr="select*from密碼表where用戶名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用戶名已存在，請重新輸入!",vbExclamation,"檢驗用戶名"Text1=""Text1.SetFocusExitSubEndIfEndIfIfText2<>Text3ThenMsgBox"二次輸入的密碼不一致，請重新輸入",vbExclamation,"檢驗密碼"Text2=""Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密碼不能為空!",vbExclamation,"檢驗密碼"Text2.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名")=Trim(Text1)Adodc1.Recordset.Fields("密碼")=Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox"成功注冊新用戶!",vbInformation,"添加用戶"EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub系統(tǒng)測試在系統(tǒng)測試中，我們首先對各個子模