1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

login / registar

Discussão em 'Programação' iniciada por Louvre, 14 de Março de 2009. (Respostas: 4; Visualizações: 584)

  1. Louvre

    Louvre Power Member

    alguem sabe onde posso encontrar tutorials de registar e login ?

    pode ser em qualquer linguagem
     
  2. html+php+sql...

    precisas de adquirir informação sobre isso


    html = crias um interface de insercção de dados

    php = obtens os dados inseridos pelo utilizador

    sql = guardas os dados (registo) ou verificas os dados(login)
     
  3. Ruben_Barbosa

    Ruben_Barbosa Power Member

    Aqui vai um em VB 2005 ou VB.NET

    Código:
    Imports System.Data.SqlClient
    
    Public Class Login
    
        Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Me.Close()
        End Sub
    
        Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    
            'Abre_BDs()
            Try
                cnSQL = New SqlConnection("Data Source=SBSLAM\SQLEXPRESS;Initial Catalog=Inventario;Persist Security Info=True;User ID=Elo;Password=elo2007")
                cnSQL.Open()
            Catch
            End Try
    
        End Sub
    
        Private Sub txtUtilizador_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
    
            txtUtilizador.SelectAll()
    
        End Sub
    
        Private Sub txtPassword_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
    
            txtPassword.SelectAll()
    
        End Sub
    
    
        Private Sub OK_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
            Try
             
                daSql = New SqlDataAdapter("select count(*) from Username_inv where Utilizador='" & txtUtilizador.Text & "' and password='" & txtPassword.Text & "'", cnSQL)
                Dim dsSQL As DataSet = New DataSet()
                'Chamar a tabela
                daSql.Fill(dsSQL, "Username_inv")
                If dsSQL.Tables.Item(0).Rows(0).Item(0) = 1 Then
                    Module1.Utilizador = txtUtilizador.Text
                    Me.Hide()
                    Principal.Show()
                Else
                    MsgBox("Utilizador ou password incorrectas.", MsgBoxStyle.Critical)
                    txtUtilizador.Text = ""
                    txtPassword.Text = ""
                    txtUtilizador.Focus()
                End If
                daSql = Nothing
                dsSQL = Nothing
    
            Catch
            End Try
        End Sub
    
        Private Sub Cancel_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
            End
        End Sub
    
        Private Sub txtPassword_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPassword.KeyDown
            Try
                If e.KeyCode = Keys.Enter Then
                    OK_Click_1(Nothing, Nothing)
                End If
            Catch
            End Try
        End Sub
    
    Claro tens de criar um modulo no VB.NET ou VB 2005 xD

    com o seguinte Codigo para ligar a BD

    Código:
    Imports System.Data.SqlClient
    Imports Microsoft.Office.Interop.Excel
    Imports System.Xml
    Module Module1
    
    
        Public con As New ADODB.Connection
        Public ConnString As String
        Public cnSQL As SqlConnection
        Public ds As New ADODB.Recordset
        Public strSQL As String
        Public daSql As SqlDataAdapter
        Public cmSQL As SqlCommand
        Public Utilizador As String
    
    
    
        'ligar a sql server
    
        Public Sub AbreBD()
    
            cnSQL = New SqlConnection("Data Source=xxxxx;Initial Catalog=xxxx;Persist Security Info=xxxx;User ID=xxx;Password=xxx")
            cnSQL.Open()
    
            ds = CreateObject("ADODB.Recordset")
            ds.ActiveConnection = ConnString
    
        End Sub
    
    End Module
    
    Se tiveres duvidas na ligação aqui tens http://www.connectionstrings.com/
     

Partilhar esta Página