课 程 设 计 报 告

1、ATM机模拟系统王加会 张林峰 张 赞 陈在堃孟苗苗 候玉岭 荣 毅院 系： 水利学院 专 业： 工程管理 班 级： 2013031 组 号： 孟苗苗 指导老师： 牛立军 (组长签字)年 月 日×××××（完成地点）目录1系统规划41.1选题原因41.2开发目标41.3系统需要输出的成果文件41.4规划方法41.4.1基本概念41.4.2实施步骤41.4.3根据上述分析，得出ATM机模拟系统的关键成功因素法分析52系统分析52.1 业务流程图52.1.1存款流程图52.1.2取款流程图62.1.3查询流程图62.1.4转账流程图72.2数据字典

2、73 系统设计73.1系统总体设计73.2系统流程图73.3系统开发主要应用技术83.3.1系统前台设计83.3.2后台数据库设计83.3.3 VB6.0与SQL数据库的连接94系统实施94.1欢迎界面的实现94.2登陆的实现104.3主界面的实现134.4取款功能的实现154.5修改密码的实现174.6转账的实现184.7查询的实现194.8确认的实现204.9出错提示的实现214.10成功提示的实现214.11是否继续的实现224.12主模块函数234.12.1公有变量声明244.12.2验证身份函数244.12.3修改密码函数254.12.4写入数据库函数274.12.5取款函数284.

3、12.6查询余额函数304.12.7转账函数1304.12.8转账函数2325系统运行和维护335.1系统测试和运行结果335.2系统评价335.3系统中遇到的问题及解决方法33致谢34附：任务分配表341系统规划1.1选题原因ATM机管理系统是银行业务流程过程中十分重要且必备的环节之一，在银行业务流程当中起着承上启下的作用，其重要性不言而喻。但是，目前许多银行在具体的一些业务流程处理过程中仍然使用手工操作的方式来实施，不仅费时、费力，效率低下，而且无法达到理想的效果。然而ATM自动取款功能不带为银行节省大量财力人力，还为广大城市用户带来便捷。为明确软件需求、安排项目规划与进度、组织软件开发与

4、测试，撰写本文档，本文针对上述问题，采用软件工程的开发原理，依据软件流程过程规范，按照系统规划，系统分析，系统设计，系统实施，系统运行和维护等过程，开发了这个系统。1.2开发目标 本系统的开发是为了更好地让广大师生了解ATM机流程，从而能够快速的进行业务办理，缩短业务办理时间。 1.3系统需要输出的成果文件 1.3.1取款 1.3.2查询余额 1.3.3转账 1.3.4修改密码1.4规划方法本系统采用的是关键成功因素法（CSF）。1.4.1基本概念关键成功因素法（CSF）：关键成功因素法指的是对企业成功起关键作用的的因素，是通过分析找出使得企业成功的关键因素，然后再围绕这些关键因素来确定系统的

5、需求，并进行规划。它的主要思想是“抓主要矛盾”，借助这种方法，可以对用户企业成功的重要因素进行识别，确定组织的信息需求，规划开发能够满足这些需求的信息系统。1.4.2实施步骤 （1）确定和了解系统的战略目标，实现ATM级模拟系统方便、快速、准确的运行。（2）本系统开发主要包括以下几个关键因素:v 数据库的连接；v 运行函数的选择；v 代码的正确编写；（3）明确各关键成功因素的指标和标准 v 数据库的连接保证能够使用数据库v 运行函数的选择保证函数适合系统v 代码的正确编写保证代码能顺利运行并且无误1.4.3根据上述分析，得出ATM机模拟系统的关键成功因素法分析 A T M 机 模 拟 系 统数

6、据库的连接运行函数的选择所有流程正常 业务办理代码的正确编写2系统分析2.1 业务流程图2.1.1存款流程图现有金额原有金额预存现金存款凭证ATM系统登录系统储蓄卡用户用户打印凭条金额存入确认存储金额ATM点钞用户信息 2.1.2取款流程图 打 印取 款登录系统 凭条 现金用户用户信息表用户取款表用户登录系统2.1.3查询流程图用户查 询用户转 账登录系统用户2.1.4转账流程图2.2数据字典外部项系统名：ATM机系统               

7、; 编号： 条目名：用户                  别名：银行储户输入数据流：输出数据流：主要特征：用户，即在本系统中进行存取款的银行卡储户，其主要特征是：用户姓名，密码 简要说明：负责输入存、取款金额，提取现金 修改记录：编写日期审核日期加工系统名：ATM机系统         

8、       编号： 条目名：取款单                 别名：取款信息输入数据流：存款金额输出数据流：取款金额加工逻辑： 1， 用户使用密码登陆系统 2， 选择业务类型：取款 3， 输入取款金额 4，远程数据库计算剩余金额并向系统报告简要说明：当选择余额查询业务时，系统显示剩余金额3 系统设计3

9、.1系统总体设计系统总体设计是根据系统分析的要求和组织的实际情况，对新系统的总体结构形式和可利用的资源进行大致设计。总体设计的主要任务是将整个系统合理的划分成各个功能模块。本系统实现以下内容：1) 选择语言服务2) 身份认证3) 密码修改4) 取款5) 转账6) 查询余额3.2系统流程图登陆 退出取款查询余额选择服务身份认证修改密码转账3.3系统开发主要应用技术由于开发前台界面和后台数据库系统，对于前台界面只需满足要求即可，所以采用简单强大的VB6.0，后台数据库采用专业的与之方便连接的SQL SERVER 2000。以上两个开发软件完全可以满足开发需要。3.3.1系统前台设计前台部分整个代码

10、程序采用一个主模块，在里面顶替程序全局变量，把各种功能函数写入其中，每个界面制作一个独立窗体，在各个窗体代码中来调用主模块的各个函数来实现相应功能。3.3.2后台数据库设计创建名为user_Data数据库，并在ODBC数据源中将之添加进去，数据库分为信息表和操作表信息表用以存放用户的卡号，密码，存款金额等信息，本系统不具有创建用户的功能用户信息表上的内容都是为了模拟而手动添加的样本用户。操作表用来记录用户在ATM机上的服务，只是简略的记录，并不会和银行那样复杂。3.3.3 VB6.0与SQL数据库的连接ADO RECORDSET来访问SQL SERVER 2000上的ODBC数据源。使用ADO

11、控件可以方便的在VB6.0中访问ODBC数据库，但是通过直接放置ADODS控件来获得ADO的数据源非常麻烦，可以在VB工程中建立一个公共的数据模块，将ADO控件的初始化、建立连接、关闭连接等操作都写入函数中这样可以在其他工程中调入这个ADO连接。一次完整的ADO调用操作分为：1) 打开ADO到数据库连接，初始化ADO RECORDSET集；2) 通过写入SQL语言执行查询并返回查询结果RECORDSET集；3) 释放RECORDSET集，关闭数据库连接。本次设计只设计了一个主模块所以直接将ADO空间的初始化、建立连接、关闭连接等操作都写到了最先调用的身份认证函数中，就已将满足我对数据库的访问。

12、4系统实施4.1欢迎界面的实现代码：Private Sub Command1_Click()i = 2Unload Form1Form2.ShowEnd SubPrivate Sub Command2_Click()i = 1Unload Form1Form2.ShowEnd SubPrivate Sub Timer1_Timer()Label1.Visible = Not Label1.VisibleEnd Sub4.2登陆的实现中文英文代码：Private Sub Command1_Click()If i = 2 ThenIf Len(Text1.Text) <> 8 Or L

13、en(Text2.Text) <> 6 Then'MsgBox "没有正确输入卡号或密码", vbExclamation, "出错信息"Form3.ShowForm3.Label1.Caption = "没有正确输入卡号或密码"Text1.Text = ""Text2.Text = ""ElseCall CheckuserEnd IfEnd If'用户选择英语If i = 1 ThenIf Len(Text1.Text) <> 8 Or Len(Text2

14、.Text) <> 6 Then'MsgBox "Please Input Correct Cardnumber Or Password", vbExclamation, "Error"Form3.ShowForm3.Label1.Caption = "Please Input Correct Cardnumber Or Password"Text1.Text = ""Text2.Text = ""ElseCall CheckuserEnd IfEnd IfEnd SubPr

15、ivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()If i = 1 ThenLabel1.Caption = "Please Input Cardnumber"Label2.Caption = "PLease Input Password"Command1.Caption = "OK"Command2.Caption = "Cancel"End IfEnd Sub4.3主界面的实现代码：Private Sub Command1_Click()If

16、Option1(0).Value = True Thenj = 1Unload Form4Form5.ShowElseIf Option1(1).Value = True Thenj = 2Unload Form4Form6.ShowElseIf Option1(2).Value = True Thenj = 3Unload Form4Form7.ShowElseIf Option1(3).Value = True Thenj = 4Unload Form4Call QueryForm8.ShowForm8.Label2.Caption = uElseIf i = 2 Then'Msg

17、Box "请选择所需的服务", vbExclamation, "出错提示"Form3.ShowForm3.Label1.Caption = "请选择所需的服务"Else'MsgBox "Please Choose Your Service", vbExclamation, "Error"Form3.ShowForm3.Label1.Caption = "Please Choose Your Service"End IfEnd IfEnd IfEnd IfEnd IfE

18、nd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()If i = 1 Then Label1.FontSize = 16 Label1.Caption = "Please Select your needing server" Option1(0).Caption = "WithDraw" Option1(1).Caption = "Change Password" Option1(2).Caption = "Transfer" Op

19、tion1(3).Caption = "Deposit Query" Command1.Caption = "OK" Command2.Caption = "Cancel"End IfEnd Sub4.4取款功能的实现代码：Private Sub Command1_Click()Call TakeMoneyCall InsertDatabaseEnd SubPrivate Sub Command2_Click()Unload Form5Form4.ShowEnd SubPrivate Sub Form_Load()'用户选择的

20、是英语If i = 1 ThenLabel1.Caption = "This ATM provided money which value is 50 or 100"Label2.Caption = "Please Input The Amount Of The Money"Command1.Caption = "OK"Command2.Caption = "Back"End IfEnd Sub4.5修改密码的实现代码：Private Sub Command1_Click()Call changepwdCall I

21、nsertDatabaseEnd SubPrivate Sub Command2_Click()Unload Form6Form4.ShowEnd SubPrivate Sub Form_Load()'用户选择英语时If i = 1 ThenLabel1.FontSize = 16Label2.FontSize = 16Label1.Caption = "Please Input You New Password"Label2.Caption = "Please Do It Again"Command1.Caption = "OK&qu

22、ot;Command2.Caption = "Back"End IfEnd Sub4.6转账的实现代码：Private Sub Command1_Click()Call TransEnd SubPrivate Sub Command2_Click()Unload Form7Form4.ShowEnd SubPrivate Sub Form_Load()'用户选择英语If i = 1 ThenLabel1.FontSize = 12Label2.FontSize = 12Label1.Caption = "Please Input The Transfere

23、d Cardnumber"Label2.Caption = "Please Input The Acount Of Transfered Money"Command1.Caption = "OK"Command2.Caption = "Back"End IfEnd Sub4.7查询的实现代码：Private Sub Command1_Click()Unload Form8Form4.ShowEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load()

24、9;用户选择英语If i = 1 ThenLabel1.Caption = "Your Cardnumber Is"Label3.Caption = "Your Balance Is"Command1.Caption = "OK"End IfEnd Sub4.8确认的实现代码：Private Sub Command1_Click()Call Trans2Unload Form10End SubPrivate Sub Command2_Click()Form7.ShowEnd SubPrivate Sub Form_Load()'

25、; 用户选择的语言是英语If i = 1 ThenForm10.Label1.Caption = "Transfer Inforform10ntion"Form10.Label2.Caption = "Transfered Cardnumber:"Form10.Label3.Caption = "Transfered Money:"Form10.Command1.Caption = "OK"Form10.Command2.Caption = "Cancel"End IfEnd Sub4.9出错提

26、示的实现代码：Private Sub Form_Click()Unload Form3End SubPrivate Sub Label1_Click()Unload Form3End SubPrivate Sub Timer1_Timer()Unload Form3End Sub4.10成功提示的实现代码：Private Sub Form_Click()Unload Form9End SubPrivate Sub Label1_Click()Unload Form9End SubPrivate Sub Timer1_Timer()Unload Form9End Sub4.11是否继续的实现代码

27、：Private Sub Command1_Click()Form4.ShowUnload Form11End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()If i = 1 ThenLabel1.Caption = "Do you want to continue?Please choose!"Command1.Caption = "Anther service"Command2.Caption = "Cancel"End IfEnd Sub4.12主

28、模块函数4.12.1公有变量声明'*公有变量名声明*Public i As IntegerPublic CON As ADODB.ConnectionPublic RS As ADODB.RecordsetDim pcount As IntegerDim str As StringPublic j As IntegerPublic u As StringPublic transcard As StringPublic transmoney As String4.12.2验证身份函数'*验证身份函数*Public Sub Checkuser()Set CON = New ADOD

29、B.Connectionstrr = "DRIVER=SQL Server;SERVER=(local);APP=Microsoft(R) Windows (R) 2000 Operating System;WSID=SX2533;DATABASE=user;Trusted_Connection=Yes"CON.Open strru = Form2.Text1.Textstr = "select 密码 from 用户信息 where 卡号='" & u & "'"Set RS = New ADODB.R

30、ecordsetRS.Open str, CON, adOpenDynamic, adLockPessimisticIf RS.EOF = True ThenIf i = 2 ThenForm3.ShowForm3.Label1.Caption = "没有此用户，请检查并重新输入！"u = ""Form2.Text1.Text = ""Form2.Text2.Text = ""ElseForm3.ShowForm3.Label1.Caption = "No This Customer！"u =

31、""Form2.Text1.Text = ""Form2.Text2.Text = ""End IfExit SubEnd IfIf Trim(RS.Fields(0) = Trim(Form2.Text2.Text) Then Form4.Show RS.Close Unload Form2 Else If i = 2 Then If pcount < 3 Then pcount = pcount + 1 Form3.Show Form3.Label1.Caption = "密码不正确，请重新输入！" El

32、se Form3.Show Form3.Label1.FontSize = 12 Form3.Label1.Caption = "由于您已经输错三次密码，您的卡暂时由本行保管请您于明日拿身份证来领取！" pcount = 1 Unload Form2 Form1.Show Form3.SetFocus End If Else If pcount < 3 Then pcount = pcount + 1 Form3.Show Form3.Label1.Caption = "Incorrect Password，Please Try Again！" E

33、lse Form3.Show Form3.Label1.Caption = "Your Card Have Been Eaten ,Please Take It Tomorrow" pcount = 1 Unload Form2 Form1.Show Form3.SetFocus End If End If End IfEnd Sub4.12.3修改密码函数'*修改密码函数*Public Sub changepwd()If i = 2 ThenIf Len(Form6.Text1.Text) <> 6 Or Len(Form6.Text1.Text) &

34、lt;> 6 Then Form3.Show Form3.Label1.Caption = "请正确输入6位密码"Form6.Text1.Text = ""Form6.Text2.Text = ""ElseIf Form6.Text1.Text <> Form6.Text2.Text Then Form3.Show Form3.Label1.Caption = "您两次输入的密码不一致，请检查！"Form6.Text1.Text = ""Form6.Text2.Text = &

35、quot;"Elsestr = "update 用户信息 set 密码='" & Form6.Text1.Text & "' where 卡号='" & u & "'"Set RS = New ADODB.RecordsetRS.Open str, CON, adOpenDynamic, adLockPessimisticIf i = 2 ThenForm9.ShowForm9.Label1.Caption = "密码修改成功，请记好您的新密码！&qu

36、ot;ElseForm9.ShowForm9.Label1.Caption = "Password Be changed successfully"End IfUnload Form6Form11.ShowForm9.SetFocusEnd IfEnd IfElseIf Len(Form6.Text1.Text) <> 6 Or Len(Form6.Text1.Text) <> 6 ThenForm3.ShowForm3.Label1.Caption = "The Length Of Password Must Be Six！"F

37、orm6.Text1.Text = ""Form6.Text2.Text = ""ElseIf Form6.Text1.Text <> Form6.Text2.Text ThenForm3.ShowForm3.Label1.Caption = "The Two PassWords Are Diferent！"Form6.Text1.Text = ""Form6.Text2.Text = ""Elsestr = "update 用户信息 set 密码='"

38、& Form6.Text1.Text & "' where 卡号='" & u & "'"Set RS = CON.Execute(str)If i = 2 ThenForm9.ShowForm9.Label1.Caption = "The PassWord Have Been changed successfully！"ElseForm9.ShowForm9.Label1.Caption = "The PassWord Have Been changed succes

39、sfully！"End IfUnload Form6Form11.ShowForm9.SetFocusEnd IfEnd IfEnd IfEnd Sub4.12.4写入数据库函数'*写入数据库函数*Public Sub InsertDatabase()str = "select * from 用户操作表"Set RS = New ADODB.RecordsetRS.Open str, CON, adOpenDynamic, adLockPessimisticIf j = 1 ThenRS.AddNewRS.Fields("卡号") =

40、uRS.Fields("操作") = "取款"RS.Fields("时间") = NowRS.Fields("取款金额") = Val(Form5.Text1.Text)RS.Fields("是否成功") = "是"RS.UpdateRS.CloseElseIf j = 2 ThenRS.AddNewRS.Fields("卡号") = uRS.Fields("操作") = "修改密码"RS.Fields("

41、时间") = NowRS.Fields("是否成功") = "是"RS.UpdateRS.CloseElseIf j = 3 ThenRS.AddNewRS.Fields("卡号") = uRS.Fields("操作") = "转帐"RS.Fields("时间") = NowRS.Fields("转帐金额") = transmoneyRS.Fields("转帐卡号") = transcardRS.Fields("是否

42、成功") = "是"RS.UpdateRS.CloseElseRS.AddNewRS.Fields("卡号") = uRS.Fields("操作") = "查询余额"RS.Fields("时间") = NowRS.Fields("是否成功") = "是"RS.UpdateRS.CloseEnd IfEnd IfEnd IfEnd Sub4.12.5取款函数'*取款函数*Public Sub TakeMoney()Dim str1 As S

43、tringstr1 = "select * from 用户信息 where 卡号='" & u & "'"Set RS = New ADODB.RecordsetRS.Open str1, CON, adOpenDynamic, adLockPessimisticIf i = 2 Thenm = Form5.Text1.TextIf m = "" ThenForm3.ShowForm3.Label1.Caption = "请您正确输入金额！"Exit SubEnd IfIf m Mo

44、d 50 <> 0 ThenForm3.ShowForm3.Label1.Caption = "请您正确输入金额！"Form5.Text1.Text = ""ElseIf RS.Fields("金额") < CCur(m) ThenForm3.ShowForm3.Label1.Caption = "金额不足！"Form5.Text1.Text = ""Exit SubElseMoney = RS.Fields("金额")RS.Fields("金额&

45、quot;) = (Money - Form5.Text1.Text)RS.UpdateRS.CloseCall InsertDatabaseUnload Form5Form9.ShowForm9.Label1.Caption = "交易成功，谢谢您的使用，请拿好您的钞票！"Form11.ShowForm9.SetFocusEnd IfEnd IfElsem = Form5.Text1.TextIf m = "" ThenForm3.ShowForm3.Label1.Caption = "Please Input Correct Amount！

46、"Exit SubEnd IfIf m Mod 50 <> 0 ThenForm3.ShowForm3.Label1.Caption = "Please Input Correct Amount！"Form5.Text1.Text = ""ElseIf RS.Fields("金额") < CCur(m) ThenForm3.ShowForm3.Label1.Caption = "No Enough Money！"Form5.Text1.Text = ""Exit Su

47、bElseMoney = RS.Fields("金额")RS.Fields("金额") = (Money - Form5.Text1.Text)RS.UpdateRS.CloseCall InsertDatabaseUnload Form5Form9.ShowForm9.Label1.Caption = "Please Take You money！"Form11.ShowForm9.SetFocusEnd IfEnd IfEnd IfEnd Sub4.12.6查询余额函数'*查询余额函数*Public Sub Query()

48、Dim str2 As Stringstr2 = "select * from 用户信息 where 卡号='" & u & "'"Set RS = New ADODB.RecordsetRS.Open str2, CON, adOpenDynamic, adLockPessimisticForm8.Label5.Caption = RS.Fields("金额")Call InsertDatabaseEnd Sub4.12.7转账函数1'*转帐函数1*Public Sub Trans()Dim

49、str3 As Stringtranscard = Form7.Text1.Texttransmoney = Form7.Text2.Textstr3 = "select * from 用户信息 where 卡号='" & transcard & "'"Set RS = New ADODB.RecordsetRS.Open str3, CON, adOpenDynamic, adLockPessimisticIf i = 2 ThenIf Form7.Text2.Text = "" Or Form7.T

50、ext1.Text = "" ThenForm3.ShowForm3.Label1.Caption = "请你正确输入！"Form7.Text1.Text = ""Form7.Text2.Text = ""Exit SubEnd IfIf RS.EOF = True ThenForm3.ShowForm3.Label1.Caption = "没有此用户，请检查并重新输入！"Exit SubEnd IfIf transcard = u ThenForm3.ShowForm3.Label1.Capt

51、ion = "操作错误，同帐户不可以转帐！"Exit SubEnd Ifstr6 = "select * from 用户信息 where 卡号='" & u & "'"Set RS = New ADODB.RecordsetRS.Open str6, CON, adOpenDynamic, adLockPessimisticIf RS.Fields("金额") < Val(Form7.Text2.Text) ThenForm3.ShowForm3.Label1.Caption

52、= "金额不足以转帐，请你重新输入"Form7.Text2.Text = ""Exit SubElseUnload Form7Form10.Text1.Text = transcardForm10.Text2.Text = transmoneyForm10.ShowEnd IfElse''''''If Form7.Text2.Text = "" Or Form7.Text1.Text = "" ThenForm3.ShowForm3.Label1.Caption =

53、"Please Input Correct Cardnumber Or Amount！"Form7.Text1.Text = ""Form7.Text2.Text = ""Exit SubEnd IfIf RS.EOF = True ThenForm3.ShowForm3.Label1.Caption = "No This Customer！"Exit SubEnd IfIf transcard = u ThenForm3.ShowForm3.Label1.Caption = "It Is Wrong T

54、o Transfer In The Same Customer！"Exit SubEnd Ifstr6 = "select * from 用户信息 where 卡号='" & u & "'"Set RS = New ADODB.RecordsetRS.Open str6, CON, adOpenDynamic, adLockPessimisticIf RS.Fields("金额") < Val(Form7.Text2.Text) ThenForm3.ShowForm3.Label1.Caption = "No Enough Amount To Transfer"Form7.Text2.Text = ""Exit SubElseUnload Form7Form10.Text1.Text = transcardForm10.Text2.Text = transmoneyForm10.ShowEnd IfEnd IfEnd