Headlines News :
Komisi Gratis | Bisnis Online Tanpa Modal
Home » » Membuat Program Sederhana Pendataan Karyawan Baru Menggunakan Microsoft Visual Studio 2008

Membuat Program Sederhana Pendataan Karyawan Baru Menggunakan Microsoft Visual Studio 2008

Written By Surya Risky Mangita on 08/05/12 | 04.43


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  

Share this article :

32 komentar:

  1. bro ini dibuatnya pake program apa?
    maklum newbie

    BalasHapus
  2. saya kagum sampai ke kode html'y di kasih tahu hebat

    BalasHapus
  3. keikhlasan anda berbagi semoga mendapat balasan dari Allah.

    BalasHapus
  4. Dear Sir,
    Mohon bantuannya agar saya bisa dibuatkan Data Base untuk karyawan saya.

    Nama Saya : Yunandi - Call Number : 081325721986 / email :yunan.nautica@yahoo.co.id

    Demikian Terima Kasih
    salam,
    Yunan

    BalasHapus
  5. Maaf KK ini sorce codenya pake Program apa KK maaf newbie :D

    BalasHapus
  6. gan bisa jelaskan yang ini gak?

    simpan = DKaryawanDataSet.Karyawan.NewRow

    BalasHapus
  7. mentahan data aplikasi x mana,,, untuk tambahan koleksi program n referensi

    BalasHapus
  8. tolong bantuin saya cara membuat aplikasi pendatan calong anggota polisi supaya saya bisa mambuat laporan PKL saya ini dengan baik,,gue tunggu balasanya dari kk,,makasiiii..

    BalasHapus
  9. sangat menginspirasi untuk mencobanya dan lebih banyak membuat program yang baru lagi. Thank you..

    BalasHapus
  10. Bisa buatkan saya cara menyimpat data / surat surat agar tidak terbengkalai...
    ini email saya : andihajar91@yahoo.com

    BalasHapus
  11. gan itu gunakan database lagi atau tidak?
    back ilmuinforkom.blogspot.com

    BalasHapus
  12. Mas Embak yg ada disini,bisa mintk tolong gak,
    tolong bagi coding filter data chrystal report pada microsoft visual studio 2008.
    Pleaseeee bantu Q,untuk program tugas akhir ku.
    kalau bisa email aj ke Riizal307@ymail.com
    or sms ke numb Q 0857 6514 5112.

    BalasHapus
  13. kk pakai jva versi berapa kk?
    cara pembuatan coding kk berbeda dengan cara pembuatan coding saya kk.
    ini coding simpan yang saya buwat sendiri kk
    private void simpanActionPerformed(java.awt.event.ActionEvent evt) {
    // TODO add your handling code here:
    try {
    Class.forName("sun.jdbc.odbc.JdbcOdbc");
    con = DriverManager.getConnection("jdbc:odbc:dsnpenjualan");
    sql="insert into costumer values('"+vnofak.getText()+"','"+
    cmbkode.getSelectedItem()+"','"+
    cmbid.getSelectedItem()+"','"+
    t+"','"+
    vjlh.getText()+"')";
    state = con.createStatement();
    state.execute(sql);
    vnofak.setText("");
    cmbkode.getSelectedItem();
    cmbid.getSelectedItem();
    vjlh.setText("");
    vtanggal.setDateFormatString("");
    vnofak.requestFocus();
    JOptionPane.showMessageDialog(null, "Berhasil disimpan");

    } catch (Exception e) {
    JOptionPane.showMessageDialog(null,e);
    }
    }

    BalasHapus
    Balasan
    1. berbeda sama java gan, ini make visual studio

      Hapus
  14. Mantap kali gan Codingnya...

    BalasHapus
  15. kasih projectnya donk mas, saya igin belajar

    BalasHapus
  16. Muantap nie Tutorialna Bro , Makasih

    BalasHapus
  17. bisa minta file programnya gak,,hehe

    BalasHapus
  18. jika tidak keberatan, tolong kirim ke email saya program nya serta database nya bro. mau di pelajari untuk UAS bro . please bro

    BalasHapus
  19. oh iya email saya callmebed@gmail.com thanks before after ya bro

    BalasHapus
  20. maaf gan saya minta mentaha aplikasi'y yg ini buat UAS ni Bagidong mau saya pelajari mudah"han bisa bantu saya...
    kirim via emal saya ya gan...
    anggi.stw15@gmail.com

    di tunggu balasannya ga... Makasih...

    BalasHapus
  21. bang
    ini pake database ga program nya ??

    BalasHapus
  22. bermanfaaat banget gan , hatur nuhun ..
    salam mahasiswi

    BalasHapus
  23. gan programnya pake microsoft acces kah?

    BalasHapus
  24. boleh minta project nya gak, buat program uas kuliah saya.
    kirim lewat email mirzahafiz15@gmail.com
    trima kasih

    BalasHapus
  25. boleh minta project nya
    kirim ke email fajar61948@gmail.com
    makasih sebelumnya

    BalasHapus
  26. kak boleh minta projectnya ga?

    BalasHapus
  27. kak boleh minta database nya?

    BalasHapus

You Can Join This..

About IT
 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. SR.Mangita Blog'S - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger