iMasters | Por uma internet mais criativa e dinâmica

CREATE TABLE `tblanimais` (                                                   
           `ID` int(11) NOT NULL auto_increment,                                    
           `Tipo` enum('Cachorro','Gato','Peixe','Passaro','Outros') default NULL,  
           `Idade` int(11) default NULL,                                            
           `Nome` varchar(255) default NULL,                                        
           PRIMARY KEY  (`ID`)                                                      
         ) ENGINE=InnoDB DEFAULT CHARSET=latin1   

Insert into `animais`(`ID`,`Tipo`,`Idade`,`Nome`) values ( NULL,'Cachorro','14','Rufos')

Imports Microsoft.VisualBasic

Public Class enumeracoes

    ''' <summary>
    ''' Enumeração de acesso
    ''' </summary>
    ''' <remarks></remarks>
    Public Enum Permissao
        [Diretor] = 2
        [Gerente] = 3
        [Analista] = 4
        [Estagiario] = 5
        [Visitante] = 6
        [Administrador] = Diretor Or Gerente Or Analista Or Estagiario Or Visitante
    End Enum

    ''' <summary>
    ''' Enumeração de animais
    ''' </summary>
    ''' <remarks></remarks>
    Public Enum Animais
        [Cachorro] = 1
        [Gato] = 2
        [Peixe] = 3
        [Pássaro] = 4
        [Outros] = 5
    End Enum

    ''' <summary>
    ''' Quando queremos tratar enumerações
    ''' como bits
    ''' </summary>
    ''' <remarks></remarks>
    <Flags()> Public Enum EstadoLed
        [TudoApagado] = 0
        [Aceso25PorCento] = 1
        [Aceso50PorCento] = 2
        [Aceso75PorCento] = 4
        [Aceso100PorCento] = 8
    End Enum

End Class

public class enumeracoes
{

    /// <summary>
    /// Enumeração de acesso
    /// </summary>
    public enum Permissao
    {
        Diretor = 2,
        Gerente = 3,
        Analista = 4,
        Estagiario = 5,
        Visitante = 6,
        Administrador = Diretor | Gerente | Analista | Estagiario | Visitante
    }

    /// <summary>
    /// Enumeração de animais
    /// </summary>
    public enum Animais
    {
        Cachorro = 1,
        Gato = 2,
        Peixe = 3,
        Pássaro = 4,
        Outros = 5
    }

    /// <summary>
    /// Quando queremos tratar enumerações
    /// como bits
    /// </summary>
    [Flags()]
    public enum EstadoLed
    {
        TudoApagado = 0,
        Aceso25PorCento = 1,
        Aceso50PorCento = 2,
        Aceso75PorCento = 4,
        Aceso100PorCento = 8
    }

}

<form id="form1" runat="server">
        <div>
            <fieldset>
                <legend>Permissão de acesso </legend>
                <asp:CheckBoxList ID="chkPermissao" runat="server">
                </asp:CheckBoxList><br />
                <asp:Button ID="btnMostrarValores" runat="server" Text="Mostrar Valores Selecionados" />
                <br />
                <br />
                <asp:Label ID="lblValoresSelecionados" runat="server"></asp:Label>
            </fieldset>
        </div>
        <br />
        <fieldset>
            <legend>Animais </legend>
            <i>Selecione o tipo de animal abaixo.</i><br />
            <asp:DropDownList ID="ddlAnimais" runat="server" AutoPostBack="true">
            </asp:DropDownList><br />
            <asp:Label runat="server" ID="lblSQLAnimais"></asp:Label>
        </fieldset>
        <br />
    </form>

#Region "Permissão"

    ''' <summary>
    ''' Método que carrega a permissão na checkbox
    ''' </summary>
    Private Sub carregarPermissao()
        Dim sPermissoesNomes As String() = System.[Enum].GetNames(GetType(enumeracoes.Permissao))

        For Each sPermissao As String In sPermissoesNomes
            ' Para cara ítem na minha enumeração, eu adiciono na checkbox list
            chkPermissao.Items.Add(New ListItem(sPermissao, Convert.ToString(sPermissao)))
        Next
    End Sub

    ''' <summary>
    ''' Método do botão Mostrar valores, que nos permite receber o que o usuário selecionou
    ''' </summary>
    Protected Sub btnMostrarValores_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMostrarValores.Click
        Dim sValoresSelecionados As String = String.Empty

        For Each oChkItem As ListItem In chkPermissao.Items
            If oChkItem.Selected Then
                Dim enumPermissao As New enumeracoes.Permissao

                ' Dou um parse no valor da checkbox, se selecionada, para poder exibir o valor
                enumPermissao = System.Enum.Parse(GetType(enumeracoes.Permissao), oChkItem.Value)

                sValoresSelecionados &= enumPermissao & " (" & enumPermissao.ToString & "); "
            End If
        Next

        lblValoresSelecionados.Text = sValoresSelecionados
    End Sub
#End Region

#Region "Animais"

    ''' <summary>
    ''' Método que carrega os animais, em uma combo
    ''' </summary>
    Private Sub carregarAnimais()
        Dim sAnimaisNomes As String() = System.[Enum].GetNames(GetType(enumeracoes.Animais))
        Dim enumAnimal As New enumeracoes.Animais

        For Each sAnimais As String In sAnimaisNomes
            ' Para cara ítem na minha enumeração, eu adiciono na combo
            enumAnimal = System.Enum.Parse(GetType(enumeracoes.Animais), sAnimais)

            ddlAnimais.Items.Add(New ListItem(sAnimais, enumAnimal))
        Next
        ' adiciono um ítem de selecionar na combo.
        ddlAnimais.Items.Insert(0, New ListItem("<--Selecione-->", "NaoSelecionado"))
    End Sub

    ''' <summary>
    ''' evento que tratya a mudança de valor da dropdown
    ''' </summary>
    Protected Sub ddlAnimais_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlAnimais.SelectedIndexChanged
        Dim sSQL As String = String.Empty
        Dim enumAnimal As New enumeracoes.Animais

        If String.Compare(ddlAnimais.SelectedValue, "NaoSelecionado") = 0 Then
            lblSQLAnimais.Text = "Selecione um animal"
        Else
            ' Dou um parse no valor da combo (dropdown), se selecionada, para poder exibir o valor
            enumAnimal = System.Enum.Parse(GetType(enumeracoes.Permissao), ddlAnimais.SelectedValue)

            sSQL = "insert into tblanimais " & _
                    "(Tipo,Idade,Nome) values " & _
                    "('" & enumAnimal.ToString & "','14','Rufos')"

            lblSQLAnimais.Text = "Sua SQL que você deve usar para salvar " & _
                                 " no mySQL é: <br />"" <i>" & sSQL & "</i> """
        End If
    End Sub

#End Region

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            ' Chamo os métodos de carregar, se não for postback
            carregarPermissao()
            carregarAnimais()
        End If

    End Sub