modul VB

Modul VB II

Koneksi dengan data environment

(oleh : hendy krisnanto)

email : i_hendyplus@yahoo.com; blog: hendykrisnanto.wordpress.com

Data environment merupakan salah satu tool yang biasa dipakai untuk menghubungkan form visual basic dengan data base berikut adalah contoh latihanvb  yang bisa dipraktikkan :

1. membuat database dan tabel ( langkah-langkah ada di modul 1)

Buatlah sebuah database dengan visual data manager dengan nama : DB_MHS Buatlah sebuah tabel dalam DB_MHS dengan nama: TB_MHS , dg struktur sbb:

Field	Type	size
Nim	Text	10
Nama	Text	25
Alamat	Text	25

Tabel 2.1 struktur tb_mhs

2. membuat data environment Lakukan langkah-langkah sbb :

• klik kanan pada tempat kosong dalam toolbox, kemudian pilih component

Gambar 2.1 menambah data environment ke list

• setelah components dipilih, selanjutnya akan muncul jendela baru sbb :
• pilih tab designer, kemudian beri tanda(check) pada data environment
• kemudian OK (lihat gambar dibawah ini)

Gambar 2.2 memilih check data environment

• langkah selanjutnya adalah, pilih tab project kemudian pilih add data environment(lihat gambar dibawah ini)

Gambar 2.3 membuat data environment

• Berikutnya ini adalah langkah-langkah untuk setting koneksi data environment

Setelah langkah sebelumnya dilakukan, maka akan muncul sebuah jendela baru seperti gambar dibawah ini, klik kanan pada connection1, kemudian pilih properties

Gambar 2.4 setting koneksi

• Kemudian pilih MICROSOFT JET 4.0 OLEDB PROVIDER, lihat gambar dibawah ini
• Ket : microsoft jet 4.0 dipilih karena inilah kebutuhan koneksi database acces

Gambar 2.5 provider koneksi

Next>> dan lakukan langkah-langkah untuk memilih database dan lakukan test connection (lihat gambar)

Gambar 2.6 setting database.

Setelah sukses, tekan Ok.

Selanjutnya ubah nama connection1 menjadi conn_mhs dengan klik kanan pada connection1 kemudian rename(lihat gambar dibawah)

Gambar 2.7 rename connection.

Berikutnya klik kanan pada conn_mhs kemudian pilih add command (tampilan akan menjadi berikut digambar)

Gambar 2.8 menambahkan command

• Selanjutnya klik kanan pada command1 kemudian pilih properties

Kemudian akan muncul jendela baru seperti gambar dibawah ini, isikan mhs pada command name, dan pilih conn_mhs pada connection, pilih table pada data base object, kemudian pilih tb_mhs pada object name

Gambar 2.9 properties command tbmhs.

Selanjutnya pindah ke tab advance Pada locktype pilih 3-optimistic, kemudian tekan ok (lihat gambar dibawah ini)

Gambar 2.10 setting lock type 3.

buat form dalam visual basic,langkahnya tampilkan data environtment designer dengan melakukan double klik pada project

Gambar 2.11 tampilkan data environmet designer

Tarik semua isi mhs kedalam form kosong

Gambar 2.12 drag mhs ke form

Hasilnya adalah label dan text sbb (setelah ditambahkan button dan datagrid) :

Gambar 2.13 tampilan form Atur property sbb :

Kontrol	Properti	Nilai
Label1	Caption	Nim
Label2	Caption	Nama
Label3	Caption	alamat
Text1	nameTextDatasource Data member Data field	Txttnim<Kosong>DataEnvironment1 Mhs nim
Text2	nameTextDatasource Data member Data field	Txtnama<Kosong>DataEnvironment1 Mhs nama
Text3	NameTextDatasource Data member Data field	Txtalamat<Kosong>DataEnvironment1 Mhs alamat
Datagrid1(bukan dbgrid)	Datasourcedatamember	Dataenvironment1<dipilih>mhs<dipilih>
Command1	Namecaption	Cmdtambah&tambah
Command2	Namecaption	cmdsimpan&simpan
Command3	Namecaption	cmdhapus&hapus
Command4	Namecaption	cmdcari&cari
Command5	Namecaption	cmdkeluar&keluar

Tabel 2.2 setting property form mhs Isi sintaks sbb:

Private Sub cmdbersih_Click()

DataEnvironment1.rsmhs.AddNew

End Sub

Private Sub cmdcari_Click()

MNAMA = InputBox(”Ketik nim”)

DataEnvironment1.rsmhs.movefirst

DataEnvironment1.rsmhs.Find “Nim=’” + MNAMA + “‘”

If DataEnvironment1.rsmhs.EOF Then

MsgBox “DATA TIDAK DITEMUKAN”

End If

End Sub

Private Sub cmdhapus_Click()

DataEnvironment1.rsmhs.Delete

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdsimpan_Click()

DataEnvironment1.rsmhs.Update

End Sub

langkah berikunya adalah membuat tabel baru dg nama tb_kul dalam db_mhs dengan struktur sbb :

Field	Type	size
Nim	Text	10
Kd_kul	Text	10
Nm_kul	Text	25
Sks	Text	2

Tabel 2.3 struktur tabel tb_kul.

Selanjutnya buat sebuah cmd baru dalam conn_mhs, beri nama kul, setting koneksi agar mengarah ke tb_kul(langkahnya sudah dibahas diatas) Kemudian rancang form sbb:

Gambar 2.14 tampilan form kuliah Atur properti sbb:

Object	properti	Setting
Form 1	NameCaption	Frm_kulForm data matakuliah
Datacombo1	NameCaptionRow source Row member listfield	CombonimPilihdataenvironment1 <<dipilih >> mhs<<dipilih>> nim<<Dipilih >>
Text1	Name	Txtkd_kul
Text2	Name	Txtnm_kul
Text3	Name	txtsks
Text4	Name	txtnama
Command1	NameCaption	Cmdsimpan&simpan
Command2	Namecaption	Cmdhapus&hapus
Command3	NameCaption	Cmdcari&cari
Command4	Namecaption	Cmdkeluar&keluar
Datagrid1	Datasourcedatamember	Dataenvironment1<<dipilih>>Kul<<dipilih>>
Label1	caption	FORM KULIAH
Label2	Caption	Nim
Label3	Caption	Kd kuliah
Label4	Caption	Nm kuliah
Label5	Caption	Sks
Label6	Caption	Nama>>>>

Tabel 2.4 setting property form kuliah

Isi sintaks sbb :

Private Sub cmdcari_Click()

MNAMA = InputBox(”Ketik nim”)

DataEnvironment1.rskul.MoveFirst

DataEnvironment1.rskul.Find “Nim=’” + MNAMA + “‘”

On Error GoTo tanganikesalahan

COMBONIM.Text = DataEnvironment1.rskul.Fields(0).Value

txtKD_KUL.Text = DataEnvironment1.rskul.Fields(1).Value

txtNM_KUL.Text = DataEnvironment1.rskul.Fields(2).Value

txtSKS.Text = DataEnvironment1.rskul.Fields(3).Value

If DataEnvironment1.rskul.EOF Then

MsgBox “DATA TIDAK DITEMUKAN”

End If

tanganikesalahan:

Resume Next

End Sub

Private Subcmdhapus_Click()

DataEnvironment1.rskul.Delete

DataGrid1.Refresh

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdsimpan_Click()

DataEnvironment1.rskul.AddNew

DataEnvironment1.rskul.Fields(0).Value = COMBONIM.Text

DataEnvironment1.rskul.Fields(1).Value = txtKD_KUL.Text

DataEnvironment1.rskul.Fields(2).Value = txtNM_KUL.Text

DataEnvironment1.rskul.Fields(3).Value = txtSKS.Text

DataEnvironment1.rskul.Update

DataGrid1.Refresh

MsgBox “data tersimpan”, vbOKOnly, “info”

‘membersihkan form

COMBONIM.Text = “”

txtNAMA.Text = “”

txtKD_KUL.Text = “”

txtNM_KUL.Text = “”

txtSKS.Text = “”

COMBONIM.SetFocus

End Sub

Private Sub COMBONIM_Change()

If COMBONIM.Text <> “” Then

DataEnvironment1.rsmhs.MoveFirst

DataEnvironment1.rsmhs.Find “nim = ‘” + COMBONIM.Text + ” ‘”

txtNAMA.Text = DataEnvironment1.rsmhs.Fields(1).Value

End If

End Sub

Untuk mencoba form, jalankan program dengan frmkul sebagai form yang pertama dijalankan, cara merubahnya pilih  project–>project1 properties–> pada startup object pilih frmkul–>ok

Modul III

Membuat report (laporan)

• Membuat laporan dalam visual basic sangat mudah dilakukan, dengan data environment kita hanya perlu melakukan drag data yang ingin ditampilkan atau dijadikan report.
• Praktik pembuatan report kali ini masih melanjutkan praktik sebelumnya,
• Setelah tabel:tb_mhs pada database:dbmhs diisi dengan data yang diinput dari form, selanjutnya data tersebut akan ditampilkan dalam bentuk laporan yang dapat di print
• Menambahkan sebuah data report : project–>add data report

Gambar 3.1 menambah data report

• Setelah langkah diatas dilakukan, maka vb akan membentuk sebuah object data report baru dengan default name:datareport1. Lakukan setting properti sbb:

property	setting
Name	Rptmhs
Caption	Laporan mahasiswa
datasource	Dataenvironment1
datamember	mhs

tabel 3.1 setting property report.

• Klik kanan di tempat kosong pada rptmhs –> retrieve structure –> yes

Gambar 3.2 retrieve structure

• keterangan :

report header & footer –> berisi informasi yang ingin ditampilkan pada setiap halaman laporan

page header –>berisi judul laporan dan nama field yang ingin ditampilkan

detail –> berisi data yang akan ditampilkan

• seret setiap field mhs pada dataenvironment1 kedalam rptmhs, atur sehingga tampilan terlihat sbb:

Gambar 3.3 isi rptmhs dari data environment

+ untuk menambah judul atau tulisan yang lain dalam rptmhs, lakukan dengan menambahkan objek dengan langkah yang mirip pada saat menambah object ke form, contohnya label

• untuk melihat hasil dari rptmhs yang telah dibuat, buatlah sebuah command pada frmmhs yang berfungsi untuk memanggil rptmhs. Kemudian isi sintaks dibawah ini kedalam command yang baru :

rptmhs.show

sintaks diatas adalah untuk memanggil rptmhs yang tadi telah dicoba jalankan program dan lihat hasilnya sebagai latihan, buatlah report untuk data kuliah..

selamat mencoba

Modul VB IV

Mambuat Form Menu

Masih melanjutkan modul sebelumnya, kali ini pembahasan akan difokuskan ke pembuatan form menu. Gambaran dari form menu adalah sebuah form utama yang dapat memanggil form lain atau laporan yang dibuat dengan vb. Praktik kali ini masih melanjutkan modul-sebelumnya. Berikut instruksi dan langkah-langkah pembuatan form menu:

pada jendela project(disebelah kanan), click kanan pada form–>add–>MDI form–>open

Gambar 4.1 menambah form menu

• selanjutnya akan muncul sebuah fomr baru yang nantinya akan dijadikan form utama
• atur property mdiform sbb:

Property	Setting
NameCaptionWindow state	FrmmenuSistem informasi kampus2-maximize<dipilih>

Tabel 4.1 setting property form menu

• berikutnya tambahkan konten atau isi dari menu yang akan ditampilkan, berikut ini adalah hirarki menu yang hendak dirancang

Gambar 4.2 rancangan menu

Keterangan dalam menu mahasiswa terdapat 2 pilihan(mhs dan kuliah), jika mhs dipilih maka form mahasiswa akan ditampilkan begitu seterusnya

• untuk membuat konten menu seperti diatas, tambahkan menu editor dalam form utama dengan cara pilih menu tools–>menu editor

Gambar 4.2 menu editor

• selanjutnya buat menu seperti gambar dibawah ini

Gambar 4.3 merancang laporan

Keterangan :

Caption adalah koten yang akan ditampilkan

Name adalah nama konten (isi bebas) sebagai contoh untuk file, namenya mnfile dsb.

Tanda titik-titik(….mhs) maksudnya mhs ada di dalam file dst.

Untuk membuat seperti diatas pilih tanda navigasi (panah disebelah tombol insert) untuk mengaturnya

• ok
• form utama telah terbentuk sekarang (lihat gambar)

Gambar 4.4 form menu

• isi sintaks berikut sesuai dengan tab atau menu (name) yang tadi dirancang

Private Sub mnkel_Click()

unload me

End End

Sub Private Sub mnkuliah_Click()

frmkul.Show

End Sub

Private Sub mnlapkul_Click()

rptkul.Show

End Sub

Private Sub mnlapmhs_Click()

RPTMHS.Show

End Sub

Private Sub mnmhs_Click()

frmmhs.Show

End Sub

‘**ket : rptkul  harus sudah dibuat sebelumya

• kemudian jalankan program dengan frmmenu sebagai form yang pertama dijalankan, cara merubahnya pilih  project–>project1 properties–> pada startup object pilih frmmenu–>ok

******SELAMAT MENCOBA*******