《《.NET技术》课程设计报告收支管理系统.doc》由会员分享，可在线阅读，更多相关《《.NET技术》课程设计报告收支管理系统.doc（19页珍藏版）》请在三一办公上搜索。
1、 课程设计报告 系（部、中心） 计算机科学与工程学院 姓 名 学 号 20091600 专 业 网络工程 班 级 一班 同组人员 课程名称 .NET技术 设计题目名称 收支管理系统用户管理子系统设计与实现 起止时间 2010年11月25日2010年12月22日 成 绩 指导教师签名 目 录1.系统背景、范围及目标22. 系统总体分析与设计32.1 系统体系结构32.2 系统功能结构43. 系统数据库设计与实现44. 系统功能详细设计与实现64.1 密码修改子系统154.2 用户删除子系统175. 结束语196. 参考文献191.系统背景、范围及目标 项目名称：收支管理系统 项目背景以及开发意义
2、：目前由于物价上涨。，但是人工工资缺很多是停在原地，以至于许多的家庭出现经济拮据的情况，所以我们觉得有必要做一个小的系统，以达到更好的利用自身资源的目的开发意义是能够最大化自己的收益，同时更好的安排自己的支出，能够做到有效的利用各种资源，充分实现自己家庭社会价值的最大化。 系统的基本功能：计算模块1.正确计算收入，收纳所有的收入情况2.计算出整个家庭的日常开支3.计算能够存下来的钱。分析模块1.分析结余的钱能够匹配哪些投资项目2.分析各个投资项目的风险3.选择某个项目之后能够大概分析出其投资和收益。建议模块：1.收入整个兼职信息。提供兼职的日期，收入，等等全面的信息。人际关系模块（成人模块）：
3、很好的记录同学亲戚的工作，职位以及一些基本信息，在必要的时候能够迅速利用好人际关系帮助自己渡过难关。能力模块：记录自己的学习情况，以及为自己后续的学习计划做出安排，和在工作中出现的能力需求。进而计算出学习能力需要的费用。解决的问题：家庭收支不均衡，不能充分的利用自己手中的资源，不能统筹规划自己的多余财富，在人际交往方面存在许多问题，和出现工作对于自己能力要求是，不能及时处理。 达到的目标：管理自己的财产，达到收支平衡，提高自己的工作能力，提高自己的投资眼光，提高自己生活质量。2. 系统总体分析与设计2.1 系统体系结构本系统采用客户/服务器（Client/Server）模式。C/S模式主要由客
4、户应用程序(Client)、服务器管理程序(Server)和中间件(middleware)三个部件组成。客户应用程序是系统中用户与数据进行交互的部件。服务器程序负责有效地管理系统资源，如管理一个信息数据库，其主要工作是当多个客户并发地请求服务器上的相同资源时，对这些资源进行最优化管理。中间件负责联结客户应用程序与服务器管理程序，协同完成一个作业，以满足用户查询管理数据的要求。图2.1 系统体系结构图2.2 系统功能结构阐述系统功能及实现目标，功能模块图如下：图2.2 收支管理系统功能模块图3. 系统数据库设计与实现描述数据库表的结构及相关约束，如下表：表3.1：User（用户表）字段名称说明数
5、据类型长度字段约束规则是否为索引user_number用户编号整型100主键username用户名字符型20不为空userPw用户密码字符串型16不为空userPhone用户电话号码整型13不为空userEmail用户邮箱字符串型20不为空qqNumber用户qq号整形13address用户地址字符型30表3.2：IAE（收入与支出表）字段名称说明数据类型长度字段约束规则是否为索引IAE number，收入支出号整型100主键IAE data收入支出创建时间日期型30不为空IAE coment纯收入字符串型30不为空EGEXS恩格尔系数双精度型30Income毛收入双精度型Out支出双精度型表
6、3.3：suggestion（建议表）字段名称说明数据类型长度字段约束规则是否为索引Snnumber建议号整型100主键Scontent建议内容字符串型100不为空Sdata创建建议日期日期型30不为空Anumber能力编号外键表3.4：ability（能力值表）字段名称说明数据类型长度字段约束规则是否为索引Anumber,能力号整型100主键Adata创建能力日期日期型30不为空Asize能力值大小整型100不为空Inumber纯收入编号整形100SQL SERVER（ACCESS）数据库实现：只复制表的关系图图3.1 数据库实现关系图（注意：图有图题）4. 系统功能详细设计与实现阐述每个子
7、系统的详细功能，以及系统界面及实现代码。系统说明：完成收支计算，收支查询，分析建议，用户删除。密码修改等功能详细代码：1.DBUser.vbPublic Class DBUser Private _UserNO As String Private _UserPw As String Private _UserName As String Private _UserPhone As String Private _Address As String Private _UserEmail As String Property UserNO() As String Get Return _UserN
8、O End Get Set(ByVal value As String) _UserNO = value End Set End Property Property UserPw() As String Get Return _UserPw End Get Set(ByVal value As String) _UserPw = value End Set End Property Property UserName() As String Get Return _UserName End Get Set(ByVal value As String) _UserName = value End
9、 Set End Property Property UserPhone() As String Get Return _UserPhone End Get Set(ByVal value As String) _UserPhone = value End Set End Property Property Address() As String Get Return _Address End Get Set(ByVal value As String) _Address = value End Set End Property Property UserEmail() As String G
10、et Return _UserEmail End Get Set(ByVal value As String) _UserEmail = value End Set End Property Sub New(ByVal Name As String, ByVal PWD As String) _UserNO = Name _UserPw = PWD End Sub Function 登录Confirm() As Boolean Dim SQLString As String Dim Msg As String SQLString = SELECT * FROM tbUser WHERE Use
11、rNO= & _UserNO & AND UserPw= & _UserPw & Dim UserTable As DataTable = DBOperation.DBOperate(SQLString, Msg) If UserTable.Rows.Count = 0 Then MsgBox(输入用户名或密码有误，请重试, MsgBoxStyle.Exclamation, 信息框) Return False Else Return True End If End Function Sub load() Dim SQLString As String Dim Msg As String SQL
12、String = SELECT * FROM tbUser WHERE UserNO= & _UserNO & AND UserPw= & _UserPw & Dim UserTable As DataTable = DBOperation.DBOperate(SQLString, Msg) _UserName = UserTable.Rows(0)(UserName).ToString _UserPhone = UserTable.Rows(0)(UserPhone).ToString _Address = UserTable.Rows(0)(Address).ToString _UserE
13、mail = UserTable.Rows(0)(UserEmail).ToString End Sub Function PasswordModify(ByVal NewPassword As String) As Boolean Dim SQLString As String Dim Msg As String SQLString = update tbUser set UserPw= & NewPassword & where UserNO= & _UserNO & DBOperation.DBOperate(SQLString, Msg) End Function Shared Fun
14、ction AddUser(ByVal User As DBUser) As Boolean Dim SQLString As String Dim Msg As String SQLString = SELECT * FROM tbUser WHERE UserNO= & User.UserNO & Dim UserTable As DataTable = DBOperation.DBOperate(SQLString, Msg) If UserTable.Rows.Count = 1 Then MsgBox(用户名已存在，请重试！, MsgBoxStyle.Exclamation, 信息框
15、) Return False Else SQLString = insert into tbUser values( & User.UserNO & , & User.UserName & , & User.UserPw & , & User.UserPhone & , & User.Address & , & User.UserEmail & ) DBOperation.DBOperate(SQLString, Msg) Return True End If End Function Shared Function DelUser(ByVal DeleteUserNO As String)
16、As Boolean Dim SQLString As String Dim Msg As String SQLString = DELETE FROM tbUser WHERE UserNO= & DeleteUserNO & DBOperation.DBOperate(SQLString, Msg) Return True End FunctionEnd Class2. DBOperationPublic Class DBOperation Shared Function DBOperate(ByVal SQLString As String, ByRef Msg As String) A
17、s DataTable Try Dim conn As String = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Application.StartupPath & 收支管理系统.mdb Dim oleconn As New OleDb.OleDbConnection(conn) Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQLString, oleconn) cmd.CommandType = CommandType.Text Dim sTokens() As Stri
18、ng sTokens = SQLString.Split( ) If Strings.InStr(INSERT,DELETE,UPDATE, sTokens(0).ToUpper) Then If oleconn.State ConnectionState.Open Then oleconn.Open() End If cmd.ExecuteNonQuery() If oleconn.State ConnectionState.Closed Then oleconn.Close() End If If sTokens(0).ToUpper = INSERT Then Msg = 插入记录成功
19、End If If sTokens(0).ToUpper = DELETE Then Msg = 删除记录成功 End If If sTokens(0).ToUpper = UPDATE Then Msg = 更新记录成功 End If Else Dim ObjectdsDataSet As New DataSet Dim adapter As New OleDb.OleDbDataAdapter adapter.SelectCommand = cmd If oleconn.State ConnectionState.Open Then oleconn.Open() End If cmd.Ex
20、ecuteNonQuery() If oleconn.State ConnectionState.Closed Then oleconn.Close() End If adapter.Fill(ObjectdsDataSet, temp) Return ObjectdsDataSet.Tables(temp) End If Catch MsgBox(Err.Description) End Try End FunctionEnd Class3. DBIAEImports System.DataPublic Class DBIAE Private _Inumber As String Priva
21、te _Idata As String Private _Icoment As String Private _EGEXS As String Private _Income As String Private _Out As String Property Inumber() As String Get Return _Inumber End Get Set(ByVal value As String) _Inumber = value End Set End Property Property Idata() As String Get Return _Idata End Get Set(
22、ByVal value As String) _Idata = value End Set End Property Property Icoment() As String Get Return _Icoment End Get Set(ByVal value As String) _Icoment = value End Set End Property Property EGEXS() As String Get Return _EGEXS End Get Set(ByVal value As String) _EGEXS = value End Set End Property Pro
23、perty Income() As String Get Return _Income End Get Set(ByVal value As String) _Income = value End Set End Property Property Out() As String Get Return _Out End Get Set(ByVal value As String) _Out = value End Set End Property Shared Sub AddIAE(ByVal I As DBIAE) Dim SQLString As String Dim Msg As Str
24、ing SQLString = SELECT * FROM IAE Dim table As DataTable table = DBOperation.DBOperate(SQLString, Msg) Dim a As Integer = table.Rows.Count SQLString = insert into IAE values( & Val(a + 1) & , & Now() & , & I.Icoment & , & I.EGEXS & , & I.Income & , & I.Out & ) DBOperation.DBOperate(SQLString, Msg) M
25、sgBox(保存成功, , 信息框) End SubEnd Class4.主页面Public Class 主页面 Public user As New DBUser(登录.a, 登录.b) Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) End Sub Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object,
26、ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) End Sub Private Sub OdbcConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.Odbc.OdbcInfoMessageEventArgs) End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Su
27、b Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub 主页面_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load user.load() If 登录.a 20091600 Then Me.MenuStrip6.Enabled = False Else Me.MenuStrip6.Enabled = True End If
28、 End Sub Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub 分析功能ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 分析功能ToolStripMenuItem.Click 分析.Show() End Sub Private Sub 建议功能ToolStripMenuItem_Click
29、(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 建议功能ToolStripMenuItem.Click 建议.Show() End Sub Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) End Sub Private Sub MenuStrip7_ItemClicked(ByVal sender As System.Obj
30、ect, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) End Sub Private Sub MenuStrip2_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip2.ItemClicked End Sub Private Sub 收支计算ToolStripMenuItem_Click(ByVal sender As
31、System.Object, ByVal e As System.EventArgs) Handles 收支计算ToolStripMenuItem.Click 收支计算.Show() End Sub Private Sub 收支查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 收支查询ToolStripMenuItem.Click 收支查询.Show() End Sub Private Sub 修改密码ToolStripMenuItem_Click(ByVa
32、l sender As System.Object, ByVal e As System.EventArgs) Handles 修改密码ToolStripMenuItem.Click 修改密码.Show() End Sub Private Sub 用户删除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 用户删除ToolStripMenuItem.Click 用户删除.Show() End Sub Private Sub MenuStrip5_ItemClick
33、ed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip5.ItemClicked End SubEnd Class总体界面： 图4.1 总界面4.1 密码修改子系统功能简介： 此子系统为所有用户提供了密码修改的功能。详细代码：Public Class 修改密码 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventAr
34、gs) Handles Button1.Click If 主页面.user.UserPw Trim(TextBox1.Text) Then MsgBox(输入旧密码不正确，请重新输入！, MsgBoxStyle.Exclamation, 信息框) TextBox1.Clear() TextBox1.Focus() Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(输入新密码不能为空！, MsgBoxStyle.Exclamation, 信息框) Exit Sub End If If Trim(TextBox2.Text) Trim(Tex
35、tBox3.Text) Then MsgBox(两次输入的密码不一致！, MsgBoxStyle.Exclamation, 信息框) TextBox2.Clear() TextBox3.Clear() TextBox2.Focus() Exit Sub End If 主页面.user.PasswordModify(TextBox2.Text) MsgBox(恭喜密码修改成功！, , 信息框) 主页面.user.UserPw = TextBox2.Text TextBox2.Clear() TextBox1.Clear() TextBox3.Clear() TextBox1.Focus() En
36、d Sub Private Sub 修改密码_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 主页面.Show() Me.Close() End SubEnd Class界面展示： 图4.2 密码修改界面4.2 用户删除子系统功能简介： 对已经有的用户进行查询，详细显示用户的信息，对于此项功能只针对超级用户开放，即其是有权限的，之对20091600这个用户显示，这也是防止将用户的信息泄露。 同时也超级用户提供了用户删除的功能，对于某些非法用户，本人有直接将删除的权限。详细代码： Public Class 用户删除 Private Sub Button1_Click(ByVal sender As
