Pada kesempatan kali ini saya akan mencoba untuk membuat database tentang SAHAM
Langkah pertama yang dilakukan adalah membuka Microsoft Visual Basic kalau saya menggunakan Versi 6.0
Lalu ketika anda telah membuka Microsoft Visual Basic akan muncul tampilan seperti dibawah ini :
Klik Open, lalu akan muncul sebuah Form seperti tampilan dibawah ini :
lalu jika anda ingin membuat seperti gambar pertama di atas anda perlu menambah kan Label, Text Box, Command Button, Data Grid, dan Data Bound Grid ...
setelah anda selesai membuat persis seperti gambar di atas, pertama-tama anda harus membuat data base nya terlebih dahulu, kalau saya menggunakan Microsoft Acces 2007.
Baik, mari kita bersama-sama membuat Database menggunakan VB, langkah awal yang dilakukan adalah Klik Tombol "Add-Ins" pada VB, tempatnya ada di bagian kanan dari "Tools" lalu klik "Visual Data Manager"
Setelah anda meng-klik tombol "Visual Data Manager", tampilan berikutnya yang akan muncul adalah "Vis Data" seperti ini :
Kita akan membuat Database melalui Vis Data seperti pada gambar diatas, pertama : klik File→New→Microsoft Acces→Version 7.0 MDB. jikalau kiranya anda masih bingung, saya akan menampilkannya secara Visual :
Sudah tidak bingung lagi kan ?
lalu setelah anda mengikuti langkah diatas, buatlah nama untuk database anda contoh "saham"
lalu Vis Data akan menampilkan gambar seperti dibawah ini :
jika sudah, Buat tabel baru seperti gambar diatas...
jika sudah maka nanti akan muncul tabel structure seperti ini
baiklah pertama yang harus anda lakukan pada table structure adalah membuat nama tabel, lalu setelah anda selesai membuat nama tabel, klik "Add Field" lalu akan muncul seperti gambar dibawah ini
setting sesuai seperti apa yang anda inginkan, jika sudah selesai menyeting, klik "ok", jika sudah selesai membuat field klik "Close". dan setelah itu kita akan kembali lagi kepada table structure, klik "Build The Table" pada bagian kiri bawah, dibawah tombol "Add Index"
lalu setelah anda meng-klik tombol "Build the table" akan muncul tampilan seperti ini
klik kanan pada tabel "saham"→klik "Open"→isikan tabel pada saham sesuai seperti yang anda inginkan, ingat database ini berhubungan erat dengan VB yang sudah kita buat tadi, jadi kalau bisa harus sama isinya.
baiklah kita langsung kembali ke VB tadi ya
☺untuk text box→properties→name ganti jadi TxtNik, TxtNama, DSB.
☻lalu untuk Command Button→ubah nama command(TOP) menjadi CmdTop, DSB
☺untuk data Grid→ubah namanya menjadi "DTSAHAM"→Caption "DTSAHAM"→Database name kita ambil dari database yang sudah kita buat sebelumnya.
☻kemudian untuk data bound Grid kita ubah namanya menjadi "DBGrid1"→Data Source kita isi dengan yang sudah ada, yaitu "DTSAHAM"
setelah selesai, copy dan paste code dibawah ini ke VB yang sudah anda buat
berikut dibawah ini codenya :
Sub bersih()
TxtNik = ""
TxtNama = ""
TxtNoKtp = ""
TxtKel = ""
TxtAlamat = ""
TxtNoHp = ""
TxtEmail = ""
TxtNoSaham = ""
TxtLembar = ""
TxtNilai = ""
DBGrid1.Refresh
End Sub
Private Sub CmdBottom_Click()
DTSAHAM.Recordset.MoveLast
MsgBox "Sudah Di Akhir Record", , "Info"
End Sub
Private Sub CmdDelete_Click()
DTSAHAM.Recordset.Delete
End Sub
Private Sub CmdOut_Click()
End
End Sub
Private Sub CmdNext_Click()
With DTSAHAM.Recordset
.MoveNext
If .EOF Then
MsgBox "Sudah Akhir Record", , "Info"
.MoveLast
End If
End With
End Sub
Private Sub CmdPrevious_Click()
DTSAHAM.Recordset.MovePrevious
If DTSAHAM.Recordset.BOF Then
MsgBox "Sudah Awal Record", , "Info"
DTSAHAM.Recordset.MoveFirst
End If
End Sub
Private Sub CmdSave_Click()
DTSAHAM.Recordset.Update
bersih
CmdSave.Enabled = False
End Sub
Private Sub CmdNew_Click()
CmdSave.Enabled = True
DTSAHAM.Recordset.AddNew
bersih
TxtNama.SetFocus
End Sub
Private Sub CmdTop_Click()
DTSAHAM.Recordset.MoveFirst
MsgBox "Sudah Di Awal Record", , "Info"
End Sub
Private Sub Command1_Click()
DTSAHAM.Recordset.Edit
TxtNik.Text = ""
TxtNama.Text = ""
TxtNoKtp.Text = ""
TxtKel.Text = ""
TxtAlamat.Text = ""
TxtNoHp.Text = ""
TxtEmail.Text = ""
TxtNoSaham.Text = ""
TxtLembar.Text = ""
TxtNilai.Text = ""
CmdSave.Enabled = True
End Sub
mohon dimaklumi jika ada kesalahan/kekurangan, toh saya juga masih belajar dan belum pintar ...
