Endre bruker er ferdig

Program/Program.vbproj

@@ -177,6 +177,7 @@
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
     <Compile Include="Sql.vb" />
+    <Compile Include="sys\Bruker.vb" />
     <Compile Include="sys\Login.vb" />
   </ItemGroup>
   <ItemGroup>

Program/gui/frmBrukerbehandling.vb

@@ -1,4 +1,16 @@
 Public Class frmBrukerbehandling
+    Private bruker As Bruker
+
+    Sub New()
+        InitializeComponent()
+    End Sub
+
+    Sub New(ByVal bruker As Bruker)
+        If (bruker IsNot Nothing) Then
+            Me.bruker = bruker
+            InitializeComponent()
+        End If
+    End Sub
 
     Private Sub btnAvbryt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAvbryt.Click
         Me.DialogResult = DialogResult.Cancel

Program/gui/frmEndreBruker.vb

@@ -1,3 +1,41 @@
 Public Class frmEndreBruker
+    Private brukere As New ArrayList
 
+    Private Sub frmEndreBruker_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Dim oppkobling As New Sql()
+
+        Try
+            oppkobling.kobleTil()
+
+            Dim myData As New DataTable
+            myData = oppkobling.Query("SELECT bruker.person_id, brukernavn, stillingNavn, fornavn, etternavn FROM bruker, person, stilling WHERE bruker.person_id = person.person_id AND bruker.stilling_id = stilling.stilling_id ORDER BY etternavn ASC")
+
+            Dim rad As DataRow
+            For Each rad In myData.Rows
+                brukere.Add(New Bruker(CInt(rad("person_id")), rad("brukernavn"), rad("stillingNavn"), rad("fornavn"), rad("etternavn")))
+            Next rad
+
+            Dim bruker As Bruker
+            For Each bruker In brukere
+                cbNavn.Items.Add(bruker)
+            Next
+        Catch ex As Exception
+            MessageBox.Show("Fikk ikke hentet inn eksisterende brukere", "Feilmelding", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+    Private Sub cbNavn_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbNavn.SelectedIndexChanged
+        Dim bruker As Bruker = cbNavn.SelectedItem
+        txtBrukernavn.Text = bruker.brukernavn
+    End Sub
+
+    Private Sub btnEndre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEndre.Click
+        If (cbNavn.SelectedItem IsNot Nothing) Then
+            Dim bruker As Bruker = cbNavn.SelectedItem
+            Dim brukerbehandling As New frmBrukerbehandling(bruker)
+            brukerbehandling.ShowDialog()
+        Else
+            MessageBox.Show("Velg bruker", "Feilmelding", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End If
+    End Sub
 End Class

Program/sys/Bruker.vb

@@ -0,0 +1,32 @@
+Public Class Bruker
+    Public person_id As Integer
+    Public brukernavn As String
+    Public stilling As String
+    Public fornavn As String
+    Public etternavn As String
+
+    Sub New(ByVal personId As Integer, ByVal brukernavn As String, ByVal stilling As String, ByVal fornavn As String, ByVal etternavn As String)
+        Me.person_id = personId
+        Me.brukernavn = brukernavn
+        Me.stilling = stilling
+        Me.fornavn = fornavn
+        Me.etternavn = etternavn
+    End Sub
+
+    Public ReadOnly Property ID() As Integer
+        Get
+            Return person_id
+        End Get
+    End Property
+
+
+    Public ReadOnly Property Name() As String
+        Get
+            Return etternavn & ", " & fornavn
+        End Get
+    End Property
+
+    Public Overrides Function ToString() As String
+        Return etternavn & ", " & fornavn
+    End Function
+End Class