银行储蓄系统

1、银 行 储 蓄 系 统 设 计PAGE 39数据库系统原理课 程 设 计计2011年122月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 课程设设计的要求 PAGERE

2、F _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 HYPERLINK l _Toc313228115 3.1系统总体体设

3、计思路 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 逻辑结结构设计 PAGEREF _Toc313228119 h 3 HYPERLINK

4、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 3 HYPERLINK l _Toc313228124 五、系统评价 PAGEREF _Toc313228124 h

5、 3 HYPERLINK l _Toc313228125 六、课程设计心心得、总结 PAGEREF _Toc313228125 h 3 HYPERLINK l _Toc313228126 参考文献： PAGEREF _Toc313228126 h 33 HYPERLINK l _Toc313228127 致 谢 PAGEREF _Toc313228127 h 3 HYPERLINK l _Toc313228128 附 录 PAGEREF _Toc313228128 h 3一、概述1.1 课程设设计的目的数据库系统原原理课程设设计是本专业的重要要实践性教学学环节，是数数据库系统原原理课程的的后续

6、辅助教教学课程。通通过该课程设设计，使学生生掌握数据库库的基本概念念，结合实际际的操作和设设计，巩固课课堂教学内容容，使学生掌掌握数据库系系统的基本概概念、原理和和技术，将理理论与实际相相结合，应用用现有的数据据建模工具和和数据库管理理系统软件，规规范、科学地地完成一个小小型数据库的的设计与实现现，把理论课课与实验课所所学内容做一一综合，并在在此基础上强强化学生的实实践意识、提提高其实际动动手能力和创创新能力。具具体掌握的基基本能力有以以下几个方面面：学习和巩固数数据库系统原原理的基本本知识。关系数据库管理理系统的基本本使用方法。熟悉SQL语言言的主要功能能及SQL语句的的使用操作。熟悉数据库

7、管理理系统的设计计过程，培养养解决实际问问题的能力。小型数据库应用用系统的设计计方法。1.2 课程设设计的内容1、课程设计内内容： (1)主要的数数据表定期存款帐，活活期存款帐，存存款类别代码码表等等。(2)主要功能能模块实现储户开户登登记。办理定期存款帐帐。办理定期取款手手续。办理活期存款帐帐办理活期取款手手续。实现利息计算。输出明细表。具有数据备份和和数据恢复功功能。2、系统要求：(1)要进行实实际调研，系系统功能在实实现时参照实实际的储蓄系系统的功能。(2)同时要考考虑银行系统统数据的安全全与保密工作作。1.3 课程设设计的要求根据题目查找资资料及调研，写写出数据库系系统的需求分分析报告

8、；根据需求分析，设设计系统的功功能结构，画画出系统的功功能结构图，设设计的功能要要全面、正确确，能解决现现实世界各类类用户的实际际需要；根据需求分析，确确定所设计的的系统涉及到到的实体、各各实体的属性性以及各实体体之间的联系系，用E-RR图完成系统统的概念模型型设计，设计计的概念模型型要能全面、真真实的反应现现实世界，能能满足系统功功能的需要；根据E-R图转转换为DBMMS支持的关关系模型，作作出数据库系系统的逻辑模模型：1）数据库的关关系模式（使使用关系模型型规范化理论论进行优化，要要求各关系至至少达到3NNF）；2）确定各关系系属性的域；3）确定各关系系的主码、必必要的约束、关关系之间的参

9、参照完整性等等。适当的选择设计计各类用户的的子模式；根据逻辑模型、系系统环境和用用户需求，设设计数据库的的物理结构。使用PB、VFFP、VB、VC、VB.NEET、C#、Java、DELPHHI、ASP、JSP、PHP或ASP.NNET等程序序设计语言，进进行相应前台台主要模块和和菜单的设计计，采用B/S或C/S模式，数数据库作为后后台服务器。设计一组数据库库表的测试实实例，对各项项功能进行简简单的测试并并写出测试结结果。按照附件1中课课程设计模板板的格式，编编写课程设计计报告，并使使用A4纸打印、上上交。提交以下电子稿稿信息：课程程设计报告电电子稿、数据据库文件(*.MDF和和*.LDFF文

10、件)、软件源代代码和软件使使用说明二、需求分析2.1 系统需需求通过调查，要求求系统需要有有以下功能：要求有良好的人人机界面；由于该系统使用用对象多，要要求有较好的的权限管理；原始数据修改简简单方便，支支持多条件修修改；方便的数据查询询，支持多条条件查询；在相应的权限下下，删除数据据方便，数据据稳定性好；数据计算自动完完成，尽量减减少人工干预预。系统中要求每个个人银行管理理者都有一个个系统帐号，并并每个帐号都都有密码，系系统的一切操操作（如：增增加存储用户户，提高利率率等）都由管管理者执行，而而不是由存诸诸用户执行，也也主是说存储储用户并不直直接与系统交交互，而是通通过管理员与与系统交互。该该

11、系统主要有有两部份业务务功能，存款款与取款。储户填写的存款款单或取款单单由业务员输输入系统，如如果是存款则则系统记录存存款人姓名，住住址，电话号号码，身份证号码码，存款类型型，存款日期期，到期日期期，利率及密密码（可选）等等信息，如果果是取款而且且存款时留有有密码，则系系统首先核对对储户密码，若若密码正确或或存款时未留留密码，则系系统计算得利利息并打印出出利息清单给给储户。2.2 数据字字典数据名字：注册数据名字：注册申请表数据来源：储户数据目的：储户信息数据组成：姓名+密码+住址+身份证号码数据名字：储户户信息表数据来源：储户户数据目的：身份份验证数据组成：姓名名+密码+住址+身份证号码码+

12、现有金额数据名字：数据名字：利息清单数据来源：系统数据目的：储户数据组成：利息+姓名+取款时间+取款金额数据名字：数据名字：存单数据来源：存款信息表数据目的：储户数据组成：姓名+到期时间+存入类型+存入时间+利率+存入金额 数据名字：取款单数据名字：取款单数据来源：储户 数据目的：储户信息表数据组成：姓名+到期时间+存入类型+存入时间+利率+取款金额+身份证号数据名字：存款单数据目的： 存款信息表数据组成：姓名+到期时间+存入类型+存入时间+利率+存入金额+身份证号三、系统总体设设计3.1系统总体体设计思路银行储蓄系统的的主要功能实实现储户开户户登记、办理理定期存款帐帐、办理定期期取款手续、办

13、办理活期存款款帐、办理活活期取款手续续、实现利息息计算等。每每个功能模块块都和银行的的业务量直接接有关，采用用银行储蓄系系统的目的是是提高储蓄服服务的质量，提提高信息管理理的精度，进进而提高银行行在客户心目目中的信誉，树树立良好的银银行服务形象象。各子功能能分析如下：储蓄项目管理理功能该功能实现了银银行管理人员员对银行内部部制定和调整整储蓄项目信信息的管理。包包括对储蓄项项目增加、修修改、删除、查查询等等。储户信息管理理功能该功能实现了对对银行信息的的管理，该功功能包括开户户、销户等等等。储户服务管理理功能该功能实现了对对储户服务的的具体化，也也是储户需求求量最大的服服务项目。主主要包括存款款

14、、取款和转转账以及修改改密码和查询询余额等功能能。操作人员管理理功能该功能主要是系系统管理人员员对操作人员员的管理。包包括添加操作作人员、删除除操作人员、修修改用户名或或密码等功能能。系统维护功能能 该功能能主要是对该该系统的维护护。包括关于于和退出系统统两项内容。由于业务员的操操作与用户的的操作基本相相似，可以简简单化地认为为系统只与业业务员交互，基基于这个思想想，将有利与与简化以后系系统程序的设设计与开发。精化图如下业务员操作银行存储管理系统业务员操作银行存储管理系统用户操作系统输出查询取款存款开户查询取款存款开户计算利息打印存单更新用户信息保存新用户信息计算利息打印存单更新用户信息保存新

15、用户信息密码验证密码验证提交用户查询表提交取款单提交存款单提交用户申请表提交用户查询表提交取款单提交存款单提交用户申请表打印清单打印清单银行储蓄系统功功能模块图3.2 概念模模型设计3.2.1 局局部E-R图根据数据项和数数据结构，可可设计规划出出储户实体、管管理员实体和和系统实体的的E-R图。其中，图（1）所所示为储户实实体E-R图，图（2）所示为管管理员实体E-R图，图（3）所示为存存款实体E-R图，图（4）所示为取取款实体E-R图，姓名姓名住址住址性别储户身份证号账号性别储户身份证号账号登录密码登录密码储户实体E-RR图（1）员工号管理员员工号管理员姓名姓名管理员实体E-R图（2）存款类

16、型存款类型到期日期金额到期日期金额账号账号存款日期姓名存款日期姓名存款存款存款实体E-RR图（3）金额账号金额账号取款日期取款日期取款取款姓名姓名取款实体E-RR图(4)3.2.2 全全局E-R图身份证号码住址姓名身份证号码住址姓名登录密码登录密码性别账号性别账号储户1 1储户金额存款类型到期日期存款日期查询存款金额存款类型到期日期存款日期查询存款取款 n金额 n n金额取款日期管理员 取款日期管理员打印存单打印存单打印清单系统查询存款取款 n n 打印清单系统查询存款取款姓名姓名清单信息员工号清单信息员工号金额金额 n n n取款日期取款日期存款类型存款类型到期日期到期日期金额金额存款日期存

17、款日期 1 1 11 13.3 逻辑结结构设计储户（储户账号号、姓名、密密码、身份证证号、性别、账账户余额、开开户日期、住住址）管理员（员工号号、姓名）活期存取款（储储户姓名、员员工号、账户户金额、存款款类型、到期期日期、存取款日期、利息息）查询（储户姓名名、员工号）定期取款（储户户姓名、账号号、金额、取取款日期）定期存款（储户户姓名、账号号、金额、存存款日期、存储储年数、利率率）3.4 数据库库建立实施3.4.1 建建立数据库数据库在一个银银行储蓄系统统中占有非常常重要的地位位，数据库结结构设计的好好坏将直接对对应用系统的的效率以及实实现的效果产产生影响。合合理的数据库库结构设计可可以提高数

18、据据存储的效率率，保证数据据的完整性和和一致性。同同时合理的数数据库也将有有利于程序的的实现。本设设计采用SQQL Serrver20000来建立立数据库。在在创建数据库库时，首先启启动Micrrosoftt SQL Serveer，然后创创建名为baankDB的的数据库。创创建数据库的的具体步骤如如下：（1）选择“开开始”/程序/Miccrosofft SQLL Servver/企业业管理器命令令，打开SQQL Serrver数据据库的运行环环境，在此环环境中单击“数数据库文件” 右击“新建数据库”进行数据库的创建，建立数据库如图所示：创建数据库3.4.2 建建立关系表 在baankDB数数

19、据库单击新新建表，则可可建立表。如如图所示：创建表设计表如图所示示： 储储户设计表（Iuser）活期存取设计表表(Hqcqq)定期取设计表（Dqq）定期存设计表（Dqc）权限设计表(uuser_iinfo)表中的内容如图图所示：储户表（Iusser）活期存取表(HHqcq)定期取表（Dqqq）定期存表（Dqqc）权限表(useer_inffo)四、系统实现1、这是窗体登登录主界面，用用户登录后可可以保障数据据的安全性，用用户登录需要要用户名和密密码，保证输输入的正确。步步骤一：首先先输入注册的的用户名，再再输入正确的的密码。登录录界面如图所所示：登录界面步骤二：点击“登登录”按钮进进行登录验证

20、证，如果输入入的账号信息息正确，则会会出现程序主主界面，表明明成功登录系系统，如果输输入的用户名名不存在或密密码错误，则则会给出错误误提示信息。2、这是银行管管理员操作主主界面，主要要有浏览储户户信息、添加加储户信息（开开户）、删除除储户信息（销销户）、修改改密码等操作作。如图所示示：主界面3、当对新用户户进行开户时时，点击主界界面中的银行行信息管理，再再点击其下面面的子模块添添加储户信息，输输入账号、姓姓名、密码、省省份证号等，单单击“确定添添加”按钮则则会提示添加加成功。如图图所示:添加储户信息界界面4、当对用户进进行浏览时，点击主界面中的银行信息管理，再点击其下面的子模块浏览储户信息，可

21、显示账号、姓名、密码、省份证号、余额等储户信息，单击“首记录”“上一记录”“下一记录”“末记录”按钮，则可对不同的储户进行查看信息并且会出现提示信息，是最后一条记录，还是首记录。如图所示:浏览储户信息界界面5、当修改密码码时，点击主主界面中的银银行信息管理理，再点击其其下面的子模模块修改密码码信息，可进进行密码修改改，首先显示示原密码，点点击“确定”按按钮，其次显显示新密码，并并输入确认密密码，最后点点击“确定”按按钮，则可完完成密码修改改。如图所示示原密码新密码6、当删除储户户信息时，点点击主界面中中的银行信息息管理，再点点击其下面的的子模块删除除储户信息，可可对储户进行行删除，即销销户，其

22、下面面又分为两个个子模块，一一是按姓名删删除，二是按按卡号删除，二二者结果一样样，即达到了了删除储户信信息的目的。如如图所示：按姓名删除界面面按卡号删除界面面五、系统评价本系统是关于CC/S模式的的设计，由于于这次的银行行储蓄系统个个人能力有限限我没有完全满足足老师的要求求，但是我所所做出的模块块和功能基本本上都能实现现。1当操作员输输入正确的用用户名和密码码时，便可登登录到主界面面，对储户进进行一系列的的管理及操作作。2对本系统存存在的缺点:（1）部分数据据通过实际观观察假设得来来，没有确凿凿的文献作为为依据。（2）考虑的因因素不是十分分充分，与实实际情况存在在一定差距。（3）模型中未未充分

23、考虑具具体的人流到到达随机性，而而是用计算整整体平均讨论论。（4）所设计的的界面没有进进行美工设计计。3.对本银行储储蓄系统的建建议：（1）实行服务务台弹性数量量制度，通过过模型的改进进二得出在周周六与周日客客流量比较少少的情况下可可减少窗口的的开放，开设设三个窗口即即可，在一天天的各个时段段也可弹性改改变窗口的数数量。（2）细分顾客客，设置不同同的服务柜面面。（3）可采用排排队与叫号混混合使用，在在周一到周五五客流量比较较多时为提高高顾客满意度度可采用排队队叫号系统，在在周六周日客客流量比较少少时考虑飞号号现象可采用用排队系统。（4）在顾客等等待服务时间间，服务人员员可为顾客完完成一些辅助助

24、性的工作。六、课程设计心心得、总结 通过这这次的数据库库设计，我总总结了很多，同同时也学到了了很多有关数数据库的知识识，因为这是是我的一次亲亲身尝试并且且是一次真真真正正的设计计有关数据库库的进步，之之前虽然学过过数据库但只只是一些简单单的SQL语句，并并没有真正地地去完成一次次有关和前台台的连接设计计，之前所学学的远远不够够这次设计需需要，但我并并没有灰心，虽虽然过程很艰艰难，但我还还是坚持了下下来并没有放放弃，通过不不断地努力，在在图书馆里借借阅有关书籍籍，因为在这这次设计之前前我对VB不是很了了解，需要老老师和同学的帮助，慢慢慢的对VBB有了一定了了解，对银行行储蓄系统所所需主要功能能有

25、了一定的的了解，从学学VB6.00的基础开始始，如何创建建工程、窗体体、模块，如如何添加标签签、文本框、按按钮等，以及及它们发生什什么事件及其其如何响应事事件，再次主主要是如何将将前台和后台台数据库SQQL Serrver20000绑定，如如何配置数据据源，如何在在VB里添加使使用ADO数据控控件连接数据据库等等，这这些都是我一一开始设计出出现的主要问问题，我就不不断地查阅资资料和网上搜搜索，真的是是功夫不负有有心人，出现现的问题逐个个地被解决，每每解决好一个个问题都会很很兴奋，而且且也学到很多多。在这段时时间里，我对对VB从不知到到最后做出个个小系统，深深深体会到，没没有你做不到到的，只有你

26、你想不到的，只只要你不放弃弃，认真的去去对待，就会会得到你想要要的结果，虽虽然这次的设设计没能完全全达到老师的的要求，只是是完成了一部部分的功能模模块，但我确确实通过自己己查阅资料，解解决问题的能能力得到了很很大的提高，对对系统的设计计有了新的认认识，最后，通通过这次的设设计，我已掌掌握了系统的的设计流程，同同时也掌握了了一些相关技技术，增强了了动手能力并并积累了一定定的经验，从从而为以后的的工作奠定了了基础。参考文献：1曾长军、朱剑峰SQL SServerr数据库原理理及应用北北京:人民邮电出版版社,200072杨继平、吴吴华SQL SServerr2000北北京：清华大大学出版社，2000

27、3刘韬VVisuall Basiic6.0数数据库系统开开发实例北北京：人民邮邮电出版社，20024刘耀儒新概念SQLL Servver20000教程北京：科海集团公公司，20015王立丰Visuaal Bassic中标项项目案例导航航北京：科学学出版社，20036姚蔚VVisuall Basiic数据库开开发及工程实实例北京：人民邮电出出版社，2003致 谢通过这次的数据据库设计，我我学到了很多多，不仅是知知识上的获得得同时也得到到了精神上的的支持，很感感谢彭老师给给我们这次实实际动手操作作的机会，让让我们去体验验一下做设计计所出现的种种种问题，让让我学到了不不少经验，对对数据库这门门课有了

28、进一一步的加深和和学习。还有有虽然我的同同学也不是很很了解VB但我一提提出问题她们们都会在百忙忙中抽出时间间帮我去想，去去网上找资料料，真的很感感谢她们，由由于时间特紧紧张，我只能能在晚上去做做设计，一做做就是一两点点，我也给我我的室友们带带来了不便，但但她们很能体体谅我，给我我创造条件去去学习，而且且还督促我、问问我做到哪一一个环节了，实实现了没有啊啊等等，也给给我带来了不不少的勇气，让让我更加坚信信地去做下去去，最后终于于做完后，让让她们看看我我的成果，感感觉很好，没没有白费，如如果没有她们们做坚强后盾盾，我也不会会完成的那么么快，在这里里我忠诚的对对彭老师和帮帮助我的同学学说声谢谢！附

29、录Vb6.0连数数据库1. 使用ADDO(ActtiveX Data Objecct)数据控控件连接SQQL Serrver数据据库连接方式式在连接数据库前前，首先要在在Visuaal Bassic 6.0菜单中“工程”“引用用”中选择Microssoft AActiveeX Datta Objjects 2.8 LLibrarry 和Microosoft ActivveX Daata Obbjectss Recoordsett 2.8 Libraary这两个个组件。2.通过配置OODBC环境境，进行数据据源的注册，对对数据库进行行连接、访问问和操作。2.1 ODBBC数据源分分为以下三类类：

30、（1）用户DSSN：只有创创建数据源的的用户才可以以使用他们自自己创建的数数据源，而且且只能在当前前的计算机上上使用。（2）系统DSSN：任何使使用你的计算算机的用户和和程序都可以以使用的DSSN。（3）文件DSSN：除了具具有系统DSSN的功能之之外，还能被被其它用户在在其它计算机机上使用。2.2 创建OODBC数据据源的步骤（1打开开始/设置/控制面板/管理工具/OODBC数据据源。（2双击ODBBC图标，启启动ODBCC数据源。（3换到“用户户DSN”标签签，单击“添加”。选择SQLLServeer作为数据据源的驱动程程序。（4为数据源命命名bankkDB，按提提示操作即可可创建ODBB

31、C数据源。2.3 创建数数据库连接创建数据源是进进行有源数据据库连接的第第一步，下面面同样是运用用ADO对象模模型的主要元元素Connnectioon（连接）进进行源数据库库连接。ConnecttionSttring是是Conneectionn对象的属性性名称，提供供数据提供者者或服务提供供者打开到数数据源的连接接所需要的特特定信息，包包括databaase、diverr、dsn等。（1）dataabase：字符串表达达式，指定服服务器上的数数据库名称。（2）diveer: 字符串表达达式，指定驱驱动程序（3）servver:指定定服务器名称称。（4）dsn：字符串表达达式，指定连连接的ODB

32、BC 数据源源名称。利用已配置好的的ODBC数据据源进行连接接。创建ODBC数数据源名称为为bankDDB，通过ADOO与数据库sttudentt进行连接，代代码如下：Public user_ID Ass StriingPublic Functtion cchaxunn(sqlsstr Ass Striing) AAs ADOODB.ReecordssetDim cn As Neew ADOODB.CoonnecttionDim cn_str AAs Strringcn_str = diiver=ssql seerver;serveer=.;ddsn=baankDB; dataabase=ba

33、nkDDBcn.Openn cn_sstrDim rs As Neew ADOODB.Reecordssetrs.Openn sqlsstr, ccn, addOpenDDynamiic, addLockOOptimiisticSet chaaxun = rsEnd Funnctionn2.4登录代码码如下;Privatee Sub Commaand1_CClick()Dim rstt As NNew ADDODB.RRecorddsetDim strr As SStringgstr = selecct * ffrom uuser_iinfo wwhere user_id= + Teext1.

34、TText + Set rstt = chhaxun(str)If Not rst.EEOF ThhenIf Trimm(rst.Fieldds(1) = Teext2.TText TThenuser_IDD = Teext1.TTextmain.ShhowMe.HideeElseMsgBox 密码错误误！, vvbOKOnnly + vbExcclamattionEnd IfElseMsgBox 账户名错错误！, vbOKOOnly + vbExxclamaationEnd IfEnd Subb2.5主界面代代码如下：Privatee Sub 按卡号删除除_Clicck()scch.Shho

35、wscch.Laabel2.Captiion = 卡号End SubbPrivatee Sub 按姓名删除除_Clicck()scch.Shhowscch.Laabel2.Captiion = 姓名End SubbPrivatee Sub 浏览储户信信息_Cliick()llch.ShhowEnd SubbPrivatee Sub 添加储户信信息_Cliick()tjch.ShhowEnd SubbPrivatee Sub 修改个人密密码_Cliick()xgmm.ShhowEnd Subb2.6添加储户户代码如下：Privatee Sub Commaand1_CClick()Dim rstt

36、 As NNew ADDODB.RRecorddsetDim strr As SStringgstr = selecct * ffrom IIuserSet rstt = chhaxun(str)rst.AdddNewrst.Fieelds(00) = TText1.Textrst.Fieelds(11) = TText2.Textrst.Fieelds(22) = TText3.Textrst.Fieelds(33) = TText4.Textrst.Fieelds(44) = TText5.Textrst.Fieelds(55) = TText6.Textrst.UpddateMsgBox

37、 添加成功功！, vvbOKOnnly + vbExcclamattionEnd Subb2.6浏览储户户信息代码:Dim rstt As NNew ADDODB.RRecorddsetPrivatee Sub Commaand1_CClick()rst.MovveFirsstdisplayyEnd SubbPrivatee Sub Commaand2_CClick()rst.MovvePrevviousIf rst.BOF TThenMsgBox 已经是第第一条记录了了！, vvbOKOnnly + vbExcclamattionrst.MovveFirsstEnd IfdisplayyEn

38、d SubbPrivatee Sub Commaand3_CClick()rst.MovveNexttIf rst.EOF TThenMsgBox 已经是最最后一条记录录了！, vbOKOOnly + vbExxclamaationrst.MovveLasttEnd IfdisplayyEnd SubbPrivatee Sub Commaand4_CClick()rst.MovveLasttdisplayyEnd SubbPrivatee Sub Form_Load()Dim strr As SStringgstr = selecct*froom IusserSet rstt = chhaxu

39、n(str)displayyEnd SubbPrivatee Sub displlay()Text1.TText = rst.Fieldds(0)Text2.TText = rst.Fieldds(1)Text3.TText = rst.Fieldds(2)Text4.TText = rst.Fieldds(3)Text5.TText = rst.Fieldds(4)Text6.TText = rst.Fieldds(5)End Subb2.7删除储户户信息代码如如下:Dim rs As Neew ADOODB.ReecordssetDim strr As SStringgIf Labeel2

40、.Caaptionn = 姓姓名 Thhenstr = selecct*froom Iusser whhere CCName= + Text11.Textt + Elsestr = selecct * ffrom IIuser wheree CNo= + Text11.Textt + End IfSet rs = chaaxun(sstr)If rs.EEOF ThhenMsgBox 没有要删删除的信息！, vbbOKOnlly + vvbExcllamatiionElseWhile NNot rss.EOFrs.Deleeters.MoveeNextWendMsgBox 删除成功功！, vv

41、bOKOnnly + vbExcclamattionEnd IfEnd SubbPrivatee Sub Commaand2_CClick()Unload MeEnd SubbPrivatee Sub Form_Load()End Subb2.8修改储户户密码代码如如下:Dim rs As Neew ADOODB.ReecordssetPrivatee Sub Commaand1_CClick()Dim strr As SStringgstr = selecct * ffrom uuser_iinfo wwhere user_id= + Teext1.TText + Set rs = chaaxun(sstr)If Trimm(rs.FFieldss(1) = Texxt1.Teext ThhenLabel2.Visibble = FalseeLabel3.Visibble