- 1、本文档共14页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB课程设计--银行存取款管理
课程设计任务书
学院:机电工程学院 专业:机械设计制造及其自动化 班级:
学号: 题目:银行存取款管理
一、课程设计时间
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)
您可能关注的文档
- CdS电子结构与光学性质的第一性原理计算.doc
- CFG桩三级技术交底.doc
- CJD自动定量包装机电控使用说明书.doc
- CKD患者的居家食疗.ppt
- CNG加气母站施工组织设计.doc
- CNG改装程序文件.doc
- Cognos培训教材.ppt
- Constitution of the Commonwealth of Australia - Constitutional 澳大利亚宪法的联邦宪法.doc
- CRG公司新产品项目融资和投资决策分析案例.doc
- C_S模式下的通用人机对话考试系统的设计与实现.doc
- 上课《归园田居(其一)》课件28张.pptx
- 色彩的魅力课件55.ppt
- 山水田园诗导学练习鉴赏.ppt
- 部编版《白鹭》课件.pptx
- 《Excel在财务中的应用》项目七 全面预算编制方法与应用 教学课件.pptx
- 《Excel在财务中的应用》项目六 利润管理决策模型与应用 教学课件.pptx
- 《Excel在财务中的应用》项目五 运营资金的管理 教学课件.pptx
- 《Excel在财务中的应用》项目四 项目投资管理决策与应用 教学课件.pptx
- 《Excel在财务中的应用》项目三 筹资管理决策模型与应用 教学课件.pptx
- 《Excel在财务中的应用》项目二 Excel 常用函数基础 教学课件.pptx
文档评论(0)