数据库课程设计实验报告

班级：09级计算机本科三班 学号 姓名：汪冠数据库课程设计报告 自助银行管理系统 姓 名：汪冠 班 级：09计算机本科三班 学 号: 指导老师：王磊 成 绩： 完成时间：2010-12-26 完成地点：B532 第一章 系统概述自助银行管理系统是一些单位不可缺少的部分,金钱的管理是人类不可缺少的，尤其对一些有钱的人来说，尤其重要。所以自助银行管理系统应该能够为用户提供充足的信息、快捷的金额查询手段和存储管理。 随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对银行资源信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高银行管理的效率,也是企业、学校的科学化、正规化管理,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套自助银行管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。自助银行管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强.数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。经过分析如此情况,我们使用微软公司的VB6.0开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。第二章 应用背景银行是每个地区不可缺少的部门，它是钱财存取的最安全的地方，而且他又是金钱流动最大的地方，对其管理也应是很严格，不容任何可能的错误发生，这就牵涉到高科技的应用，而高科技都离不开计算机的应用。所以一直以来，计算机在银行的财务管理中得到了广泛的应用。目前，人类对银行的信任度很高，这也就加大了银行业务复杂和繁琐度，而有一些简单的业务可由用户自行完成或必须由用户自行完成过。本系统就是要达到对用户能自行完成的业务的管理，能快书完成却简便，并对信息进行数据库管理的目的。所以本系统能实现一般用户存款、取款、转账、等业务和管理员开户、销户、用户信息查询、用户信息修改、冻结等功能。第三章 系统分析与设计一、系统需求（1）数据库需求分析 用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典。针对一般图书管理系统的需求，通过对学生学习过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：用户信息（数据项）卡号、姓名、开户日期、证件类型、证件号、存款金额、最后登录时间、用户密码、用户权限（2）系统功能分析系统开发的总体任务是实现银行管理信息关系的系统化、规范化和自动化。 系统功能分析是在系统开发的总体任务的基础上完成的。本系统中的图书管理系统需要完成的功能上主要有： （1）用户登录：包括用户卡号、密码。 （2）用户信息查询：包括所有用户的信息 （3）用户信息的修改：包括用户姓名、证件、密码、用户权限的修改。 （4）开户：包括用户卡号、姓名、开户日期、证件类型、证件号、存款金额 （5）销户：包括用户所有信息。 （6）冻结：包括用户卡号冻结和解冻。 （7）银行业务：包括存款、取款和转账 二、概要设计（1）硬件环境本系统开发所用服务器的配置是：AMD athlon (tm) 2215 processor80GB硬盘(7200转,串行)BENQ 16 DVD1.8GB内存VIA PCI 10/100M网卡RADEN 9550(128)显卡新盟鼠标（2）软件环境本系统的设计采用的是Microsoft公司 的MS SQL Server2005，以及采用Visual Basic 6.0来处理图像数据。MS SQL Server2005是当今社会的主流数据库管理系统，它的稳定性和易用性是为世人所称道的，最重要的一点它是当今世界最大的软件设计厂商Microsoft数据的产品。因此，它同Windows2000，WindowsXP等操作系统的结合是最完美的。所以，在数据管理系统上，我们采用了MS SQL Server2005。在Visual Basic中，有两种常用的处理图像数据的方法。数据绑定。可以使用Image或者Picture的DataField、DataMember和DataSource的属性来对数据进行捆绑。这种方法类似与对于普通数据类型的绑定。直接读写。也可以使用ADO对数据进行读写。三、详细设计 （1）E-R图 得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本系统根据上面的设计规划出的实体有：图书实体、工作人员实体、管理员实体、查阅人员实体 。各个实体具体的描述E-R图如下所示。银行E-R图：E-R图的基本符号：实体属性联系 个人信息管理员存款取款转账用户信息修改开户冻结解冻销户管理 一般用户个人信息存款取款转账（2）业务流程图 用户个人信息信息银行管理系统存款一般用户银行业务取款登陆 转账开户销户管理员用户信息查询用户信息修改冻结（3）数据流程图银行业务用户个人信息卡号冻结用户信息查询用户信息修改销户信息开户信息用户信息查询条件自助银行管理系统管理员一般用户总体：（4）数据字典数据字典是系统中各类数据描述的集合，使进行详细的数据收集和数据分析所获得的主要成果。数据字典是在需求分析时建立，在数据库设计过程中不断修改、充实、完善的。数据字典通常包括数据项、数据结构、数据流、数据存储、处理过程五部分。其中数据项是数据的最小组成单位，若干个数据项可以组成一个数据结构，数据字典通过对数据项和数据结构的定义来描述数据流、数据存储的逻辑内容。 a.数据结构和数据项字典用户信息表:本表主要用于存储用户信息, 字段名数据类型可否为空说明卡号 CHAR(10)NOT NULL主键（唯一标识） 姓名 varchar(8)NOT NULL 开户时间datetimeNOT NULL 证件类型 varchar(20)NOT NULL 证件号 intNOT NULL存款smallmoneyNOT NULL最后时间datetimeNOT NULL密码varchar(10)NOT NULL用户权限varchar(10)NOT NULL 主码为:卡号 b.数据流字典名称说明位置定义登陆验证验证ID号，合法用户可以登陆 管理员登陆处理1一般用户登陆处理2登陆验证=用户名+密码验证结果是否为合法用户，并验证以何种身份进入窗口登陆处理1 管理员登陆处理2一般用户验证结果=登陆成功 / 无此用户名/ 密码错误查询信息一般用户可查看个人情况；管理员查看所有情况基本信息个人信息用户信息维护所有用户信息 查询信息=查询个人信息 / 查询所有信息添加用户只有管理员才能进行添加信息管理员一般用户添加信息=开户 修改信息只有管理员才能进行修改一般用户信息管理员一般用户修改信息=用户信息修改销户只有管理员才能进行销户管理员一般用户删除用户信息=销户第四章 测试情况一、管理员身份登录1、 管理员登录后台数据库使用sql server 2005开发默认管理员卡号： ，密码：admin此窗体代码如下：Private Sub login_Click()Dim password As StringDim objrs As ADODB.Recordset 定义数据库的记录集Static total As Byte 用来记录操作者登陆次数,超过3次输入密码错误，强制退出If total = 3 Then MsgBox 您无权操作本系统！, vbCritical, 无权限 如果登陆次数为三次则显示“您无权操作本系统 EndEnd IfIf txt_userid.Text = Then 如果用户名为空，则鼠标聚焦于用户名，并显示“请输入用户帐号” txt_userid.SetFocus MsgBox 请输入用户账号, vbExclamation, 选择用户 Exit SubEnd IfIf txt_password.Text = Then 如果密码为空，则鼠标聚焦于密码，并显示“请输入登陆密码” txt_password.SetFocus MsgBox 请输入登录密码, vbExclamation, 登录密码 Exit SubEnd If正常用户登录Set objrs = ExecuteSQL(select * from userinformation where userid= & Trim(txt_userid.Text)先判断登录用户名或者密码是否正确If (objrs.RecordCount = 0) Then 如果登陆的用户名或者密码不正确 txt_userid.SetFocus 则鼠标聚焦于用户名 txt_userid.Text = 清空用户名 txt_password.Text = 清空密码 MsgBox 输入的用户名或密码错误，请重新输入, vbCritical, 错误Exit SubEnd Ifpassword = Trim(objrs.Fields(7) 得到密码tempuser = Trim(objrs.Fields(0) 取出登录用户id，赋给全局变量，以便其他窗口使用power = Trim(objrs.Fields(8) 得到权限,注意：存储在SQL server中的字符串后面有空格If Trim(txt_password.Text) = password Then 若输入的密码正确,则可以进入系统 Select Case power 获取登陆身份 Case 管理员: 若为管理员身份登陆则取消当前窗体，且显示主窗体 Unload Me frmmain.Show Case 一般用户: 若为一般用户则取消当前窗体 ，且显示主窗体，不可视 Unload Me frmmain.User.Visible = False frmmain.Show Case 冻结: MsgBox 此卡已被冻结, vbCritical, 无权限 Unload Me Exit Sub End Select Else: MsgBox 密码错误,请重新输入!, vbExclamation, 密码错误 不正确,给出提示 txt_password.Text = 密码清空 txt_password.SetFocus 鼠标聚焦于密码 total = total + 1 记录登陆次数+1 Exit SubEnd If frmmain.Show Unload MeEnd SubPrivate Sub txt_userid_KeyPress(KeyAscii As Integer)If (In_Int(KeyAscii) = False) Then KeyAscii = 0End IfEnd Sub2、 登陆成功后进入主窗体此窗体代码如下：Private Sub bank_business_Click() 银行业务Frame_userinfo.Visible = False 个人信息不可视frame_select.Visible = True select可视End SubPrivate Sub cmd_back_Click() 返回Frame_userinfo.Visible = False 个人信息不可视frame_select.Visible = False select不可视End SubPrivate Sub cmd_deposit_Click() 存款Dim total As SingleDim tempsql As StringDim objrs As New ADODB.RecordsetSet objrs = ExecuteSQL(select deposit from userinformation where userid= & tempuser) 查出用户当前余额If Val(txt_deposit.Text) 10000 Then MsgBox 每次存款金额不能超过10000元，请重新输入存款金额！, vbCritical, 提示 txt_deposit.Text = txt_deposit.SetFocus End Iftotal = Val(objrs.Fields(0) + Val(txt_deposit.Text)tempsql = update userinformation set deposit= & total & where userid= & tempuserSet objrs = ExecuteSQL(tempsql)txt_deposit.Text = txt_deposit.SetFocusStatusBar1.Panels(1).Text = 存款成功，当前余额为： + Str(total) + 元同时要刷新个人存取款信息Set objrs = ExecuteSQL(select * from userinformation where userid= & tempuser)txt_money.Text = Trim(objrs.Fields(5)End SubPrivate Sub cmd_draw_Click() 取款Dim total As Single 定义变量Dim tempsql As StringDim objrs As New ADODB.RecordsetSet objrs = ExecuteSQL(select deposit from userinformation where userid= & tempuser) 查出用户当前余额If Val(txt_drawmoney.Text) Val(objrs.Fields(0) Then MsgBox 您的余额不足，请重新输入取款金额！, vbCritical, 提示 txt_drawmoney.Text = txt_drawmoney.SetFocus End If total = Val(objrs.Fields(0) - Val(txt_drawmoney.Text)tempsql = update userinformation set deposit= & total & where userid= & tempuserSet objrs = ExecuteSQL(tempsql)txt_drawmoney.Text = txt_drawmoney.SetFocusStatusBar1.Panels(1).Text = 取款成功，当前余额为： + Str(total) + 元同时要刷新个人存取款信息Set objrs = ExecuteSQL(select * from userinformation where userid= & tempuser)txt_money.Text = Trim(objrs.Fields(5)End SubPrivate Sub cmd_return_Click() 返回主菜单Frame_userinfo.Visible = Falseframe_select.Visible = FalseEnd SubPrivate Sub cmd_transfer_Click() 转账Dim objrs As New ADODB.RecordsetDim total1, total2 As SingleDim tempsql As StringIf txt_receivingaccount.Text = Then MsgBox 对方账号为空，请重新填写！, vbCritical, 提示 txt_receivingaccount.SetFocus Exit Sub Else If txt_paymoney.Text = Or txt_paymoney.Text 10000 Then MsgBox 请输入转账金额，不能大于10000元!, vbCritical, 提示 txt_paymoney.SetFocus Exit Sub End If End If从数据库中查找输入的对方转账账号是否存在Set objrs = ExecuteSQL(select userid from userinformation where userid= & Trim(txt_receivingaccount)If objrs.RecordCount = 0 Then MsgBox 输入转账账号不存在，请仔细核对！ txt_receivingaccount.Text = txt_paymoney.Text = txt_receivingaccount.SetFocus Exit SubEnd If判断转账账号不能为自身If txt_receivingaccount.Text = tempuser Then MsgBox 帐号不能为自身！ Exit Sub End If进行转账，首先判断自身账号中的金额是否够转账金额Set objrs = ExecuteSQL(select deposit from userinformation where userid= & tempuser)If Val(txt_paymoney.Text) Val(Trim(objrs.Fields(0) Then MsgBox 您的金额不足，请重新输入转账金额!, vbCritical, 提示 txt_paymoney.Text = txt_paymoney.SetFocus End If 取出对方账号中的金额,加上转账金额，再写入数据库中Set objrs = ExecuteSQL(select deposit from userinformation where userid= & Trim(txt_receivingaccount)total = Val(objrs.Fields(0) + Val(Trim(txt_paymoney.Text)tempsql = update userinformation set deposit= & total & where userid= & Trim(txt_receivingaccount)Set objrs = ExecuteSQL(tempsql)同时自身账户中的金额相应减少Set objrs = ExecuteSQL(select deposit from userinformation where userid= & tempuser)total = Val(objrs.Fields(0) - Val(Trim(txt_paymoney.Text)tempsql = update userinformation set deposit= & total & where userid= & tempuserSet objrs = ExecuteSQL(tempsql)清空转账账号和金额total = Val(txt_paymoney.Text)txt_paymoney.Text = txt_receivingaccount.Text = 状态栏显示转账成功StatusBar1.Panels(1).Text = 转账成功，转账金额为： & Str(total) & 元同时要刷新个人存取款信息Set objrs = ExecuteSQL(select * from userinformation where userid= & tempuser)txt_money.Text = Trim(objrs.Fields(5)End SubPrivate Sub destroyuser_Click() 销户Frm_deleteuser.ShowEnd SubPrivate Sub exit_Click() 退出EndEnd SubPrivate Sub Form_Load() 登陆Dim objrs As New ADODB.RecordsetStatusBar1.Panels(1).Width = 5500StatusBar1.Panels(2).Width = 5500StatusBar1.Panels(2).Text = Date$ + + Time$Frame_userinfo.Visible = Falseframe_select.Visible = FalseSet objrs = ExecuteSQL(select * from userinformation where userid= & tempuser)txt_userid.Text = Trim(objrs.Fields(0) 显示用户登录的卡号txt_username.Text = Trim(objrs.Fields(1) 显示用户名Txt_date.Text = Trim(objrs.Fields(2) 显示用户开户日期txt_cardtype.Text = Trim(objrs.Fields(3) 显示用户开户身份类型Txt_cardnum.Text = Trim(objrs.Fields(4) 显示用户开户证件号码txt_money.Text = Trim(objrs.Fields(5) 显示用户当前余额txt_lasttime.Text = Trim(objrs.Fields(6) 显示用户最后访问日期End SubPrivate Sub logout_Click() 注销Unload MeFrm_login.ShowEnd SubPrivate Sub openuer_Click() 开户frm_adminaddnewuser.ShowEnd SubPrivate Sub search_Click() 查询frm_adminsearch.ShowEnd SubPrivate Sub Timer1_Timer() 时间StatusBar1.Panels(2).Text = Date$ + + Time$End SubPrivate Sub txt_paymoney_Change()End SubPrivate Sub userinformation_Click()显示个人信息Frame_userinfo.Visible = Trueframe_select.Visible = FalseEnd Sub存款栏只能输入数字,进行更新数据库前的检查,自动屏蔽非数字字符Private Sub Txt_deposit_KeyPress(KeyAscii As Integer)If In_Int(KeyAscii) = False Then KeyAscii = 0 End IfEnd SubPrivate Sub ver_Click() 版本信息frm_ver.ShowEnd SubPrivate Sub copy_Click() 数据库还原于备份frm_copy.ShowEnd SubPrivate Sub modifyuser_Click() 用户信息修改frm_updatauser.ShowEnd SubPrivate Sub freeze_Click() 冻结frm_freeze.ShowEnd Sub3、选择“账户管理”-“个人信息”，显示如下：单击“返回”，用户信息消失，返回主窗体4、选择“账户管理”-“银行业务”，显示：可以选择“存款”、“取款”和“转账”操作。（1）存款：用户选择存款2000元，点击“存款”按钮后，状态栏提示“成功”，并显示当前余额。（2）转账：若用户转账过程中，输入了不存在的账号，则提示如下：转账过程中，若账户余额不足，则提示如下：若账号号码为空号码则提示如下：（3）取款：若取款金额大于用户所剩金额则显示如下：取款成功显示如下:单击“返回主菜单”则显示主窗体5、管理员登录后，可以选择“用户管理”-“用户信息查询”，页面显示如下：可以按照卡号，姓名和金额来查询此窗体代码如下：Private Sub cmd_return_Click()Unload MeEnd SubPrivate Sub cmd_search_Click()Dim tempsql, SQL As StringDim objrs As New ADODB.RecordsetDim i As IntegerDim sqlstring(2) As String 字符串数组存放各种查询条件，下标与复选框控件数组索引对应。 SQL 语句中使用 Like 运算符、% 通配符可实现模糊查询。 sqlstring(0) = userid Like % & Trim$(txt_userid.Text) & % sqlstring(1) = username Like % & Trim$(txt_name.Text) & % tempsql = 先将最终的查询条件字符串置空，用于存放 SQL 语句中 WHERE 子句的条件 If txt_money.Text = And cmo_select.Text = Then For i = 0 To chkquery.Count - 1 If chkquery(i).Value = vbChecked Then 若某复选框被选中， If tempsql = Then 若只有一个复选框被选中， tempsql = sqlstring(i) 利用字符串数组加入一个条件； Else 若有多个复选框被选中， tempsql = tempsql & AND & sqlstring(i) 用 AND 运算符加入多个条件。 End If SQL = select * from userinformation where & tempsql Set objrs = ExecuteSQL(SQL) Set DataGrid1.DataSource = objrs End If Next Else tempsql = deposit & Trim$(cmo_select.Text) & Val(txt_money.Text) SQL = select * from userinformation where & tempsql Set objrs = ExecuteSQL(SQL) Set DataGrid1.DataSource = objrs End If End SubPrivate Sub DataGrid1_Click()End Sub（1）按卡号进行查询，在相应的卡号或者姓名中输入字段，软件支持模糊查询，如：输入卡号为：“33”，（2）按姓名查找显示如下：（3）按余额查询如下：6、管理员登录后，可以选择“用户管理”-“冻结和解冻”，页面显示如下：此窗体代码如下：Private Sub Command1_Click()Dim objrs As New ADODB.RecordsetDim tempsql As StringIf Trim$(txt_userid.Text) = Then MsgBox 用户卡号不能为空! txt_userid.SetFocus Exit SubEnd IfSet objrs = ExecuteSQL(select * from userinformation where userid= & Trim(txt_userid.Text)If objrs.RecordCount = 0 ThenMsgBox 未找到此卡号信息！, vbOKOnly + vbExclamation, 警告ElseIf objrs.RecordCount 0 ThenIf MsgBox(真的要对该用户进行冻结操作吗?, vbYesNo + vbQuestion, 警告) = vbYes Thentempsql = update userinformation Set useridentity=冻结 where userid= & Trim(txt_userid.Text) Set objrs = ExecuteSQL(tempsql) End If End If End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Dim objrs As New ADODB.RecordsetDim tempsql As StringIf Trim$(txt_userid.Text) = Then MsgBox 用户卡号不能为空! txt_userid.SetFocus Exit SubEnd IfSet objrs = ExecuteSQL(select * from userinformation where userid= & Trim(txt_userid.Text)If objrs.RecordCount = 0 ThenMsgBox 未找到此卡号信息！, vbOKOnly + vbExclamation, 警告ElseIf objrs.RecordCount 0 ThenIf MsgBox(真的要对该用户进行解冻操作吗?, vbYesNo + vbQuestion, 警告) = vbYes Thentempsql = update userinformation Set useridentity=一般用户 where userid= & Trim(txt_userid.Text) Set objrs = ExecuteSQL(tempsql) End If End If End IfEnd SubPrivate Sub txt_userid_Change()End Sub（1）冻结：如果输入的卡号不存在则显示如下：输入正确的卡号并单击冻结后提示如下：点击“是”以后，该用户被解冻，后台数据库变化如下：（用户身份由“一般用户”变为了“冻结”）（2）解冻：输入正确的卡号并单击“解冻”提示如下单击“是”后解冻成功，后台数据库变化如下：（用户身份由“冻结”变为了“一般用户”）单击“返回”后返回主页面7、用户信息修改此窗体代码如下：Private Sub cmo_cardtype_Change()End SubPrivate Sub Command1_Click()Dim objrs As New ADODB.RecordsetDim tempsql As StringIf Trim$(txt_userid.Text) = Then MsgBox 用户卡号不能为空! txt_userid.SetFocus Exit SubEnd IfIf Trim(txt_username.Text) = Then MsgBox 用户姓名不能为空! txt_username.SetFocus Exit SubEnd IfIf Trim$(cmo_cardtype.Text) = Then MsgBox 用户证件类型不能为空! cmo_cardtype.SetFocus Exit SubEnd IfIf Trim$(txt_cardnum.Text) = Then MsgBox 开户证件号码不能为空! txt_cardnum.SetFocus Exit SubEnd IfIf Trim$(txt_code.Text) = Then MsgBox 密码不能为空！ txt_code.SetFocus Exit SubEnd IfIf Trim$(txt_useridentity.Text) = Then MsgBox 用户权限不能为空！ txt_useridentity.SetFocus Exit SubEnd IfSet objrs = ExecuteSQL(select * from userinformation where userid= & Trim(txt_userid.Text)If objrs.RecordCount = 0 ThenMsgBox 未找到此卡号信息！, vbOKOnly + vbExclamation, 警告ElseIf objrs.RecordCount 0 Thentempsql = update userinformation Set username= & Trim(txt_username.Text) & & , & cardtype = & Trim(cmo_cardtype.Text) & , & cardnum = & Trim(txt_cardnum.Text) & , & userpwd= & Trim(txt_code.Text) & , & useridentity= & Trim(txt_useridentity.Text) & where userid= & Trim(txt_userid.Text)If MsgBox(真的要对该用户进行修改操作吗?, vbYesNo + vbQuestion, 警告) = vbYes Thentempsql = update userinformation Set username= & Trim(txt_username.Text) & where userid= & Trim(txt_userid.Text) Set objrs = ExecuteSQL(tempsql)tempsql = update userinformation Set cardtype = & Trim(cmo_cardtype.Text) & where userid= & Trim(txt_userid.Text) Set objrs = ExecuteSQL(tempsql)tempsql = update userinformation Set cardnum = & Trim$(txt_cardnum.Text) & where userid= & Trim(txt_userid.Text) Set objrs = ExecuteSQL(tempsql)tempsql = update userinformation Set userpwd= & Trim$(txt_code.Text) & where userid= & Trim(txt_userid.Text) Set objrs = ExecuteSQL(tempsql)tempsql = update userinformation Set useridentity= & Trim(txt_useridentity.Text) & where userid= & Trim(txt_userid.Text) Set objrs = ExecuteSQL(tempsql) End If End If End If StatusBar1.Panels(1).Text = 修改成功 最后,要清空所有输入的选项 txt_userid.Text = txt_usernam