【VB开源代码栏目提醒】：网学会员VB开源代码为您提供frmDeposit.frm参考，解决您在frmDeposit.frm学习中工作中的难题，参考学习。

    VERSION 5.00
    Begin VB.Form frmDeposit 
       BackColor       =   &H00FF8080&
       BorderStyle     =   1  'Fixed Single
       Caption         =   "存款"
       ClientHeight    =   3615
       ClientLeft      =   45
       ClientTop       =   435
       ClientWidth     =   5745
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MDIChild        =   -1  'True
       MinButton       =   0   'False
       ScaleHeight     =   3615
       ScaleWidth      =   5745
       Begin VB.CommandButton cmdCancel 
          Cancel          =   -1  'True
          Caption         =   "取 消"
          Height          =   345
          Left            =   3120
          TabIndex        =   10
          Top             =   3000
          Width           =   975
       End
       Begin VB.CommandButton cmdFinally 
          Caption         =   "完 成"
          Default         =   -1  'True
          Height          =   345
          Left            =   1920
          TabIndex        =   9
          Top             =   3000
          Width           =   975
       End
       Begin VB.TextBox txt 
          Appearance      =   0  'Flat
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   10.5
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   300
          IMEMode         =   3  'DISABLE
          Index           =   3
          Left            =   2400
          TabIndex        =   8
          Top             =   2400
          Width           =   2415
       End
       Begin VB.TextBox txt 
          Appearance      =   0  'Flat
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   10.5
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   300
          IMEMode         =   3  'DISABLE
          Index           =   2
          Left            =   2400
          TabIndex        =   7
          Top             =   1920
          Width           =   2415
       End
       Begin VB.TextBox txt 
          Appearance      =   0  'Flat
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   10.5
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   300
          IMEMode         =   3  'DISABLE
          Index           =   1
          Left            =   2400
          TabIndex        =   4
          Top             =   1440
          Width           =   2415
       End
       Begin VB.TextBox txt 
          Appearance      =   0  'Flat
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   10.5
             Charset         =   134
             Weight          =   700
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   300
          IMEMode         =   3  'DISABLE
          Index           =   0
          Left            =   2400
          TabIndex        =   2
          Top             =   960
          Width           =   2415
       End
       Begin VB.Label lbl 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "请再次输入存款金额："
          ForeColor       =   &H00FFFFFF&
          Height          =   180
          Index           =   3
          Left            =   480
          TabIndex        =   6
          Top             =   2520
          Width           =   1800
       End
       Begin VB.Label lbl 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "请输入存款金额："
          ForeColor       =   &H00FFFFFF&
          Height          =   180
          Index           =   1
          Left            =   840
          TabIndex        =   5
          Top             =   2040
          Width           =   1440
       End
       Begin VB.Label lbl 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "请再次输入帐户号码："
          ForeColor       =   &H00FFFFFF&
          Height          =   180
          Index           =   0
          Left            =   480
          TabIndex        =   3
          Top             =   1560
          Width           =   1800
       End
       Begin VB.Label lbl 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "请输入帐户号码："
          ForeColor       =   &H00FFFFFF&
          Height          =   180
          Index           =   4
          Left            =   840
          TabIndex        =   1
          Top             =   1080
          Width           =   1440
       End
       Begin VB.Label lbl 
          AutoSize        =   -1  'True
          BackStyle       =   0  'Transparent
          Caption         =   "存款"
          BeginProperty Font 
             Name            =   "华文新魏"
             Size            =   15.75
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          ForeColor       =   &H00FFFFFF&
          Height          =   315
          Index           =   2
          Left            =   2400
          TabIndex        =   0
          Top             =   240
          Width           =   630
       End
       Begin VB.Line line 
          BorderColor     =   &H00FFFFFF&
          BorderWidth     =   2
          X1              =   360
          X2              =   5160
          Y1              =   600
          Y2              =   600
       End
    End
    Attribute VB_Name = "frmDeposit"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    '定义数据集对象
    Dim rst As Recordset
    '定义用于存储格式化后的当前日期和时间的模块级变量
    Dim nowDate As String
    '定义用于存储格式化前的当前日期和时间的模块级变量
    Dim nowTime As String
    ''定义用于存款储蓄时间的模块级变量
    Dim passTime As Double
    '定义用于存储存款利率的的模块级变量
    Dim percentage As Double
    ''定义用于存储存款金额的模块级变量
    Dim money As Double
    
    Private Sub cmdCancel_Click()
        Unload Me
    End Sub
    '判断输入的一些信息是否符合系统的要求，并完成活期帐户的存款操作。
    Private Sub cmdFinally_Click()
        '设置数据集对象rst
        Set rst = New Recordset
        '在临时变量nowTime中存储当前日期和时间
        nowTime = Now
        '在临时变量nowDate中存储格式化后的当前日期和时间
        nowDate = Format(nowTime, "yyyy") + Format(nowTime, "mm") + Format(nowTime, "dd") _
        + Format(nowTime, "hh") + Format(nowTime, "nn") + Format(nowTime, "ss")
        '判断两次输入的活期储蓄账户账号是否一致
        If txt(0).Text = txt(1).Text Then
            '两次输入的活期储蓄账户账号一致，再判断两次输入的用户存款额是否一致
            If txt(2).Text <> txt(3).Text Then
                 '两次输入的用户存款额不一致，给出错误提示
                MsgBox "请确定两次输入的存款金额相同"
                Exit Sub
            End If
            '定义用于存储存款金额的的临时变量
            Dim depositMoney As Double
            Dim getErr As Boolean
            getErr = True
            On Error GoTo errMoney
            '利用CDbl函数将用户输入的存款金额的数据类型转换为Double数据类型
            depositMoney = CDbl(txt(2).Text)
            getErr = False
    errMoney:
            '判断用户输入的存款金额是否包含非数字字符
            If getErr = True Then
                '用户输入的存款金额包含非数字字