ajuda.... vb.net

joao_esg

Membro
boas eu sou um estudante que está a terminar o 12º e presizo de ajuna para o meu programa em vb.net




a minha primeira dificuldade é que este programa vai ser para uma empeza de pc's em ke vai servir para guardar todos os dados de que aqui deixa o seu pc para reparar e futuramente vai ter de ser emprimido e dividido em duas parte uma para o cliente outra para nos mas eu n poso dar o mxm nome a textbox como é aue as duas partes vao ter o mxm numero de cliente?
boas......
agradeço todo o tipo de ajuda.....
compx joao...
 
Boas!

Primeira sugestão, escreve em português. Isto se queres que o pessoal te ajude sem piadas e afins, e também para evitares problemas com o teu programa...

Sobre a tua questão, nada como usares uma base de dados, só tens de consultar depois os dados inseridos, se vais imprimir duas vezes a mesma coisa, basta consultares uma vez e imprimir duas.

abraços, HecKel
 
se tens uma parte para cada tipo de utilizador

no formprimcipal

depois de inserires utilizador e pass, vais ter de fazer um select a tabela de utilizadores, para entrares no form que desejas.

do tipo a tabela de utilizadores hade ter nome_utilizador, pass,tipo_de utilizador, como campos obrigatórios

do tipo no evento form load do form principal onde fazes login ,fazes uma ligação deste tipo

variavies globais
Código:
    Dim ligacao, strsql As String
    Dim sda As SqlDataAdapter
    Dim ds As DataSet


nota: esta ligação esta para uma bd em sql server

vai fazer um select na tabela dos utilizadores do tipo de urilizador onde esse utilizador tem o nome pertencente a caixa de texto respectiva, e pass igualmente.

se a tua bd for em access a string que vem a seguir a variavel ligação altera , mas não me lembro como.

Código:
 ligacao = "data source=(local);initial catalog=Pedidos;" & _
           "integrated security=SSPI;persist security info=True"

        'faz a respectiva seleccção a base de dados

        strsql = "SELECT Tipo_Utilizador FROM Tab_Utilizadores" & _
        " where tab_utilizadores.[nome utilizador] = '" & Me.Txtbox_user.Text & _
        "' and  tab_utilizadores.[senha utilizador] = '" Me.txtbox_pass.Text & "'"

        'cria um data adapter
        sda = New SqlDataAdapter(strsql, ligacao)
        ds = New DataSet()
        sda.Fill(ds)
        sda.Dispose()

este code vais por no evento click do botão do form principal

neste caso tens dois formularios um para cada utilizador que estão a ser xamados nos if respectivos,

Código:
        Dim row As DataRow
        Dim table As DataTable
        Dim cont As Integer
       



        'rerediciona a pagina respectiva a cada user

        table = ds.Tables.Item(0)
        cont = table.Rows.Count
        ' testa se existe , caso verdade  (cont=1)- passa ao proximo if e entra na sessão respectiva
        ' caso falso - dá uma mensagem de erro a dizer que utilizador não existe

        If cont = 1 Then
            row = table.Rows.Item(0)

            ' testa que tipod e utilizador entra na sessão
            If row("Tipo_Utilizador") = "Admin" Then

               form_administrador.show

            Else
                If row("Tipo_Utilizador") = "Normal" Then

                  form_utilizador.show
               
                End If
         
        Else


            Me.lbl_Erro.Visible = True
            Me.lbl_Erro.Text = "Nome de UTilizador ou password Invalidos"
            Me.Txtbox_user.Text = ""
            Me.txtbox_pass.Text = ""


            Me.Txtbox_user.Focus()
        End If



no caso de so teres 2 formularios , um como principal(login) e outro para tdos os utilizadores

em cada if chamas o mesmo form neste caso o de utilizador.

e depois pões enable ou disable cada um dos botões ou menus referentes a esse form, para cada tipo de utilizador em especifico

ex: form_utilizador.show ' aqui sempre igual em qq tipo de utilizador
form_utilizador.botao_x.enable=true ou false conforme o tipo de util


nota : quando queres anular ou permiir um objecto (botão ou opção de menu)
de outro form que chamas atraves de um primeiro, tens sempre de charam
esse form.nome_objecto(botão|menu|etc).(enable|visible|etc)

como visto abaixo :



Código:
  If cont = 1 Then
            row = table.Rows.Item(0)

            ' testa que tipod e utilizador entra na sessão
            If row("Tipo_Utilizador") = "Admin" Then

               form_utilizador.show
           form_utilizador.botao_admin.enable=true
            Else
                If row("Tipo_Utilizador") = "Normal" Then

                 form_utilizador.show
            form_utilizador.botao_admin.enable=false                
                End If
         
        Else


            Me.lbl_Erro.Visible = True
            Me.lbl_Erro.Text = "Nome de UTilizador ou password Invalidos"
            Me.Txtbox_user.Text = ""
            Me.txtbox_pass.Text = ""


            Me.Txtbox_user.Focus()
        End If





espero que esta dica ajude
 
Back
Topo