-
Notifications
You must be signed in to change notification settings - Fork 0
/
intro_form.vb
32 lines (26 loc) · 1.24 KB
/
intro_form.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Imports System.Data.SqlClient
Public Class intro_form
Private Sub loginButton_Click(sender As Object, e As EventArgs) Handles loginButton.Click
Dim Connnection As New SqlConnection("Server=DESKTOP-JHVG5RN\SQLEXPRESS01;Database=schoolsystem;Trusted_Connection=True;")
Dim Command As New SqlCommand("SELECT * FROM administrator_table WHERE admin_username= @username and admin_password=@password", Connnection)
Command.Parameters.Add("@username", SqlDbType.VarChar).Value = txtUser.Text
Command.Parameters.Add("@password", SqlDbType.VarChar).Value = txtpassword.Text
Dim adapter As New SqlDataAdapter(Command)
Dim table As New DataTable()
adapter.Fill(table)
If table.Rows.Count() <= 0 Then
MessageBox.Show("User Name Or Pawword Invalid")
Else
MessageBox.Show("welcome login succefull")
Form1.Show()
Me.Hide()
End If
End Sub
Private Sub intro_form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
homepage.Show()
End Sub
End Class