服务种类.frm

ATM模拟系统

VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   0  'None
   Caption         =   "Form4"
   ClientHeight    =   5505
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7005
   LinkTopic       =   "Form4"
   Picture         =   "服务种类.frx":0000
   ScaleHeight     =   5505
   ScaleWidth      =   7005
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   4080
      Picture         =   "服务种类.frx":5927
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   4440
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1680
      Picture         =   "服务种类.frx":B24E
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   4440
      Width           =   1215
   End
   Begin VB.OptionButton Option1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "查询余额"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   495
      Index           =   3
      Left            =   4000
      TabIndex        =   4
      Top             =   3240
      Width           =   1620
   End
   Begin VB.OptionButton Option1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "转帐"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   495
      Index           =   2
      Left            =   1400
      TabIndex        =   3
      Top             =   3240
      Width           =   1620
   End
   Begin VB.OptionButton Option1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "修改密码"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   495
      Index           =   1
      Left            =   4000
      TabIndex        =   2
      Top             =   1680
      Width           =   1620
   End
   Begin VB.OptionButton Option1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "取款"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   495
      Index           =   0
      Left            =   1400
      TabIndex        =   1
      Top             =   1680
      Width           =   1620
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "请选择你所需的服务"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   435
      Left            =   840
      TabIndex        =   0
      Top             =   840
      Width           =   4050
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Option1(0).Value = True Then
j = 1
Unload Form4
Form5.Show
Else
If Option1(1).Value = True Then
j = 2
Unload Form4
Form6.Show
Else
If Option1(2).Value = True Then
j = 3
Unload Form4
Form7.Show
Else
If Option1(3).Value = True Then
j = 4
Unload Form4
Call Query
Form8.Show
Form8.Label2.Caption = u
Else
If i = 2 Then
'MsgBox "请选择所需的服务", vbExclamation, "出错提示"
Form3.Show
Form3.Label1.Caption = "请选择所需的服务"
Else
'MsgBox "Please Choose Your Service", vbExclamation, "Error"
Form3.Show
Form3.Label1.Caption = "Please Choose Your Service"
End If
End If
End If
End If
End If


End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
If i = 1 Then
  Label1.FontSize = 16
  Label1.Caption = "Please Select your needing server"
  Option1(0).Caption = "WithDraw"
  Option1(1).Caption = "Change Password"
  Option1(2).Caption = "Transfer"
  Option1(3).Caption = "Deposit Query"
  Command1.Caption = "OK"
  Command2.Caption = "Cancel"
End If
End Sub