vb课程设计--银行存取款管理

《vb课程设计--银行存取款管理》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、课程设计任务书学院：机电工程学院专业：机械设计制造及其自动化班级：学号：题目：银行存取款管理一、课程设计时间2012年3月5日~9日（第1周），共计1周。二、课程设计内容以VB+Access组合，实现银行系统储户存取款管理。要求考虑存款类型：活期、定期，要按现有的实际利率计算，储户数据表至少应包括：编号、用户名称、身份证号、密码、存款日期、存款金额、取款日期、利息等，只有在取款时才计算利息。用户界面中的菜单至少应包括“建立新储户”、“存款”、“取款”、“退出”4项。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方便；可以加

2、以其它功能或修饰。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩六、教师评语第14页，共13页目录需求分析4设计分析4关键技术5总结9完整的源程序10参考文献13第14页，共13页需求分析以VB+Access组合，实现银行系统储户存取款管理。要求：1、考虑存款类型：活期、定期。2、要按现有的实际利率计算。3、储户数据表至少应包括：编号、用户名称、身份证号、密码、存款日期、存款金额

3、、取款日期、利息等，只有在取款时才计算利息。4、用户界面中的菜单至少应包括“建立新储户”、“存款”、“取款”、“退出”4项。设计分析（1）基本原理：建立程序设计与数据库的连接，用SQL语句在数据库中查找，添加和更改数据。（2）总体设计：SQL语言处理数据库ADO技术连接第14页，共13页（3）详细设计：开始连接数据库添加数据编辑数据新建储户存款取款查找数据关键技术1建立与数据库的连接代码如下PrivateSubForm_Load()Dimmpath$,mlink$'用代码设置ADO控件的Connectionstring属性和Commangtype属性mpath=

4、App.Path'获取程序所在的路径IfRight(mpath,1)<>""Thenmpath=mpath+""'判断是否为子目录mlink="Provider=Microsoft.Jet.OLEDB.4.0;"'指定提供者mlink=mlink+"DataSource="+mpath+"储户信息.mdb"'在数据库文件名前插入路径Adodc1.ConnectionString=mlink'设置连接属性第14页，共13页Adodc1.CommandType=adCmdUnknown'指定命令类型EndSub2新建储户是添加数据到数据库中代码如下Private

5、Suba_Click()Adodc1.Recordset.AddNewEndSub界面如下图一建立新储户3刷新设置代码如下PrivateSubCommand1_Click()IfText2>""ThenAdodc1.RecordSource="Select*From储户信息Where身份证号='"&Text2&"'"ElseAdodc1.RecordSource="Select*From储户信息"第14页，共13页EndIfAdodc1.RefreshEndSubPrivateSubCommand2_Click()'菜单—刷新Me.RefreshAdodc1.R

6、ecordSource="select*from储户信息"Adodc1.RefreshEndSubPrivateSubd_Click()EndEndSubPrivateSubf_Click()'删除Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEndSud刷新后的界面图二刷新界面4存款或者取款时利用SQL语句第14页，共13页在数据库中查找对应储户信息程序段如下：PrivateSubb_Click()'菜单—存款Dima%DimjAsIntegerj=Val(Text4.Text)'j指存款金额a=Adodc1.

7、Recordset.AbsolutePosition'记录指针所在位置i=Val(MsgBox("确认存款"&"？",vbYesNo))Ifi=6ThenMsgBox("您存了"&Text4.Text&"元")Adodc1.Recordset.Fields("存款金额")=Adodc1.Recordset.Fields("存款金额")+jAdodc1.Recordset.UpdateElseEndIfEndSubPrivateSubc_Click()'菜单—取款DimbAsIntegerDimcAsIntegerDimkAsIntegerDimlAsIntege

8、rDima%c=Val(