form4.frm

银行的客户端模块

VERSION 5.00
Begin VB.Form Form4 
   Caption         =   "管理员界面"
   ClientHeight    =   6900
   ClientLeft      =   225
   ClientTop       =   525
   ClientWidth     =   9465
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form4"
   ScaleHeight     =   6900
   ScaleWidth      =   9465
   StartUpPosition =   2  '屏幕中心
   Begin VB.Label Label1 
      Caption         =   "    欢迎进入            管理员界面"
      BeginProperty Font 
         Name            =   "楷体"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3135
      Left            =   1080
      TabIndex        =   0
      Top             =   1080
      Width           =   7215
   End
   Begin VB.Menu insert 
      Caption         =   "插入职工信息"
   End
   Begin VB.Menu find 
      Caption         =   "查找更新职工信息"
      Begin VB.Menu no 
         Caption         =   "编号"
      End
      Begin VB.Menu name 
         Caption         =   "姓名"
      End
      Begin VB.Menu address 
         Caption         =   "地址"
      End
      Begin VB.Menu identifition 
         Caption         =   "身份证号码"
      End
   End
   Begin VB.Menu xiugaililv 
      Caption         =   "修改利率"
   End
   Begin VB.Menu change_my_secret 
      Caption         =   "修改自己密码"
   End
   Begin VB.Menu changesecretcode 
      Caption         =   "密码恢复"
   End
   Begin VB.Menu quitout 
      Caption         =   "退出"
      Begin VB.Menu quitoutaddmin 
         Caption         =   "退出管理员"
      End
      Begin VB.Menu quitoutsys 
         Caption         =   "退出系统"
      End
   End
End
Attribute VB_Name = "Form4"
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 change_my_secret_Click()
Form13.Show
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form14
SetParent Form13.hWnd, Form4.hWnd

End Sub

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

Private Sub insert_Click()   '插入职工信息
'Form5.Visible = True
Form5.Show
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form13
Unload Form14
SetParent Form5.hWnd, Form4.hWnd

End Sub

Private Sub no_Click()       '按编号查询
'Form6.Visible = True
Form6.Show
Unload Form5
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Unload Form13
Unload Form14
SetParent Form6.hWnd, Form4.hWnd


End Sub

Private Sub name_Click()      '按姓名查询
'Form7.Visible = True
Form7.Show
Unload Form5
Unload Form6
Unload Form8
Unload Form9
Unload Form10
Unload Form13
Unload Form14
SetParent Form7.hWnd, Form4.hWnd

End Sub
Private Sub address_Click()  '按地址查询
Form8.Show
Unload Form5
Unload Form6
Unload Form7
Unload Form9
Unload Form10
Unload Form13
Unload Form14
SetParent Form8.hWnd, Form4.hWnd

End Sub


Private Sub identifition_Click()  '按身份证查询
Form9.Show
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form10
Unload Form13
Unload Form14
SetParent Form9.hWnd, Form4.hWnd

End Sub

Private Sub changesecretcode_Click()   '修改职工密码
Form10.Show
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form13
Unload Form14
SetParent Form10.hWnd, Form4.hWnd
End Sub

Private Sub quitoutaddmin_Click()  '退出管理员
conn.Close
Form1.Show
Unload Form4
End Sub

Private Sub quitoutsys_Click()     '退出系统
conn.Close
End
End Sub

Private Sub xiugaililv_Click()
Form27.Show
SetParent Form27.hWnd, Form4.hWnd
End Sub