frm_emp.vb

来自「application file which contains the note」· VB 代码 · 共 800 行 · 第 1/3 页

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "PrisLogix's PIS"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
#Region "CODE STARTS HERE"
    Function getslip(ByVal some As String) As String
        Dim another As Integer
        Dim newslip2 As String = "EE-"
        Dim number As String
        another = CInt(some.TrimStart("E", "-"))
        another += 1
        number = another.ToString()
        Return newslip2 + number
    End Function
    Function getemp() As String
        Dim myText As String
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM Employee", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            TextBox15.Text = MyReader("EmployeeNo")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
        myText = TextBox15.Text
        Return myText
    End Function
    Function idcheck() As Boolean
        If TextBox1.Text = "" Then
            Return True
        Else
            Return False
        End If
    End Function
    Function addlogin()
        MyConnection.Open()
        MyCommand = New OleDbCommand("INSERT INTO login VALUES('" & TextBox1.Text & "','" & TextBox14.Text & "')", MyConnection)
        MyCommand.ExecuteNonQuery()
        MyConnection.Dispose()
        MyCommand.dispose()
    End Function
    Function addemployee()
        MyConnection.Open()
        MyCommand = New OleDbCommand("INSERT INTO Employee VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox11.Text & "','" & TextBox13.Text & "','" & ComboBox1.Text & "','" & TextBox10.Text & "','" & TextBox3.Text & "','" & TextBox12.Text & "')", MyConnection)
        MyCommand.ExecuteNonQuery()
        MyConnection.Close()
        MyCommand.dispose()
    End Function
    Function delemployee()
        MyConnection.Open()
        MyCommand = New OleDbCommand("DELETE FROM Employee WHERE EmployeeNo ='" & TextBox1.Text & "'", MyConnection)
        MyCommand.executenonquery()
        MyCommand.dispose()
        MyCommand = New OleDbCommand("DELETE FROM login WHERE ID = '" & TextBox1.Text & "'", MyConnection)
        MyCommand.ExecuteNonQuery()
        MyConnection.Close()
        MyCommand.dispose()
    End Function
    Function editemployee()
        MyConnection.Open()
        MyCommand = New OleDbCommand("UPDATE Employee SET empname ='" & TextBox2.Text & "',empphone = '" & TextBox4.Text & "',empadd = '" & TextBox5.Text & "',dateofbirth = '" & TextBox6.Text & "', dateofjoin = '" & TextBox7.Text & "', emplevel = '" & TextBox8.Text & "', empcast = '" & TextBox9.Text & "', qualification = '" & TextBox11.Text & "', salary = '" & TextBox13.Text & "', empward = '" & ComboBox1.Text & "', mstatus = '" & TextBox10.Text & "', emplast = '" & TextBox3.Text & "', hins = '" & TextBox12.Text & "'WHERE EmployeeNo = '" & TextBox1.Text & "'", MyConnection)
        Try
            MyCommand.ExecuteNonQuery()
        Catch c As Exception
            MsgBox(c.ToString)
        End Try
        MyConnection.Close()
        MyCommand.dispose()
    End Function
    Function findemployee()
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM Employee WHERE EmployeeNo ='" & TextBox1.Text & "'", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            TextBox2.Text = MyReader("empname")
            TextBox4.Text = MyReader("empphone")
            TextBox5.Text = MyReader("empadd")
            TextBox6.Text = MyReader("dateofbirth")
            TextBox7.Text = MyReader("dateofjoin")
            TextBox8.Text = MyReader("emplevel")
            TextBox9.Text = MyReader("empcast")
            TextBox11.Text = MyReader("qualification")
            TextBox13.Text = MyReader("salary")
            ComboBox1.Text = MyReader("empward")
            TextBox10.Text = MyReader("mstatus")
            TextBox3.Text = MyReader("emplast")
            TextBox12.Text = MyReader("hins")
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
    End Function
    Private Sub frm_emp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM Ward", MyConnection)
        MyReader = MyCommand.ExecuteReader()
        While MyReader.Read
            ComboBox1.Items.Add(MyReader("wardid"))
        End While
        MyConnection.Close()
        MyReader.Close()
        MyCommand.dispose()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button7.Visible = True
        Button7.Enabled = True
        Button1.Enabled = False
        Button1.Visible = False
        TextBox1.Text = getslip(getemp())
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If idcheck() = True Then
            MsgBox("Please Enter in the Employee ID you want to delete", MsgBoxStyle.Information, "PrisLogix's PIS")
        Else
            delemployee()
            MsgBox("Employee record has been deleted", MsgBoxStyle.Information, "PrisLogix's PIS")
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If idcheck() = True Then
            MsgBox("Please Enter the employee ID you want to find", MsgBoxStyle.Information, "PrisLogix's PIS")
        Else
            findemployee()
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If idcheck() = True Then
            MsgBox("Please ENter the Employee ID you want to edit", MsgBoxStyle.Information, "Prislogix's PIS")
        Else
            editemployee()
            MsgBox("The Employee Record Hass Been Updated", MsgBoxStyle.Information, "PrisLogix's PIS")
        End If
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        addemployee()
        addlogin()
        MsgBox("New Employee has been added", MsgBoxStyle.Information, "PrisLogix's PIS")
        Button7.Visible = False
        Button7.Enabled = False
        Button1.Visible = True
        Button1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text = currentDate.Now.ToShortDateString()
    End Sub
#End Region
#Region "GLOW CODE"

    Private Sub MouseEnterEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter, Button2.MouseEnter, Button3.MouseEnter, Button4.MouseEnter, Button6.MouseEnter, Button7.MouseEnter

        ' A simple event handler that fires when the user's mouse arrow rolls 
        ' over any of the buttons.  It passes the button's identity to the Glow sub.

        Dim ctrl As Control = CType(sender, Control)
        Glow(ctrl, True)

    End Sub

    Private Sub MouseLeaveEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave, Button2.MouseLeave, Button3.MouseLeave, Button4.MouseLeave, Button6.MouseLeave, Button7.MouseLeave

        ' A simple event handler that fires when the user's mouse arrow leaves the
        ' area of any of the buttons.  It passes the button's identity to the Glow sub.

        Dim ctrl As Control = CType(sender, Control)
        Glow(ctrl, False)

    End Sub

    Private Sub Glow(ByVal ctrl As Control, ByVal Hovering As Boolean)

        Dim Sb_R, Sb_G, Sb_B As Int16 '           <--- RGB values for the starting backcolor
        Dim Sf_R, Sf_G, Sf_B As Int16 '           <--- RGB values for the starting forecolor
        Dim Eb_R, Eb_G, Eb_B As Int16 '           <--- RGB values for the ending backcolor
        Dim Ef_R, Ef_G, Ef_B As Int16 '           <--- RGB values for the ending forecolor

        Select Case Hovering  ' True for MouseEnter, False for MouseLeave
            Case True
                Sb_R = SystemColors.Control.R           ' Assign the variables the 
                Sb_G = SystemColors.Control.G           ' appropriate values based
                Sb_B = SystemColors.Control.B           ' on system-defined colors
                '                                         for control and control
                Sf_R = SystemColors.ControlText.R       ' text.
                Sf_G = SystemColors.ControlText.G
                Sf_B = SystemColors.ControlText.B

                Eb_R = SystemColors.ActiveCaption.R     ' Assign the variables the
                Eb_G = SystemColors.ActiveCaption.G     ' appropriate values based
                Eb_B = SystemColors.ActiveCaption.B     ' on system-defined colors
                '                                         for the title bar and the
                Ef_R = SystemColors.ActiveCaptionText.R ' title bar's text.
                Ef_G = SystemColors.ActiveCaptionText.G
                Ef_B = SystemColors.ActiveCaptionText.B
            Case False
                Sb_R = SystemColors.ActiveCaption.R     ' Assign the variables the
                Sb_G = SystemColors.ActiveCaption.G     ' appropriate values based
                Sb_B = SystemColors.ActiveCaption.B     ' on system-defined colors
                '                                         for the title bar and the
                Sf_R = SystemColors.ActiveCaptionText.R ' title bar's text.
                Sf_G = SystemColors.ActiveCaptionText.G
                Sf_B = SystemColors.ActiveCaptionText.B

                Eb_R = SystemColors.Control.R           ' Assign the variables the 
                Eb_G = SystemColors.Control.G           ' appropriate values based
                Eb_B = SystemColors.Control.B           ' on system-defined colors
                '                                         for control and control
                Ef_R = SystemColors.ControlText.R       ' text.
                Ef_G = SystemColors.ControlText.G
                Ef_B = SystemColors.ControlText.B
        End Select

        Dim b_RIncrement As Int16 = Round(((Eb_R - Sb_R) / 16), 0)      ' Find the increments that
        Dim b_GIncrement As Int16 = Round(((Eb_G - Sb_G) / 16), 0)      ' the RGB values will take;
        Dim b_BIncrement As Int16 = Round(((Eb_B - Sb_B) / 16), 0)      ' 1/16th of the difference
        '                                                                 between the start and end
        Dim f_RIncrement As Int16 = Round(((Ef_R - Sf_R) / 16), 0)      ' values, rounded to the 
        Dim f_GIncrement As Int16 = Round(((Ef_G - Sf_G) / 16), 0)      ' nearest integer.
        Dim f_BIncrement As Int16 = Round(((Ef_B - Sf_B) / 16), 0)

        Dim bR As Int16 = Sb_R ' \
        Dim bG As Int16 = Sb_G '  }--  the RGB values for the backcolor as it changes.
        Dim bB As Int16 = Sb_B ' /

        Dim fR As Int16 = Sf_R ' \
        Dim fG As Int16 = Sf_G '  }--  the RGB values for the forecolor as it changes.
        Dim fB As Int16 = Sf_B ' /

        Dim count As Int16
        For count = 0 To 14
            bR += b_RIncrement          ' Add the appropriate increments to the 
            bG += b_GIncrement          ' RGB values.  The result is a nifty
            bB += b_BIncrement          ' "cross-fade" effect.
            fR += f_RIncrement
            fG += f_GIncrement
            fB += f_BIncrement

            ctrl.BackColor = Color.FromArgb(bR, bG, bB)   ' Repaint the button using the
            ctrl.ForeColor = Color.FromArgb(fR, fG, fB)   ' current RGB values, and refresh
            ctrl.Refresh()                                ' the button.

            Threading.Thread.Sleep(30 - (count * 2))      ' Wait a certain number of milliseconds,
            '                                               which is a factor of the current count.
            '                                               I tweaked these numbers to get a decent
            '                                               effect; feel free to adjust these 
            '                                               numbers to achieve an effect you like.
        Next
        Select Case Hovering
            Case True
                ctrl.BackColor = SystemColors.InactiveCaption         ' Finish the effect by painting 
                ctrl.ForeColor = SystemColors.InactiveCaptionText      ' the control with it's final
            Case False                                              ' look, depending on whether
                ctrl.BackColor = SystemColors.Control               ' we're fading in or out.
                ctrl.ForeColor = SystemColors.ControlText
        End Select
    End Sub
#End Region
End Class