Sharing With Passion

September 26, 2010

Posted by Sabar Santoso in , | September 26, 2010 1 comment
Pada postingan terdahulu saya pernah menulis tentang koneksi ODBC untuk menghubungkan database ke Bahasa Pemrograman Visual Basic, dan disana sudah jelas disebutkan langkahnya satu persatu. Nah pada postingan kali ini saya akan mencoba untuk membuat sebuah Database Microsoft Access yang akan digunakan oleh Visual Basic. Karena hingga saat ini masih ada beberapa teman SMK yang belum mengerti tentang pembuatan Database Ms Access, dan mudah-mudahan tulisan ini bisa membantu, berikut langkah-langkahnya :
1. Buka Microsoft Visual Basic.
2. Pilih Add Ins pada menu bar.
3. Pilih Visual Data Manager.
4. Maka akan muncul Windows baru yaitu : VisData seperti pada gambar di bawah ini :













5. Kemudian Pilih File -> New -> Microsoft Access -> Version 2.0 MDB

6. Masukkan nama database yang akan kita buat.

7. Pilih Save.

8. Setelah itu maka akan muncul tampilan gambar seperti di bawah ini :










9. Klik Kanan pada halaman kosong Database Windows, kemudian pilih buat tabel / new table.
10. Kemudian isikan Field, Type dan Size. Sampai disini maka kita sudah membuat database kosong yang akan kita isi pada Microsoft Visual Basic
Dibawah ini adalah salah satu contoh script penggunaan database Ms Access pada Visual Basic :










Sub nonaktif()

txtkode.Enabled = False
txtnama.Enabled = False
txtspes.Enabled = False
txtalamat.Enabled = False
txttelp.Enabled = False
End Sub
Sub bersih()
txtkode.Text = ""
txtnama.Text = ""
txtspes.Text = ""
txtalamat.Text = ""
txttelp.Text = ""
End Sub
Sub aktif()
txtkode.Enabled = True
txtnama.Enabled = True
txtspes.Enabled = True
txtalamat.Enabled = True
txttelp.Enabled = True
End Sub
Private Sub cmdadd_Click()
Aktif
bersih
cmdadd.Enabled = False
cmdsave.Enabled = True
cmdbatal.Enabled = True
txtkode.SetFocus
End Sub
Private Sub cmdbatal_Click()
bersih
nonaktif
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdbatal.Enabled = False
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdfirst_Click()
With Data1.Recordset
.MoveFirst
MsgBox "Anda Diawal Record"
End With
End Sub
Private Sub cmdlast_Click()
With Data1.Recordset
.MoveLast
MsgBox "Anda Diakhir Record"
End With
End Sub
Private Sub cmdnext_Click()
With Data1.Recordset
.MoveNext
If .EOF Then
MsgBox "Anda Diakhir Record"
.MoveLast
End If
End With
End Sub
Private Sub cmdprev_Click()
With Data1.Recordset
.MovePrevious
If .BOF Then
MsgBox "Anda Diawal Record"
.MoveFirst
End If
End With
End Sub
Private Sub cmdsave_Click()
With Data1.Recordset
.AddNew
!kode = txtkode.Text
!nama = txtnama.Text
!spesialis = txtspes.Text
!alamat = txtalamat.Text
!telepon = txttelp.Text
.Update
End With
MsgBox "Data berhasil Disimpan"
bersih
End Sub
Private Sub Form_Load()
bersih
nonaktif
cmdsave.Enabled = False
cmdbatal.Enabled = False
End

September 22, 2010

Posted by Sabar Santoso in , | September 22, 2010 No comments
Buat siswa-siswa SMK yang baru belajar VB, Ini nih.. ada materi bagus... Cara praktis bikin menu VB dengan MDI Form.... dari Putra Qincay (blogspot.com)
Mudah-mudahan bermanfaat....

Membuat menu menggunakan MDIForm ternyata bisa dibilang mudah dan bisa juga dibilang susah. Kalau menurut Putra yang masih tahap belajar ini, membuatnya sangat Susah teman!Hahaha... Namun waktu demi waktu berlalu. Kesusahan itu tidak lagi saya rasakan. Melainkan keinginan untuk membuat lebih bagus lagi. Upz... Maaf tema kita udah diluar jalur. Langsung saja kita praktekin ya... Seperti biasa buka Aplikasi VB 6.0. Setelah Aplikasi dibuka, Kita akan dihadapin oleh kotak New Project dimana didalamnya ada berbagai pilihan, seperti : Standard Exe, ActiveX Exe, ActiveX DLL, dan sebagainya. Kamu pilih seperti biasa Standard Exe terlebih dahulu. Setelah itu, pada Proyek Form istilahnya yang berada pada kanan atas VB 6.0 kamu. Susah jelasinnya... Dikasih gambar mungkin kita bisa tau. kurang lebih gambarnya seperti ini:

Pada Proyek Form tersebut kamu klik kanan dan kamu pilih seperti gambar lagi :

Seperti yang kita lihat warna biru terakhir tampilan dikanan kamu klik (MDIForm). Setelah tampil MDIForm, pada Menu Bar klik Tools, kamu pilih Menu Editor... atau bisa juga dengan Menekan Ctrl+E dan kurang lebih tampilannya seperti ini jika sudah di isi Menu-menu.


Keterangan Gambar :
*Caption : Berfungsi untuk menampilkan teks yang ditulis
*Name : Sebagai Identitas dari teks Menu yang kita bikin.
Sedangkan untuk Menambah Menu yang ingin dibikin, kamu tinggal klik Next pada Menu Editor. Contoh :
&File
Next
&Edit
Next
&View
dan seterusnya... Sesuai dengan Menu yang ingin kamu bikin. Jika di Klik Ok, maka akan tampil seperti ini :

Seperti yang kita lihat, Menu diatas hanya menampilkan menu secara Vertikal. Bagaiman cara membikin Menu tersebut dalam bentuk Drop Down atau didalam Menu tersebut terdapat Menu lain. seperti ini :


Gimana caranya ya?...
Sekarang coba kamu lihat tampilan dibawah ini :

Seperti yang kita lihat diatas, terdapat tambahan 3 Menu. Caranya, Kamu Klik &Edit, terus kamu klik Insert dan ketik Caption dan Name seperti contoh Caption : &Open dan Name : Mn_Open. Kenapa kita harus menklik Menu &Edit? Bukannya menklik langsung Menu &File? Alasananya cukup sederhana, yaitu jika kita klik insert pada Menu &File, maka menu akan tampil diatas &File. Bukannya dibawah &File.
Setelah Insert diklik, Caption dan Namenya sudah dibikin, kamu klik Tombol panah seperti dibawah ini :
Maka akan tampil .... dan tulisan yang masuk ke dalam. Untuk Menambah &Save dan &Save As... Caranya sama seperti yang diatas. Kamu hanya tinggal menklik Menu dibawahnya (&Edit), Insert, Ketik Caption dan Menu, Tanda Panah dan selanjutnya ok. Selesai... Selamat Mencoba teman!!!..

Search

Bookmark Us

Delicious Digg Facebook Favorites More Stumbleupon Twitter