软件工程课程设计报告-4

滨江学院软件工程课程设计报告(2011--2012年度第2学期)课程名称：软件工程课程设计题目：个人通讯录管理系统院系：滨江学院计算机系班级：动漫（2）班 学号：20102359059姓名：郑强指导教师：李振宏设计周数：两周日期：2012年5月24日PAGE11摘要：个人通讯录管理系统是针对系统服务对象的具体要求设计的，能够输入所有人员的相关信息，实现人员的分类管理和查询。本系统运用VB6.0及SQLServer2000实现，主要设计了以下几大功能：(1)新建、修改、删除通讯录记录(2)能根据姓名进行模糊查询(3)能根据电话查询某人(4)方便的浏览逐条记录一、课程设计的目的与要求一、设计内容及要求建立通讯录信息，信息包含编号、姓名、年龄、电话和学校等；能够提供添加、查找和修改通讯录信息的功能；能够提供按姓名查询；将通讯录保存在文件中；能够按表格方式输出通讯录信息二、设计正文概述1.1课题题目：学生选课系统1.2系统的主要目标：利用VB6.0及SQLServer2000自行设计一个个人通讯录管理系统，数据库里包括2个表：person、密码表。密码表用于记录用于登录系统的用户名及密码；person用于记录个人的基本通信信息。1.3系统的开发环境及运行环境：操作系统：WindowsXPProSP2建模工具：RationalRose2003数据库系统：SQLServer2000开发工具：VisualStudio2005Web服务器：IIS+ASP.NET2.0平台系统需求分析本系统运用VB6.0及SQLServer2000实现，拥有1个登录窗体，1个主窗体，1个查询窗体，一个注册窗体。登录窗体里可以由单击事件调用注册窗体，登录成功后进入主窗体，主窗体实现信息的录入及各个功能。本系统在SQLServer2000数据库里设计了2个数据表：密码表：(用户名，密码)用于记录注册过的用户名及密码person：(手机，姓，名，地址，所在组，邮件，公司，职位)系统总体设计3.1设计问题域子系统用户实体：密码用户名用户密码用户名用户图2.1用户实体及其属性2.个人通信信息的E-R模型：personperson姓职位公司名手机邮件地址所在组图2.2个人通信信息实体的E-R模型2.3关系模型本系统设计了2个实体，密码实体，person实体，两个实体不存在联系。因此可将本系统的E-R模型转化为下述关系模型：密码表：(用户名，密码)person：(手机，姓，名，地址，所在组，邮件，公司，职位)表结构设计本系统在SQLServer2000数据库里共设计了3个数据表来记录数据：密码表，person。1.密码表：表2.1密码表的结构列名数据类型长度约束用户名char10主键密码char6不为空2.person：表2.2person的结构列名数据类型长度约束手机char20主键姓char10允许空名char10允许空地址char30允许空所在组char10允许空邮件char30允许空公司char30允许空职位char20允许空第3章系统各功能模块的详细设计3.1登录界面输入正确的用户名及密码即可登陆系统，若连续3次输入错误的密码则窗口自动关闭。图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主窗体界面在本窗口实现信息的浏览，新建，删除以及修改，按确定执行操作，按取消则放弃操作。图3.2系统主窗体代码：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("确定要删除当前记录吗？",vbYesNo+vbQuestion,"确认")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查询界面选择要查询的条件，输入查询的信息，按下查询按钮即可显示查询结果，按下返回按钮返回上级窗口。图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注册界面输入要创建的用户名，然后输入两次相同的密码，即可在密码表中增加新的用户及密码，用来登录系统。图3.4用户注册窗体代码：PrivateSubCommand1_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认密码"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系统测试在系统测试中，我们首先对各个子模