MEMBUAT DATA GAJIAN DI VB NET 2010

                                                    MEMBUAT DATA GAJIAN DI VB NET 2010

 

6 lable,1 combobox,4 textbox, 3 buton, 2 radiobutton

Public Class Form_Gaji

    Private Sub Form_Gaji_Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ComboBox1.Items.Add("Direksi")
        Me.ComboBox1.Items.Add("Kepala Bagian")
        Me.ComboBox1.Items.Add("Staff")
    End Sub

    Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim i As String
        i = Convert.ToString(InputBox("Masukan Kode :->", "Kode", "Ketik Kode"))

        Me.TextBox1.Text = i
        Select Case Me.TextBox1.Text
            Case "11111"
                Me.TextBox2.Text = "Abdul Amin"
            Case "22222"
                Me.TextBox2.Text = "Muhammad Ari"
            Case "33333"
                Me.TextBox2.Text = "Kurniawan Dewi"
            Case Else
                Me.TextBox2.Text = "Pilihan Tidak Ada"
        End Select
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Kode            :" & Me.TextBox1.Text & vbNewLine &
              "Nama            :" & Me.TextBox2.Text & vbNewLine &
              "Jenis Kelamin   :" & Me.TextBox4.Text & vbNewLine &
              "Jabatan         :" & Me.ComboBox1.Text & vbNewLine &
              "Gaji Pokok      :" & Me.TextBox3.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.ComboBox1.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox3.Enabled = True
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        Me.TextBox4.Text = ""
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Me.ComboBox1.Text = "Direksi" Then
            Me.TextBox3.Text = "5.000.000"
        ElseIf Me.ComboBox1.Text = "Kepala Bagian" Then
            Me.TextBox3.Text = "4.000.000"
        Else
            Me.TextBox3.Text = "2.500.000"
        End If
    End Sub
End Class