Membuat Program Sederhana Pendataan Karyawan Baru Menggunakan Microsoft Visual Studio 2008

Hallo teman-teman kali ini saya ingin berbagi ilmu mengenai pembuatan program sederhana yang kebetulan program ini juga menjadi salah satu tugas mata kulia saya jadi dri pada saya simpan-simpan trus di laptop mending saya posting aja sapa tw ada yang butuh mungkin buat tugas atau cuma sekedar coba-coba...hehehe:)

Ya udah tanpa berlama-lam lagi saya langsung kasih liat aja y contoh desainnya kalau masalah desain saya gk usah jelasin soalnya teman-teman yang biasa bergelut dengan program pasti udah tau:):):), bukan cuma desain program aja loh saya juga mengikut sertakan source code dari program tersebut jadi yang pengen nyoba atau belajar-belajar yahh monggo deh...!!!hehehe

Form Menu Utama

Form Entry Data Karyawan

Form Laporan Data Karyawan

Laporan Data Karyawan

Form Entry Data Jabatan

Entry Data Jabatan

Laporan Jabatan Karyawan Baru

Dan Dibawah ini adalah sorce code untuk contoh program diatas :

Public Class Form1

    Dim karyawan As DataRow

Browse

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Try

OpenFileDialog1.Filter = "Image Files (*.jpg,*.JPEG, *.bmp, *.gif, *.png)|*.jpg;*.JPEG; *.bmp; *.gif; *.png"

            OpenFileDialog1.ShowDialog()

            Label14.Text = OpenFileDialog1.FileName

            'GroupBox1.s = GroupBox1.Text.Length

            If Label14.Text <> "" Then

                PictureBox1.Image = Image.FromFile(Label14.Text)

            End If

          Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

Keluar

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

Simpan

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim simpan As DataRow

        simpan = DKaryawanDataSet.Karyawan.NewRow

        simpan(0) = TextBox1.Text

        simpan(1) = TextBox2.Text

        simpan(2) = TextBox3.Text

        simpan(3) = TextBox4.Text

        simpan(4) = DateTimePicker1.Text

        If RadioButton1.Checked = True Then

            simpan(5) = "Pria"

        Else

            simpan(5) = "Wanita"

        End If

        simpan(6) = ComboBox1.Text

        simpan(7) = ComboBox2.Text

        simpan(8) = ComboBox3.Text

        simpan(9) = DateTimePicker2.Text

        simpan(10) = TextBox5.Text

        simpan(11) = TextBox7.Text

        simpan(12) = Label14.Text

        DKaryawanDataSet.Karyawan.Rows.Add(simpan)

        KaryawanTableAdapter.Update(DKaryawanDataSet)

        MsgBox("Data Berhasil Tersimpan", vbInformation, "Sukses")

        kosong()

    End Sub

    Sub kosong()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        DateTimePicker1.Text = ""

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        ComboBox3.Text = ""

        DateTimePicker2.Text = ""

        TextBox5.Text = ""

        TextBox7.Text = ""

        PictureBox1.Image = Nothing

        TextBox1.Focus()

    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'DKaryawanDataSet.Karyawan' table. You can move, or remove it, as needed.

        Me.KaryawanTableAdapter.Fill(Me.DKaryawanDataSet.Karyawan)

'TODO: This line of code loads data into the 'DKaryawanDataSet.Karyawan' table. You can move, or remove it, as needed.  Me.KaryawanTableAdapter.Fill(Me.DKaryawanDataSet.Karyawan)

End Sub

Kosongkan

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        kosong()

End Sub

Delete

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

        Dim hapus As String

        If TextBox1.Text = "" Then

            MsgBox("Anda Yakin Ingin Menghapus Data Tersebut..?", vbCritical, "Perhatian")

        Else

            hapus = MessageBox.Show("Apakah anda yakin akan menghapus data tersebut", "Peringatan", MessageBoxButtons.YesNo)

            If hapus = vbYes Then

                karyawan.Delete()

                KaryawanTableAdapter.Update(DKaryawanDataSet)

                kosong()

            End If

        End If

    End Sub

Search

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        With DKaryawanDataSet.Karyawan

            karyawan = .Rows.Find(TextBox1.Text)

            If karyawan Is Nothing Then

                MsgBox("Data Yang Anda Cari Tidak Ditemukan", vbCritical, "PERHATIAN")

                TextBox2.Focus()

            Else

                Call tampilkan()

            End If

        End With

    End Sub

    Sub tampilkan()

        With karyawan

            TextBox2.Text = .Item(1)

            TextBox3.Text = .Item(2)

            TextBox4.Text = .Item(3)

            TextBox5.Text = .Item(10)

            DateTimePicker1.Text = .Item(4)

            If karyawan(5) = "Pria" Then

                RadioButton1.Checked = True

            Else

                RadioButton2.Checked = True

            End If

            DateTimePicker2.Text = .Item(9)

            TextBox7.Text = .Item(11)

            ComboBox1.Text = .Item(6)

            ComboBox2.Text = .Item(7)

            ComboBox3.Text = .Item(8)

            PictureBox1.Image = Image.FromFile(.Item(12))

            Label14.Text = .Item(12)

        End With

End Sub

Edit

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        karyawan.EndEdit()

        karyawan(0) = TextBox1.Text

        karyawan(1) = TextBox2.Text

        karyawan(2) = TextBox3.Text

        karyawan(3) = TextBox4.Text

        karyawan(4) = DateTimePicker1.Text

        If RadioButton1.Checked = True Then

            karyawan(5) = "Pria"

        Else

            karyawan(5) = "Wanita"

        End If

        karyawan(6) = ComboBox1.Text

        karyawan(7) = ComboBox2.Text

        karyawan(8) = ComboBox3.Text

        karyawan(9) = DateTimePicker2.Text

        karyawan(10) = TextBox5.Text

        karyawan(11) = TextBox7.Text

        karyawan(12) = Label14.Text

        KaryawanTableAdapter.Update(DKaryawanDataSet)

        MsgBox("Data Kryawan Berhasil DiUbah!!!", vbInformation,                         "UPDATE DATA")

        Call kosong()

        TextBox1.Focus()

    End Sub

End Class

Cetak

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim report As New FrmReportJabatan

        If ComboBox1.Text = "Nik" Then

            report.CrystalReportViewer1.SelectionFormula = "{Jabatan.Nik}" & "=" & "'" & TextBox1.Text & "'"

        ElseIf ComboBox1.Text = "Nama" Then

            report.CrystalReportViewer1.SelectionFormula = "{Jabatan.Nama}" & "=" & "'" & TextBox1.Text & "'"

        ElseIf ComboBox1.Text = "Jabatan" Then

            report.CrystalReportViewer1.SelectionFormula = "{Jabatan.Jabatan}" & "=" & "'" & TextBox1.Text & "'"

        ElseIf ComboBox1.Text = "Gaji_Pokok" Then

            report.CrystalReportViewer1.SelectionFormula = "{Jabatan.Gaji_Pokok}" & "=" & TextBox1.Text

        End If

        report.Show()

    End Sub

Normal

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        OleDbDataAdapter1.SelectCommand.CommandText = "select * from Jabatan"

        DataSet21.Clear()

        OleDbDataAdapter1.Fill(DataSet21)

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        TextBox1.Clear()

    End Sub

Filter

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     If ComboBox1.Text = "Gaji_Pokok" Then

          OleDbDataAdapter1.SelectCommand.CommandText=_

              "Select * from Jabatan where " + ComboBox1.Text + ComboBox2.Text + TextBox1.Text

     Else

         OleDbDataAdapter1.SelectCommand.CommandText=_

             "Select * from Jabatan where " + ComboBox1.Text + ComboBox2.Text + "'" + TextBox1.Text + "'"

        End If

        DataSet21.Clear()

        OleDbDataAdapter1.Fill(DataSet21)

    End Sub

Perhatian : Selamat Mencoba y apabila ada kekurangan dari program diatas kita bisa saling sering untuk sekedar saling bertukar ilmu

SALAM BLOGER INDONESIA..!!!!:);D