VB银行存取款管理.docVIP

课程设计任务书 学院：机电工程学院 专业：机械设计制造及其自动化 班级： 学号： 题目：银行存取款管理 一、课程设计时间 2012年3月5日~9日（第1周），共计1周。 二、课程设计内容 以VB+Access组合，实现银行系统储户存取款管理。要求考虑存款类型：活期、定期，要按现有的实际利率计算，储户数据表至少应包括：编号、用户名称、身份证号、密码、存款日期、存款金额、取款日期、利息等，只有在取款时才计算利息。 用户界面中的菜单至少应包括“建立新储户”、“存款”、“取款”、“退出”4项。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师：________ 学生签名：________ 五、成绩 六、教师评语  目 录 需求分析 4 设计分析 4 关键技术 5 总结 9 完整的源程序 10 参考文献 13 需求分析 以VB+Access组合，实现银行系统储户存取款管理。要求： 考虑存款类型：活期、定期。 要按现有的实际利率计算。 储户数据表至少应包括：编号、用户名称、身份证号、密码、存款日期、存款金额、取款日期、利息等，只有在取款时才计算利息。 用户界面中的菜单至少应包括“建立新储户”、“存款”、“取款”、“退出”4项。 设计分析 基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。 总体设计： （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 Sub 2新建储户是添加数据到数据库中 代码如下 Private Sub a_Click() Adodc1.Recordset.AddNew End Sub 界面如下 图一 建立新储户 3 刷新设置 代码如下 Private Sub Command1_Click() If Text2 Then Adodc1.RecordSource = Select * From 储户信息 Where 身份证号 = Text2 Else Adodc1.RecordSource = Select * From 储户信息 End If Adodc1.Refresh End Sub Private Sub Command2_Click() 菜单—刷新 Me.Refresh Adodc1.RecordSource = select * from 储户信息 Adodc1.Refresh End Sub Private Sub d_Click() End End Sub Private Sub f_Click() 删除 Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext End Sud 刷新后的界面 图二 刷新界面 4存款或者取款时利用SQL语句在数据库中查找对应储户信息 程序段如下： Private Sub b_Click() 菜单—存款 Dim a% Dim j As Integer j = Val(Text4.Text)