银行储蓄系统

1、银 行 储 蓄 系 统 设 计PAGE 34疤数据库系统原颁理课 程 设 计邦2011佰年拜12靶月艾31肮日目 录TOC o 1-3 h z u HYPERLINK l _Toc313228107 一、概述 PAGEREF _Toc313228107 h 3 HYPERLINK l _Toc313228108 矮1.1 碍课程设计的目的癌 PAGEREF _Toc313228108 h 扒3 HYPERLINK l _Toc313228109 碍1.2 矮课程设计的内容阿 PAGEREF _Toc313228109 h 吧3 HYPERLINK l _Toc313228110 皑1.3 稗课

2、程设计的要求霸 PAGEREF _Toc313228110 h 跋3 HYPERLINK l _Toc313228111 挨二、需求分析捌 PAGEREF _Toc313228111 h 埃3 HYPERLINK l _Toc313228112 按2.1 瓣系统需求版 PAGEREF _Toc313228112 h 八3 HYPERLINK l _Toc313228113 肮2.2 绊数据字典吧 PAGEREF _Toc313228113 h 胺3 HYPERLINK l _Toc313228114 挨三、系统总体设扮计扳 PAGEREF _Toc313228114 h 艾3 HYPERLIN

3、K l _Toc313228115 笆3.1啊系统总体设计思矮路板 PAGEREF _Toc313228115 h 蔼3 HYPERLINK l _Toc313228116 埃3.2 唉概念模型设计八 PAGEREF _Toc313228116 h 翱3 HYPERLINK l _Toc313228117 靶3.2.1 爱局部奥E-R坝图肮 PAGEREF _Toc313228117 h 傲3 HYPERLINK l _Toc313228118 翱3.2.2 斑全局罢E-R叭图笆 PAGEREF _Toc313228118 h 瓣3 HYPERLINK l _Toc313228119 罢3.3

4、 暗逻辑结构设计拜 PAGEREF _Toc313228119 h 叭3 HYPERLINK l _Toc313228120 吧3.4 芭数据库建立实施澳 PAGEREF _Toc313228120 h 吧3 HYPERLINK l _Toc313228121 耙3.4.1 案建立数据库啊 PAGEREF _Toc313228121 h 斑3 HYPERLINK l _Toc313228122 芭3.4.2 案建立关系表阿 PAGEREF _Toc313228122 h 邦3 HYPERLINK l _Toc313228123 柏四、系统实现按 PAGEREF _Toc313228123 h

5、霸3 HYPERLINK l _Toc313228124 啊五、系统评价傲 PAGEREF _Toc313228124 h 扒3 HYPERLINK l _Toc313228125 扳六、课程设计心案得、总结拔 PAGEREF _Toc313228125 h 矮3 HYPERLINK l _Toc313228126 参考文献： PAGEREF _Toc313228126 h 3 HYPERLINK l _Toc313228127 致 谢 PAGEREF _Toc313228127 h 3 HYPERLINK l _Toc313228128 附 录 PAGEREF _Toc313228128 h

6、 3一、概述拌1.1 蔼课程设计的目的扒数据库系统原巴理课程设计是盎本爸专业的重要实践熬性教学环节，是爸数据库系统原坝理课程的后续叭辅助教学课程。绊通过该课程设计案，使学生掌握数办据库的基本概念按，结合实际的操板作和设计，巩固捌课堂教学内容，肮使学生掌握数据碍库系统的基本概澳念、原理和技术啊，将理论与实际啊相结合，应用现袄有的数据建模工俺具和数据库管理疤系统软件，规范唉、科学地完成一瓣个小型数据库的阿设计与实现，把盎理论课与实验课版所学内容做一综皑合，并在此基础把上强化学生的实罢践意识、提高其皑实际动手能力和碍创新能力。坝具体掌握的基本斑能力有以下几个埃方面：矮学习和巩固数熬据库系统原理背的基

7、本知识。袄关系数据库管理肮系统的基本使用笆方法。颁熟悉奥SQL稗语言的主要功能安及肮SQL拔语句的使用操作鞍。胺熟悉数据库管理巴系统的设计过程摆，培养解决实际稗问题的能力。靶小型数据库应用办系统的设计方法翱。伴1.2 疤课程设计的内容蔼1白、斑课程设计鞍内容：袄 鞍(1)芭主要的数据表吧定期存款帐，活跋期存款帐，存款凹类别代码表等等办。俺(2)唉主要功能模块版实现储户开户登埃记。矮办理定期存款帐捌。癌办理定期取款手败续。办理活期存款帐巴办理活期取款手拌续。实现利息计算。输出明细表。隘具有数据备份和阿数据恢复功能。2、系统要求：皑(1)癌要进行实际调研拌，系统功能在实摆现时参照实际的癌储蓄系统的

8、功能版。瓣(2)办同时要考虑银行熬系统数据的安全胺与保密工作。邦1.3 哀课程设计的要求胺根据题目查找资把料及调研，写出佰数据库系统的需瓣求分析报告；柏根据需求分析，八设计系统的功能斑结构，画出系统拌的功能结构图，隘设计的功能要全版面、正确，能解凹决现实世界各类翱用户的实际需要佰；哀根据需求分析，巴确定所设计的系袄统涉及到的实体拔、各实体的属性拌以及各实体之间阿的联系，用熬E-R敖图完成系统的概霸念模型设计，设扒计的概念模型要氨能全面、真实的按反应现实世界，班能满足系统功能白的需要；哎根据碍E-R矮图转换为巴DBMS安支持的关系模型哎，作出数据库系板统的逻辑模型：艾1安）数据库的关系笆模式（使

9、用关系熬模型规范化理论芭进行优化，要求吧各关系至少达到佰3NF半）；昂2邦）确定各关系属背性的域；埃3案）确定各关系的奥主码、必要的约鞍束、关系之间的隘参照完整性等。胺适当的选择设计捌各类用户的子模爱式；般根据逻辑模型、伴系统环境和用户靶需求，设计数据百库的物理结构。埃使用澳PB懊、颁VFP哀、挨VB阿、拔VC罢、敖VB.NET氨、暗C#伴、阿Java俺、矮DELPHI矮、癌ASP佰、佰JSP唉、佰PHP霸或熬ASP.NET霸等程序设计语言盎，进行相应前台绊主要模块和菜单搬的设计，采用扒B/S案或爱C/S扮模式，数据库作埃为后台服务器。安设计一组数据库鞍表的测试实例，拔对各项功能进行扒简单的测

10、试并写拌出测试结果。安按照爸附件疤1搬中课程设计模板罢的格式，编写课坝程设计报告，并埃使用昂A4佰纸打印、上交。搬提交以下电子稿白信息：课程设计稗报告电子稿、数伴据库文件扮(*.MDF熬和拔*.LDF艾文件敖)懊、软件源代码和案软件使用说明二、需求分析拌2.1 坝系统需求按通过调查，要求瓣系统需要有以下斑功能：瓣要求有良好的人斑机界面；暗由于该系统使用爱对象多，要求有百较好的权限管理氨；拌原始数据修改简伴单方便，支持多碍条件修改；邦方便的数据查询拌，支持多条件查袄询；搬在相应的权限下翱，删除数据方便靶，数据稳定性好岸；摆数据计算自动完凹成，尽量减少人邦工干预。盎系统中要求每个版人银行管理者都板

11、有一个系统帐号翱，并每个帐号都癌有密码，系统的笆一切操作（如：扳增加存储用户，跋提高利率等）都翱由管理者执行，扮而不是由存诸用柏户执行，也主是邦说存储用户并不矮直接与系统交互唉，而是通过管理板员与系统交互。百该系统主要有两摆部份业务功能，靶存款与取款。隘储户填写的存款拔单矮或取款单由业务唉员输入系统，如哀果是存款则系统笆记录存款人姓名昂，住址，电话号唉码巴，身份霸证号码，存款类啊型，存款日期，案到期日期，利率隘及密码（可选）坝等信息，拌如果是取款而且捌存款时留有密码隘，则系统首先核俺对储户密码，若懊密码正确或存款岸时未留密码，则挨系统计算得利息哎并打印出利息清绊单给储户。岸2.2 疤数据字典数

12、据名字：注册申请表数据来源：储户数据目的：储户信息数据组成：姓名+密码+住址+身份证号码昂数据名字：笆储户信息表数据来源：储户熬数据目的：身份拔验证昂数据组成：姓名爸+胺密码阿+捌住址吧+摆身份证号码版+版现有金额数据名字：利息清单数据来源：系统数据目的：储户数据组成：利息+姓名+取款时间+取款金额数据名字：存单数据来源：存款信息表数据目的：储户数据组成：姓名+到期时间+存入类型+存入时间+利率+存入金额 数据名字：取款单数据来源：储户 数据目的：储户信息表数据组成：姓名+到期时间+存入类型+存入时间+利率+取款金额+身份证号数据名字：存款单数据目的： 存款信息表数据组成：姓名+到期时间+存入

13、类型+存入时间+利率+存入金额+身份证号捌三、系统总体设胺计俺3.1靶系统总体设计思爸路拜银行储蓄系统的埃主要功能皑实现储户开户登靶记、办理定期存伴款帐、办理定期拌取款手续、办理啊活期存款帐、办叭理活期取款手续版、实现利息计算翱等。每个功能模氨块都和银行的业搬务量直接有关，稗采用银行储蓄系板统的目的是提高斑储蓄服务的质量澳，提高信息管理暗的精度，进而提半高银行在客户心翱目中的信誉，树跋立良好的银行服笆务形象。各子功盎能分析如下：斑储蓄项目管理澳功能翱该功能实现了银把行管理人员对银俺行内部制定和调背整储蓄项目信息袄的管理。包括对胺储蓄项目增加、耙修改、删除、查笆询等等。凹储户信息管理八功能艾该功

14、能实现了对爸银行信息的管理阿，该功能包括开颁户、销户等等。肮储户服务管理翱功能隘该功能实现了对袄储户服务的具体坝化，也是储户需岸求量最大的服务白项目。主要包括半存款、取款和转阿账以及修改密码皑和查询余额等功伴能。翱操作人员管理昂功能班该功能主要是系唉统管理人员对操拔作人员的管理。鞍包括添加操作人叭员、删除操作人唉员、修改用户名巴或密码等功能。系统维护功能班 哎该功能主要是对邦该系统的维护。肮包括关于和退出颁系统两项内容。拜由于业务员的操昂作与用户的操作扒基本相似，可以埃简单化地认为系埃统只与业务员交罢互，基于这个思奥想，将有利与简爱化以后系统程序坝的设计与开发。精化图如下业务员操作银行存储管理

15、系统用户操作系统输出查询取款存款开户计算利息打印存单更新用户信息保存新用户信息密码验证提交用户查询表提交取款单提交存款单提交用户申请表打印清单胺银行储蓄系统功八能模块图半3.2 爱概念模型设计暗3.2.1 皑局部吧E-R佰图挨根据数据项和数肮据结构，可设计哎规划出颁储户实体罢、管理员实体和安系统实体的版E-R背图。蔼其中，图（蔼1斑）所示为矮储户实体般E皑-肮R跋图百，图（巴2扳）所示为管理员暗实体昂E斑-阿R耙图啊，图（白3熬）所示为存款靶实体靶E暗-拜R熬图案，图（颁4盎）所示为取款唉实体案E版-半R岸图艾，姓名住址性别储户身份证号账号登录密码半储户实体芭E芭-懊R八图败（版1耙）员工号管

16、理员姓名笆管理员吧实体袄E霸-扳R佰图熬（霸2昂）存款类型到期日期金额账号存款日期姓名存款爱存款熬实体澳E扮-百R笆图埃（俺3霸）金额账号取款日期取款姓名霸取款跋实体碍E阿-按R败图柏(4)把3.2.2 百全局邦E-R艾图身份证号码住址姓名登录密码性别账号储户半1 版 搬 芭 把 啊 般 巴 碍 拔 碍 1金额存款类型到期日期存款日期查询存款取款捌 昂 跋 伴 n金额岸 碍 肮 背 拌 跋 n 皑 巴 n取款日期管理员 打印存单打印清单系统查询存款取款爸 皑 稗 扒 n案 柏 n 柏 败 n姓名清单信息员工号金额白 捌 唉 哀 n熬 扮 n 爸 罢n取款日期存款类型到期日期金额存款日期 霸 般

17、 拜 胺 1巴 邦 1 胺 百 1颁1 袄 案 背 肮 摆 哀 巴 疤 埃 爸 柏1柏3.3 矮逻辑结构设计白储户（储户俺账号、姓名、密岸码、身份证号、鞍性别、账户余额百、开户日期、住爸址蔼）扒管理员（员工号袄、半姓名）搬活期靶存挨取板款（储户姓名背、员工号、账户邦金额、存款类型靶、到期日期、昂存百取鞍款日期扮、利息把）蔼查询（储户姓名八、败员工号）熬定期跋取款（储户姓名办、账号、金额、跋取款日期）肮定期存款（碍储户姓名啊、账号、金额、疤存把款日期罢、存储年数、利稗率）皑3.4 般数据库建立实施靶3.4.1 叭建立数据库阿数据库在一个银疤行储蓄系统中占隘有非常重要的地盎位，数据库结构背设计的好

18、坏将直搬接对应用系统的把效率以及实现的拔效果产生影响。癌合理的数据库结岸构设计可以提高爸数据存储的效率哀，保证数据的完隘整性和一致性。伴同时合理的数据案库也将有利于程癌序的实现。本设哀计采用邦SQL Ser傲ver2000昂来建立数据库袄。在创建数据库邦时，首先启动啊Microso扮ft SQL 罢Server半，然后创建名为八bankDB岸的数据库。创建败数据库的具体步绊骤如下：罢（翱1板）选择“开始”扮/捌程序坝/Micros暗oft SQL芭 Server邦/把企业管理器命令半，打开柏SQL Ser澳ver靶数据库的运行环氨境，在此环境中八单击“数据库文般件”哀 暗右击“新建数据叭库”进

19、行数据库扮的创建，建立数败据库如图所示：创建数据库搬3.4.2 啊建立关系表昂 半 摆在霸bankDB隘数据库单击新建颁表，则可建立表昂。如图所示：创建表芭设计表柏如图所示：啊 百 伴 懊储户设计表（坝Iuser绊）拜活期存取设计表暗(Hqcq)盎定期取邦设计表耙（拔Dqq百）巴定期存设计表碍（跋Dqc叭）胺权限设计表板(user_i敖nfo)耙表中的内容如图白所示：半储户表白（版Iuser皑）罢活期存取表俺(Hqcq)背定期取矮表罢（扒Dqq版）阿定期存表凹（坝Dqc扒）芭权限表伴(user_i盎nfo)四、系统实现澳1拔、这是窗体登录碍主界面，用户登扒录后可以保障数跋据的安全性，用凹户登录

20、需要用户背名和密码，保证扳输入的正确。步熬骤一：首先输入哀注册的用户名，爸再输入正确的密皑码。登录界面如耙图所示：登录界面拌步骤二：点击“俺登录”按钮进行版登录验证，如果靶输入的账号信息稗正确，则会出现稗程序主界面，表俺明成功登录系统疤，如果输入的用八户名不存在或密盎码错误，则会给稗出错误提示信息傲。罢2傲、这是银行管理澳员操作主界面，安主要有浏览储户艾信息、添加储户俺信息（开户）、颁删除储户信息（般销户）、修改密背码等操作。如图叭所示：主界面搬3肮、当对新用户进柏行开户时，点击拔主界面中的银行爸信息管理，再点皑击其下面的子模昂块添翱加唉储户信息版，输入账号、姓半名、密码、省份板证号等，单击“

21、吧确定添加”按钮啊则会提示添加成办功。如图所示跋:矮添加储户癌信息捌界面拌4叭、当对用户进行笆浏览时，扮点击主界面中的扳银行信息管理，熬再点击其下面的挨子笆模块翱浏览鞍储户信息败，可显示账号、挨姓名、密码、省蔼份证号、余额等半储户信息，单击凹“首记录”“上敖一记录”“下一叭记录”“末记录艾”按钮，则可对扳不同的储户进行板查看信息并且会隘出现提示信息，懊是最后一条记录氨，还是首记录。埃如图所示白:扳浏览储户信息界搬面挨5百、当修改密码时翱，斑点击主界面中的埃银行信息管理，坝再点击其下面的扳子模块吧修改密码信息，熬可进行密码修改耙，首先显示原密百码，点击“确定肮”按钮，其次显蔼示新密码，并输爸入确

22、认密码，最奥后点击“确定”疤按钮，则可完成艾密码修改。如图奥所示原密码新密码啊6傲、当删除储户信埃息时，熬点击主界面中的八银行信息管理，百再点击其下面的叭子模块班删除储户信息，案可对储户进行删佰除，即销户，其奥下面又分为两个胺子模块，一是按瓣姓名删除，二是吧按卡号删除，二搬者结果一样，即耙达到了删除储户绊信息的目的。如翱图所示：按姓名删除界面按卡号删除界面五、系统评价搬本系统是关于吧C/S挨模式的设计，由盎于这次的银行储袄蓄系统个人能力柏有限我板没有完搬全满足矮老师的要求，但盎是我搬所做出的模块和搬功能爸基本上瓣都能实现半。按1艾耙当操作员输入正坝确的用户名和密靶码时，便可登录鞍到主界面，对储

23、般户进行笆一系列的芭管理及操作。霸2蔼伴对本系统存在的啊缺点翱:懊（斑1耙）部分数据通过靶实际观察假设得澳来，没有确凿的邦文献作为依据。白（案2碍）考虑的因素不巴是十分充分，与敖实际情况存在一稗定差距。胺（暗3袄）模型中未充分埃考虑具体的人流拔到达随机性，而哎是用计算整体平白均讨论。般（笆4啊）所设计的界面暗没有进行美工设白计。肮3.敖对本银行储蓄系班统的建议：唉（按1百）实行服务台弹斑性数量制度，通按过模型的改进二扮得出在周六与周爱日客流量比较少啊的情况下可减少奥窗口的开放，开搬设三个窗口即可懊，在一天的各个懊时段也可弹性改斑变窗口的数量。拌（白2办）细分顾客，设皑置不同的服务柜挨面。拜（瓣

24、3绊）可采用排队与袄叫号混合使用，懊在周一到周五客耙流量比较多时为佰提高顾客满意度邦可采用排队叫号氨系统，在周六周巴日客流量比较少拔时考虑飞号现象办可采用排队系统伴。凹（矮4伴）在顾客等待服邦务时间，服务人蔼员可为顾客完成懊一些辅助性的工搬作。爸六、课程设计心版得、总结爸 瓣 笆通过这次的数据懊库设计，我总结稗了很多，同时也挨学到了很多有关挨数据库的知识，岸因为这是我的一伴次亲身尝试并且跋是一次真真正正柏的设计有关数据按库的进步，之前鞍虽然学过数据库蔼但只是一些简单吧的笆SQL拜语句，并没有真俺正地去完成一次碍有关和前台的连爸接设计，之前所矮学的远远不够这办次设计需要，但唉我并没有灰心，碍虽然

25、过程很艰难扒，但我还是坚持胺了下来并没有放巴弃，通过不断地斑努力，在图书馆绊里借阅有关书籍鞍，因为在这次设俺计之前我对啊VB八不是很了解，需稗要袄老师凹和艾同学按的帮助，慢慢的邦对盎VB邦有了一定了解，霸对银行储蓄系统拌所需主要功能有叭了一定的了解，安从学邦VB6.0跋的基础开始，如岸何创建工程、窗氨体、模块，如何稗添加标签、氨文本框、按钮啊等，以及它们发按生什么事件及其败如何响应事件，癌再次主要是如何哀将前台和后台数岸据库爸SQL Ser白ver2000拜绑定，如何配置熬数据源，如何在阿VB瓣里添加使用扳ADO哀数据控件连接数伴据库等等，这些俺都是我一开始设斑计出现的主要问袄题，我就不断地摆

26、查阅资料和网上肮搜索，真的是功邦夫不负有心人，俺出现的问题逐个傲地被解决，每解懊决好一个问题都俺会很兴奋，而且埃也学到很多。在凹这段时间里，我扳对爱VB哎从不知到最后做半出个小系统，深搬深体会到，没有拌你做不到的，只埃有你想不到的，昂只要你不放弃，伴认真的去对待，拜就会得到你想要拔的结果，虽然这班次的设计没能完唉全达到老师的要澳求，只是完成了安一部分的功能模安块，但我确实通佰过自己查阅资料傲，解决问题的能扮力得到了很大的瓣提高，对系统的般设计有了新的认哎识，最后，通过碍这次的设计，我霸已掌握了系统的安设计流程，同时阿也掌握了一些相爸关技术，增强了俺动手能力并积累昂了一定的经验，爱从而为以后的工

27、笆作奠定了基础。参考文献：吧1办曾长军奥、唉朱剑峰叭肮SQL Ser百ver奥数据库原理及应班用啊北京拜:按人民邮电氨出版社昂,2007跋2岸杨继平、吴华扳把SQL Ser扒ver2000败北京：清华大隘学出版社，案2000艾3耙刘韬挨吧Visual 笆Basic6.佰0柏数据库系统开发岸实例霸北京：人民邮肮电出版社，案2002坝4佰刘耀儒扮傲新概念皑SQL Ser百ver2000拜教程捌北京：伴科海集团公司芭，搬200岸1伴5摆王立丰袄皑Visual 伴Basic办中标项目案例导阿航颁北京：败科学出版社拜，绊200碍3白6胺姚蔚懊芭Visual 斑Basic隘数据库开发及工爸程实例癌北京：摆

28、人民邮电出版社癌，半2003致 谢摆通过这次的翱数据库设计案，我学到了很多笆，白不仅是知识上的爱获得同时也得到奥了精神上的支持把，很感谢彭老师岸给我们这次实际熬动手操作的机会埃，让我们去体验八一下做设计所出敖现的种种问题，阿让我学到了不少俺经验，对数据库佰这门课有了进一靶步的加深和学习伴。还有虽然我的哎同学也不是很了胺解板VB鞍但我一提出问题岸她们都会在百忙皑中抽出时间帮我安去想，去网上找傲资料，真的很感把谢她们，由于时埃间特紧张，我只敖能在晚上去做设邦计，一做就是一八两点，我也给我哀的室友们带来了板不便，但她们很哎能体谅我，给我百创造条件去学习哀，而且还督促我扒、问我做到哪一罢个环节了，实现

29、邦了没有啊等等，瓣也给我带来了不肮少的勇气，让我叭更加坚信地去做罢下去，最后终于疤做完后，让她们柏看看我的成果，板感觉很好，没有佰白费，如果没有扮她们做坚强后盾摆，我也不会完成胺的那么快，在这暗里我忠诚的对彭扳老师和帮助我的柏同学说声谢谢！附 录搬Vb6.0俺连数据库耙1.捌 胺使用靶ADO(Act坝iveX Da昂ta Obje胺ct)柏数据控件连接伴SQL Ser岸ver胺数据库耙连接方式懊在连接数据库前拌，首先要在埃Visual 摆Basic 6八.0搬菜单中昂“坝工程懊”“芭引用坝”芭中选择扮Mi斑crosoft柏 Active百X Data 懊Objects靶 2.8败 Librar

30、百y 爱和挨Microso昂ft Ac白tiveX D柏ata Obj般ects Re败cordset唉 2.8唉 Librar版y埃这两个组件。芭2.耙通过配置案ODBC翱环境，进行数据邦源的注册，对数斑据库进行连接、皑访问和操作。八2.1 ODB埃C八数据源分为以下疤三类：班（半1靶）用户般DSN皑：只有创建数据爱源的用户才可以巴使用他们自己创癌建的数据源，而拔且只能在当前的扒计算机上使用。绊（肮2瓣）系统佰DSN奥：任何使用你的懊计算机的用户和巴程序都可以使用邦的阿DSN翱。按（皑3矮）文件安DSN拜：除了具有系统瓣DSN哀的功能之外，还把能被其它用户在奥其它计算机上使罢用。癌2.2 奥

31、创建凹ODBC按数据源的步骤稗（柏1耙打开开始绊/奥设置版/澳控制面板霸/拜管理工具笆/ODBC颁数据源邦。安（耙2百双击鞍ODBC板图标，启动扳ODBC啊数据源。版（跋3挨换到巴“白用户吧DSN”柏标签，单击版“傲添加耙”埃。选择绊SQLServ哎er版作为数据源的驱唉动程序。俺（哀4板为数据源命名岸bankDB绊，按提示操作即拌可创建拔ODBC跋数据源。翱2.3邦 芭创建数据库连接伴创建数据源是进俺行有源数据库连敖接的第一步，下蔼面同样是运用把ADO笆对象模型的主要扮元素岸Connect袄ion拜（连接）进行源碍数据库连接。邦Connect敖ionStri凹ng败是胺Connect胺ion

32、俺对象的属性名称蔼，提供数据提供鞍者或服务提供者霸打开到数据源的唉连接所需要的特岸定信息，包括伴d爱atabase拔、按diver矮、扒dsn扮等。懊（扒1坝）捌d坝atabase邦：字符串表达式靶，指定服务器上坝的数据库名称。爸（霸2安）伴diver:半 爱字符串表达式把，指定驱动程序拌（案3埃）扳server:奥指定服务器名称白。背（碍4坝）办dsn摆：字符串表达式伴，指定连接的鞍ODBC 昂数据源名称。拜利用已配置好的暗ODBC稗数据源进行连接靶。案创建佰ODBC皑数据源名称为靶bankDB罢，通过般ADO拌与数据库肮student跋进行连接，代码熬如下：绊Public 摆user_ID

33、蔼 As Str癌ing昂Public 哀Functio哎n chaxu昂n(sqlst伴r As St板ring) A靶s ADODB疤.Record芭set啊Dim cn 吧As New 伴ADODB.C唉onnecti傲on阿Dim cn_懊str As 昂String懊cn_str 爱= dive拔r=sql s稗erver;s敖erver=.唉;dsn=ba般nkDB; d碍atabase白=bankDB袄碍cn.Open氨 cn_str背Dim rs 背As New 斑ADODB.R皑ecordse阿t案rs.Open柏 sqlstr半, cn, a颁dOpenDy摆namic,

34、翱adLockO靶ptimist隘ic般Set cha拌xun = r岸s艾End Fun瓣ction肮2.4拜登录代码如下靶;拔Private懊 Sub Co柏mmand1_岸Click()案Dim rst扳 As New鞍 ADODB.袄Records矮et颁Dim str版 As Str佰ing胺str = 哎select 百* from 扳user_in笆fo wher伴e user_胺id= +昂 Text1.案Text + 伴芭Set rst佰 = chax八un(str)芭If Not 斑rst.EOF疤 Then颁If Trim懊(rst.Fi般elds(1)埃) = Tex坝

35、t2.Text半 Then敖user_ID翱 = Text佰1.Text颁main.Sh奥owMe.HideElse般MsgBox 哎蔼密码错误！懊, vbOK巴Only + 傲vbExcla稗mationEnd IfElse拜MsgBox 把阿账户名错误！巴, vbOK跋Only + 绊vbExcla熬mationEnd IfEnd Sub背2.5暗主界面代码如下哎：靶Private跋 Sub 癌按卡号删除柏_Click(爱)扮scch.Sh佰ow疤scch.La唉bel2.Ca傲ption =挨 百卡号霸End Sub挨Private罢 Sub 扒按姓名删除伴_Click(半)扒scch.

36、Sh肮ow搬scch.La爱bel2.Ca把ption =爸 奥姓名颁End Sub唉Private奥 Sub 耙浏览储户信息翱_Click(板)靶llch.Sh翱owEnd Sub岸Private肮 Sub 罢添加储户信息氨_Click(败)爸tjch.Sh爱owEnd Sub奥Private阿 Sub 傲修改个人密码稗_Click(爸)奥xgmm.Sh案owEnd Sub笆2.6坝添加储户代码如霸下：拜Private败 Sub Co摆mmand1_半Click()傲Dim rst扒 As New阿 ADODB.败Records矮et叭Dim str板 As Str稗ing埃str = 绊s

37、elect 胺* from 埃Iuser摆Set rst班 = chax捌un(str)爱rst.Add暗New搬rst.Fie耙lds(0) 版= Text1翱.Text鞍rst.Fie霸lds(1) 阿= Text2哀.Text佰rst.Fie安lds(2) 袄= Text3板.Text坝rst.Fie凹lds(3) 捌= Text4癌.Text坝rst.Fie芭lds(4) 把= Text5扳.Text班rst.Fie翱lds(5) 板= Text6扳.Text佰rst.Upd爱ate熬MsgBox 伴耙添加成功！扳, vbOK袄Only + 哎vbExcla蔼mationEnd Sub

38、蔼2.6般浏览储户信息代疤码凹:案Dim rst敖 As New摆 ADODB.哎Records办et败Private霸 Sub Co翱mmand1_八Click()班rst.Mov瓣eFirstdisplayEnd Sub隘Private坝 Sub Co翱mmand2_耙Click()凹rst.Mov耙ePrevio岸us扳If rst.扒BOF The笆n案MsgBox 稗埃已经是第一条记斑录了！靶, vbOK扮Only + 盎vbExcla坝mation败rst.Mov熬eFirstEnd IfdisplayEnd Sub版Private笆 Sub Co叭mmand3_瓣Click()摆

39、rst.Mov巴eNext昂If rst.笆EOF The岸n隘MsgBox 啊懊已经是最后一条肮记录了！搬, vbOK傲Only + 碍vbExcla啊mation霸rst.Mov懊eLastEnd IfdisplayEnd Sub敖Private埃 Sub Co背mmand4_败Click()肮rst.Mov案eLastdisplayEnd Sub叭Private拜 Sub Fo扳rm_Load摆()凹Dim str靶 As Str叭ing蔼str = 版select*爱from Iu翱ser耙Set rst拜 = chax板un(str)displayEnd Sub扳Private凹 S

40、ub di八splay()俺Text1.T罢ext = r捌st.Fiel鞍ds(0)斑Text2.T爱ext = r跋st.Fiel吧ds(1)把Text3.T霸ext = r盎st.Fiel颁ds(2)安Text4.T矮ext = r拌st.Fiel败ds(3)吧Text5.T扮ext = r扳st.Fiel拔ds(4)搬Text6.T袄ext = r扳st.Fiel阿ds(5)End Sub肮2.7懊删除储户信息代霸码如下阿:傲Dim rs 癌As New 搬ADODB.R奥ecordse矮t扮Dim str扳 As Str爱ing靶If Labe按l2.Capt氨ion = 唉姓名耙

41、Then霸str = 邦select*邦from Iu傲ser whe拜re CNam柏e= + 岸Text1.T霸ext + 百Else氨str = 颁select 唉* from 熬Iuser w班here CN扳o= + 坝Text1.T斑ext + 隘End If颁Set rs 艾= chaxu板n(str)奥If rs.E霸OF Then叭MsgBox 靶按没有要删除的信唉息！跋, vbOK氨Only + 八vbExcla吧mationElse伴While N霸ot rs.E耙OF爱rs.Dele肮te蔼rs.Move矮NextWend埃MsgBox 俺扒删除成功！盎, vbOK芭O

42、nly + 俺vbExcla暗mationEnd IfEnd Sub芭Private熬 Sub Co拔mmand2_捌Click()拜Unload 搬MeEnd Sub佰Private皑 Sub Fo盎rm_Load板()End Sub碍2.8败修改储户密码代俺码如下哎:挨Dim rs 摆As New 拌ADODB.R扳ecordse疤t伴Private背 Sub Co爱mmand1_白Click()半Dim str氨 As Str扒ing坝str = 唉select 扒* from 隘user_in爱fo wher笆e user_白id= +坝 Text1.办Text + 佰懊Set rs 把= chaxu氨n(str)暗If Trim爱(rs.Fie疤lds(1)胺 = Text耙1.Text 扳Then柏Label2.办Visible熬 = Fals瓣e靶Label3.疤Visib