frminputboxfetch.frm

软件工程实验报告 银行储蓄管理系统 1.可行性分析 2.总体设计 3.详细设计 4.实验报告模板

VERSION 5.00
Begin VB.Form frmIBF 
   BackColor       =   &H00404040&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "请输入密码！"
   ClientHeight    =   1980
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7590
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1980
   ScaleWidth      =   7590
   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            =   120
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   1560
      Width           =   7335
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确 定"
      Default         =   -1  'True
      Height          =   345
      Left            =   6480
      TabIndex        =   1
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取 消"
      Height          =   345
      Left            =   6480
      TabIndex        =   2
      Top             =   840
      Width           =   975
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackColor       =   &H00404040&
      Caption         =   "请输入密码！"
      ForeColor       =   &H00FFFFFF&
      Height          =   180
      Left            =   240
      TabIndex        =   3
      Top             =   240
      Width           =   1080
   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
        If MsgBox("取款成功，请问是否需要打印存根？", vbOKCancel, "提示") = vbOK Then   '如果确认提示
            frmPrintFetch.lbl(1).Caption = consumerID
            frmPrintFetch.lbl(3).Caption = consumerMoney
            frmPrintFetch.lbl(4).Caption = balance - consumerMoney
            frmPrintFetch.lbl(5).Caption = nowTime
            frmPrintFetch.lbl(6).Caption = userName
            frmPrintFetch.PrintForm
            Unload frmPrintFetch
        End If
        MsgBox "取款完成"
        Unload Me
        Unload frmFetch
    Else
        MsgBox "密码不正确！"
        Exit Sub
    End If
End Sub