yash vb

Login


Imports System.Data.OracleClient
Imports System.IO
Public Class login
    Dim con As New OracleConnection("Data Source=XE;Persist Security Info=True;User ID=system;Password=ext1;Unicode=True")
    Dim ds As New DataSet
    Dim dr As OracleDataReader
    Dim adp As OracleDataAdapter
    Dim sql As String
    Dim cmd As OracleCommand
    Dim x As Integer
    Private Sub signup_Click(sender As Object, e As EventArgs) Handles signup.Click
        Dim s As New reg
        s.Show()
    End Sub

    Private Sub login_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub log_Click(sender As Object, e As EventArgs) Handles log.Click
        If user.Text = "" Then
            MsgBox("Username field is cant be empty")

        ElseIf pass.Text = "" Then
            MsgBox("Password field is cant be empty")
        End If

        ds.Tables.Clear()
        sql = "select * from login where u_id='" & user.Text & "' and pass='" & pass.Text & "'"

        adp = New OracleDataAdapter(sql, con)
        con.Open()
        adp.Fill(ds)
        con.Close()


        If (ds.Tables(0).Rows.Count > 0) Then
            If user.Text = "admin" Then
                Dim wel As New leave
                wel.Show()

            ElseIf user.Text.ToString = user.Text Then
                Dim f As New appli
                f.Show()
                Me.Hide()

        End If

        Else
            MsgBox("No record found")
        End If



        'user.Text = ""
        'pass.Text = ""

    End Sub
End Class





registration





Imports System.Data.OracleClient
Imports System.IO
Public Class reg
    Dim con As New OracleConnection("Data Source=XE;Persist Security Info=True;User ID=system;Password=ext1;Unicode=True")
    Dim ds As New DataSet
    Dim adp As OracleDataAdapter
    Dim sql As String
    Dim cmd As OracleCommand
    Dim res As Integer
    Private Sub reg_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub clear_Click(sender As Object, e As EventArgs) Handles clear.Click
        user1.Clear()
        pass1.Clear()
        rpass.Clear()
    End Sub

    Private Sub signup_Click(sender As Object, e As EventArgs) Handles signup.Click
        If user1.Text = "" Then
            MsgBox("Username field is cant be empty")

        ElseIf pass1.Text = "" Then
            MsgBox("Password field is cant be empty")

        ElseIf pass1.Text.ToString.Length < 6 Then
            MsgBox("Pasword length is has tobe 6char  ")

        ElseIf rpass.Text = "" Then
            MsgBox("Password field is cant be empty")

        ElseIf pass1.Text <> rpass.Text Then
            MsgBox("Password is not same")

        Else
            sql = "insert into login values('" & user1.Text & "','" & pass1.Text & "')"

            cmd = New OracleCommand(sql, con)
            MsgBox("register sucess")
            con.Open()
            res = cmd.ExecuteNonQuery()
            con.Close()
            Me.Close()

        End If
    End Sub
End Class





search





Imports System.Data.OracleClient
Imports System.IO
Public Class Form2
    Dim con As New OracleConnection("Data Source=XE;Persist Security Info=True;User ID=system;Password=ext1;Unicode=True")
    Dim ds As New DataSet
    Dim adp As OracleDataAdapter
    Dim sql As String
    Dim cmd As OracleCommand
    Dim x As Integer
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        sql = "select * from leave_app where status='y'"
        adp = New OracleDataAdapter(sql, con)
        con.Open()
        adp.Fill(ds)
        con.Close()
        data2.DataSource = ds.Tables(0)


    End Sub

    Public Sub find()
        ds.Tables.Clear()
        sql = "select * from leave_app where u_id=" & u_id.Text & ""

        adp = New OracleDataAdapter(sql, con)
        con.Open()
        adp.Fill(ds)
        con.Close()
        data2.DataSource = ds.Tables(0)
    End Sub

    Private Sub search_Click(sender As Object, e As EventArgs) Handles search.Click
        find()
    End Sub

    Private Sub u_id_TextChanged(sender As Object, e As EventArgs) Handles u_id.TextChanged

    End Sub
End Class




application



Imports System.Data.OracleClient
Imports System.IO
Public Class appli
    Dim con As New OracleConnection("Data Source=XE;Persist Security Info=True;User ID=system;Password=ext1;Unicode=True")
    Dim ds As New DataSet
    Dim dr As OracleDataReader
    Dim adp As OracleDataAdapter
    Dim sql As String
    Dim cmd As OracleCommand
    Dim rese As Integer

    Private Sub logout_Click(sender As Object, e As EventArgs) Handles logout.Click
        Dim w As New login
        w.Show()
    End Sub

    Dim x As Integer
    Dim op As OpenFileDialog
    Private Sub submit_Click(sender As Object, e As EventArgs) Handles submit.Click
        If user2.Text = "" Then
            MsgBox("Please Enter username")
        ElseIf dept.SelectedItem = "" Then
            MsgBox("please select department")

        ElseIf res.Text = "" Then
            MsgBox("Please enter reason")

        ElseIf day.Text = "" Then

            MsgBox("Please enter no of days")

        Else
            sql = "insert into leave_app values('" & user2.Text & "','" & dept.SelectedItem & "','" & res.Text & "','" & day.Text & "','n')"

            cmd = New OracleCommand(sql, con)
            MsgBox("Aplication submited sucessfully")
            con.Open()
            rese = cmd.ExecuteNonQuery()
            con.Close()
            user2.Clear()
            res.Clear()
            day.Clear()

        End If

    End Sub

    Private Sub dept_SelectedIndexChanged(sender As Object, e As EventArgs) Handles dept.SelectedIndexChanged

    End Sub



    Private Sub clist_Click(sender As Object, e As EventArgs) Handles clist.Click
        Dim w As New Form2
        w.Show()
    End Sub
End Class




leave




Imports System.Data.OracleClient
Imports System.IO
Public Class leave
    Dim con As New OracleConnection("Data Source=XE;Persist Security Info=True;User ID=system;Password=ext1;Unicode=True")
    Dim ds As New DataSet
    Dim adp As OracleDataAdapter
    Dim sql As String
    Dim cmd As OracleCommand
    Dim x As Integer
    Dim r As Integer
    Private Sub leave_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        sql = "select * from leave_app"
        adp = New OracleDataAdapter(sql, con)
        con.Open()
        adp.Fill(ds)
        con.Close()

        data.DataSource = ds.Tables(0)
    End Sub
    Public Sub fillgrid()
        ds.Tables.Clear()
        sql = "select * from leave_app"
        adp = New OracleDataAdapter(sql, con)

        con.Open()
        adp.Fill(ds)
        con.Close()

        r = ds.Tables(0).Rows.Count
        data.DataSource = ds.Tables(0)
    End Sub
    Private Sub submit_Click(sender As Object, e As EventArgs) Handles submit.Click
        fillgrid()
        sql = "update leave_app set status = 'y'where u_id =" & app.Text & ""
        cmd = New OracleCommand(sql, con)
        con.Open()
        x = cmd.ExecuteNonQuery()
        con.Close()

        If (x > 0) Then

            MsgBox("data update")

        End If
        fillgrid()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim y As New login
        y.Show()
    End Sub

    Private Sub app_TextChanged(sender As Object, e As EventArgs) Handles app.TextChanged

    End Sub
End Class