1、课 程 设 计 任 务 书课 程 设 计 任 务 书 学院：机电工程学院学院：机电工程学院 专业：机械设计制造及其自动化专业：机械设计制造及其自动化 班级：班级： 学号：学号： 题目：银行存取款管理题目：银行存取款管理 一、课程设计时间一、课程设计时间 2012 年 3 月 5 日9 日（第 1 周） ，共计 1 周。 二、课程设计内容二、课程设计内容 以 VB+Access 组合，实现银行系统储户存取款管理。要求考虑存款类型：活期、 定期， 要按现有的实际利率计算， 储户数据表至少应包括： 编号、 用户名称、 身份证号、 密码、存款日期、存款金额、取款日期、利息等，只有在取款时才计算利息。
2、用户界面中的菜单至少应包括“建立新储户” 、 “存款” 、 “取款” 、 “退出”4 项。 三、课程设计要求三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提 供的模板。 四、指导教师和学生签字四、指导教师和学生签字 指导教师：指导教师：_ 学生签名：学生签名：_ 五、成绩五、成绩 六、教师评语六、教师评语 第 3 页，共 13 页 目 录 需求分析.4 设计分析.4 关键技术.5 总结
3、. 11 完整的源程序.12 参考文献.12 第 4 页，共 13 页 需求分析需求分析 以 VB+Access 组合，实现银行系统储户存取款管理。 要求： 1、 考虑存款类型：活期、定期。 2、 要按现有的实际利率计算。 3、 储户数据表至少应包括：编号、用户名称、身份 证号、密码、存款日期、存款金额、取款日期、 利息等，只有在取款时才计算利息。 4、 用户界面中的菜单至少应包括“建立新储户” 、 “存款” 、 “取款” 、 “退出”4 项。 设计分析设计分析 （1） 基本原理：建立程序设计与数据库的连接，用 SQL语句在数据库中查找，添加和更改数据。 （2） 总体设计： SQL 语言处 理
4、 数据库 ADO 技术 连接 第 5 页，共 13 页 （3）详细设计： 关键技术关键技术 1 建立与数据库的连接代码如下建立与数据库的连接代码如下 Private Sub Form_Load() Dim mpath$, mlink$ 用代码设置用代码设置ADO控件的控件的 Connectionstring属性和属性和Commangtype属性属性 mpath = App.Path 获取程序所在的路径获取程序所在的路径 If Right(mpath, 1) “ Then mpath = mpath + “ 判断是否为子判断是否为子 目录目录 mlink = “Provider=Microsof
5、t.Jet.OLEDB.4.0;“ 指定提供者指定提供者 mlink = mlink + “Data Source=“ + mpath + “储户信息储户信息.mdb“ 在数在数 据库文件名前插入路径据库文件名前插入路径 开始 连接数据库 添加数据 编辑数据 新建储户 存款 取款 查找数据 第 6 页，共 13 页 Adodc1.ConnectionString = mlink 设置连接属性设置连接属性 Adodc1.CommandType = adCmdUnknown 指定命令类型指定命令类型 End Sub 2 新建储户是添加数据到数据库中新建储户是添加数据到数据库中 代码如下代码如下 P
6、rivate Sub a_Click() Adodc1.Recordset.AddNew End Sub 界面如下界面如下 图一图一 建立新储户建立新储户 3 刷新设置刷新设置 代码如下代码如下 Private Sub Command1_Click() If Text2 “ Then Adodc1.RecordSource = “Select * From 储户信息储户信息 Where 身份证号身份证号 = “ “ 指定提供者指定提供者 mlink = mlink + “Data Source=“ + mpath + “储户信息储户信息.mdb“ 在数据在数据 库文件名前插入路径库文件名前插入路径 Adodc1.ConnectionString = mlink 设置连接属性设置连接属性 Adodc1.CommandType = adCmdUnknown 指定命
