Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 15

Gestione accessi

  1. #1
    Nico1292 non è in linea Scolaretto
    Ciao Alex, trovo molto utile questo tuo file, in quanto sto cercando di adattarlo ad un database per la gestione delle ferie.
    Volevo chiederti una cosa, ho visto che è possibile visualizzare sia nella Tabella Gestione che nel pulsante per l'info sui permessi presente in ogni maschera, l'ID del Utente collegato.
    E' possibile effettuare un inserimento in una tabella (es. una tabella "Prenotazioni") e associare tale inserimento all'ID dell'utente attivo?
    In modo tale da sapere quale utente ha effettuato quell'inserimento e da poter svolgere in seguito altre interrogazioni sulla Tabella Prenotazioni.
    Per fare un esempio pratico:
    -Apro la maschera per inserire una nuova Prenotazione e ci sono delle caselle testo che vengono precompilate con i dati dell'utente (ID,Nome,ecc)
    -l'Utente compila i campi in merito alla Prenotazione (data, causale, ecc)
    -Salva la prenotazione e nella tabella Prenotazioni ci sarà un nuovo record così composto: IDPrenot,IDUser,data,causale, ecc

  2. #2
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Prima di tutto fai sempre attenzione a dove scrivi.
    Hai usato un'articolo e non un 3D, ma anche fosse era decisamente datato, quindi come da regolamento non da usare.

    Quello che chiedi è certamente possibile, nulla che riguardi lo specifico LOGIN, quanto più alla gestione delle MODIFICHE dei dati di cui tu devi avere una visione panoramica di insieme abbastanza concreta.

    In sostanza per ogni Record devi poter ipotizzare il CREATORE e se serve gli EDITOR...
    ℹ️ Leggi di più su @Alex ...

  3. #3
    Nico1292 non è in linea Scolaretto
    Chiedo scusa per il mio errore
    Esatto, nel mio DB le Tabelle principali sono 2: Dipendenti (ossia Users ma con l'aggiunta di qualche campo) e Prenotazioni(IDPrenot,IDUser,data,causale, ecc).
    Tra i campi della Tabella Dipendenti c'è "Livello": ordinario (solo inserimento), responsabile (inserimento, modifica, cancellazione), amministratore (inserimento, modifica, cancellazione), tecnico (può lavorare solo sulla maschera GESTIONE)--->ossia la versione aggiornata di user, admin, manager.
    Solo che non riesco ad associare IDPrenot all'ID dell'Utente attivo
    Ultima modifica di Nico1292; 27-10-2014 11:07 

  4. #4
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Quando effettui il LOGIN devi avere sempre il modo di sapere chi è connesso e che privilegi ha... quindi dovrai salvare in variabili definite AMBIENTE tutti i dati che rieputi utili.

    Ora non ricordo bene il demo nello specifico, ma a rigor di Logica ci sarà un Modulo con delle PUBLIC VAR che espongono tutto quello che serve...
    ℹ️ Leggi di più su @Alex ...

  5. #5
    Nico1292 non è in linea Scolaretto
    Quote Originariamente inviato da @Alex Visualizza il messaggio
    Quando effettui il LOGIN devi avere sempre il modo di sapere chi è connesso e che privilegi ha... quindi dovrai salvare in variabili definite AMBIENTE tutti i dati che rieputi utili.

    Ora non ricordo bene il demo nello specifico, ma a rigor di Logica ci sarà un Modulo con delle PUBLIC VAR che espongono tutto quello che serve...
    Penso di aver trovato il Modulo a cui fai riferimento, ma non riesco ancora a ricavare in una casella di testo l'IDUsers

    Ti incollo di seguito le stringhe di codici:
    Option Compare Database
    Option Explicit
    
    ' -----------------------------------------------------------
    ' La CONNECTIONSTRING sarebbe da salvare come KRYPTATA
    ' magari in un REGISTRY ma per semplificare il DEMO
    ' la riporto quì e genero la FUNZIONE:
    '
    '   getConnectionString()
    '
    ' -----------------------------------------------------------
    Public Const DB_SERVER      As String = "SERVERXP.mdb"
    
    ' -----------------------------------------------------------
    ' Salvo in costanti il nome delle TABELLE BASE
    ' -----------------------------------------------------------
    ' [_TL]     ELENCO TABELLE DA LINKARE
    ' [_FP]     FORM PERMISSION
    ' [_USERS]  ELENCO UTENTI
    ' -----------------------------------------------------------
    Public Const DB_LINKEDTABLE As String = "_TL"
    Public Const DB_PERMESSI    As String = "_FP"
    Public Const DB_USERTABLE   As String = "_USERS"
    
    ' -----------------------------------------------------------
    ' DataType personalizzato per le variabili AMBIENTE APPLICATIVO
    ' -----------------------------------------------------------
    Public Type APP_AMB_TYPE
        USER_IDUSER             As Long
        USER_NAME               As String
        USER_LEVEL              As String
    End Type
    ' -----------------------------------------------------------
    ' Variabile ambiente con i dati essenziali del LOGIN SALVATI
    ' -----------------------------------------------------------
    Public APP_DATA             As APP_AMB_TYPE
    
    Ultima modifica di Nico1292; 27-10-2014 17:42 

  6. #6
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Questa è la STRUTTURA dati personalizzata che conterrà i tipi:
    Public Type APP_AMB_TYPE
        USER_IDUSER             As Long
        USER_NAME               As String
        USER_LEVEL              As Integer
    End Type
    
    Questa invece è la Variabile di tipo [APP_AMB_TYPE]
    Public APP_DATA As APP_AMB_TYPE
    
    Quindi per popolare una TextBox:
    Me!NomeTextUSER_ID.Value=APP_DATA.USER_IDUSER
    Me!NomeTextUSER_LEVEL.Value=APP_DATA.USER_LEVEL
    Me!NomeTextUSER_NAME.Value=APP_DATA.USER_NAME
    
    Chiaro che se vuoi assegnare il dato mediante una Funzione nelle proprietà DefaultValue...
    Public Function UserId() As Long
       UserId=APP_DATA.USER_IDUSER
    End Function
    
    Public Function UserLevel() As Long
       UserId=APP_DATA.USER_LEVEL
    End Function
    
    Public Function UserName() As Long
       UserId=APP_DATA.USER_NAME
    End Function
    
    Quindi a questo punto andrai nella TextBox nella Valore Predefinito scriverai
    =UserName()
    
    ℹ️ Leggi di più su @Alex ...

  7. #7
    Nico1292 non è in linea Scolaretto
    Mi restituisce un errore in:
    Public Function UserName() As Long
       UserId=APP_DATA.USER_NAME
    End Function
    
    "la chiamata di funzione a sinistra dell'assegnazione deve restituire Variant o Object"

    Ho semplicemente incollato il codice per la Funzione con proprietà DefaultValue dopo la stringa di codice <Public APP_DATA As APP_AMB_TYPE>

    Devo creare un modulo nuovo?
    Ultima modifica di Nico1292; 27-10-2014 17:41 

  8. #8
    Nico ... devi usare i tag CODE per il codice ... non sei nuovo del codice ...

    Prova a farlo e fallo sempre, altrimenti i thread sono a rischio chiusura.
    ℹ️ Leggi di più su AntonioG ...

  9. #9
    Nico1292 non è in linea Scolaretto
    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Nico ... devi usare i tag CODE per il codice ... non sei nuovo del codice ...

    Prova a farlo e fallo sempre, altrimenti i thread sono a rischio chiusura.
    Grazie mille per il suggerimento ho modificato i messaggi precedenti

  10. #10
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    Non ho aggiornato i Type nelle function... il long è solo per il valore UserId modifica opportunamente i Type delle function vedendo come sono definiti nella struttura dati.
    ℹ️ Leggi di più su @Alex ...

+ Rispondi al messaggio
Pagina 1 di 2 12 ultimoultimo

Potrebbero interessarti anche ...

  1. totem per data entry gestione accessi
    Da dante.3d nel forum Delphi
    Risposte: 22
    Ultimo Post: 09-03-2020, 19:49
  2. Gestione Accessi di diversi utenti su Windows 7 Professional
    Da Newton nel forum Microsoft Windows
    Risposte: 4
    Ultimo Post: 23-04-2011, 17:51
  3. DB controllo accessi con barcode
    Da bordank nel forum Microsoft Access
    Risposte: 5
    Ultimo Post: 02-06-2010, 17:51
  4. [Access]:Gestione Accessi!!
    Da bud77 nel forum Microsoft Access
    Risposte: 4
    Ultimo Post: 26-10-2005, 14:58
  5. Accessi concorrenti con Jet
    Da _gas nel forum Visual Basic 6
    Risposte: 3
    Ultimo Post: 02-09-2005, 16:46