Simple Login | Electronic Billing System VB.NET

Simple Login |  Electronic Billing System VB.NET


FORM 1
Imports System.Data.OleDb
Imports System.Media

Public Class Register

    Dim path = System.Windows.Forms.Application.StartupPath
    Dim LogOnsound As String
    Dim MyPlayer As New SoundPlayer()

    Private Sub Cancel_Click(sender As Object, e As EventArgs) Handles Cancel.Click
        Me.Hide()
        Loginfrm.Show()

    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.CheckState = CheckState.Checked Then
            PasswordTextBox.UseSystemPasswordChar = False
        End If
        If CheckBox1.CheckState = CheckState.Unchecked Then
            PasswordTextBox.UseSystemPasswordChar = True
        End If
    End Sub

    Private Sub OK_Click(sender As Object, e As EventArgs) Handles OK.Click
        Dim user, pass As String
        user = UsernameTextBox.Text
        pass = PasswordTextBox.Text



        Dim connection1 As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Credentials.mdb;")

        Dim command As New OleDbCommand("SELECT [ID] FROM [Staff] WHERE [usernameField] = username AND [passwordField] = password", connection1)

        Dim usernameParam As New OleDbParameter("username", UsernameTextBox.Text)
        Dim passwordParam As New OleDbParameter("password", PasswordTextBox.Text)

        command.Parameters.Add(usernameParam)
        command.Parameters.Add(passwordParam)

        command.Connection.Open()
        Dim reader As OleDbDataReader = command.ExecuteReader()
        If reader.HasRows Then
            MessageBox.Show("User Exist")
            MyPlayer.SoundLocation = path & LogOnsound
            PasswordTextBox.Text = ""
            UsernameTextBox.Text = ""


        ElseIf user = "" Or pass = "" Then
            MsgBox("Please Fill The Boxs", , "Error")
        Else

            Dim connection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Credentials.mdb;"
            Using myconnection As New OleDbConnection(connection)
                myconnection.Open()

                Dim sqlq As String = "INSERT INTO [staff] ([username], [password]) VALUES (@user, @pass)"
                Using cmd As New OleDbCommand(sqlq, myconnection)
                    cmd.Parameters.AddWithValue("@usernme", user)
                    cmd.Parameters.AddWithValue("@passwrd", pass)
                    cmd.ExecuteNonQuery()
                    MsgBox("User Registered!", , "register")
                    user = ""
                    pass = ""
                End Using
            End Using
        End If
        command.Connection.Close()




    End Sub
End Class

Comments

Post a Comment

Popular posts from this blog

QR CODE SCANNER (Emgu CV ) VB.NET

Image
QR CODE SCANNER VB.NET Emgu CV Download :  http://www.emgu.com/wiki/index.php/Download_And_Installation Imports Emgu.CV Imports Emgu.CV.UI Imports Emgu.CV.Structure Imports MessagingToolkit.QRCode.Codec Public Class Form1     Dim Reader As QRCodeDecoder     Dim Cap As New Capture     Dim hash As String     Dim access As Boolean = False     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         Reader = New QRCodeDecoder         PictureBox1.Image = Cap.QueryFrame.ToBitmap()         Try             If access = True Then                 hash = Reader.decode(New Data.QRCodeBitmapImage(PictureBox1.Image))                 access = False                 If ...
Read more

Simple Modern Login (Guna UI, Mysql) VB.NET

Image
Simple Modern Login (Guna UI, Mysql) VB.NET FORM 1 Imports MySql.Data.MySqlClient Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         connection()     End Sub     Private Sub GunaButton1_Click(sender As Object, e As EventArgs) Handles GunaButton1.Click         SignIn()     End Sub     Private Sub GunaButton3_Click(sender As Object, e As EventArgs) Handles GunaButton3.Click     End Sub     Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged         Try             If GunaGoogleSwitch1.Checked = True Then                 GunaTextBox2.UseSystemPasswordChar = False                 ...
Read more

Simple Lottery Game (Guna UI) VB.NET

Image
Simple Lottery Game (Guna UI) VB.NET Guna UI Download :  https://gunaframework.com/ FORM 1 Public Class Form2     Dim R1, R2, R3 As New Random     Dim PHP As Double = R1.Next(1, 999)     Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Dim formattedValue As String = String.Format("{0:C}", PHP)         Label5.Text = formattedValue     End Sub     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick         'Random Generator         Label1.Text = R1.Next(1, 3)     End Sub     Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick         'Random Generator         Label2.Text = R2.Next(1, 5)     End Sub     Private Sub Timer3_Tick(sende...
Read more