Login Form

[Dragana Stojanovska]

Za pocetnoto logiranje na korisnikot na aplikacijata e potrebno od strana na administratorot na aplikacijata da se vnese vo bazata soodvetno korisnicko ime i lozinka za koristenje tuka vo nasata aplikacijata korisnicno ime e sencan a passw e 12345. Za sekoj korisnik mora da se kreira posebno korisnicko ime i paasw po potreba.

[Dragana Stojanovska]

Objasnuvanje na kodot na Login Form
Na kopceto OK koe ima uloga za potvrduvanje na vnesenite podatoci go vnesovme sledniot kod Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

If UsernameTextBox.Text = Nothing Then

MsgBox("Please enter username")

Exit Sub

ElseIf PasswordTextBox.Text = Nothing Then

MsgBox("Please enter password")

Exit Sub

End If

Dokolku edit ot za username i passw se prazni da se prikaze poraka za nivno vnesuvanje.

Dim con As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source = ..\medical_system.mdb")

Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM tblAdmin WHERE Usernam='" & UsernameTextBox.Text & "' AND Passwor = '" & PasswordTextBox.Text & "' ", con)
con.Open()
Dim sdr As OleDbDataReader = cmd.ExecuteReader()

Kod za proverka vo bazata kade e kreirano i postavno korisnicnoto ime i lozinka i pristap do bazata za korisnicko ime i lozinka. Kade dokolku korisnickoto ime i lozinka se tocni da se vleze vo aplikacijata a dokolu ne se da se napisat soodvetni poraki preku sledniot kod>

If (sdr.Read() = True) Then

MessageBox.Show("The user is valid!")
Pocetna.Show()
Me.Hide()

Else

MessageBox.Show("Invalid username or password")

Kopce close za izlez preku funkcijata Cancel_Click.