Password

If your using Access then why not use Access security. Users have to supply name and password which are included in the connect string. This approach will be the same for other database types.

hmmm kryptering for 30 pts, er (synes jeg lige i underkanten) -hvis den altså skal være bare lidt svær at bryde.

Lav en login form med 2 tekstfeler (TxtUser og TxtPassword) tilføj 2 knapper (Ok og Cancel).

Lag følgende kode på Ok knappens event:

Dim Password as string
Password = \"Password\"

If TxtUser.Text = \"\" Then
MsgBox \"Missing username\"
Exit Sub
End If

If TxtPassword.Text = \"\" Then
MsgBox \"Missing password\"
Exit Sub
End If

If TxtUser.Text = \"Bruger\" And TxtPassword.Text = Password Then
--> Kald til din form med applikationen <--
Else
MsgBox \"Wrong username or password, program will be terminated\"
End
End If

På Cancel knappens event kan du f.eks. skrive

End

Meget simpelt.....

Som fortsættelse kunne du jo lægge password og brugernavn i en database, hvis der er flere der skal bruge programmet.

kedde

--> Kald til din form med applikationen <--

hvis du har 2 forms (form1,form2) så skal du skrive under form1 sub.

form1.hide
form2.show


Det som der så sker er at du gemmer din form1 og viser din form2 2. Jeg synes selv bedst om den måde, men du kan også bare skrive som clausjacobsen skev under form_load i form1.

For i = 1 To Len(txtfield.Text)
t = Mid(namez.Text, i, 1)
f = (i - 1) Mod (Len(detteeretmegethemmeligtkodeordsomkunkendesafmig) + 2)
K = \"z\"
nr = Asc(t) + Asc(K)
If nr > 255 Then nr = nr Mod 255
t = Chr(nr)
tekst = tekst & t
Next i
crypt = tekst

---------
\'tekst = \"\"
\'For i = 1 To Len(Text1.Text)
\'t = Mid(Text1.Text, i, 1)
\'f = (i - 1) Mod (Len(detteeretmegethemmeligtkodeordsomkunkendesafmig) + 2)
K = \"z\"
nr = Abs(Asc(t) - Asc(K))
If nr > 255 Then nr = nr Mod 255
t = Chr(nr)
tekst = tekst & t
Next i
decrypto = tekst

dim pass as string
dim bruger as string

bruger = inputbox(\"Skriv din brugerID\")
pass = inputbox(\"Skriv din adgangskode\")

if bruger = \"fisk\" and pass = \"vand\" then
show form2
else
msgbox \"Naaaaa.....Du glemte noget!!!\"
end if

Hvis du har form1 og form2, så kan du bruge denne kode.hvis du ikke har så skriv det her.
Dim b As String
Dim p As String

Private Sub Form_Load()
Form1.Hide
b = InputBox(\"B\")
p = InputBox(\"p\")

If b = \"1\" And p = \"2\" Then
Form1.Show
Else
End
End If






End Sub