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.