form15.frm

银行的客户端模块

VERSION 5.00
Begin VB.Form Form15 
   BorderStyle     =   0  'None
   Caption         =   "账号登陆"
   ClientHeight    =   7215
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7785
   LinkTopic       =   "Form15"
   ScaleHeight     =   7215
   ScaleWidth      =   7785
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   495
      Left            =   2640
      TabIndex        =   6
      Top             =   3960
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   2640
      TabIndex        =   5
      Text            =   "Text2"
      Top             =   2640
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   2640
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   1920
      Width           =   2175
   End
   Begin VB.ComboBox Combo1 
      Height          =   315
      ItemData        =   "Form15.frx":0000
      Left            =   2640
      List            =   "Form15.frx":000A
      TabIndex        =   1
      Text            =   "请选择"
      Top             =   1200
      Width           =   2055
   End
   Begin VB.Label Label5 
      Caption         =   "1—10位"
      Height          =   255
      Left            =   5160
      TabIndex        =   8
      Top             =   2760
      Width           =   855
   End
   Begin VB.Label Label4 
      Caption         =   "10位"
      Height          =   255
      Left            =   5400
      TabIndex        =   7
      Top             =   2040
      Width           =   615
   End
   Begin VB.Label Label3 
      Caption         =   "密码"
      Height          =   255
      Left            =   1440
      TabIndex        =   4
      Top             =   2640
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "账户号码"
      Height          =   255
      Left            =   1440
      TabIndex        =   2
      Top             =   1920
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "账户类型"
      Height          =   255
      Left            =   1440
      TabIndex        =   0
      Top             =   1320
      Width           =   735
   End
End
Attribute VB_Name = "Form15"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
If Combo1.Text = "请选择" Then
   MsgBox "请选择账户类型"
Else
  Select Case Trim(Combo1.Text)
         Case "储蓄帐户"
             cmd.CommandText = "select account_id,account_secret_code,lost from xinxi0504_23_account where account_id='" & Trim(Text1.Text) & "'"
             Set rs = cmd.Execute
             If rs.EOF = True Then
                MsgBox "账号错误"
                Text1.Text = ""
                Text2.Text = ""
             ElseIf rs.Fields("lost") = "1" Then
                MsgBox "该账户已经挂失，无法登陆"
                Text1.Text = ""
                Text2.Text = ""
             ElseIf Text2.Text <> rs.Fields("account_secret_code") Then
                MsgBox "密码错误"
                Text2.Text = ""
             Else
                account_type = Form15.Combo1.Text
                account_id = Form15.Text1.Text
                Form16.Show
                Unload Form15
                Unload Form11
                'SetParent Form16.hWnd, Form11.hWnd
             End If
         Case "信用卡帐户"
             cmd.CommandText = "select credit_id,credit_secret_code,lost from xinxi0504_23_credit where credit_id='" & Trim(Text1.Text) & "'"
             Set rs = cmd.Execute
             If rs.EOF = True Then
                MsgBox "账号错误"
                Text1.Text = ""
                Text2.Text = ""
             ElseIf rs.Fields("lost") = "1" Then
                MsgBox "该账户已经挂失，无法登陆"
                Text1.Text = ""
                Text2.Text = ""
             ElseIf Text2.Text <> rs.Fields("credit_secret_code") Then
                MsgBox "密码错误"
                Text2.Text = ""
             Else
                account_id = Form15.Text1.Text
                account_type = Form15.Combo1.Text
                Form16.Show
                Unload Form15
                Unload Form11
                'SetParent Form16.hWnd, Form11.hWnd
             End If
         End Select
End If
         
End Sub

Private Sub Form_Load()
Combo1.Text = "请选择"
Text1.Text = ""
Text2.Text = ""

Set rs = New ADODB.Recordset
cmd.CommandType = adCmdText
End Sub