《面向对象方法设计与实现报告ATM系统实现报告(VB)word格式word格式》.docVIP

面向对象方法设计与实现报告 —ATM机系统 软件0802班 高晓亮 200807040203 概要 根据ATM的需求分析，该系统设计为2个子系统：用户系统、银行工作人员系统。其中用户系统主要使用户在ATM上完成一些基本操作，例如：存款、取款、转账、查询余额、修改账户密码等银行工作人员系统主要用来管理用户账户、ATM机、事务。其具体功能和界面及代码将在下文叙述。 说明：该系统主要代码是用vb编写，数据库使用的是单机数据库access。 用户系统 A：主要界面介绍： 一）、待机界面： 1、功能：系统欢迎界面，点击模拟按钮开始模拟ATM机工作。 2、说明：由于没有找到合适的广告图片，所以待机默认先用蓝色背景代替。 3、界面文字动画代码如下：If Label5(0).Left Me.ScaleWidth Then Label5(0).Left = Me.Left - 100 End If Label5(0).Move Label5(0).Left + 120 If Label5(1).Left Me.ScaleWidth Then Label5(1).Left = Me.Left - 100 End If Label5(1).Move Label5(1).Left + 120 4、界面截图如下： 二）、登陆界面： 1、功能：a、密码框设置只能输入6位 B、密码输入3次错误，将冻结该账户 C、银行卡号不存在、冻结或密码错误，均不能进入系统 2、说明：因为各银行卡号位数不太一样，银行卡号位数并未设置。 3、登陆确认按钮代码如下： Private Sub Command27_Click() If Not Text7.Text = And Not Text8.Text = Then Dim sql As String sql = select * from 账户 where 银行卡号= Trim(Text7.Text) Adodc1.RecordSource = sql Adodc1.Refresh If Adodc1.Recordset(状态) = 冻结 Then 判断该账户状态 MsgBox 该账户已冻结！！ Text7.Text = Text8.Text = Else sql = select * from 账户 where 银行卡号= Trim(Text7.Text) and 密码= Trim(Text8.Text) Adodc1.RecordSource = sql Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox 密码错误！, 48, 错误提示 Text8.Text = count1 = count1 + 1 If count1 = 3 Then 三次输入错误冻结该账户 Adodc1.Refresh sql = select * from 账户 where 银行卡号= Trim(Text7.Text) Adodc1.RecordSource = sql Adodc1.Refresh Adodc1.Recordset(状态) = 冻结 Adodc1.Recordset.Update MsgBox (三次输入错误，该账户已被冻结) End If Else Label10.Visible = False Label11.Visible = False Text7.Visible = False Text8.Visible = False Command27.Visible = False Command28.Visible = False Command14.Visible = True Command15.Visible = True Command16.Visible = True Command17.Visible = True Command18.Visible = True Command19.Visible = True Command24.Visible = True Ynum = Text7.Text Adodc2.Refresh ’添加事务