Thursday, 4 February 2016
1. Menggunakan Visual Data
Manager (untuk membuat database)
Misalnya membuat
database dan tabel sbb :
Nama database :
datasiswa
Nama tabel :
tsiswa
Field
|
Type
|
Size
|
NPM
|
Text
|
7
|
Nama
|
Text
|
30
|
Prodi
|
Text
|
2
|
Pilih menu
Add-Ins – Visual Data Manager.
Setelah masuk ke
VisData, pilih File – New – Microsoft Access – Version 7.0 MDB
Ketikkan nama
databasenya yaitu datasiswa dan klik Save.
Selanjutnya
adalah proses pembuatan tabel.
Pada properties
– Klik kanan – New Table
Ketikkan nama
tabelnya pada Table Name yaitu tsiswa
Klik add field
isikan name, type dan sizenya seperti pada
gambar.
Klik OK
isikan lagi name, type dan sizenya seperti
pada gambar.
Klik OK
isikan lagi name, type dan sizenya seperti
pada gambar.
Klik OK, Close,
Klik Build The Table
Keluar dari
visdata, kembali ke VB dan rancanglah form sbb :
Pengaturan
properti :
OBJECT
|
PROPERTIES
|
ISI
|
Data1
|
DatabaseName
|
Klik … pilih datasiswa klik Open
|
RecordSource
|
tsiswa
|
|
Label1
|
Caption
|
NPM
|
Label2
|
Caption
|
Nama
|
Label3
|
Caption
|
Program Studi
|
Text1
|
DataSource
|
Data1
|
DataField
|
NPM
|
|
Text2
|
DataSource
|
Data1
|
DataField
|
Nama
|
|
Combo1
|
DataSource
|
Data1
|
DataField
|
Prodi
|
|
List
|
TI
MI
|
|
Command1
|
Caption
|
Tambah
|
Kode program – klik 2x
|
Data1.Recordset.AddNew
|
|
Command2
|
Caption
|
Simpan
|
Kode program – klik 2x
|
Data1.Recordset.Update
|
|
MSFlexGrid1
|
DataSource
|
Data1
|
Jalankan……
Klik Tambah, isikan NPM, Nama dan Prodi kemudian klik Simpan.
2.
Button Navigasi
Digunakan untuk
mengoperasikan database.
Tambah : Data1.Recordset.AddNew
Simpan : Data1.Recordset.Update
Edit : Data1.Recordset.Edit
Batal : Data1.Recordset.Cancel
Hapus : Data1.Recordset.Delete
Refresh : Data1.Refresh
Keluar : End
3.
Validasi Pada Button Navigasi
Digunakan untuk
mencegah user melakukan kesalahan.
Contoh :
-
Pada saat aplikasi dijalankan,
semua komponen dalam keadaan non-aktif kecuali tombol tambah.
-
Caranya : setting properti
Enable menjadi False
-
Dan ketika diklik tombol
tambah, semua komponen aktif kecuali tombol tambah, dan kursor langsung
setfocus ke Text1.
-
Caranya : pada tombol tambah
diberikan kode program :
Data1.Recordset.AddNew
Text1.Enabled =
True
Text2.Enabled =
True
Combo1.Enabled =
True
Text1.SetFocus
Command2.Enabled
= True
4.
Event OnKeyPress
Terjadi pada
saat menekan tombol keyboard, misalnya :
ketika kursor
ada di komponen Text1 kemudian ditekan enter maka kursornya pindah ke Text2.
Caranya : klik
2x Text1, ubah event Change menjadi KeyPress. Masukkan kode programnya.
Private Sub
Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
5.
Pencarian Data
Tambahkan Text3,
Text4 dan Text5 untuk pencarian NPM, Nama dan Program Studi.
Tambahkan 3
CommandButton.
Pencarian NPM :
Private Sub
Command7_Click()
Dim
cari As String
cari
= Text3.Text
Data1.Recordset.FindFirst
("npm='"& cari &"'")
End Sub
Setelah dijalankan :
Sekian dulu Tutorial dari saya, semoga bermanfaat.
