form11.frm

银行的客户端模块

VERSION 5.00
Begin VB.Form Form11 
   Caption         =   "操作员"
   ClientHeight    =   6840
   ClientLeft      =   225
   ClientTop       =   525
   ClientWidth     =   7785
   LinkTopic       =   "Form11"
   ScaleHeight     =   6840
   ScaleWidth      =   7785
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label Label1 
      Caption         =   "  欢迎进入   操作员界面"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   42
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3375
      Left            =   840
      TabIndex        =   0
      Top             =   1080
      Width           =   4815
   End
   Begin VB.Menu newaccount 
      Caption         =   "开户"
   End
   Begin VB.Menu zhanghudenglu 
      Caption         =   "帐户登陆"
   End
   Begin VB.Menu loss 
      Caption         =   "挂失操作"
      Begin VB.Menu guashishenqing 
         Caption         =   "挂失申请"
      End
      Begin VB.Menu guashixiugaimima 
         Caption         =   "挂失账号修改密码"
      End
   End
   Begin VB.Menu exitout 
      Caption         =   "退出"
      Begin VB.Menu exitoutoperate 
         Caption         =   "退出操作员"
      End
      Begin VB.Menu exitoutsys 
         Caption         =   "退出系统"
      End
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'API函数声明，用于窗体嵌入
'Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub changeaccountcode_Click()

End Sub

Private Sub exitoutoperate_Click()
conn.Close
Form1.Show
Unload Form11
End Sub

Private Sub exitoutsys_Click()
conn.Close
End
End Sub

Private Sub Form_Load()
Label1.Caption = "  欢迎进入   操作员界面"
End Sub

Private Sub guashishenqing_Click()
Form25.Show
SetParent Form25.hWnd, Form11.hWnd
End Sub

Private Sub guashixiugaimima_Click()
Form26.Show
SetParent Form26.hWnd, Form11.hWnd
End Sub

Private Sub newaccount_Click()
Form12.Show
SetParent Form12.hWnd, Form11.hWnd
End Sub

Private Sub zhanghudenglu_Click()
Form15.Show
SetParent Form15.hWnd, Form11.hWnd
End Sub