Selasa, 13 Desember 2011

Tugas Pemrograman Visual Lanjut

Dalam Lingkungan pekerjaan, Informasi mengenai sebuah laporan yang dibutuhkan seringkali membutuhkan waktu yang lama untuk menyajikannya, karena banyak faktor, salah satu faktornya adalah cara yang dilakukan masih manual. Sebagai contoh, dalam penyajian informasi Surat Perintah Perjalanan Dinas. Pada Kesempatan ini, saya mencoba penyajian informasi Surat Perjalanan Dinas (SPPD) dengan mengaplikasikannya dengan sebuah program yang dibuat dalam Visual Basic 6.0. 

Rancangan Program
  1. Mulai
  2. Mengumpulkan Data Kepegawaian yang dibutuhkan
Pada contoh program ini, kami mengumpulkan data :  namapegawai, tanggallahir, jeniskelamin, status, alamat, jabatan sebagai data dasar untuk membuat program. ada 10 data pegawai yang kami dapatkan.
  1. Menganalisa Data
Data yang telah kami peroleh tersebut masih berupa data mentah, yang menurut kami akan lebih efisien dan membutuhkan data unik yang akan menjadi induk dan mewakili data masing-masing pegawai. Maka dari itu, kami membuat satu data tambahan lagi yaitu kodepegawai.

  1. Membuat Flowchart
Flowchart dibuat sebagai pedoman dalam membuat program nantinya.  Input dan output sama yaitu kodepegawai, namapegawai, tanggallahir, jeniskelamin, status, alamat, jabatan. Dan sebagai prosesnya adalah tombol-tombol DML yang terdiri dari cmd_input, cmd_simpan, cmd_batal, cmd_ubah, cmd_hapus, cmd_cari, cmd_keluar. kurang lebih Flowchartnya seperti ini:


  1. Membuat Rancangan Design Program
Kurang lebih seperti ini rancangan tampilan yang kami buat dengan menggunakan Ms. Visual Basic.


  1. Membuat Data Base dengan Ms Acces 2003 Data Pegawai
  2. Membuat Rancangan Design dan Memilih tools-tools yang dibutuhkan dan sesuai pada design di Visual Basic
Kode Pegawai           = textbox
Nama Pegawai          = textbox
Tanggal Lahir             = dtPicker
Jenis Kelamin            = Combo box
Status                          = Combo box
Alamat                         = textbox
Jabatan                       = Combo box
  1. Membuat Programnya
Membuat coding yang dibutuhkan dan sesuai dengan yang dimaksudkan di Visual Basic
1.    Mengkondisikan textbox jika penekan Enter dilakukan maka kursor akan pindah di textbox berikutnya
If KeyAscii = 13 Then
    DTPicker1.SetFocus
End If


2.    Memesan variabel yang dibutuhkan,
Dim penghubung As New ADODB.Connection
Dim rspegawai As New ADODB.Recordset
Dim rscari As New ADODB.Recordset
Dim proses, xxx As String
Dim even As String

3.    Mengkoneksikan tabelpegawai yang ada didalam database ke dalam Visual Basic,
Set penghubung = New ADODB.Connection
penghubung.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBSPPD.mdb;Persist Security Info=False"
Set rspegawai = New ADODB.Recordset
rspegawai.CursorLocation = adUseClient
rspegawai.Open "select * from TBPEGAWAI ", penghubung, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rspegawai

4.    Masih dalam form Load (), memasukan nilai(value) yang nantinya akan menjadi nilai / pilihan dari masing-masing combo box yang ada :
Combo box Jenis Kelamin :
CMB_JENISKELAMIN.AddItem "Laki-laki"
CMB_JENISKELAMIN.AddItem "Perempuan"
Combo box Status :
CMB_STATUS.AddItem "Menikah"
CMB_STATUS.AddItem "Belum Menikah"
Combo box Jabatan :
CMB_JABATAN.AddItem "Kepala Desa"
CMB_JABATAN.AddItem "Sekretaris Desa"
CMB_JABATAN.AddItem "Kepala Dusun I"
CMB_JABATAN.AddItem "Kepala Dusun II"
CMB_JABATAN.AddItem "Kepala Dusun III"
CMB_JABATAN.AddItem "Kasi Pemerintahan"
CMB_JABATAN.AddItem "Kasi Pembangunan"
CMB_JABATAN.AddItem "Kasi Kesra"
CMB_JABATAN.AddItem "Kaur Umum"
CMB_JABATAN.AddItem "Kaur Keuangan"

5.    Mengisikan coding pada Cmb_Input :
proses = "INPUT"
Call TEXTBOX_TRUE
Call KOSONGKAN
Call EVENINPUT
TXT_KODEPEGAWAI.SetFocus

6.    Menulis Coding pada cmb_Batal :
Call KOSONGKAN
Call EVENBATAL
Call TEXTBOX_FALSE
CMD_INPUT.SetFocus

7.    Menulis coding pada cmb_keluar :
End

8.    Menulis Coding pada cmd_simpan :
If proses = "INPUT" Then
    penghubung.Execute "insert into tbpegawai (KODEPEGAWAI, NAMAPEGAWAI, TANGGALLAHIR, JENISKELAMIN, STATUS, ALAMAT, JABATAN)" & _
    " VALUES ('" & TXT_KODEPEGAWAI.Text & "','" & TXT_NAMAPEGAWAI.Text & "', #" & DTPicker1.Value & "#, '" & CMB_JENISKELAMIN.Text & "', '" & CMB_STATUS.Text & "', '" & TXT_ALAMAT.Text & "', '" & CMB_JABATAN.Text & "' )"
    rspegawai.Requery
    MsgBox "Data Telah Tersimpan"
    Call KOSONGKAN
    Call EVENSIMPAN
    Call TEXTBOX_FALSE
    Else
    penghubung.Execute "update tbpegawai set KODEPEGAWAI='" & TXT_KODEPEGAWAI.Text & "', NAMAPEGAWAI='" & TXT_NAMAPEGAWAI.Text & "', TANGGALLAHIR= #" & DTPicker1.Value & "#, JENISKELAMIN='" & CMB_JENISKELAMIN.Text & "', STATUS='" & CMB_STATUS.Text & "', ALAMAT='" & TXT_ALAMAT.Text & "', JABATAN= '" & CMB_JABATAN.Text & "' where KODEPEGAWAI='" & xxx & "' "
    rspegawai.Requery
    MsgBox "Data Telah Diperbaharui"
    Call KOSONGKAN
    Call EVENSIMPAN
    Call TEXTBOX_FALSE
    CMD_INPUT.SetFocus
End If

9.    Menulis coding pada cmd_cari :
xxx = InputBox("Masukan Kode Pegawai yang dicari :", "Cari")
Set rscari = New ADODB.Recordset
rscari.Open "select * from TBPEGAWAI where KODEPEGAWAI='" + xxx + "' ", penghubung, adOpenDynamic, adLockOptimistic
If rscari.EOF Then
    MsgBox "Data Tidak ditemukan"
    Call EVENSIMPAN
    CMD_CARI.SetFocus
Else
    Call TEXTBOX_FALSE
    Call TAMPILKAN
    Call EVENCARI
    CMD_UBAH.SetFocus
End If

10. Menulis coding pada cmd_ubah :
proses = "UBAH"
xxx = InputBox("Masukan Kode Pegawai yang dicari :", "Ubah Data")
Set rscari = New ADODB.Recordset
rscari.Open "select * from TBPEGAWAI where KODEPEGAWAI='" & xxx & "' ", penghubung, adOpenDynamic, adLockOptimistic
If rscari.EOF Then
    MsgBox "Data Tidak ditemukan"
    Call KOSONGKAN
    Call TEXTBOX_FALSE
    Call EVENSIMPAN
    CMD_UBAH.SetFocus
Else
    Call TAMPILKAN
    Call TEXTBOX_TRUE
    Call EVENUBAH
    CMD_SIMPAN.SetFocus
End If

11. Menulis coding pada cmd_hapus :
xxx = InputBox("Masukan Kode Pegawai yang diHapus :", "Hapus Data")
Set rscari = New ADODB.Recordset
rscari.Open "select * from TBPEGAWAI where KODEPEGAWAI='" + xxx + "' ", penghubung, adOpenDynamic, adLockOptimistic
If rscari.EOF Then
    MsgBox "Data Tidak ditemukan"
    Call EVENSIMPAN
    CMD_HAPUS.SetFocus
Else
    Call TAMPILKAN
    tanya = MsgBox("Yakin Data Ini akan Dihapus?", vbQuestion + vbYesNo, "Konfirmasi")
    If tanya = 6 Then
        penghubung.Execute "delete from TBPEGAWAI where KODEPEGAWAI='" & xxx & "' "
    rspegawai.Requery
    Call KOSONGKAN
    Call EVENHAPUS
    End If
End If

  1. Evaluasi terhadap program yang telah dibuat
Di Run jika masih ada kekurangan dan eror (bug), maka harus diperbaiki dan disempurnakan.
  1. Penyajian program.
  2. Selesai.
Catatan :
Dalam contoh program yang saya buat ini, terdiri dari dua form, form pegawai dan form SPPD. Namun, dalam tugas ini saya hanya membuat alur program dan flowchartnya secara detail hanya pada form pegawai. Adapun FLOWCHART dari program pengisian formulir SPPD ini kuranglebihnya sebagai berikut :

Untuk projectnya, silahkan Download disini. Mohon Maaf jika masih banyak kekurangan dan dan mungkin kesalahan. u

0 komentar:

Posting Komentar

 
Design by Wordpress Theme | Bloggerized by Free Blogger Templates | Best Buy Printable Coupons