vb课程设计--银行存取款管理系统

vb课程设计--银行存取款管理系统内容摘要：

te Sub Command1_Click() 39。 查询 If Text1 Then 39。 设置数据源 = Select * From 储户信息 Where 用户名称 =39。 amp。 Text1 amp。 39。 39。 确定访问数据来源，并选择出用户名为文本框 中名称的所有数据 Else = Select * From 储户信息 39。 对于未指定信息查询 End If 39。 刷新 ADO 控件的连接属性并重新建立记录集对象 End Sub 窗体 查询： 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 8 （ 5）修改储户信息是对数据库中储户的身份信息进行修改。 程序段如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 39。 首记录 39。 读取数据库第一条记录 Case 1 39。 上一条 39。 读取上一条记录 If Then 39。 如果当前为数据源开始，指针定义到第一条数据 Case 2 39。 下一条 39。 读取下一条记录 If Then 39。 如果当前为数据源尾部，指针定义到最后一条数据 Case 3 39。 尾记录 39。 读取数据库最后一条记录 End Select End Sub Private Sub Command2_Click() 39。 更新 39。 确定修改并保存到数据源 End Sub Private Sub Command3_Click() 39。 返回 Unload Me 39。 关闭当前窗体 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 9 39。 返回主窗体 End Sub 窗体 修改储户信息： （ 6）存款与取款是新加一条关于当前储户的一条存款或取款信息。 程序段如下： Private Sub Command1_Click() 39。 确定 39。 保存修改 End Sub Private Sub Command2_Click() 39。 返回 Unload Me 39。 关闭当前窗体 39。 返回主窗体 End Sub Private Sub Command3_Click() 39。 输入 39。 添加新数据 End Sub Private Sub Command4_Click() 39。 存入 Dim a, b As Long, c% 39。 定义 a、 b为长整型 b = 39。 将账号赋值到 b 账号 =39。 amp。 b amp。 39。 39。 从记录首部开始查找账号为 b的那一条数据 If Then MsgBox 无此账号。 , , 提示 39。 如果查找到记录尾部还是没有此账号，则弹出提示窗口 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 10 Else a = (结余金额 ) 39。 在已找到那条数据 中找到结余金额数据，并将此数据赋值给 a = Val() + a 39。 当前存入金额加此账户上一次的结余金额计算出新的结余金额 End If End Sub Private Sub Command5_Click() 39。 取出 Dim x, y, z, mamp。 , e, f As Long Dim n As Date 39。 定义 n、 p 为日期，形式为“ YYYYMMDD” Dim p As Date m = 39。 将账号赋值到 m 账号 =39。 amp。 m amp。 39。 39。 从记录首部开始查找账号为 m的那一条数据 n = (存取款日期 ) 39。 在已找到那条数据中找到存取从记录首部开始查找账号为 m 的那一条数据 p = 39。 将当前取款日期赋值给 p z = DateDiff(d, n, p) 39。 计算当前取款日期与上 一次存取款日期的天数之差 账号 =39。 amp。 m amp。 39。 39。 从记录首部开始查找账号为 m的那一条数据 f = (结余金额 ) 39。 在已找到那条数据中找到结余金额数据，并将此数据赋值给 f x = Val() 39。 将当前取出金额赋值给 x，将文本框中的数字字符串改为数值 y = f * * z + f x 39。 计算利息并将利息假如本金再减去取出金额计算出此次 取款的结余金额，将结余金额赋值给 y = y 39。 将 y 值写入到第八个文本框 End Sub 窗体 存款与取款： 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 11 完整的源程序 Form1：（主窗体） Private Sub chaxun_Click() End Sub Private Sub chuhu_Click() End Sub Private Sub cunkuan_Click() End Sub Private Sub tuichu_Click() End End Sub Private Sub xiugai_Click() End Sub Form2：（添加删除储户） Private Sub Command1_Click(Index As Integer) Dim ask As Integer 辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文） 12 Select Case Index。