Banco De Dados

Imports MySql.Data.MySqlClient

Public Class ClasseRotinasDiversas

'*********************'

'* Métodos da classe *'

'*********************'

' Altera a cor de fundo quando o controle recebe o foco

Public Sub CorEntrada(ByVal Sender As Object)

Dim Objeto As Object

If (TypeOf Sender Is TextBox) Then

Objeto = CType(Sender, TextBox)

Else

Objeto = CType(Sender, MaskedTextBox)

End If

If Objeto.Tag = 0 Then

Objeto.BackColor = Color.Yellow

Else

Objeto.BackColor = Color.Aqua

End If

End Sub

' Altera a cor de fundo quando o controle perde o foco

Public Sub CorSaida(ByVal sender As Object)

Dim Objeto As Object

If (TypeOf sender Is TextBox) Then

Objeto = CType(sender, TextBox)

Else

Objeto = CType(sender, MaskedTextBox)

End If

Objeto.BackColor = Color.White

End Sub

' Verifica se o preenchimento de um controle é obrigatório

Public Function ChecarObrigatorio(ByVal Objeto As Object) As Boolean

Dim strValorCampo As String = Objeto.Text.ToString

Dim blnRetorno As Boolean = True

If Objeto.Tag = 1 Then

If (Trim(strValorCampo) = "") Or

(strValorCampo = " . . - ") Or

(strValorCampo = " . . / - ") Or

(strValorCampo = " . . . ") Or

(strValorCampo = " - ") Then

MsgBox("É obrigatório o preenchimento desse campo !", MsgBoxStyle.Exclamation)

blnRetorno = False

Objeto.Focus()

End If

End If

Return blnRetorno

End Function

' Limpa todos os controles de entrada de dados (TextBox ou MaskedTextBox)

Public Sub LimparCampos(ByVal Controle As Control)

For Each Objeto As Control In Controle.Controls

If Objeto.Controls.Count > 0 Then

LimparCampos(Objeto)

Else

If (TypeOf Objeto Is TextBox) Or (TypeOf Objeto Is MaskedTextBox) Then

Objeto.Text = ""

End If

End If

Next Objeto

End Sub

' Bloqueia os os controles de entrada de dados

Public Sub BloquearCampo(ByVal Controle As System.Object)

Controle.ReadOnly = True

End Sub

' Desbloqueia os os controles de entrada de dados

Public Sub DesbloquearCampo(ByVal Controle As System.Object)

Controle.ReadOnly = False

End Sub

' Converte uma data no formato DD/MM/AAAA para AAAA/MM/DD, aceita pelo MysQL

Public Function DataInvertida(ByVal strData As String)

Dim strNovaData As String

strNovaData = strData.Substring(6, 4) + "/" + strData.Substring(3, 2) + "/" + strData.Substring(0, 2)

Return strNovaData

End Function

' Troca o ponto por vírgula nas casas decimais

Public Sub PontoParaVirgula(ByVal e As System.Windows.Forms.KeyPressEventArgs)

Dim strDigitos As String = "0123456789"

If e.KeyChar <> Microsoft.VisualBasic.Chr(8) Then

If e.KeyChar = "." Then

System.Windows.Forms.SendKeys.Send(",")

Else

If InStr(strDigitos, e.KeyChar) = 0 Then

e = Nothing

End If

End If

End If

End Sub

' Troca a vírgula nas casas decimais por ponto