Imports System.Data.SqlClient
Imports System.Data.OleDbPublic Class ViewSource_People
Inherits System.Windows.Forms.FormConst MIIS_SERVER_NAME = “MIISSERVER”
Const DB_CONNECTION_STRING As String = “Database=MIISData;Data Source=MIISSERVER;Integrated Security=TRUE;;”
Const MIISDB_CONNECTION_STRING As String = “Database=MicrosoftIdentityIntegrationServer;Data Source=MIISSERVER;Integrated Security=TRUE;;”
Dim sqlQueryConnection As New SqlConnection(DB_CONNECTION_STRING)
Dim sqlMIISConnection As New SqlConnection(MIISDB_CONNECTION_STRING)
Dim searchUID As String = “”
Dim searchLBSNo As String = “”#Region ” Windows Form Designer generated code “#End Region   Private Sub ViewSource_People_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.txt_Output.Clear()
       Dim i As Int16
       Dim StaffID As String
       Dim fieldDesc As String
       Dim rowReader As SqlDataReader
       Dim peopleQueryString As String = “”
       Dim groupsQueryString As String = “”
       If rdo_uid.Checked AndAlso searchUID <> “” Then
           peopleQueryString = “select * from PeopleData_Snapshot where uid='” & searchUID & “‘”
       ElseIf rdo_staffid.Checked AndAlso searchStaffid <> “” Then
           peopleQueryString = “select * from PeopleData_Snapshot where staffid='” & searchStaffid & “‘”
       End If
      If peopleQueryString <> “” Then
           Dim sqlQuery As New SqlCommand(peopleQueryString, sqlQueryConnection)
           sqlQueryConnection.Open()
           rowReader = sqlQuery.ExecuteReader
          If rowReader.Read() Then
               StaffID = rowReader.GetString(0)
               For i = 0 To rowReader.FieldCount – 1
                   fieldDesc = rowReader.GetName(i) & “:”
                   fieldDesc = fieldDesc.PadRight(30)
                   Me.txt_Output.AppendText(fieldDesc)
                   Try
                       If Not rowReader.GetSqlValue(i).IsNull Then
                           Me.txt_Output.AppendText(rowReader.GetValue(i))
                       End If
                   Catch
                       Dim ex As InvalidCastException
                   End Try
                   Me.txt_Output.AppendText(vbCrLf)
               Next
               rowReader.Close()
               If Me.chk_showgroups.Checked Then
                   Me.txt_Output.AppendText(“Groups:” & vbCrLf)
                   groupQueryString = “select Name from admultivalue_snapshot where value='” & StaffID & “‘ and AttributeType = ‘member’ order by Name”
                   Dim memberQuery As New SqlCommand(groupQueryString, sqlQueryConnection)
                   rowReader = groupQuery.ExecuteReader
                   While rowReader.Read()
                       Me.txt_Output.AppendText(vbTab & vbTab & rowReader.GetString(0) & vbCrLf)
                   End While
                   rowReader.Close()
               End If
           Else
               Me.txt_Output.AppendText(“Not Found”)
           End If
           sqlQueryConnection.Close()
       End If
   End Sub
   Private Sub rdo_uid_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdo_uid.CheckedChanged
       If rdo_uid.Checked Then
           Me.txt_uid.Focus()
       End If
   End Sub
   Private Sub rdo_lbsno_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdo_lbsno.CheckedChanged
       If rdo_lbsno.Checked Then
           Me.txt_lbsno.Focus()
       End If
   End Sub
   Private Sub txt_uid_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_uid.TextChanged
       rdo_uid.PerformClick()
       searchUID = Me.txt_uid.Text
   End Sub
   Private Sub txt_staffid_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_staffid.TextChanged
       rdo_staffid.PerformClick()
       searchStaffid = Me.txt_staffid.Text
   End Sub
End Class