VERSION 5.00
Begin VB.Form frmviewuser 
   Caption         =   "View User"
   ClientHeight    =   7065
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   12270
   LinkTopic       =   "Form1"
   ScaleHeight     =   7065
   ScaleWidth      =   12270
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdback 
      Caption         =   "Back"
      Height          =   735
      Left            =   5520
      TabIndex        =   9
      Top             =   5400
      Width           =   2775
   End
   Begin VB.CommandButton cmdchangepass 
      Caption         =   "Change Password"
      Height          =   495
      Left            =   8880
      TabIndex        =   8
      Top             =   2640
      Width           =   2415
   End
   Begin VB.Label lbllevel 
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Label8"
      Height          =   375
      Left            =   4080
      TabIndex        =   7
      Top             =   3720
      Width           =   3255
   End
   Begin VB.Label Label7 
      Caption         =   "Label7"
      Height          =   375
      Left            =   1560
      TabIndex        =   6
      Top             =   3720
      Width           =   1335
   End
   Begin VB.Label lblpassword 
      BorderStyle     =   1  'Fixed Single
      Height          =   495
      Left            =   3720
      TabIndex        =   5
      Top             =   2880
      Width           =   3615
   End
   Begin VB.Label lblusername 
      BorderStyle     =   1  'Fixed Single
      Height          =   495
      Left            =   3480
      TabIndex        =   4
      Top             =   1920
      Width           =   3975
   End
   Begin VB.Label lblfullname 
      BorderStyle     =   1  'Fixed Single
      Height          =   375
      Left            =   3360
      TabIndex        =   3
      Top             =   960
      Width           =   3975
   End
   Begin VB.Label Label3 
      Caption         =   "Password"
      Height          =   495
      Left            =   840
      TabIndex        =   2
      Top             =   2760
      Width           =   2175
   End
   Begin VB.Label Label2 
      Caption         =   "Username"
      Height          =   375
      Left            =   960
      TabIndex        =   1
      Top             =   1920
      Width           =   1935
   End
   Begin VB.Label Label1 
      Caption         =   "Full Name"
      Height          =   375
      Left            =   960
      TabIndex        =   0
      Top             =   960
      Width           =   1935
   End
End
Attribute VB_Name = "frmviewuser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdback_Click()
frmteachermain.Show
Me.Hide
End Sub

Private Sub cmdchangepass_Click()
'Dim pass As String
'pass =
'InputBox("To continue please enter your current password","Change Password",
End Sub

Private Sub Form_Load()
'Dim strItem1 As String
'Dim strItem2 As String
'Dim strItem3 As String

'Dim i As Integer

'Dim intFile As Integer
'intFile = FreeFile()


'Open "P:\IPT\project\vb prject2013\names.txt" For Input As intFile
'Do Until EOF(intFile)
'Input #intFile, strItem1, strItem2, strItem3
'lblfullname.Caption = strItem1
'lblusername.Caption = strItem2
'lblpassword.Caption = strItem3
'Loop
'Close intFile

End Sub



'lstCashAc.Clear
'While Not rs.EOF = True
'list1.AddItem rs(1) 'Suppose This is Username
'list1.ItemData(list1.NewIndex) = rs(0) ' This is user id
'rs.MoveNext
'Wend