Welcome to Dream.In.Code
Become a VB Expert!

Join 137,231 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,860 people online right now. Registration is fast and FREE... Join Now!




security system

 
Reply to this topicStart new topic

security system, network security system for a laboratory

mechelle
5 Feb, 2007 - 09:00 AM
Post #1

New D.I.C Head
*

Joined: 5 Feb, 2007
Posts: 2


My Contributions
[font=Comic Sans Ms][font=Century Gothic][size=5]
hi everyone! pls help me. I have an audit class that requires us to build a security system for our open laboratory. i have no idea how to create this. the only thing i have gone through using vb6 is an inventory system using ms access. pls help me!!!!
User is offlineProfile CardPM
+Quote Post

orangeslide8
RE: Security System
9 Feb, 2007 - 06:38 PM
Post #2

D.I.C Head
Group Icon

Joined: 29 Dec, 2006
Posts: 190



Thanked: 1 times
Dream Kudos: 25
My Contributions
QUOTE(mechelle @ 5 Feb, 2007 - 10:00 AM) *

[font=Comic Sans Ms][font=Century Gothic][size=5]
hi everyone! pls help me. I have an audit class that requires us to build a security system for our open laboratory. i have no idea how to create this. the only thing i have gone through using vb6 is an inventory system using ms access. pls help me!!!!

do you want a security system like with passwords and do you want set passwords or be able to sign up for passwords?
if you want to just have set passwords heres a code you can try
CODE

dim usernames(100)
dim passwords(100)
dim y as integer
private sub button1_cick()
Top: y = Y + 1
if Y > 100 then
Msgbox (" you typed an invalid user name or password")
End If
If textbox1.text = Usernames(Y) then
Check For Password
else
GoTo Top
end if
end sub
private sub checkforpassword ()
if textbox2.text = passwords(y) then
' put what you want to get in
End If
end sub

by the way put 1 button named button 1 on the form and 2 textboxes
hope that helped
john
User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic
Time is now: 12/4/08 03:21PM

Live VB Help!

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month