5.1 登陆模块设计 5.1.1 功能分析 paper51.com 作为系统与用户之间最基本的操作功能,用户通过该模块可以进入到系统并且使用该系统的功能. 当用户没有输入任何数据的时候,系统提示请确认信息的完整性,如果输入错误的时候,系统提示用户名或者密码错误。用户输入用户名和密码,如密码和用户名都正确,用户登陆成功。登陆界面如下图5-1: 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 图5-1登陆窗体 内容来自论文无忧网 www.paper51.com 5.1.2 编码实现 内容来自论文无忧网 www.paper51.com 从页面输入帐号、密码,将获取的值提交到后台程序中进行查询验证。 内容来自www.paper51.com
后台程序如下: 内容来自www.paper51.com 在这个过程中,系统首先连接数据库,如下为连接数据库语句: 内容来自www.paper51.com Dimconn As New SqlConnection("Server=RACHEL\SQLEXPRESS;" & _ copyright paper51.com "Database=办公自动化; " & _ paper51.com "IntegratedSecurity=SSPI ") 内容来自www.paper51.com 然后验证输入的用户名和密码是否正确,如下: copyright paper51.com User= TextBox1.Text 内容来自论文无忧网 www.paper51.com
Password= TextBox2.Text http://www.paper51.com
Dimstr As String 内容来自论文无忧网 www.paper51.com
str= "select * from 用户信息where 用户名='" & User & "'and 密码='" & password & "'" copyright paper51.com
如果用户输入无误,就进入下一个模块。 内容来自论文无忧网 www.paper51.com 5.2 功能分类模块设计 内容来自论文无忧网 www.paper51.com
5.2.1 功能分析 paper51.com 该模块连接着系统的所有功能模块,用户通过该模块可以方便的使用各个功能。功能分类界面如下图5-2: 内容来自论文无忧网 www.paper51.com http://www.paper51.com 图5-2 功能分类窗体 paper51.com 5.2.2 编码实现 http://www.paper51.com
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click 内容来自论文无忧网 www.paper51.com
Dimform As New 信息管理 copyright paper51.com form.Show() paper51.com End Sub 内容来自www.paper51.com 此为连接信息管理模块代码,首先定义一个新窗体为“信息管理”,接着调用系统功能SHOW命令显示“信息管理”窗体。连接其余各个模块的代码都同上,只是定义的新窗体名称不同。 内容来自论文无忧网 www.paper51.com 5.3 发送邮件模块设计 paper51.com
5.3.1 功能分析 内容来自www.paper51.com 用户通过该模块可以发送邮件,首先设置“参数配置”,填写SMTP服务器名称如(SMTP.163.COM),选择“需要身份验证”后用户才可以在帐号和密码两个框中进行输入,否则不可以输入以默认帐号和密码进行发送。填写自己在163上注册的邮箱的用户名和密码,并且依次写上发件人,收件人,邮件主题,邮件内容后就可以进行邮件发送。发送邮件界面如下图5-3: copyright paper51.com 内容来自www.paper51.com 图5-3 发送邮件窗体 内容来自www.paper51.com 5.3.2 编码实现 内容来自论文无忧网 www.paper51.com 确认是否需要身份验证,如选取了需要身份验证系统作出如下判断 内容来自论文无忧网 www.paper51.com Ifchk.Checked = True Then(chk为CheckBox) 内容来自www.paper51.com txtName.Enabled = True 内容来自论文无忧网 www.paper51.com
txtPassword.Enabled = True copyright paper51.com
Else 内容来自www.paper51.com txtName.Enabled = False 内容来自论文无忧网 www.paper51.com
txtPassword.Enabled = False 内容来自www.paper51.com
EndIf 内容来自论文无忧网 www.paper51.com
发送邮件是使用如163,126等的Smtp服务器发送,系统引用Imports System.net.Mail,系统对用户输入进行确认以后通过smtp.Credentials验证用户名和密码是否正确。 内容来自论文无忧网 www.paper51.com Dimmail As New MailMessage() 内容来自www.paper51.com mail.From = New MailAddress(txtFrom.Text) copyright paper51.com mail.To.Add(txtTo.Text) paper51.com mail.Subject = txtSubject.Text 内容来自论文无忧网 www.paper51.com mail.Body = txtContent.Text http://www.paper51.com mail.Priority = MailPriority.High copyright paper51.com Dimsmtp As New SmtpClient(txtSMTP.Text) paper51.com Ifchk.Checked = True Then 内容来自www.paper51.com smtp.Credentials=NewSystem.Net.NetworkCredential(txtName.Text, txtPassword.Text) copyright paper51.com EndIf paper51.com 通过验证以后系统调用smtp.Send(mail)来发送邮件 内容来自论文无忧网 www.paper51.com Try copyright paper51.com
smtp.Send(mail) http://www.paper51.com EndTry copyright paper51.com 5.4 信息管理模块设计 内容来自www.paper51.com 5.4.1 功能分析 内容来自www.paper51.com 信息管理模块能够让用户查询所有信息,查询实时信息。在这个模块用户可以随时查询到是否有信息发布(数据库管理员是否更新了后台数据库信息),以前曾经发布过的信息(方便教师做工作总结)。信息管理界面如下图5-4: paper51.com
http://www.paper51.com 图5-4 信息管理窗体 内容来自www.paper51.com 5.4.2 编码实现 内容来自论文无忧网 www.paper51.com
首先连接数据库“办公自动化” http://www.paper51.com Dimconn As New SqlConnection("Server=RACHEL\SQLEXPRESS;" & _ 内容来自论文无忧网 www.paper51.com "Database=办公自动化; " &_"Integrated Security=SSPI ") copyright paper51.com
定义command为查询数据库中信息查询表中的实时信息 内容来自www.paper51.com Dimcommand As New SqlCommand("select 实时信息 from 信息查询") copyright paper51.com command.CommandType = CommandType.Text 内容来自论文无忧网 www.paper51.com command.Connection = conn paper51.com Dimdr As New SqlDataAdapter 内容来自www.paper51.com
dr.SelectCommand= command 内容来自www.paper51.com Dimds As New DataSet 内容来自www.paper51.com
ds =New DataSet("ds") 内容来自论文无忧网 www.paper51.com dr.Fill(ds, "信息查询") http://www.paper51.com DataGridView1.DataSource = ds copyright paper51.com DataGridView1.DataMember = "信息查询" paper51.com 最后在DataGridView1中显示查询出来的内容。查询所有信息功能同上,只是在查询时使用"select 所有信息 from 信息查询" 内容来自www.paper51.com 5.5 学生管理模块设计 copyright paper51.com 5.5.1 功能分析 http://www.paper51.com 学生管理模块管理了学生的学籍资料,用户可以对学生的学籍信息进行查询,条件查询,删除,添加,修改。学生管理界面如下图5-5,修改学生学籍界面如下图5-6: copyright paper51.com 内容来自www.paper51.com 图5-5 学生管理窗体 内容来自论文无忧网 www.paper51.com 内容来自论文无忧网 www.paper51.com 图5-6 修改学生学籍窗体 paper51.com 5.5.2 编码实现 http://www.paper51.com 在这个窗体下,用户可以查询到所有学生的学籍信息,同时也可以根据学生姓名只查询一个学生的学籍信息,如下: copyright paper51.com Dim command As New SqlCommand("select* from 学生学籍")这个是查询所有学生信息的语句。 http://www.paper51.com Dim command As NewSqlCommand("select * from 学生学籍 where 姓名='" & User & "' ")这个是根据学生姓名的查询语句。 内容来自论文无忧网 www.paper51.com 用户同时可以修改学生学籍(添加,删除和修改)如下: 内容来自www.paper51.com 1、添加新的学生学籍 paper51.com insertinto 学生学籍(姓名,性别,籍贯,年龄,民族,出生年月,政治面貌,处罚,奖励,专业) values('" & TextBox1.Text& "', '" & TextBox2.Text & "','" & TextBox3.Text& "','" & TextBox4.Text & "','" &TextBox5.Text & "','" & TextBox6.Text & "','"& TextBox7.Text & "','" & TextBox8.Text &"','" & TextBox9.Text & "','" & TextBox10.Text& "') paper51.com comm.Connection = conn http://www.paper51.com 当用户在TextBox1,TextBox2…TextBox10中输入姓名,性别…专业后点击添加学生学籍信息,新的学生学籍信息添加到数据库表中。 copyright paper51.com 2、删除学生学籍 内容来自论文无忧网 www.paper51.com
delete from 学生学籍 where 姓名='" & TextBox1.Text & "'系统根据用户输入的要删除学籍的学生姓名删除数据表中的内容。 内容来自论文无忧网 www.paper51.com
3、修改学生学籍 内容来自www.paper51.com update 学生学籍 set [性别] ='" & TextBox2.Text & "',[籍贯] ='" & TextBox3.Text & "',[年龄] ='" & TextBox4.Text & "',[民族] ='" & TextBox5.Text & "',[出生年月] ='" & TextBox6.Text & "',[政治面貌] ='" & TextBox7.Text & "',[处罚] ='" & TextBox8.Text & "',[奖励] ='" & TextBox9.Text & "',[专业] ='" & TextBox10.Text & "'where 姓名= '" & TextBox1.Text & "' copyright paper51.com 当用户在TextBox2,TextBox3…TextBox10中输入新的信息,点击修改学生学籍信息,系统根据用户的姓名更新数据库表。 内容来自www.paper51.com 5.6 教师管理模块设计 内容来自论文无忧网 www.paper51.com 5.6.1 功能分析 内容来自论文无忧网 www.paper51.com
用户可以查询出教师的信息(姓名,基本工资,奖金,课时),根据教师信息可以计算出教师的工资,也可以查询出教师的总工资,并且可以导出到Excel表格。教师管理界面如下图5-7 http://www.paper51.com
http://www.paper51.com |