VB课程设计--银行存取款管理.doc

课程设计任务书学院：机电工程学院 专业：机械设计制造及其自动化 班级：学号： 题目：银行存取款管理一、课程设计时间2012年3月5日9日（第1周），共计1周。二、课程设计内容以VB+Access组合，实现银行系统储户存取款管理。要求考虑存款类型：活期、定期，要按现有的实际利率计算，储户数据表至少应包括：编号、用户名称、身份证号、密码、存款日期、存款金额、取款日期、利息等，只有在取款时才计算利息。用户界面中的菜单至少应包括“建立新储户”、“存款”、“取款”、“退出”4项。三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语 目 录需求分析4设计分析4关键技术5总结9完整的源程序10参考文献13需求分析以VB+Access组合，实现银行系统储户存取款管理。要求：1、 考虑存款类型：活期、定期。2、 要按现有的实际利率计算。3、 储户数据表至少应包括：编号、用户名称、身份证号、密码、存款日期、存款金额、取款日期、利息等，只有在取款时才计算利息。4、 用户界面中的菜单至少应包括“建立新储户”、“存款”、“取款”、“退出”4项。设计分析（1） 基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（2） 总体设计：SQL语言处理数据库ADO技术连接（3）详细设计：开始连接数据库添加数据编辑数据新建储户存款取款查找数据 关键技术1建立与数据库的连接代码如下Private Sub Form_Load() Dim mpath$, mlink$ 用代码设置ADO控件的Connectionstring属性和Commangtype属性 mpath = App.Path 获取程序所在的路径 If Right(mpath, 1) Then mpath = mpath + 判断是否为子目录 mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者 mlink = mlink + Data Source= + mpath + 储户信息.mdb 在数据库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性 Adodc1.CommandType = adCmdUnknown 指定命令类型End Sub2新建储户是添加数据到数据库中代码如下Private Sub a_Click() Adodc1.Recordset.AddNewEnd Sub界面如下图一 建立新储户3 刷新设置代码如下Private Sub Command1_Click() If Text2 Then Adodc1.RecordSource = Select * From 储户信息 Where 身份证号 = & Text2 & Else Adodc1.RecordSource = Select * From 储户信息 End If Adodc1.RefreshEnd SubPrivate Sub Command2_Click() 菜单刷新 Me.Refresh Adodc1.RecordSource = select * from 储户信息 Adodc1.RefreshEnd SubPrivate Sub d_Click() EndEnd SubPrivate Sub f_Click() 删除 Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextEnd Sud刷新后的界面图二 刷新界面4存款或者取款时利用SQL语句在数据库中查找对应储户信息程序段如下：Private Sub b_Click() 菜单存款 Dim a% Dim j As Integer j = Val(Text4.Text) j指存款金额 a = Adodc1.Recordset.AbsolutePosition 记录指针所在位置 i = Val(MsgBox(确认存款 & ？, vbYesNo) If i = 6 Then MsgBox (您存了 & Text4.Text & 元) Adodc1.Recordset.Fields(存款金额) = Adodc1.Recordset.Fields(存款金额) + j Adodc1.Recordset.Update Else End IfEnd SubPrivate Sub c_Click() 菜单取款 Dim b As Integer Dim c As Integer Dim k As Integer Dim l As Integer Dim a% c = Val(Text4.Text) k = (Year(Text5) - Year(Text3) * 365 + (Month(Text5) - Month(Text3) * 30 + (Day(Text3) - Day(Text5) 天数 b = InputBox(请输入密码) If b Adodc1.Recordset.Fields(密码) Then MsgBox 密码错误 Else If Text7.Text Text4.Text Then MsgBox 您的余额已不足 Else If Combo1.Text = 活期 Then 根据取款类型计算相应利息 Text6 = (c * 0.5 / 100) * k / 365 ElseIf Combo1.Text = 定期一年 Then Text6 = (c * 3.1 / 100) * k / 365 ElseIf Combo1.Text = 定期两年 Then Text6 = (c * 3.5 / 100) * k / 365 End If l = Val(Text7.Text) a = Adodc1.Recordset.AbsolutePosition 记录指针所在位置 i = (MsgBox(确认取款 & ？, vbYesNo) If i = 6 Then MsgBox (您取了 & Text7.Text & 元) Adodc1.Recordset.Fields(存款金额) = Adodc1.Recordset.Fields(存款金额) - l + Val(Text6.Text) Adodc1.Recordset.Fields(取款金额) = Adodc1.Recordset.Fields(取款金额) + l Adodc1.Recordset.Update Else End If End If End IfEnd Sub5计算储户利息根据存取款时间差，存款类型计算对应的利息。程序段如下：k = (Year(Text5) - Year(Text3) * 365 + (Month(Text5) - Month(Text3) * 30 + (Day(Text3) - Day(Text5) 天数If Combo1.Text = 活期 Then 根据取款类型计算相应利息 Text6 = (c * 0.5 / 100) * k / 365 ElseIf Combo1.Text = 定期一年 Then Text6 = (c * 3.1 / 100) * k / 365 ElseIf Combo1.Text = 定期两年 Then Text6 = (c * 3.5 / 100) * k / 365 End If l = Val(Text7.Text) a = Adodc1.Recordset.AbsolutePosition 记录指针所在位置 图三 利息计算存款界面图四 存款界面取款界面图五 取款界面总结 我的课设题目是银行存储款管理系统，通过课设我熟悉了VB与数据库之间的联系，初步使用ADO技术使VB与数据库进行联系，还应用SQL语言查询和更改数据库中的信息，并能向其中添加新的数据。 在课设中我逐渐体会了仔细对编写程序的人员的重要性，很多代码的编写都必须在VB语言下进行，绝不能想当然。而且通过自己的努力，掌握了数据库的连接技术，通过老师的指点和自己查阅资料，我顺利的完成了任务。 同时我也明白学好VB是社会发展的需要。完整的源程序Private Sub a_Click() Adodc1.Recordset.AddNewEnd SubPrivate Sub b_Click() 菜单存款 Dim a% Dim j As Integer j = Val(Text4.Text) j指存款金额 a = Adodc1.Recordset.AbsolutePosition 记录指针所在位置 i = Val(MsgBox(确认存款 & ？, vbYesNo) If i = 6 Then MsgBox (您存了 & Text4.Text & 元) Adodc1.Recordset.Fields(存款金额) = Adodc1.Recordset.Fields(存款金额) + j Adodc1.Recordset.Update Else End IfEnd SubPrivate Sub c_Click() 菜单取款 Dim b As Integer Dim c As Integer Dim k As Integer Dim l As Integer Dim a% c = Val(Text4.Text) k = (Year(Text5) - Year(Text3) * 365 + (Month(Text5) - Month(Text3) * 30 + (Day(Text3) - Day(Text5) 天数 b = InputBox(请输入密码) If b Adodc1.Recordset.Fields(密码) Then MsgBox 密码错误 Else If Text7.Text Text4.Text Then MsgBox 您的余额已不足 Else If Combo1.Text = 活期 Then 根据取款类型计算相应利息 Text6 = (c * 0.5 / 100) * k / 365 ElseIf Combo1.Text = 定期一年 Then Text6 = (c * 3.1 / 100) * k / 365 ElseIf Combo1.Text = 定期两年 Then Text6 = (c * 3.5 / 100) * k / 365 End If l = Val(Text7.Text) a = Adodc1.Recordset.AbsolutePosition 记录指针所在位置 i = (MsgBox(确认取款 & ？, vbYesNo) If i = 6 Then MsgBox (您取了 & Text7.Text & 元) Adodc1.Recordset.Fields(存款金额) = Adodc1.Recordset.Fields(存款金额) - l + Val(Text6.Text) Adodc1.Recordset.Fields(取款金额) = Adodc1.Recordset.Fields(取款金额) + l Adodc1.Recordset.Update Else End If End If End IfEnd SubPrivate Sub a_Click() Adodc1.Recordset.AddNewEnd SubPrivate Sub Command1_Click() If Text2 Then Adodc1.RecordSource = Select * From 储户信息 Where 身份证号 = & Text2 & Else Adodc1.RecordSource = Select * From 储户信息 End If Adodc1.RefreshEnd SubPrivate Sub Command2_Click() 菜单刷新 Me.Refresh Adodc1.RecordSource = select * from 储户信息 Adodc1.RefreshEnd SubPrivate Sub d_Click() EndEnd SubPrivate Sub f_Click() 删除 Adodc1.Recordset.Delete Adodc1.Recordset.MoveNextEnd SubPrivate Sub Form_Load() Dim mpath$, mlink$ 用代码设置ADO控件的Connectionstring属性和Commangtype属性 mpath = App.Path 获取程序所在的路径 If Right(mpa