web课躺杓--伪邮件系统的设计与实现.doc

目 录1绪论31.1项目开发背景31.2项目内容32需求分析32.1功能需求分析32.2性能需求分析42.3可行性分析42.4功能分析42.5数据流图分析52.6条件与限制63总体设计63.1页面模块分析63.2总体结构及模块结构74数据结构设计84.1数据库设计84.2表结构设计85界面设计105.1登录界面105.2注册页面115.3邮箱主界面135.3发件箱界面13 5.3.1 邮件发送成功界面15 5.3.2 上传附件成功界面155.5 收件箱界面155.5 垃圾箱界面165.6 未读邮件界面166课程设计总结171绪论1.1项目开发背景随着现代通信技术的迅速发展，电子邮件已经成为人们日常生活办公的一部分。电子邮件系统简单、快捷、优惠的特点使之替代了传统信件的地位，受到越来越多的人们的喜爱。开发个人的伪邮件系统软件产品，采用系统的管理模式，可以进一步提高人们的工作效率，增加生活乐趣，实现亲朋好友间的零距离沟通。1.2项目内容 设计基于WEB的伪邮件管理系统。 本系统采用软件工程的指导方法，选用B/S模式设计的方案，应用SQL Server2005数据库管理系统，C#.net程序设计语言，Visual studio.NET2008开发工具等开发出来的基于WEB的伪邮件管理系统，该系统主要面向个人，实现对用户的注册、收发邮件的管理。系统支持用户对邮件进行简单的读取、删除等操作。2需求分析2.1功能需求分析本次课程设计的设计内容是设计一个基于WEB的伪邮件管理系统。通过认真分析，并结合案例，我认为开发出来的系统应达到以下目标:1、 能实现用户的成功注册以及用户信息管理；2、 具有丰富的查询功能，能对收件箱、发件箱、草稿箱等进行查询；3、 能实现邮件的收发和删除； 4、 系统运行稳定，安全可靠；5、 用户界面设计美观、友好，使用操作便捷；2.2性能需求分析1)硬件环境:CPU:AMD4200+；内存:1G；硬盘：160G；显示器：19寸2)软件环境:Windows 7系统；Visual studio 2008；SQL server 2005(以上)2.3可行性分析经过调查、研究、分析、计算，在通讯录系统中的应用已经条件成熟，我们将从以下几个方面总结系统开发的可行性，具体情况如下：1)技术可行性以Windows7为操作系统，运用SQL Server2005数据库技术，开发以Windows 7为用户的操作平台，界面友善、功能齐全的伪邮件系统。新系统的运行硬件环境PC机，当用户使用系统时，通过正确的口令进入系统，进行数据库的维护操作和运用。2)经济可行性一方面，新系统中友好的人机界面和更强劲的功能支持，会使管理人员的工作进一步提高，从而节省人力、物力，进而提高经济效益；另一方面系统开发成本低，现有PC机即可提供该系统开发工作需要的所有硬件设备环境。3)操作可行性操作上是对IE浏览器的引用，该浏览器的使用，主要凭借使用浏览操作技术即可完成数据录入，方便简单。使用前只要对用户进行简单的说明或阅读帮助文件即可使用该系统。2.4功能分析根据系统分析的结果，按照结构化的系统设计方法，伪邮件系统从功能上可以做出如下系统的划分：信息管理：用户信息、存取邮件信息、邮件附件信息、附件编号信息。主要输入输出项：1、用户信息（用户ID，用户名，密码，创建日期，密码查询问题，密码答案，性别，电话，邮箱）2、存取邮件信息（收件人ID，发件人名，收件人名，主题，内容，收件时间，是否阅读，附件）3、邮件附件信息（存取邮件ID，邮件附件ID，发送附件名，附件存储名）4、附件编号信息（附件ID）2.5数据流图分析数据流图是在对系统分析调查的基础上，以系统的科学性、管理的合理性、技术的可行性角度出发，将信息处理功能和彼此之间的联系自顶向下、逐层分解，从逻辑上精确地描述应具有的数据加工功能、数据输入、数据输出、数据存储及数据的来源和去向。伪邮件系统经过划分出各子系统及其各自的功能以及相互联系，绘制数据流图如下：个人伪邮件系统管理员用户图1 顶层数据流图管理员1.检查合法性3.系统维护4.用户信息管理用户系统管理员2.显示系统主要功能图2 第0层数据流图1.2检查登录名1.3检查密码1.1检查登录系统管理员登录名,密码图3 第一层数据流图接收邮件用户发送邮件删除邮件查看邮件图4 第二层数据流图2.6条件与限制一个完善的个人的伪邮件系统，应提供更为便捷与强大的交互功能，如跟联系人之间的邮件通信联系，由于本系统强调他的无网络性，该系统并不提供这个功能。对于一般系统都有不同的用户权限等信息保护手段，但是本系统是针对个人的，只为验证码实现注册，不提供多个用户共用的功能，并且实现简单，因此功能的健全性及数据安全性能有待进一步完善。3总体设计3.1页面模块分析1、登陆页面模块：登陆，注册用户模块2、用户注册页面模块：提交用户信息模块3、发送邮件页面模块：发送邮件，上传附件，保存邮件模块 4、收件箱页面模块：查看邮件，删除邮件5、未读邮件模块：查看未读邮件6、垃圾箱邮件模块：查看放入垃圾箱的邮件3.2总体结构及模块结构1、 主模块伪邮件系统删邮件发邮件收邮件用户登录用户注册2、用户登录模块 成功，进入主界面输入用户名与密码 登录失败，请注册3、 查收邮件模块 已读邮件查看已成功登录的用户未读邮件4、注册成员管理模块判断用户名是否重复否注册成功 点击“注册”按钮输入用户信息注册失败是4数据结构设计4.1数据库设计 4.2表结构设计 1、用户名数据表 表名：emailuser 2、存取邮件数据表 表名：email 3、邮件附件数据表 表名：email_att 4、附件编号数据表 表名：att_number 5界面设计5.1登录界面 输入：用户名和密码登录按钮：验证用户名，密码正确，进入邮箱取消按钮：将用户名与密码文本框置空注册按钮：点击进入注册新用户界面登陆按钮事件代码： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim str As String Dim passstr As String 获得用户填写的用户名和密码 passstr = Trim(CStr(ls_pass.Text) str = & ls_user.Text & 连接数据库，打开emailuser表，查询该用户是否存在 Dim sql As String = select * from emailuser where email_user= & Trim(str) Dim connstr As String = server=localhost; Initial Catalog=emaildb; Integrated Security = true Dim myconn As New SqlClient.SqlConnection(connstr) Dim da As New SqlClient.SqlDataAdapter(sql, myconn) Dim ds As New DataSet() da.Fill(ds, emailuser) 如果用户名和密码匹配，那么显示“登录成功”，否则显示“密码错误！” If ds.Tables(emailuser).Rows.Count = 1 Then If passstr = Trim(ds.Tables(emailuser).Rows(0)(password) Then Session(xstr) = 登录成功 Session(reguser) = str Response.Redirect(welcome.aspx) Else Response.Write(密码错误！) End If Else Response.Write(用户名输入错误！) End IfEnd Sub 注册按钮事件代码： Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LinkButton1.Click Response.Redirect(register.aspx)End Sub5.2注册页面是否存在该用户按钮：连接数据库，查看该用户是否存在提交用户注册信息按钮：将用户信息添加到数据库用户表中提交按钮事件： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click Dim str As String Dim passstr As String passstr = Trim(CStr(Text2.Text) str = & text1.Text & 定义查询用户名的字符串 Dim sql As String = select * from emailuser where email_user= & Trim(str) 连接数据库，取出emialuser表中的数据，放入dataset中 Dim connstr As String = server=localhost; Initial Catalog=emaildb; Integrated Security = true Dim myconn As New SqlConnection(connstr) Dim da As New SqlDataAdapter(sql, myconn) Dim ds As New DataSet() da.Fill(ds, emailuser) Dim myrow As DataRow Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da) 判断填入的用户名与emailuser表中的用户名是否重复 If ds.Tables(emailuser).Rows.Count = 1 Then Response.Write(用户名重复，请重新输入) Else myrow = ds.Tables(emailuser).NewRow() 将用户填入的信息存入相应的字段中 myrow(email_user) = Trim(text1.Text) myrow(password) = Trim(Text2.Text) myrow(question) = Trim(Text4.Text) myrow(respon) = Trim(Text5.Text) myrow(sex) = Trim(DropDownList1.SelectedItem.Text) myrow(createtime) = Trim(Text7.Text) & - & Trim(Text8.Text) & - & Trim(Text9.Text) myrow(telephone) = Trim(Text6.Text) myrow(email_add) = Trim(Text10.Text) 使用方法Add，将这一行记录放入表中 ds.Tables(emailuser).Rows.Add(myrow) 更新emailuser表中的数据 da.UpdateCommand = dacomm.GetUpdateCommand da.Update(ds, emailuser) 显示注册成功 Session(xstr) = 用户注册成功 Session(reguser) = Trim(text1.Text) 进入welcome.aspx文件 Response.Redirect(welcome.aspx) End If End Sub5.3邮箱主界面邮件主界面中含有主要的超链接到修改资料，电子邮箱等页面框架布局代码： main_email 本页需要框架结构，但是您的游览器不支持它！ 5.3发件箱界面上传按钮：添加上传的附件文件。提交按钮：发送邮件。重新填写按钮：将所有的文本框置空。发送按钮单击事件： Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click Dim connstr As String = server=localhost; Initial Catalog=emaildb; Integrated Security = true Dim myconn As New SqlConnection(connstr) Dim cmd As SqlCommand Dim qry As String myconn.Open() qry = insert into email(s_email,d_email,subject,contention,email_flag,send_time,att_flag) & _ Values( & Session(username) & _ , & receive.Text & _ , & subject.Text & _ , & content.Text & _ , & 1 & _ , & Now() & _ , & 0 & ) cmd = New SqlClient.SqlCommand(qry, myconn) cmd.ExecuteNonQuery() myconn.Close() 邮件发送成功，导航到发送成功Web程序：sendmail_success.aspx Response.Redirect(sendmail_success.aspx?receive= & receive.Text)End Sub“上传”按钮单击事件： Protected Sub UploadFile_Click(ByVal sender As Object, ByVal e As EventArgs) Handles UploadFile.Click Dim lstrFileName As String Dim lstrFileNamePath As String Dim lstrFileFolder As String lstrFileName = loFile.PostedFile.FileName loFile.PostedFile.FileName返回的是通过文件对话框选择的文件名，这之中包含了文件的目录信息 lstrFileName = Path.GetFileName(lstrFileName) 去掉目录信息，返回文件名称 获得上传文件的指定文件夹的名称，本例是当前应用程序所在目录下的mail_att子目录 lstrFileFolder = Server.MapPath() + mail_att 判断上传目录是否存在，不存在就建立 If (Not Directory.Exists(lstrFileFolder) Then Directory.CreateDirectory(lstrFileFolder) End If 上传文件到服务器 lstrFileNamePath = lstrFileFolder & lstrFileName 得到上传目录及文件名称 loFile.PostedFile.SaveAs(lstrFileNamePath) FileName.Text = lstrFileName 获得文件名称 FileType.Text = loFile.PostedFile.ContentType 获得文件类型 FileLength.Text = CStr(loFile.PostedFile.ContentLength) 获得文件长度 FileUPloadForm.Visible = False AnswerMsg.Visible = True 显示上传文件的属性 End Sub5.3.1 邮件发送成功界面5.3.2 上传附件成功界面5.5 收件箱界面删除邮件和放入垃圾箱按钮：对存放在数据库的信息进行查看删除命令5.5 垃圾箱界面5.6 未读邮件界面6课程设计总结经过一个多月的学习和努力，我完成了基于VB.net的个人邮件系统的课程设计。系统的详细设计根据系统分析阶段的结论将系统具体化，并完成了各个模块的功能，直到最后形成一个完整的可行性的管理系统。从开始考虑课程设计题目到系统的实现，再到课程设计报告的完成，每走一步对我来说都是新的尝试与挑战。在这段时