Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function AddCareTaker(ByVal user As String, ByVal pass As String, ByVal name As String, ByVal address As String, ByVal birthdate As String, ByVal phone As String)
- If (AddCaretakerLogin(user, pass)) Then
- AddCaretakerContact(CheckId, name, address, birthdate, phone)
- Return True
- Else
- Return False
- End If
- End Function
- Public Sub RemoveCareTaker(ByVal id As Int16, ByVal uid As Int16)
- RemoveCaretakerInfo(id)
- RemoveCaretakerLogin(uid)
- End Sub
- Private Function CheckId()
- Dim DT As DataTable = ShowCaretakersIds()
- Dim IdOrder As Int16 = DT.Rows(DT.Rows.Count - 1)(0)
- Return IdOrder
- End Function
- Private Function AddCaretakerLogin(ByVal user As String, ByVal pass As String)
- sqlCommand.CommandText = "INSERT INTO [dbo].[login] ([Username],[Password],[AuthorityLevel]) Values" &
- " (@user,@pass,0)"
- sqlCommand.Parameters.AddWithValue("@user", user)
- sqlCommand.Parameters.AddWithValue("@pass", pass)
- sqlCommand.CommandTimeout = 3000
- sqlConnection.Open()
- Dim Result As Integer
- Try
- Result = sqlCommand.ExecuteNonQuery
- Catch ex As Exception
- MessageBox.Show(ex.ToString())
- Finally
- If sqlConnection.State = ConnectionState.Open Then
- sqlConnection.Close()
- End If
- End Try
- Return Result
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement