Cara Membuat Program Browse Dan Simpan Foto Dengan Visual Basic 6.0

Pada dua posting sebelumnya kita sudah membahas bagaimana cara membuat database dengan Microsoft Office Access 2003 dan mencoba menerapkannya dalam pembuatan sebuah aplikasi berbasis Visual Basic 6.0.

Pada posting kali ini kita akan mencoba mengembangkan program yang pernah kita buat sebelumnya dengan menambahkan fitur browse dan menyimpan foto. untuk lebih jelasnya sobat bisa buka kembali posting saya yang berjudul Cara Membuat Program Simpan Edit Dan Delete Dengan Visual Basic 6.0. Karena program dari form tersebutlah yang akan kita modifikasi.

Sebelumnya tambahkan satu buah field pada tabel "tmhs" yang kita buat pada posting saya yang berjudul Cara Membuat Database Dengan Microsoft Office Access 2003, seperti gambar berikut ini :

Jika sudah, modifikasi disain form sebelumnya seperti penjelasan gambar dibawah ini :

Sebelumnya

Edit tampilan form diatas dengan menambahkan beberapa tools, pada Label9 aturlah Visible nya menjadi False dan pada Image1 atur pilihan Stretch menjadi True melalui properties box yang berada disebelah kanan. Sehingga hasilnya seperti dibawah ini :

Sesudah Dimodifikasi

Sekarang kita akan memodifikasi script yang pernah kita buat sebelumnya, pertama kita akan membuat tombol Browse, caranya double klik pada tombol Browse dan masukkan script berikut tepat diantara Private Sub Command5_Click() dengan End Sub 

CommonDialog1.Filter = "Picture files (*.jpg;*.bmp;*.gif;*.png)|*.jpg;*.bmp;*.gif;*.png" CommonDialog1.ShowOpen Image1.Picture = LoadPicture(CommonDialog1.FileName) Label9.Visible = False Image1.Visible = True

Kemudian kita ubah script pada tombol Simpan, caranya double klik pada tombol Simpan kemudian ganti script sebelumnya yang berada antara Private Sub Command1_Click() dan End Sub dengan script berikut ini :

Dim X If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "Data Belum Lengkap", vbInformation, "Pesan" Exit Sub Else X = MsgBox("Apakah Data Ingin Disimpan...?", vbQuestion + vbYesNo) If X = vbYes Then Set rsmhs = New ADODB.Recordset rsmhs.LockType = adLockOptimistic rsmhs.CursorType = adOpenDynamic rsmhs.Open "SELECT * FROM tmhs", conn, , , adCmdText rsmhs.AddNew rsmhs.Fields(0) = Text1.Text rsmhs.Fields(1) = Text2.Text rsmhs.Fields(2) = Text3.Text rsmhs.Fields(3) = Text4.Text rsmhs.Fields(4) = Text5.Text rsmhs.Fields(5) = Text6.Text rsmhs.Fields(6) = Text7.Text rsmhs.Fields(7) = CommonDialog1.FileName rsmhs.Update MsgBox "Data Tersimpan...!", vbInformation, "Pesan" kosongform Image1.Visible = False Label9.Visible = True Else Exit Sub End If End If

Mudah bukan...??
Bagaimana dengan tombol Edit dan Delete....??

Untuk tombol Delete, tidak ada perubahan script yang harus dilakukan, hanya sedikit penambahan script pada tombol Edit, supaya tutorial ini makin lengkap kita bahas juga tombol Editnya.

Sebelumnya kita harus ubah terlebih dahulu script pada Text1_KeyPress, caranya double klik pada Text1 kemudian ganti script yang berada diantara Private Sub Text1_KeyPress(KeyAscii As Integer) dan End Sub dengan script dibawah ini :

If KeyAscii = 13 Then Set rsmhs = New ADODB.Recordset rsmhs.LockType = adLockOptimistic rsmhs.CursorType = adOpenDynamic rsmhs.Open "select * from tmhs", conn, , , adCmdText rsmhs.Filter = " nim= '" & Text1.Text & "'" If Not rsmhs.EOF Then Command1.Enabled = False Command2.Enabled = True Command3.Enabled = True Image1.Visible = True Text1.Enabled = False Text2.Text = rsmhs.Fields(1) Text3.Text = rsmhs.Fields(2) Text4.Text = rsmhs.Fields(3) Text5.Text = rsmhs.Fields(4) Text6.Text = rsmhs.Fields(5) Text7.Text = rsmhs.Fields(6) CommonDialog1.FileName = rsmhs.Fields(7) Image1.Picture = LoadPicture(CommonDialog1.FileName) If CommonDialog1.FileName = "" Then Label9.Visible = True Else Label9.Visible = False End If End If End If

Yang terakhir kita ubah script tombol Edit, caranya duoble klik pada tombol Edit, kemudian ganti script yang berada diantara Private Sub Command2_Click() dan End Sub dengan script dibawah ini :

Dim a a = MsgBox("Edit Data...?", vbQuestion + vbYesNo, "Pesan") If a = vbYes Then rsmhs.Fields(1) = Text2.Text rsmhs.Fields(2) = Text3.Text rsmhs.Fields(3) = Text4.Text rsmhs.Fields(4) = Text5.Text rsmhs.Fields(5) = Text6.Text rsmhs.Fields(6) = Text7.Text rsmhs.Fields(7) = CommonDialog1.FileName rsmhs.Update MsgBox "Data Berhasil Di Edit..!!", vbInformation, "Info" kosongform Text1.SetFocus Image1.Visible = False Label9.Visible = True Else Exit Sub End If

Jika dijalankan maka tampilan program akan menjadi seperti berikut ini :

Kalo sobat males, silakan download projectnya disini (Download Project) Atau download via mediafire (Download Project).

Sekian dulu toturial Visual Basic 6.0 dari saya yang berjudul Cara Membuat Program Browse Dan Simpan Foto Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat....