Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0

Penggunaan DTPicker Dan Combo Box Pada Program Simpan Edit Delete Dengan Visual Basic 6.0 |  Kali ini kita akan melanjutkan lagi tutorial pemrograman Visual Basic 6.0. Tidak terlalu berbeda dengan program simpan, edit dan delete yang sebelumnya, kali ini kita akan mencoba menggunakan DTPicker (kalender) dan Combo Box pada pembuatan program.

Kita akan sedikit memodifikasi form, script dan database dari program sebelumnya. Buat sobat yang belum mengikuti tutorial yang lalu, sobat bisa membaca posting saya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0.

Pertama-tama sobat buat sebuah database dengan Microsoft Office Access 2003 dan beri nama database tersebut "latihan.mdb". Kemudian buat sebuah tabel dengan nama "tbbelajar", kemudian simpan pada sebuah folder dan untuk disain file/tabel bisa sobat lihat pada gambar dibawah ini :

Jika sobat pengguna Miccrosoft Office versi 2003 keatas, pada saat pembuatan database, simpanlah dengan format 2003 (*.mdb), karena ekstensi untuk 2003 dan 2007 keatas berbeda. cara pembuatan database dengan Microsoft Office Access 2003 bisa sobat lihat pada posting saya yang berjudul Cara Membuat Database Dengan Microsoft Office Access 2003.

Setelah itu buatlah disain form seperti gambar dibawah ini :

Sebelumnya, atur settingan pada DTPicker, dengan cara :

• Klik kanan pada DTPicker yang berada di Form kemudian pilih Properties.

• Pada pilihan Format, pilihlah 3 - dtpCostum, dan pada kotak Costum Format isi dengan : dd-MMMM-yyyy kemudian klik OK. seperti pada gambar berikut :

Setelah itu tambahkan sebuah Module koneksi pada project yang sedang kita buat. Cara pembuatan modul bisa sobat lihat pada tutorial saya yang sebelumnya. Kemudian masukkan script berikut di modul tersebut :

Global conn As ADODB.Connection Global rssiswa As ADODB.Recordset Sub koneksi() On Error GoTo gagal: Set conn = New ADODB.Connection conn.Provider = "microsoft.jet.oledb.4.0" conn.CursorLocation = adUseClient conn.Open App.Path & "\latihan.mdb" Exit Sub gagal: If (Err.Number = -2147467259) Then MsgBox "Koneksi Aplikasi Ke Database Gagal...!", vbCritical, "Informasi" End End If End Sub

Jika sudah, kembali pada form yang kita buat tadi, duoble klik pada form kemudian masukkan script berikut tepat diantara Private Sub Form_Load() dengan End Sub :

koneksi Combo1.AddItem "L" Combo1.AddItem "P"

Selanjutnya buat sebuah program Bersih Form yang berguna untuk mengembalikan kondisi form pada kondisi normal. Caranya masukkan script berikut di bawah script Form_Load yang tadi kita buat :

Private Sub kosongform() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Combo1.Text = "" Text1.Enabled = True Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False End Sub

Sekarang kita akan membuat tombol "Simpan", caranya double klik pada tombol "Simpan" dan masukkan script berikut tepat diantara Private Sub Command1_Click() dengan End Sub :

Dim X If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Combo1.Text = "" Then MsgBox "Data Belum Lengkap", vbInformation, "Pesan" Exit Sub Else X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo) If X = vbYes Then Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "SELECT * FROM tbbelajar", conn, , , adCmdText rssiswa.AddNew rssiswa.Fields(0) = Text1.Text rssiswa.Fields(1) = Text2.Text rssiswa.Fields(2) = Text3.Text rssiswa.Fields(3) = DTPicker1.Value rssiswa.Fields(4) = Combo1.Text rssiswa.Fields(5) = Text4.Text rssiswa.Fields(6) = Text5.Text rssiswa.Update MsgBox "Data Tersimpan...!", vbInformation, "Pesan" kosongform Else Exit Sub End If End If

Sebelum membuat tombol "Edit" dan "Delete", kita harus membuat program pemanggilan data berdasarkan "NIS". Caranya duoble klik pada Text1, kemudian pilih Procedure KeyPress. Untuk lebih jelasnya sobat bisa lihat pada tutorial sebelumnya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Kemudian masukkan script berikut tepat diantara Private Sub Text1_KeyPress(KeyAscii As Integer) dengan End Sub :

If KeyAscii = 13 Then Set rssiswa = New ADODB.Recordset rssiswa.LockType = adLockOptimistic rssiswa.CursorType = adOpenDynamic rssiswa.Open "select * from tbbelajar", conn, , , adCmdText rssiswa.Filter = " nis= '" & Text1.Text & "'" If Not rssiswa.EOF Then Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Text1.Enabled = False Text2.Text = rssiswa.Fields(1) Text3.Text = rssiswa.Fields(2) DTPicker1.Value = rssiswa.Fields(3) Combo1.Text = rssiswa.Fields(4) Text4.Text = rssiswa.Fields(5) Text5.Text = rssiswa.Fields(6) End If End If

Setelah itu, kita buat tombol "Edit" dengan cara duoble klik ada tombol "Edit" dan masukkan script berikut ini tepat diantara Private Sub Command2_Click() dengan End Sub :

Dim a a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan") If a = vbYes Then rssiswa.Fields(1) = Text2.Text rssiswa.Fields(2) = Text3.Text rssiswa.Fields(3) = DTPicker1.Value rssiswa.Fields(4) = Combo1.Text rssiswa.Fields(5) = Text4.Text rssiswa.Fields(6) = Text5.Text rssiswa.Update MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info" kosongform Text1.SetFocus Else Exit Sub End If

Selanjutnya, kita buat tombol "Delete", dengan cara duoble klik pada tombol "Delete" dan masukkan script berikut tepat diantara Private Sub Command3_Click() dengan End Sub :

Dim Y Y = MsgBox("Apakah Data Ingin Dihapus..?", vbQuestion + vbYesNo) If Y = vbYes Then rssiswa.Delete MsgBox "Data Berhasil Dihapus..!!", vbInformation, "info" kosongform Text1.SetFocus Else Exit Sub End If

Untuk tombol "Keluar", duoble klik pada tombol "Keluar" dan masukkan script berikut tepat diantara Private Sub Command4_Click() dengan End Sub :

Dim X X = MsgBox("Apakah Anda Ingin Keluar..?", vbQuestion + vbYesNo, App.Title) If X = vbYes Then Unload Me Else Cancel = 1 End If

Communitas IT Bangil

Tulisan By Munirmaestro

Selamat datang Di Blog Saya,Mohon LIKE atau Follow agar saling Kenal...Terimah kasih