《2022年某银行存取款管理信息系统 .pdf》由会员分享，可在线阅读，更多相关《2022年某银行存取款管理信息系统 .pdf（31页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、湖南商学院学年论文第 1 页共 31 页某银行存取款管理信息系统1.引言1.1 项目来源：本系统是模拟银行帐户及存取款的管理，开发一个银行存取款的管理系统。充分运用计算机技术，方便操作人员的使用，提高客户存取款的效率，提高银行的服务质量。1.2 任务目标：设计的指导思想是一切为使用者着想，界面要美观大方，操作尽量简单明了，而且作为一个实用的管理系统要有良好的容错性，在出现误操作时能尽量及时的给出警告，以便用户及时的改正。计算机的资源是受到限制的，因此要充分利用 Visual Foxpro 的功能，同时要尽可能地减少对系统资源的占用。鉴于本系统的特殊性，还需要本程序有良好的保密性。1.3 应用价
2、值：本文的目的是使银行存取款账目管理清晰化，透明化，便于操作，易于管理。通过功能模块的优化组合实现不同的管理细节，使管理过程实现最大程度的自动化与信息化,并能自动对人工操作环节进行复查,使账目出错率降至最低。在传统的银行存取款管理信息系统中，银行的管理往往是很复杂烦琐的。存取款帐目管理的特点是信息处理量比较大，所管理的种类比较繁多，而且由于储蓄单、取款单等单据发生量特别大，关联信息多，查询和统计的方式不尽相同。在管理过程中经常会出现信息的重复传递，因此银存取款管理必须实现计算机化处理。我们系统开发的总体任务是实现银行存取款管理的系统化、规范化、自动化、信息化与智能化，从而达到提高管理效率的目的
3、。2项目规划2.1 项目资源：2.1.1.硬件要求：P41.0或更高。内存：128MB 或更高。硬盘空间：20MB。2.1.2 软件环境操作系统：windows2000/windowsNT/windowsXP。数据库：SQL Server 2000；开发工具：Visual FoxPro 6.0；分辨率：1024像素*768 像素名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 31 页 -湖南商学院学年论文第 2 页共 31 页2.2 项目进程：2.2.1 任务描述：2.2.1.1 管理员信息管理：对系统的操作人员的基本信息进行管理。2.2.1.2 储户信息管理：对存取货款的用户的
4、基本信息进行管理。2.2.1.3 储户帐户管理：对储户的存取款信息进行管理。2.2.1.4 存取款管理：对储户存取款的时间、金额等进行管理。2.2.1.5 开户、销户：对用户的基本操作进行设计。2.2.1.6 报表输出、报表打印：对存储信息的统计管理。2.2.2 进度安排进度完成任务所需时间系统设计总体策划 2周系统资料搜集和整理 1周软件模块、接口设计、数据库定义 1周数据库设计 1周软件代码设计 2周软件代码测试 1周系统确认及验收 1周2.3 项目可行性评估：2.3.1 技术可行性：与其他数据库管理系统相比，Visual FoxPro 6.0具有用户的普遍性、功能的完整性、工具的易用性和
5、规模的可伸缩性等特点。它基本具备了大型 SQL数据库的特征（如视图、关键字、关系、触发器、存储过程等）；在数据库设计方面，它提供了各种数据库组件的设计向导和图形化、智能化的设计过程。其独特的优点是提供了各种数据库用户界面的可视化设计工具，提供了自含的编程语言和调试工具，提供了查询数据库的默认表格工具等。总而言之，Visual FoxPro 6.0尽量使得用户不依靠任何其他软件工具就能完成一个较复杂数据库应用系统的全部开发工作。Visual FoxPro 6.0的各种工具之所以容易使用，是因为它以方便和规范开发者的工作为目标，充分考虑了数据库应用软件的特点。窗口化、图形化、智能化、模板化、向导化
6、、参数化和通用化是 Visual FoxPro 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 31 页 -湖南商学院学年论文第 3 页共 31 页6.0 工具的共同特征。2.3.2 计划可行性：此系统所需时间不是很多，步骤相对于一些别的大型系统来说，是比较简单的，因此，强度也不是很大，按照预计的进度的话，在两个月左右内应该能很顺利的完成任务。2.3.3 应用可行性：本系统适用于windows操作系统，windows 操作系统为当今社会最流行的操作系统，主要优点为人机交互性好，而本系统对应于此操作系统而设计开发，也将能很好地做到这一点。另外，本系统采用的是Visual Foxpr
7、o 和 SQL Server 2000 技术。Visual Foxpro本身就是微软的技术，同时SQL Server 2000 也是建立在 Windows操作系统上的，所以两种技术都能很好地在 windows 操作系统上运行，因此此系统能很好的应用于银行存取款管理信息系统，能做到方便，高效的对银行帐户的管理和对存储信息的处理3.系 统 需求 分 析3.1 业务需求：该银行存取款管理信息系统主要完成的功能主要有：管理员信息管理用户信息修改、开户、销户存款、取款取款机信息管理报表输出、报表打印3.2 功能需求：根据用户需求和存取款管理系统的基本功能，本系统的结构图如下 3-1所示。名师资料总结-精
8、品资料欢迎下载-名师精心整理-第 3 页，共 31 页 -湖南商学院学年论文第 4 页共 31 页启动系统选择用户（管理员）输入口令查验显示主菜单选择项更改口令帐户管理数据统计退出输入口令检查口令确认选择存款取款开户退出输入要求统计结果显示帐号输入要求存入确认确认操作继续继续名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 31 页 -湖南商学院学年论文第 5 页共 31 页3.2.1 功能定义：系统管理是便于以后系统升级，对储户的存取款信息的操作在信息管理模块中完成，包括录入、修改、删除等操作。查询和统计分别在各自的模块中。3.2.2 模块定义：主模块：输入：操作系统传递的各种信
9、息以及用户输入的各种数据。输出：系统启动界面显示。系统登录模块：输入：选择用户并输入口令。输出：确认后显示主菜单。系统设置模块：输入：数据并确认输出：弹出对话框显示设置成功与否修改口令模块：输入：两次新口令并确认；输出：口令修改成功与否；储户帐目操作模块：1）.录入模块：输入：帐户号码、存款数额等信息；输出：确认并提示录入成功与否；2）.修改模块：输入：需要修改的信息；输出：确认并提示修改成功与否；3）.删除模块：输入：需要删除的信息；输出：确认并提示删除成功与否；数据查询模块：输入：选择查询方式并确认；输出：显示查询结果；数据统计模块：名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页
10、，共 31 页 -湖南商学院学年论文第 6 页共 31 页输入：选择需要统计的数据并确认；输出：显示统计结果。3.3 数据需求：3.3.1 数据逻辑流程在仔细调查银行存取款管理过程的基础上，本系统的数据流程图如图3-2 所示针对本实例：通过对银行帐户管理的内容和数据流程分析，设计的数据项和数据结构如下：用户普通信息表。包括所有用户的信息，数据项有：帐号、用户姓名、密码、身份证、总金额、状态、住址、开户时间。用户卡信息表。包括的数据项有：用户帐号、卡号、卡密码、金额、状态.用户银行存取款信息表。包含的数据项有：操作员号码、用户帐号、用户卡号、取存款时间、取存款金额、取存款摘要、总金额。用户存取款
11、信息总表。包含的数据项有：用户帐号、存取款时间、存取款地点、存取款金额、存取款摘要、总金额。管理员信息表。包括的数据项有：用户、口令。3.3.2 静态数据定义本系统 VF数据库里包含六个表：user（用户基本信息表），Card（用户卡信管理员管理帐户信息普通信息卡信息存取款名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 31 页 -湖南商学院学年论文第 7 页共 31 页息表），BANKOUTIN（用户银行存取款信息表），USERALL（用户存取款信息总表），TMS（管理系统的用户口令表），BANK（银行系统的用户信息）。银行存取款管理信息系统数据库中的各个表的设计结果如下面的几
12、个表格所示，每个表格表示数据库中的每一个表，表3-3 为用户基本信息表表 3-1 USER 用户基本信息表列名数据类型可否为空说明USER_ID CHARACTER（13）NOT NULL 帐号（索引）USER_NAME CHARACTER（8）NULL 用户姓名USER_PSWD CHARACTER（6）NULL 用户密码USER_IDENTITY CHARACTER（18）NULL 用户身份证USER_ALL NUMERIC（10，2）NULL 总金额USER_STATUS CHARACTER（4）NULL 现在状态USER_ADDRESS CHARACTER（20）NULL 用户住址US
13、ER_NEW DATE NULL 开户时间用户卡信息表对应的字段属性如表3-1 所示表 3-2 CARD 用户卡信息表列名数据类型可否为空说明USER_ID CHARACTER（13）NOT NULL 用户帐号（索引）CARD_ID CHARACTER（16）NULL 卡号（索引）CARD_PSWD CHARACTER（6）NULL 卡密码CARD_ALL NUMERIC（10，2）NULL 总金额CARD_STATUS CHARACTER（4）NULL 现在状态表 33 BANKOUTIN 用户银行存储款信息表列名数据类型可否为空说明名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，
14、共 31 页 -湖南商学院学年论文第 8 页共 31 页TMS_ID CHARACTER（6）NOT NULL 操作员 ID 号（索引）USER_ID CHARACTER（13）NOT NULL 帐号（索引）CARD_ID CHARACTER（16）NULL 卡号（索引）BANK_TIME DATE NULL 存取款时间BANK_OUTIN CHARACTER（4）NULL 存取款摘要BANK_OUT NUMERIC(4)NULL 取款金额BANK_IN NUMERIC(4)NULL 存款时间USER_ALL NUMERIC（10，2）NULL 总金额34 USERALL 用户存取款信息总表U
15、SER_ID CHARACTER（13）NOT NULL 用户帐号（索引）CARD_ID CHARACTER（16）NULL 卡号（索引）OUTIN_TIME DATE NULL 存取款时间OUTIN CHARACTER（4）NULL 存取款摘要USER_OUT NUMERIC(10,2)NULL 取款金额USER_IN NUMERIC(10,2)NULL 存款金额USER_ALL NUMERIC（10，2）NULL 总金额表 35 TMS 管理系统的用户口令表TMS_USER CHARACTER(6)NOT NULL 用户名（主键）TMS_PSWD CHARACTER(6)NOT NULL
16、口令表 36 BANK 银行系统的用户信息列名数据类型可否为空说明LAST_USER CHARACTER（13）NOT NULL 最后一个帐号LAST_CARD CHARACTER（16）NOT NULL 最后一个卡号名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 31 页 -湖南商学院学年论文第 9 页共 31 页4.系统结构设计4.1 系统总体框架：4.2 软件结构设计：4.2.1 主要模块：1）.储户信息管理模块：对储户的基本信息进行综合管理，可以添加、修改及删除基本信息。2）.存取款管理模块：对储户的存取款操作进行记录，并对数据库进行输入。3）.查询模块：根据不同的信息要
17、求对数据进行查询取款机管理银行帐户管理系统数据查询统计帐户管理普通管理管理员管理卡管理客户操作存取款取款机安装拆除开户销户办卡挂失查询名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 31 页 -湖南商学院学年论文第 10 页共 31 页4.2.2 用户本系统的用户可分为三类，系统管理员、银行工作人员、储户。1）.系统管理员：可以添加储户、修改、查询银行工作人员的档案资料2）.银行工作人员：可以查询储户的一般档案资料，并可以查看系统开放给员工的信息。3）.储户：可以查询帐户的开放信息，例如姓名、存款余额等，但是不可以查询他人和系统不开放给予的资料。4.2.3 接口设计：1.主对话框
18、：由三个个功能按钮组成：帐户管理、用户查询、存取款管理；2.存款对话框：帐号输入编辑框：用于输入帐号，并按帐号存入；卡号输入编辑框：用于输入卡号，并按卡号存入；存入金额输入编辑框：输入要存入的金额；总存款显示框：显示用户以存入的金额；清空按钮：将所输入的信息全部删除；存入按钮：按照帐户或者卡号将存款金额存入帐户；退出按钮：退出存款对话框；3.取款对话框：帐号编辑框：用于输入帐号，并按帐号存入；卡号编辑框：用于输入卡号，并按卡号存入；取款金额编辑框：输入要提取的金额；总存款显示框：显示用户已存入的金额；清空按钮：将所输入的信息全部删除；取出按钮：按照帐户或者卡号将所输入的金额取出；退出按钮：退出
19、存款对话框；4.开户对话框：姓名编辑框：输入储户的姓名；身份证号码编辑框：输入储户的身份证号码；存入金额编辑框：输入首次存入的金额；住址编辑框：输入储户的住址；开户时间：自动生成并记录储户开户的时间；名师资料总结-精品资料欢迎下载-名师精心整理-第 10 页，共 31 页 -湖南商学院学年论文第 11 页共 31 页密码输入编辑框：输入用户自设的密码；密码确认编辑框：再次输入相同密码，确保密码正确；生成的帐号框：显示所生成的用户帐号；确定按钮：将输入的信息存入系统；放弃按钮：取消这一次操作；清空按钮：将所输入的信息在未存入前全部删除；退出按纽：退出开户对话框；5.销户对话框：帐号编辑框：输入储
20、户的帐号；帐户姓名显示框：根据帐号显示用户的姓名；帐户存款：显示此帐户的存款余额；注销按钮：执行这一操作，删除次帐号；清空按钮：将输入信息删除；退出按钮：推出销户对话框；6.修改信息对话框：姓名显示框：显示帐户的姓名；身份证号码显示框：显示此帐户用户的身份证号码；存入金额显示框：显示帐户所余存款；住址显示款：显示此帐户的拥护所住地址；开户时间显示框：显示此帐户开户的时间；用户帐号编辑框：输入帐户号码；原密码编辑框：输入帐户原来的密码；新密码编辑框：输入储户自定义的新的密码；新密码确认框：再次输入新密码，确认密码正确；7.查询对话框：帐户输入框：输入帐户号码；姓名编辑框：输入储户的姓名；查询显示
21、框：显示存取时间、存入金额、取出金额等信息；退出按钮：退出查询系统；4.3 数据结构：名师资料总结-精品资料欢迎下载-名师精心整理-第 11 页，共 31 页 -湖南商学院学年论文第 12 页共 31 页4.3.1：数据库与程序的联系：1）.主模块：连接数据库；2）.信息管理模块：信息录入模块：读入帐户号码、姓名、身份证号码、存入金额、住址、密码、时间等信息；信息修改模块：读入对应的输入信息，显示帐户信息；信息删除模块：读入对应的输入信息，显示帐户信息；3）.查询模块：对应于各种查询方式输出对应的帐户信息；4）.系统操作模块：系统操作权限查验模块：读入帐号，口令，输出相应的信息；储户信息操作模
22、块：增加，修改，删除储户信息表中的信息；数据查询模块：制定查询条件，输出相应的信息；5.系统详细设计及界面：在进行了系统总体设计以后，就开始进行详细的界面设计及编码工作。也就是设计文件和把他们有机地组织在一起实现所有功能。5.1 系 统 主 界 面 的 设 计系统主界面的功能在于引导用户进入不同的功能模块。本系统的界面为简单起见，界面中包括 3 个按钮，分别为“帐户管理”、“用户查询”、“存取款管理”，引导进入不同的功能模块。实现步骤如下：展开项目管理器中的文档，选中表单，单击右侧“新建”按钮。在弹出的对话框中选择“新建表单”命令后，弹出“From Designer（表单设计器）”的界面。按需
23、要向表单中添加控件，本表单为 3个 CommandButton（按钮）和 1个 Image（图像）。表单外观设计好之后，就应该为表单各控件设计事件响应了。双击“帐户管理”按钮，此时弹出按钮的“方法与程序”设计栏，选择好要更改的“Procedure（方法与程序）”后，直接在下面的空白处填写代码，为各控件添加代码如下：名师资料总结-精品资料欢迎下载-名师精心整理-第 12 页，共 31 页 -湖南商学院学年论文第 13 页共 31 页Command1（帐户管理）的 Click 代码：do form accountformchecker1*打开下级表单checker1 Command2（用户查询）的
24、 Click 代码：do form accountformchecker2*打开下级表单checker2 Command3(取款机)的 Click 代码：Do form accountformatm*打开下级表单atm Command4（退出）的 Click 代码：thisform.release do accountformend 执行结束表单主 界 面 的 设 计 到 此 就 完 成 了，注 意 结 束 是 将 其 存 为“D：main.scx”。5.2 身 份 验 证 界 面 的 设 计因为本系统的特殊性，本系统各处会涉及到密码即验证身份。如管理员身份验证，用户身份验证等。5.2.1 管
25、理员身份验证界面下面设计进入“管理员管理帐户的界面”的身份验证。界面如图5-3 所示。如图 4-3 所示添加各控件名师资料总结-精品资料欢迎下载-名师精心整理-第 13 页，共 31 页 -湖南商学院学年论文第 14 页共 31 页图 5-1 管理员身份验证表单的 Init 时间代码：public inpswd1 inpswd1=0*声明全局变量作为计数器*“确定”按钮 的 Click 事件代码：if empty(thisform.text1.value)or empty(thisform.text2.value)*检查输入的信息是否完整messagebox(“对不起！你输入的信息不完整”,4
26、8,”信息不全”)thisform.text1.value=”thisform.text2.value=”else sele tms*选择数据表tms locate for tms_user=alltrim(thisform.text1.value)*查找输入的”管理员”相同的记录if tms_pswd=alltrim(thisform.text2.value)*密码正确时进入系统messagebx(“密码正确”，64，”通过”)cMessageTitle=进入系统 cMessagetext=选择”是”进入帐户管理,选择”否”进入 ATM 机管理 nDialogType=4+32 nAnswe
27、r=messagebox(cMessageText,nDialogType,cMessageTitle)do case*使用分支进入不同的表单case nAnswer=6 do form accountformsupervise1*进入下级表单 supervise1(设置为帐户管理表单)case nAnswer=7 do form accountformsupervise2*进入下级表单 supervise2(设置为 ATM 机管理表单)名师资料总结-精品资料欢迎下载-名师精心整理-第 14 页，共 31 页 -湖南商学院学年论文第 15 页共 31 页endcase thisfrom.rel
28、ease*关闭本表单else*密码错误显示提示,并将计数器加 1 messagebox(“对不起!你输入的信息有误,请重试”,64,”错误”)inpswd1=inpswd+1 if inpswd1=3*当计时器大于 3 时,关闭本表单thisform.release else thisform.text1.value=thisform.text2.value=thisform.text1.setfocus*将光标位置重置到文本框1,等待输入endif endif endif 通过”身份验证”的这段代码,实现了对进入银行操作的人员的限制.”取消”按钮 Click 事件代码:thisform.re
29、lease 5.2.2 用户查询身份验证此表单的设计与”管理员身份验证”表单类似,可参照前例设计。if empty(thisform.text1.value)or empty(thisform.text2.value)*判断输入信息是否为空mess agebox(“对不起！你输入的信息不完整”，48，“信息不全”)thisform.text1.value=”thisform.text2.value=”*信息不全时情况文本框1、2 的内容else 名师资料总结-精品资料欢迎下载-名师精心整理-第 15 页，共 31 页 -湖南商学院学年论文第 16 页共 31 页use user locate
30、for user_id=alltrim(thisform.text1.value)*根据输入信息查询if user_pswd=alltrim(thisform.text2.value)messagebox=(“密码正确”，64，”通过”)par=alltrim(thisform.text1.value)do form accountformchaxun*密码正确时执行查询表单thisform.release else messagebox(“对不起！你输入的信息有误，请重试”，64，”错误”)inpswd2=inpswd2+1 if inpswd2=3*输入错误达 3 次后退出本表单thisf
31、orm.release thisform.text1.value=”thisform.text2.value=”thisform.text1.setfocus*输入错误未达 3 次后清空文本框 1、2，等待输入endif endif endif 5.3 帐 户 管 理 模 块 的 设 计5.3.1 表单本模块的功能在于管理员通过简单的操作，可以实现银行对帐户管理的一般功能。向表单中添加控件PageFrame9页框），设置页框的 PageCount属性为 7，即页框中包含 7 个子页面。为表单设置 Init 事件代码：public lastuser,lastcard 名师资料总结-精品资料欢迎下
32、载-名师精心整理-第 16 页，共 31 页 -湖南商学院学年论文第 17 页共 31 页*声明全局变量 lastuser，lastcard sele bank lastuser=alltrim(bank.last_user)lastcard=alltrim(bank.last_card)*将表 bank中的值赋给相应变量5.3.2 存款为 OptionGroup（选项按钮组）设置InteractiveChange事件代码：if this.option1.value=1*如果帐户栏被选中thisform.pageframe.page1.text1.enabled=.T.*将帐号栏对应的文本框设
33、为可用thisform.pageframe.page1.text2.enabled=.F.thisform.pageframe.page1.text1.setfocus*如果卡号栏被选中thisform.pageframe.page1.text2.enabled=.T.*将卡号栏对应的文本框设为可用thisform.pageframe.page1.text1.enabled=.F.thisform.pageframe.page1.text2.setfocus endif thisform.pageframe.page1.text1.value=thisform.pageframe.page1.
34、text2.value=*更换选项时清空两个文本框中的信息添加 4 个 TEXT(文本框)控件，设置外观属性，如表41 所示控件Enabled Inputmask fomart Text1.F.9999999999999 Text2.F.9999999999999999 Text3.T.Text4.F.名师资料总结-精品资料欢迎下载-名师精心整理-第 17 页，共 31 页 -湖南商学院学年论文第 18 页共 31 页为 4 个 text 控件设计事件响应。tex1的 InteractiveChange 事件代码为：select user locate for user.user_id=thi
35、s.value*在表 USER 中查找匹配的记录this.parent.text4.value=user.user_all*将相应的记录的“存款“字段写入 Text4中Text2的的 InteractiveChange 事件代码为：select card locate for card.card_id=this.value*在表 card中查找匹配的记录this.parent.text4.value=card.user_all*将相应记录的“存款”字段写入 Tex4中这两个 InteractiveChange 事件代码的功能分别为通过获得“用户帐号”和“用户卡号”的方式直接动态的显示用户的相关
36、信息。为“存入”按钮设置 Click 事件代码：local countid,cardid,moneyin,allhere*声明局部变量countid=alltrim(this.parent.text1.value)cardid=alltrim(this.parent.text2.value)moneyin=(this.parent.text3.value)*给局部变量赋值if empty(cardid)and empty(countid)messagebox(“您输入的信息不完整，请重输！”,48)else if empty(cardid)*当使用帐号存款时sele user locate f
37、or alltrim(user.user_id)=counted*查找输入的帐号if eof()名师资料总结-精品资料欢迎下载-名师精心整理-第 18 页，共 31 页 -湖南商学院学年论文第 19 页共 31 页messagebox(“对不起，没有这个帐号！”)else if moneyin=0 replace user.user_status with“正常”sele card locate for alltrim(card.user_id)=alltrim(countid)replace card.user_all with allhere card.card_status with”正
38、常”sele userall*在 userall表（账户存取信息表）中作记录go bottom append blank replace user_id with countid;user_in with moneyin;outin_time with date();outin with“存入”;user_all with allhere messagebox(“操作成功”，48)*操作成功后显示提示endif endif this.parent.text4.value=allhere*将计算处的存款数显示出来名师资料总结-精品资料欢迎下载-名师精心整理-第 19 页，共 31 页 -湖南商学
39、院学年论文第 20 页共 31 页endif else sele card locate for alltrim(card.card_in)=cardid if eof()messagebox(“对不起，没有这个卡号！”)*没有该卡号时显示提示else countid=card.user_id if money=0 replace card.card_status with“正常”sele user locate for alltrim(user.user_id)=alltrim(countid)replace user.user_all with allhere user.user_stat
40、us with“正常”*更新表 user sele userall go bottom append blank replace user_id with countid;user_in with moneyin;outin_time with date()outin with“存入”;user_all with allhere 名师资料总结-精品资料欢迎下载-名师精心整理-第 20 页，共 31 页 -湖南商学院学年论文第 21 页共 31 页*更新表 userall messagebox(“操作成功”，48)*操作成功显示提示endif endif this.parent.text4.va
41、lue=allhere*更新文本框 4 中的内容endif endif endif this.parent.text3.value=”*操作后将“存款金额“清空本段代码的功能是对帐号或卡号进行存款操作。管理员有时要求一次性清除所有输入的信息，因而设置一个“清空“按钮。将各个文本框中的内容全部清空。其Click 事件代码为：this.parent.text1.value=”this.parent.text2.value=”this.parent.text3.value=”this.parent.text4.value=”*清空各文本框内容this.parent.text1.setfocus*将光
42、标焦点设置到文本框1 中5.3.3 取款取款的过程与存款类似为 OptionGroup（选项按钮组）设置事件代码：if this.option1.value=1*如果帐户栏被选中thisform.pageframe.page1.text1.enabled=.T.*将帐号栏对应的文本框设为可用thisform.pageframe.page1.text2.enabled=.F.thisform.pageframe.page1.text1.setfocus 名师资料总结-精品资料欢迎下载-名师精心整理-第 21 页，共 31 页 -湖南商学院学年论文第 22 页共 31 页*如果卡号栏被选中this
43、form.pageframe.page1.text2.enabled=.T.*将卡号栏对应的文本框设为可用thisform.pageframe.page1.text1.enabled=.F.thisform.pageframe.page1.text2.setfocus endif thisform.pageframe.page1.text1.value=thisform.pageframe.page1.text2.value=*更换选项时清空两个文本框中的信息添加 4 个 TEXT(文本框)控件，设置外观属性，如表41 所示控件Enabled Inputmask fomart Text1.F.
44、9999999999999 Text2.F.9999999999999999 Text3.T.Text4.F.为 4 个 text 控件设计事件响应。tex1的 InteractiveChange 事件代码为：select user locate for user.user_id=this.value*在表 USER 中查找匹配的记录this.parent.text4.value=user.user_all*将相应的记录的“取款“字段写入 Text4中Text2的的 InteractiveChange 事件代码为：select card locate for card.card_id=this
45、.value*在表 card中查找匹配的记录this.parent.text4.value=card.user_all*将相应记录的“取款”字段写入 Tex4中这两个 InteractiveChange 事件代码的功能分别为通过获得“用户帐号”和“用名师资料总结-精品资料欢迎下载-名师精心整理-第 22 页，共 31 页 -湖南商学院学年论文第 23 页共 31 页户卡号”的方式直接动态的显示用户的相关信息。为“取出”按钮设置 Click 事件代码：local countid,cardid,moneyin,allhere*声明局部变量countid=alltrim(this.parent.te
46、xt1.value)cardid=alltrim(this.parent.text2.value)moneyin=(this.parent.text3.value)*给局部变量赋值if empty(cardid)and empty(countid)messa gebox(“您输入的信息不完整，请重输！”,48)else if empty(cardid)*当使用帐号取款时sele user locate for alltrim(user.user_id)=counted*查找输入的帐号if eof()messagebox(“对不起，没有这个帐号！”)else if moneyin=0 repla
47、ce user.user_status with“正常”sele card 名师资料总结-精品资料欢迎下载-名师精心整理-第 23 页，共 31 页 -湖南商学院学年论文第 24 页共 31 页locate for alltrim(card.user_id)=alltrim(countid)replace ca rd.user_all with allhere card.card_status with”正常”sele userall*在 userall表（账户存取信息表）中作记录go bottom append blank replace user_id with countid;user_
48、in with moneyin;outin_time with date();outin with“存入”;user_all with allhere messagebox(“操作成功”，48)*操作成功后显示提示endif endif this.parent.text4.value=allhere*将计算处的存款数显示出来endif else sele card locate for alltrim(card.card_in)=cardid if eof()messagebox(“对不起，没有这个卡号！”)*没有该卡号时显示提示else countid=card.user_id if mon
49、ey=0 replace card.card_status with“正常”sele user locate for alltrim(user.user_id)=alltrim(countid)replace user.user_all with allhere user.user_status with“正常”*更新表 user sele userall go bottom append blank replace user_id with countid;user_in with moneyin;outin_time with date()outin with“取出”;user_all w
50、ith allhere*更新表 userall messagebox(“操作成功”，48)*操作成功显示提示endif endif this.parent.text4.value=allhere*更新文本框 4 中的内容endif endif endif this.parent.text3.value=”*操作后将“取款金额“清空本段代码的功能是对帐号或卡号进行存款操作。管理员有时要求一次性清除所有输入的信息，因而设置一个“清空“按钮。名师资料总结-精品资料欢迎下载-名师精心整理-第 25 页，共 31 页 -湖南商学院学年论文第 26 页共 31 页将各个文本框中的内容全部清空。其Click