frmibf.frm

很好的银行储蓄管理系统,对于开发金融管理系统的人非常有帮助

VERSION 5.00
Begin VB.Form frmIBF 
   BackColor       =   &H80000007&
   Caption         =   "Form1"
   ClientHeight    =   1170
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7710
   LinkTopic       =   "Form1"
   ScaleHeight     =   1170
   ScaleWidth      =   7710
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取 消"
      Height          =   345
      Left            =   6600
      TabIndex        =   2
      Top             =   720
      Width           =   975
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确 定"
      Default         =   -1  'True
      Height          =   345
      Left            =   5400
      TabIndex        =   1
      Top             =   720
      Width           =   975
   End
   Begin VB.TextBox txt 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   2160
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   360
      Width           =   5175
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackColor       =   &H80000007&
      Caption         =   "请输入密码！"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   720
      TabIndex        =   3
      Top             =   360
      Width           =   1440
   End
End
Attribute VB_Name = "frmIBF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rst As Recordset
Public consumerID As String
Public consumerMoney As Double
Public nowDate As String
Public nowTime As String
Public balance As Double
Public DDate As String
Public passTime As Double

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Set rst = New Recordset
    '''''''''''''''''''''''''''''''''''判断密码输入的正确性↓
    If Len(txt.Text) = 0 Then
        MsgBox "密码不能为空！"
        Exit Sub
    End If
    '''''''''''''''''''''''''''''''''''''''''
    Call LinkDB(landWay, SName, "weboy", SUName, SUPw)
    con.Open
    rst.Open "select * from CConsumers where id='" & consumerID & "'", con, adOpenDynamic, adLockOptimistic
    '''''''''''''''''''''''''''''''''''''''''''
    If txt.Text = rst!password Then '如果密码正确
        con.Execute "insert " & consumerID & " values('" & nowDate & "','get','" & consumerMoney & "','" & (balance) * (1 + (passTime * ((percentage0 / 100) / 12))) - consumerMoney & "','" & userName & "')"
        con.Close

        MsgBox "取款完成"
        Unload Me
        Unload frmFetch
    Else
        MsgBox "密码不正确！"
        Exit Sub
    End If
End Sub