Nemokama apskaitos programa

Login.ShowDialog()

<...> (Login_load procedūra)

Dim Udata As New DataTable
Udata.Columns.Add()
Udata.Columns.Add()
Udata.Columns.Add()

Me.AcceptButton = OK_Button

Dim path As String = AppPath() & "\users.dat"
If File.Exists(path) = True Then
Dim readtext() As String = File.ReadAllLines(path)
Dim s As String
For Each s In readtext 'duombaziu faile ieskom pasirinktos
If s.Length > 0 Then
Udata.Rows.Add()
Udata.Rows(Udata.Rows.Count - 1).Item(0) = Get_Element(s, 1)
Udata.Rows(Udata.Rows.Count - 1).Item(1) = Get_Element(s, 2)
Udata.Rows(Udata.Rows.Count - 1).Item(2) = Get_Element(s, 3)
End If
Next
End If


Dim kiekis As Integer
Try
kiekis = Udata.Rows.Count
Catch ex As Exception
kiekis = 0
End Try

If kiekis > 0 Then
Dim Sarasas(kiekis - 1) As MTGCComboBoxItem
For i = 1 To kiekis
Sarasas(i - 1) = New MTGCComboBoxItem( _
Udata.Rows(i - 1).Item(0).ToString, _
Udata.Rows(i - 1).Item(1).ToString, _
Udata.Rows(i - 1).Item(2).ToString)
Next
Vartotojas.SelectedIndex = -1 'paruosiam dropa
Vartotojas.Items.Clear()
Vartotojas.LoadingType = MTGCComboBox.CaricamentoCombo.ComboBoxItem 'loadinam duomenis
Vartotojas.ColumnNum = 3
Vartotojas.ColumnWidth = "80; 80; 50"
Vartotojas.Items.AddRange(Sarasas)
Vartotojas.GridLineVertical = True
If Vartotojas.Items.Count > 0 Then Vartotojas.SelectedIndex = 0
End If
Udata.Dispose()

'pradzioje matomas vartotoju dropas, o naujo vardo textboxas ne
Vartotojas.Visible = True
Naujas_vardas.Visible = False
Serveris.Enabled = False
Portas.Enabled = False
Visoms.Checked = True