cashinform1.frm

一个银行的管理系统

VERSION 5.00
Begin VB.Form cashInForm1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "活期存款"
   ClientHeight    =   2295
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3945
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   3945
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "完成"
      Height          =   375
      Left            =   2520
      TabIndex        =   4
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "返回继续"
      Height          =   375
      Left            =   1320
      TabIndex        =   3
      Top             =   1440
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认存款"
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   1440
      Width           =   975
   End
   Begin VB.TextBox jinEText1 
      Height          =   375
      Left            =   1320
      TabIndex        =   1
      Top             =   600
      Width           =   2055
   End
   Begin VB.Label Label3 
      Caption         =   "金额"
      Height          =   255
      Left            =   480
      TabIndex        =   0
      Top             =   720
      Width           =   495
   End
End
Attribute VB_Name = "cashInForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  Dim tempPoint1 As ADODB.Recordset
  Dim tempPoint2 As ADODB.Recordset
  Dim textSQL As String
  Dim queRen As Boolean
  Dim huoQiZhHH As String
  Dim cunRuJE As Single
  Dim bianHao As Integer
  
  queRen = False
  
  If (Trim(jinEText1.Text) = "") Then
          jinEText1.SetFocus
          MsgBox "金额空！", vbOKOnly + vbExclamation, ""
          Else
             queRen = True
End If
    
    
    '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '判断金额
    cunRuJE = Val(jinEText1.Text)
    If cunRuJE <= 0 Then
                    queRen = False
                    MsgBox "金额错误！", vbOKOnly + vbExclamation, "错误"
    End If
    '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    
 If queRen = True And LoginSucceeded = True Then
    textSQL = "select * from 帐户信息 where 帐号='" & ID_Number & "'"
    Set tempPoint1 = ExecuteSQL(textSQL)
    If Not tempPoint1.EOF Then
        huoQiZhHH = tempPoint1.Fields(2)
        tempPoint1.Close
        textSQL = "select * from 活期帐户信息"
    
        Set tempPoint2 = ExecuteSQL(textSQL)
        tempPoint2.MoveLast
        bianHao = tempPoint2.Fields(0)
        bianHao = bianHao + 1
        tempPoint2.addNew
        tempPoint2.Fields(0) = bianHao
        tempPoint2.Fields(1) = Trim(huoQiZhHH)
        tempPoint2.Fields(2) = Date
        tempPoint2.Fields(3) = huqQiLiLu
        tempPoint2.Fields(4) = cunRuJE
        tempPoint2.Fields(7) = userID
        tempPoint2.Fields(8) = userName
    
    
        tempPoint2.Update
        tempPoint2.Close
        
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'更新帐户信息
          textSQL = " select * from 帐户信息 where 帐号='" & ID_Number & "'"
          Set tempPoint1 = ExecuteSQL(textSQL)
          If tempPoint1.EOF Then
            MsgBox "登陆帐目错误！", vbOKOnly + vbExclamation, "错误"
            tempPoint1.Close
            Else
                tempPoint1.Fields(4) = tempPoint1.Fields(4) + cunRuJE
                tempPoint1.Fields(6) = tempPoint1.Fields(4) + tempPoint1.Fields(5)
                
                tempPoint1.Update
                tempPoint1.Close
                MsgBox "您的帐户为：" & ID_Number & Chr(10) & "您存入的金额为:" & cunRuJE & "元", vbOKOnly + vbExclamation, "存款成功"
                jinEText1.Text = ""
                
          End If
        Else
            tempPoint1.Close
            MsgBox "帐户不正确,请重试！", vbOKOnly + vbExclamation, ""
            LoginSucceeded = False
            
            
    End If
  End If
End Sub

Private Sub Command2_Click()
  xuanZe.Show
  Unload Me
End Sub

Private Sub Command3_Click()
    LoginSucceeded = False
  Unload Me

End Sub