Bab I Pengenalan Visual BASIC

Modul Pelatihan Visual Basic - Access Danu Wira Pangestu, S.Kom.

Bab I Pengenalan Visual BASIC

1. Pendahuluan Visual BASIC (Beginners All-Purpose Symbolic Instruction Code) merupakan sebuah bahasa pemrograman yang dapat digunakan untuk membuat suatu aplikasi dalam Microsoft Windows. Visual BASIC menggunakan metode Graphical User Interface (GUI) dalam pembuatan program aplikasi (project). Istilah visual mengacu pada metode pembuatan tampilan program (Interface) atau objek pemrograman yang biasa dilakukan secara langsung terlihat oleh programmer. Dalam Visual BASIC, pembuatan program aplikasi harus dikerjakan dalam sebuah project. Sebuah Project dapat terdiri dari File Project (.vbp), File Form (.frm), File data binary (.frx), Modul Class (.cls), Modul Standar (.bas), dan file resource tunggal (.res). Bahasa yang digunakan adalah bahasa BASIC yang sangat populer pada era sistem operasi DOS.

2. Memulai Visual BASIC Untuk memulai pemrograman dengan Visual BASIC, jalankan program Microsoft Visual BASIC 6.0. Selanjutnya pada tampilan awal akan ditampilkan kotak dialog New Project seperti pada gambar 1.1.

Gambar 1.1. Tampilan Kotak Dialog New Project

Page 1 of 61


Pada kotak dialog tersebut terdapat 3 buah tab yang terdiri dari: 

New (menampilkan daftar pilihan untuk membuat project baru)



Existing (untuk browsing dan membuka project)



Recent (untuk membuka project yang sering digunakan).

Untuk pembuatan program pertama kali pilih tab New, pilih Standard EXE lalu klik Open. Selanjutnya muncul tampilan utama Visual BASIC 6.0 seperti pada gambar 1.2.

Toolbar Menu Bar Project Explorer Form Designer

Toolbox Property Window Code Window

Gambar 1.2. Tampilan Utama Visual BASIC 6.0

3. Komponen – Komponen Visual BASIC

a. Menu Bar Menampilkan daftar menu yang berisi daftar perintah-perintah yang dapat digunakan saat bekerja pada Visual BASIC. Terdiri dari menu File, Edit, View, Project, Format, Debug, Run, Query, Diagram, Tools, Add-Ins, Window dan Help.

Gambar 1.3. Menu Bar Page 2 of 61


b. Toolbar Digunakan untuk mengakses perintah-perintah dalam menu yang sering dipakai secara cepat.

Gambar 1.4. Toolbar c. Toolbox Merupakan

daftar

komponen-komponen

yang

dapat

digunakan

untuk

mendesain tampilan program aplikasi yang akan dibuat.

Gambar 1.5. Toolbox d. Project Explorer Menampilkan daftar form dan module yang ada dalam project yang sedang aktif.

Gambar 1.6. Project Explorer

Page 3 of 61


e. Property Window Digunakan untuk mengatur properti dari komponen-komponen yang sedang diaktifkan. Property merupakan karakteristik dari sebuah objek.

Gambar 1.7. Property Window f.

Form Designer Merupakan jendela yang digunakan untuk melakukan perancangan tampilan dari aplikasi yang akan dibuat.

Gambar 1.8. Form Designer

g. Code Window Merupakan jendela yang digunakan untuk menuliskan kode program.

Gambar 1.9. Code Window Page 4 of 61


Pada pemrograman Visual BASIC, form digunakan sebagai komponen utama untuk mendesain tampilan program. Secara umum sebuah komponen/objek dalam Visual BASIC memiliki 3 karakteristik utama yaitu: 

Properti



Event



Metode



Properti Adalah karakteristik yang melekat pada sebuah objek yang menunjukkan ciri /karakteristik suatu objek. Misalnya BackColor menunjukkan warna latar belakang, Font menunjukkan jenis dan ukuran font yang digunakan, dan sebagainya. Pengaturan properti suatu objek dapat diatur dengan 2 cara. Cara pertama adalah dengan mengatur komponen melalui Property Window. Cara kedua adalah dengan memberi baris program pada Code Window dengan urutan penulisan sebagai berikut: . = Contoh : Untuk mengatur judul/caption form1 menjadi “Program Pertama” dapat dilakukan dengan memberi kode program: Form1.Caption=”Program Pertama”



Event Menunjukkan kejadian yang terjadi pada sebuah objek. Misalnya kejadian ketika command1 diklik (event Command1_Click), kejadian ketika form loading pertama kali (event Form_Load), dan sebagainya. Contoh : Private Sub Form_Load() Form1.Caption = ”Program Pertama” End Sub

Keterangan : Program akan mengubah caption dari form1 menjadi Program Pertama ketika form pertama kali ditampilkan (Form_Load).

Page 5 of 61




Metode (Method) Adalah prosedur yang dikerjakan pada satu objek. Metode merupakan suatu tindakan di mana objek dapat di bentuk. Contoh : Form1.Cls

Keterangan : Perintah ini digunakan untuk membersihkan form.

Program I Mendesain Form Setelah tampilan utama Visual BASIC 6.0 muncul pada layar monitor, Ubah properti form1 melalui Property Window, dengan urutan sebagai berikut: Property

Nilai

(Name)

FrmPertama

Caption

Program Pertama

Height

3000

Width

4000

Gambar 1.10. Desain Form1 Untuk menjalankan program klik menu Run  Start atau menekan tombol F5. Program dapat dihentikan dengan menutup Form menggunakan tombol close (

)

pada pojok kanan atas form atau dengan mengklik tombol Stop pada Toolbar. : Run  untuk menjalankan program : Break  untuk menghentikan program sementara. : Stop  untuk menghentikan program.

Page 6 of 61


Menuliskan Program Untuk menuliskan program, langkah pertama yang harus dilakukan adalah mengaktifkan Code Window melalui menu

View  Code. Pada jendela kode

terdapat dua buah pilihan. Pilihan sebelah kiri digunakan untuk menentukan objek yang akan diberikan event, sedangkan pilihan sebelah kanan digunakan untuk menentukan jenis event yang diberikan kepada objek.

Gambar 1.11. Menuliskan Program Listing Program I

Private Sub Form_Load() frmpertama.BackColor = vbBlue End Sub

Private Sub Form_Click() frmpertama.Caption = “Form di klik” End Sub

Jalankan program kembali, dan klik pada form, lihat perubahan yang terjadi pada form. Simpan project dan form.

Page 7 of 61


Bab II Visual Component Library Pada pemrograman visual, pemrograman dilakukan dengan menggunakan komponen-komponen yang tersedia pada toolbox. Komponen yang termasuk dalam toolbox standard windows antara lain: a. Label Digunakan untuk menambahkan teks pada saat perancangan form.

Gambar 2.1. Komponen Label b. Text box Digunakan sebagai sarana untuk mendapatkan input data dari user (pengguna) dengan mengetikkan teks atau angka pada text box.

Gambar 2.2. Komponen Textbox c. Command Button Digunakan untuk menambahkan tombol pada perancangan form.

Gambar 2.3. Komponen Command Button d. Check Box Digunakan untuk mendapatkan masukan dari user berupa pilihan dari item-item yang tersedia. User dapat memilih satu, beberapa atau mungkin semua item yang tersedia.

Gambar 2.4. Komponen Check Box

Page 8 of 61


e. Option Button Digunakan untuk mendapatkan masukan dari user berupa pilihan dari item-item yang tersedia. User hanya dapat memilih satu dari beberapa pilihan yang tersedia.

Gambar 2.5. Komponen Option Button f.

Combo Box Digunakan untuk menampilkan pilihan item-item. Untuk memilih item user dapat mengetikkan pilihan atau memilih dari daftar yang tersedia.

Gambar 2.6. Komponen Combo Box g. List Box Digunakan untuk menampilkan daftar pilihan bagi user. User dapat memilih satu pilihan dari daftar pilihan yang tersedia.

Gambar 2.7. Komponen List Box Program II Jalankan program Visual Basic, pada form yang tersedia, tambahkan komponen, atur propertinya sehingga didapat tampilan seperti gambar 2.8.

Gambar 2.8. Tampilan Form Program II Page 9 of 61


Pengaturan Properti : Komponen

Properti

Nilai

Form1

(Name)

Frmpribadi

Caption

Data Pribadi

StartupPosition

2-Center Screen

Label1

Caption

Nama

Label2

Caption

Usia

Label3

Caption

Jenis Kelamin

Label4

(Name)

Lblhasil

Caption

(kosongkan)

(Name)

txtnama

Text

(kosongkan)

(Name)

txtusia

Text

(kosongkan)

(Name)

cmbjenis

List

Pria

Textbox1

Textbox2

Combobox1

Wanita

CommandButton1

CommandButton2

Text

Pria

(Name)

Cmdproses

Caption

&Proses

(Name)

Cmdkeluar

Caption

&Keluar

Listing Program II

Private Sub cmdkeluar_Click() Unload Me End Sub

Private Sub cmdproses_Click() lblhasil.Caption = "Nama anda " + txtnama.Text + ", usia " + txtusia.Text + " tahun, jenis kelamin " + cmbjenis.Text End Sub

Simpan project dan form, lalu jalankan program. Isikan nama, usia dan pilih jenis kelamin, kemudian klik tombol proses. Lihat perubahan yang terjadi. Page 10 of 61


Bab III Variabel, Tipe Data dan Operator 1. Variabel Variabel adalah nama atau simbol yang digunakan untuk mewakili suatu nilai. Suatu variabel mempunyai nama dan menyimpan tipe data yang merupakan jenis data variabel. Aturan penamaan variabel adalah sebagai berikut: 

Harus dimulai dengan sebuah huruf



Tidak lebih dari 255 karakter



Tidak boleh sama dengan nama statement, fungsi, metode, objek, dan sebagainya yang merupakan bahasa dari Visual BASIC.



Tidak boleh ada spasi, tanda titik(.), tanda seru(!), atau karakter @, &, $, dan #.

Deklarasi variabel dapat dituliskan dengan urutan sebagai berikut: Public As <Tipe_Data> Atau Dim As <Tipe_Data> Contoh : Public Angka1 As Integer Dim Nama As String

2. Tipe Data Tipe data adalah jenis data yang disimpan dalam variabel. Tipe data untuk Visual BASIC adalah sebagai berikut: 

Tipe Data Numerik: digunakan untuk menyimpan data numerik, terdiri dari:

Tipe Data

Ukuran

Range

Byte

1 byte

0 sampai 255

Integer

2 byte

-32.768 sampai 32.767

Long

4 byte

-2.147.483.648 sampai 2.147.483.647

Single

4 byte

-3,402823E38 sampai -1,401298E-45; 1,401298E-45 sampai 3,402823E38

Double

8 byte

-1.79769313486232E308 sampai -4,94065645841247E-324; 4,94065645841247E-324 sampai 1.79769313486232E308

Currency

8 byte

-922.337.203.685.477,5808 sampai 922.337.203.685.477,5807

Page 11 of 61




Tipe Data String : digunakan untuk menyimpan data berbentuk karakter. Panjang maksimal karakter yang dapat disimpan adalah 65.400 karakter. Penulisan data dengan tipe ini diawali dan diakhiri dengan tanda petik dua (“). Contoh: Dim Nama As String Nama = “Habib Maulan”



Tipe Data Logika (Boolean) : melakukan pengetesan logika. Data dengan tipe data ini hanya dapat bernilai benar(True) atau salah(False). Contoh: Dim Baru As Boolean Baru = True

3. Konstanta Konstanta adalah suatu nilai konstan yang tidak berubah. Seperti halnya variabel, konstanta dapat diberi nama dimana aturan penamaannya sama dengan variabel. Contoh: Const A = 10

4. Operator 

Operator Pemberi Nilai Deklarasi pemberian nilai pada Visual BASIC = Bahasa BASIC yaitu menggunakan operator sama dengan ( = ). Contoh : a = 24 nama = “Yudha Noviandi”



Operator Arimatika Operator

Operasi

+

Penjumlahan

-

Pengurangan

*

Perkalian

/

Pembagian

\

Pembagian dengan hasil bilangan bulat

Mod

Sisa Pembagian (Modulus)

Page 12 of 61






Operator Boolean Operator

Operasi

Not

Negasi

And

Logika and

Or

Logika or

Xor

Logika xor

Operator Pembanding Operator =

Sama dengan

<>



Operasi

Tidak sama dengan

<

Kurang dari

>

Lebih dari

<=

Kurang dari atau sama dengan

>=

Lebih dari atau sama dengan

Derajat Operator Operator

Derajat

Not

Tertinggi

* / \ mod and + - or xor = <> <= >=

Terendah

Program III : Program Aritmatika Sederhana Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 3.1.

Gambar 3.1. Desain form Program III

Page 13 of 61


Pengaturan Properti Komponen

Properti

Nilai

Form1

(Name)

Frmaritmatika

Caption

Program Aritmatika

StartupPosition

2-Center Screen

Label1

Caption

Bilangan 1

Label2

Caption

Bilangan 2

Label3

Caption

Hasil

Textbox1

(Name)

Txtbil1

Text

(kosongkan)

(Name)

Txtbil2

Text

(kosongkan)

(Name)

Txthasil

Text

(kosongkan)

(Name)

Cmdtambah

Caption

Tambah

(Name)

Cmdkurang

Caption

Kurang

(Name)

Cmdkali

Caption

Kali

(Name)

Cmdbagi

Caption

Bagi

(Name)

Cmdkeluar

Caption

Keluar

Textbox2

Textbox3

CommandButton1

CommandButton2

CommandButton3

CommandButton4

CommandButton5

Listing Program III

Private Sub cmdbagi_Click() Dim bil1, bil2, hasil As Double bil1 = Val(txtbil1.Text) bil2 = Val(txtbil2.Text) hasil = bil1 / bil2 txthasil.Text = hasil End Sub

Page 14 of 61


Private Sub cmdkali_Click() Dim bil1, bil2, hasil As Integer bil1 = Val(txtbil1.Text) bil2 = Val(txtbil2.Text) hasil = bil1 * bil2 txthasil.Text = hasil End Sub


Private Sub cmdkurang_Click() Dim bil1, bil2, hasil As Integer bil1 = Val(txtbil1.Text) bil2 = Val(txtbil2.Text) hasil = bil1 - bil2 txthasil.Text = hasil End Sub

Private Sub cmdtambah_Click() Dim bil1, bil2, hasil As Integer bil1 = Val(txtbil1.Text) bil2 = Val(txtbil2.Text) hasil = bil1 + bil2 txthasil.Text = hasil End Sub

Simpan Project dan Form, jalankan program dan coba lakukan perhitungan.

Page 15 of 61


Bab IV Percabangan Pada beberapa kasus terkadang kita menginginkan komputer melakukan suatu pernyataan tertentu bila suatu kondisi terpenuhi. Dalam Visual BASIC perintah percabangan/pemilihan keputusan dapat dilakukan dengan statemen If...Then dan Select Case.

1. Statemen If...Then Statemen ini digunakan untuk melakukan aksi setelah melakukan pengujian terhadap suatu kondisi. Pernyataan dalam blok statemen hanya akan dilaksanakan ketika kondisi pengetesan/pengujian bernilai benar. Statement If...Then memiliki beberapa sintaks/cara penulisan sesuai dengan jumlah pernyataan yang akan dieksekusi. a. If...Then dengan Kondisi dan Pernyataan Tunggal If Then

Contoh : If Nilai >= 60 Then Keterangan = “Lulus”

b. If...Then dengan Pernyataan Jamak If Then . . End If

Contoh : If Nilai >= 60 Then Keterangan = “Lulus” Ucapan = “Selamat” End If

Page 16 of 61


c. If...Then dengan 2 kondisi. If Then Else End If Contoh: If Nilai >= 60 Then Keterangan = “Lulus” Ucapan = “Selamat” Else Keterangan = “Tidak Lulus” Ucapan = “Jangan Bersedih” End If

d. If...Then dengan kondisi jamak. If Then ElseIf Then ... ElseIf Then Else End If Contoh: If Nilai >= 85 Then Keterangan = “Lulus, Sangat Memuaskan” ElseIf Nilai >= 70 Then Keterangan = “Lulus, Memuaskan” ElseIf Nilai >=60 Then Keterangan = “Lulus, Cukup Memuaskan” Else Keterangan = “Tidak Lulus, Silahkan Mengulang” End If

Page 17 of 61


2. Statemen Select Case Sama halnya seperti statemen If...Then, Select Case juga mengerjakan suatu blok statemen berdasarkan uji nilai ekspresi. Perbedaannya adalah pada tata cara penulisan dan pengelompokan nilai dari variabel/kondisi. Sintaks : Select Case Case Case Case Else End Select

Contoh: Select Case Nilai Case “A” Keterangan = “Sangat Memuaskan” Case “B” Keterangan = “Memuaskan” Case “C” Keterangan = “Cukup” Case Else Keterangan = “Kurang” End Select

Program IV : Program Belanja Sederhana Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 4.1.

Page 18 of 61


Gambar 4.1. Desain Form Program IV Pengaturan Properti : Komponen

Properti

Nilai

Form1

(Name)

Frmbelanja

Caption

Program Belanja Sederhana

StartupPosition

2-Center Screen

Label1

Caption

Nama Barang

Label2

Caption

Harga Satuan

Label3

Caption

Jumlah Barang

Label4

Caption

Total Harga

Label5

Caption

Diskon

Label6

Caption

Total Bayar

Label7

Caption

Bonus

Textbox1

(Name)

Txtnama

Text

(kosongkan)

(Name)

Txtharga

Text

(kosongkan)

(Name)

Txtjumlah

Text

(kosongkan)

(Name)

Txttotal

Text

(kosongkan)

Textbox2

Textbox3

Textbox4

Page 19 of 61


Textbox5

Textbox6

Textbox7

CommandButton1

CommandButton2

CommandButton3

(Name)

Txtdiskon

Text

(kosongkan)

(Name)

Txtbayar

Text

(kosongkan)

(Name)

Txtbonus

Text

(kosongkan)

(Name)

CmdHitung

Caption

&Hitung

(Name)

CmdUlang

Caption

&Ulang

(Name)

Cmdkeluar

Caption

&Keluar

Pada program diatas perhitungan dilakukan dengan kriteria sebagai berikut: Total Harga = Harga Satuan x Jumlah Barang Diskon dan Bonus, didapat dengan ketentuan: Total Harga

Diskon

Bonus

>=500 ribu

20% x Total Harga

“Tas Pinggang”

200 ribu – 500 ribu

15% x Total Harga

“Payung”


10% x Total Harga

“Kaos”


5% x Total Harga

“Cangkir”

< 50 ribu

0%

“Tidak Ada”

Total Bayar = Total Harga – Diskon Listing Program IV Private Sub cmdulang_Click() 'Membersihkan isi Textbox txtnama.Text = "" txtharga.Text = "" txtjumlah.Text = "" txttotal.Text = "" txtdiskon.Text = "" txtbayar.Text = "" txtbonus.Text = "" txtnama.SetFocus End Sub

Page 20 of 61


Private Sub cmdhitung_Click() 'Deklarasi Variabel Dim Harga, Jumlah As Integer Dim Total, Diskon, Bayar As Double Dim Bonus As String 'Deklarasi Input Harga dan Jumlah Harga = txtharga.Text Jumlah = txtjumlah.Text 'Perhitungan Total Harga Total = Harga * Jumlah 'Penentuan Diskon dan Bonus If Total >= 500000 Then Diskon = 0.2 * Total Bonus = "Tas Pinggang" ElseIf Total >= 200000 Then Diskon = 0.15 * Total Bonus = "Payung" ElseIf Total >= 100000 Then Diskon = 0.1 * Total Bonus = "Kaos" ElseIf Total >= 50000 Then Diskon = 0.05 * Total Bonus = "Pena" Else Diskon = 0 Bonus = "Tidak Ada" End If 'Perhitungan Total Bayar Bayar = Total - Diskon 'Deklarasi Keluaran Total Harga, Diskon, Total Bayar, dan Bonus txttotal.Text = Total txtdiskon.Text = Diskon txtbayar.Text = Bayar txtbonus.Text = Bonus End Sub Private Sub cmdkeluar_Click() Unload Me End Sub

Simpan Program, kemudian jalankan program dan lakukan perhitungan.

Page 21 of 61


Bab V Perulangan Proses perulangan dalam pemrograman dilakukan untuk mengerjakan suatu proses operasi secara bertahap demi tahap dengan nilai variabel yang menaik atau menurun. Dalam Visual BASIC proses perulangan dapat dilakukan dengan beberapa statemen, diantaranya adalah statemen For...Next dan Do...Loop.

1. For...Next Statemen ini akan mengulangi suatu blok pernyataan sebanyak jumlah yang ditentukan. Statemen ini digunakan jika banyaknya jumlah perulangan sudah diketahui. Sintaks: For = NilaiAwal To NilaiAkhir [Step Tingkat] ... Next

Statemen ini digunakan untuk kondisi yang mempunyai nilai berurutan dan variabel yang mempunyai nilai numerik. Default untuk Step adalah 1, jadi untuk perulangan dengan urutan menaik 1, nilai step tidak perlu ditulis. Sedangkan untuk perulangan menurun (Nilai awal > Nilai Akhir), nilai step diawali dengan tanda minus(-). Misalnya : For i = 10 To 1 Step -1.

Contoh: Untuk mencetak angka 1 sampai 10 secara berurutan pada objek ListBox dapat dilakukan dengan memberi listing program sebagai berikut: For i = 1 To 10 List1.Additem i Next i

Page 22 of 61


2. Do...Loop Statemen ini mengulang blok statemen bila kondisi benar atau sampai kondisi menjadi benar. Bila tidak ada perintah keluar, proses perulangan (loop) akan terus berlangsung. Statemen ini digunakan untuk kondisi yang mempunyai nilai tidak pasti dan tidak berurutan. Statemen ini memiliki dua buah bentuk logika.

a. Statemen Do...Loop...While Statemen ini akan mengerjakan pernyataan dalam blok statemen ketika kondisi bernilai benar, dan akan berhenti ketika kondisi sudah bernilai salah. Sintaks: Do While

Do

...

atau

...

Loop

Loop While

Contoh: Untuk mencetak angka 1 sampai 10 secara berurutan pada objek ListBox dapat dilakukan dengan memberi listing program sebagai berikut: i = 1 Do While i <= 10 List1.Additem i i = i + 1 Loop

b. Statemen Do...Loop...Until Statemen ini akan mengerjakan pernyataan dalam blok statemen ketika kondisi bernilai salah, dan akan berhenti ketika kondisi mencapai nilai benar. Sintaks: Do Until

Do

... Loop

atau

... Loop Until Page 23 of 61


Contoh: Untuk mencetak angka 1 sampai 10 secara berurutan pada objek ListBox dapat dilakukan dengan memberi listing program sebagai berikut: i = 1 Do List1.Additem i i = i + 1 Loop Until i > 10

Program V : Program Perulangan Teks Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 5.1.

Gambar 5.1. Desain Form Program V


Properti

Nilai

Form1

(Name)

frmulang

Caption

Program Perulangan Teks

Label1

Caption

Teks

Label2

Caption

Jumlah Pengulangan

Textbox1

(Name)

Txtteks

Text

(kosongkan)

(Name)

Txtjumlah

Text

(kosongkan)

Textbox2

Page 24 of 61


Listbox1

(Name)

List1

CommandButton1

(Name)

CmdProses

Caption

Proses

(Name)

CmdKeluar

Caption

Keluar

CommandButton2

Alur Kerja Program : Data masukan/input : Teks dan Jumlah Pengulangan Ketika tombol proses ditekan, maka pada listbox akan ditampilkan teks sebanyak jumlah pengulangan yang diisikan seperti pada gambar 5.2.

Gambar 5.2. Layout Program V

Listing Program : Private Sub cmdkeluar_Click() Unload Me End Sub

Private Sub cmdproses_Click() Dim teks As String Dim jumlah As Integer teks = txtteks.Text jumlah = txtjumlah.Text For i = 1 To jumlah List1.AddItem teks Next i End Sub

Page 25 of 61


Latihan : -

Buatlah program perulangan diatas menggunakan statemen Do...Loop While dan Do... Loop Until

-

Buatlah program untuk menghitung nilai faktorial dan deret hitung dari sebuah bilangan menggunakan perulangan For...Next dan Do...Loop dengan tampilan sebagai berikut:

Desain Awal Form

Output Program

SELAMAT MENCOBA

Page 26 of 61


Bab VI Database 1. Mengenal Database Database (basis data) dapat diartikan sebagai suatu pengorganisasian data dengan bantuan komputer yang memungkinkan dapat diakses dengan mudah dan cepat. Dalam hal ini, pengertian akses dapat mencakup pemerolehan data maupun pemanipulasian data, seperti menambah dan menghapus data. Manfaat database banyak dijumpai di sekeliling kita. ATM (Anjungan Tunai Mandiri) merupakan sebuah contoh teknologi informasi yang pada dasarnya memenfaatkan databse, yang memungkinkan seseorang bisa mengambil uang dimana saja dan kapan saja. Aplikasi databse yang lain dapat dikumpai pada toko-toko swalayan, perpustakaan, dan bahkan pada Internet.

2. Komponen Database Komponen terbesar dalam suatu Sistem Database adalah Database itu sendiri. Data dalam database dapat dikelompokkan dalam beberapa tabel. Tabel merupakan kumpulan data sejenis. Sebuah tabel biasanya terdiri dari beberapa field (kolom) dan record (baris), sebuah field menerangkan sebuah informasi dalam tentang identitas data dalam tabel, sedangkan record menerangkan sebuah data dalam tabel secara lengkap. Hirarki dari sebuah database dapat dilihat pada gambar 6.1.

Database

Tabel1

Tabel2

Tabel3

Tabeln

Field1 Field2 Field3 Fieldn Rec1 Rec2 Rec3 Recn

Gambar 6.1. Hirarki Database

Page 27 of 61


Sebagai contoh sebuah lembaga pendidikan memiliki database pengajaran dengan struktur sebagai berikut :

Nama Database : Pengajaran

Nama Tabel : 1. Tabel Dosen No.

Nama Field

Tipe Data

Panjang Field

Keterangan

1.

Kode_Dos

Text

3

Kode Dosen

2.

Nama_Dos

Text

30

Nama Dosen

3.

Alamat_Dos

Text

30

Alamat Dosen

4.

No_Telp

Text

15

Nomor Telepon

2. Tabel Matakuliah No.

Nama Field

Tipe Data

Panjang Field

Keterangan

1.

Kode_MK

Text

3

Kode Matakuliah

2.

Nama_MK

Text

30

Nama Matakuliah

3.

SKS

4.

Semester

Number

Jumlah SKS

Text

3

Semester

Tipe Data

Panjang Field

Keterangan

3. Tabel Kuliah No.

Nama Field

1.

Kode_MK

Text

3

Kode Matakuliah

2.

Kode_Dos

Text

3

Kode Dosen

3.

Waktu

Date/Time

30

Waktu Kuliah

4.

Tempat

Text

15

Ruang Kuliah

Hubungan antar tabel : Dosen Kode_Dos Nama_Dos Alamat_Dos No_Telp

Kuliah Kode_MK Kode_Dos Waktu Tempat

Matakuliah Kode_MK Nama_MK SKS Semester

Page 28 of 61


Data Dosen : Kode_Dos

Nama_Dos

Alamat_Dos

Telepon

D01

Marsyid, S.Kom.

Jl. Gelas 11

0274-955667

D02

Syaidah, S.T.

Jl. Mawar 30

0274-977033

D03

Qoryati, S.H.

Jl. Cempaka 19

0274-766554

Data Matakuliah : Kode_MK

Nama_MK

SKS

Semester

MK1

Pengenalan Komputer

3

1

MK2

Kewarganegaraan

2

1

MK3

Dasar Pemrograman

3

3

MK4

Aplikasi Komputer

3

3

Data Kuliah : Kode_MK

Kode_Dos

Waktu

Tempat

MK1

D02

11:00

R.2

MK2

D03

08:00

R.1

MK3

D01

13:00

R.3

MK4

D01

14:00

R.4

Nama_Field

1 record

3. Mengenal Database Management System Database Management System atau yang biasa disingkat dengan DBMS merupakan perangkat lunak atau program komputer yang dirancang secara khusus untuk memudahkan pengelolaan database. Salah satu macam DBMS yang populer dewasa ini berupa RDBMS (Relational DataBase Management System), yang menggunakan model basis data relasional atau dalam bentuk tabel-tabel yang saling terhubungkan. Microsoft Access dan MySQL merupakan contoh produk RDBMS.

4. Membuat Database dengan Microsoft Access Seperti yang telah diuraikan sebelumnya, Microsoft Access merupakan salah satu program aplikasi pengolah database berbasis RDBMS yang paling mudah dan sering digunakan. Selain dapat dipakai sebagai single standing system,, database yang dibuat menggunakan Microsoft Access juga dapat dihubungkan dengan program aplikasi pembangun progam lain termasuk Visual BASIC.

Page 29 of 61


Untuk lebih mudah memahami cara pembuatan database, kita akan langsung membuat Database Pengajaran diatas dengan menggunakan Microsoft Access.

Langkah pertama, Buka program aplikasi Microsoft Access melalui Start Menu. Buat sebuah database baru dengan nama Pengajaran.mdb. sehingga didapat tampilan awal seperti pada gambar 6.2.

Gambar 6.2. Tampilan Awal Microsoft Access. Langkah Kedua, Buat sebuah tabel baru dengan cara klik dua kali pada pilihan Create table in Design view, sehingga didapat tampilan desain tabel seperti pada gambar 6.3.

Gambar 6.3. Tampilan Halaman Desain Tabel Langkah Ketiga, Isikan Field Name dengan nama field dari Tabel Dosen. Untuk Data Type (Tipe Data) dapat diisikan dengan memilih dari daftar yang telah ada. Untuk mengatur panjang field dapat dilakukan dengan mengganti properti Field

Page 30 of 61


Size (pada tab General) dari masing-masing field, sehingga hasil akhir ditampilkan seperti pada gambar 6.4.

Panjang Field

Gambar 6.4. Tampilan Halaman Hasil Desain Tabel

Langkah Keempat, simpan tabel dengan nama Dosen. Klik tombol View (

)

atau melalui menu View  DataSheet View untuk mengisikan data dosen. Sehinga didapatkan tampilan hasil seperti pada gambar 6.5.

Gambar 6.5. Tampilan Hasil Pengisian Data Lakukan hal yang sama untuk membuat dan mengisi data pada Tabel Matakuliah dan Tabel Kuliah sehingga pada layar utama Access akan ditampilkan hasil seperti pada gambar 6.6.

Gambar 6.6. Tampilan Akhir Daftar Tabel Page 31 of 61


Bab VII Pemrograman Database I

1. Konsep Dasar Pemrograman Database (Database Programming) merupakan suatu bentuk pemrograman alternatif untuk pengolahan database. Dengan pemrograman database kita dapat secara leluasa mengatur tampilan dan alur kerja sebuah database dengan lebih baik. Visual BASIC merupakan salah satu bahasa pemrograman yang telah mendukung pemrograman database. Visual BASIC dapat dihubungkan dengan program aplikasi pengolah data lain seperti Access, MySQL, SQL Server dan sebagainya. Alur kerja pemrograman database dalam Visual BASIC dapat dijelaskan melalui gambar 7.1.

Program Aplikasi Database (Ms.Access, MySQL, Paradox, dsb)

Database Provider (ODBC, OLEDB, dsb)

Lingkungan Kerja Visual BASIC Database Connector (Adodc, Data, dsb)

Komponen Visual BASIC

Datagrid

DataList

Datacombo

Textbox

dsb.

Gambar 7.1. Alur kerja pemrograman database dalam Visual BASIC

Page 32 of 61


2. Koneksi Visual BASIC dengan Database Access. Untuk dapat menghubungkan Visual BASIC dengan database Access, kita akan menggunakan komponen ADO Data Control (ADODC). Komponen ini dapat dihubungkan dengan beberapa komponen yang digunakan untuk mengakses data seperti textbox, datagrid, dsb. Untuk dapat menggunakan ADODC, ada beberapa properti yang harus kita lakukan pengaturan antara lain:

Properti

Fungsi

ConnectionString

Untuk mendefinisikan database yang akan digunakan Adodc.

RecordSource

Untuk mendefinisikan tabel/query yang akan digunakan Adodc.

CommandType

Untuk mendefinisikan perintah yang digunakan Adodc.

Untuk lebih jelasnya kita akan coba membuat sebuah program untuk memprektekkan cara kerja ADODC. Pada program ini kita akan coba hubungkan database pengajaran (tabel dosen) yang telah kita buat pada bab VI dengan form Visual BASIC.

Buatlah sebuah project baru dengan tipe project VB Enterprise Edition Controls, seperti terlihat pada gambar 7.2.

Gambar 7.2. Pilhan Project Enterprise Edition

Desain tampilan form sehingga akan dihasilkan tampilan seperti pada gambar 7.3.

Page 33 of 61


Datagrid

Adodc Gambar 7.3. Desain Tampilan Form


Properti

Nilai

Form1

(Name)

frmdosen

Caption

Data Dosen

(Name)

Adodosen

Caption

Data Dosen

ConnectionString

Pengajaran.mdb

RecordSource

Dosen

Label1

Caption

Kode Dosen

Label2

Caption

Nama Dosen

Label3

Caption

Alamat Dosen

Label4

Caption

No Telepon

Textbox1

(Name)

TxtKode

Text

(kosongkan)

DataSource

Adodosen (pilihan)

Datafield

Kode_Dos (pilihan)

(Name)

TxtNama

Text

(kosongkan)

DataSource

Adodosen (pilihan)

Datafield

Nama_Dos (pilihan)

Adodc1 (

Textbox2

)

Page 34 of 61


Textbox3

Textbox4

Datagrid1 (

)

(Name)

TxtAlamat

Text

(kosongkan)

DataSource

Adodosen (pilihan)

Datafield

Alamat_Dos (pilihan)

(Name)

TxtTelpon

Text

(kosongkan)

DataSource

Adodosen (pilihan)

Datafield

No_Telp (pilihan)

DataSource

Adodosen

Pengaturan ConnectionString pada Adodc: 

Klik komponen Adodc pada form, pada bagian properties aktifkan pada pilihan property ConnectionString, kemudian klik tanda

. Pada Jendela Property Page

yang muncul klik tombol Build... 

Kemudian akan ditampilkan jendela Data Link Properties, Pilih Microsoft JET 4.0 OLE DB Provider, Kemudian klik tombol Next >>



Pada bagian Select or enter a database name, Klik tombol

, pilih lokasi

penyimpanan database pengajaran, pilih database pengajaran, kemudian klik Open, klik tombol Test Connection, untuk mengetes koneksi, jika telah sukses klik tombol OK. 

Kemudian akan ditampilkan kembali jendela Property Page, klik tombol Apply, kemudian klik OK.

Jalankan program sehingga dihasilkan tampilan seperti pada gambar 7.4.

Gambar 7.4. Tampilan Hasil Program Data Dosen

Page 35 of 61


Untuk berpindah antar record, dapat dilakukan dengan menekan tombol navigasi pada Adodc. Simpan Project dengan nama AksesData.vbp.

Latihan : 

Tambahkan 2 buah form baru pada project diatas untuk mengakses tabel matakuliah (nama form : frmMK) dan tabel kuliah (nama form : frmKuliah) menggunakan cara diatas.

Page 36 of 61


Bab VIII Pemrograman Database II

Pada pemrograman database, terdapat beberapa perintah khusus (method)

yang

dimiliki beberapa komponen untuk melakukan pemrosesan data dalam database. Sebagai contoh, jika kita menggunakan komponen Adodc sebagai komponen untuk koneksi ke database, terdapat beberapa method yang sering digunakan dalam pengaksesan database antara lain:

Perintah

Fungsi

.Recordset.MoveFirst

Berpindah ke record pertama

.Recordset.MovePrevious

Berpindah ke record sebelumnya

.Recordset.MoveNext

Berpindah ke record berikutnya

.Recordset.MoveLast

Berpindah ke record terakhir

.Recordset.AddNew

Menambahkan record baru

.Recordset.Update

Menyimpan perubahan/penambahan data

.Recordset.Cancel

Membatalkan perubahan/penambahan data

.Recordset.Delete

Menghapus data

.Recordset.Field(“NamaField”)

Mengakses field tertentu dalam tabel

.Recordset.Field!NamaField

Mengakses field tertentu dalam tabel

.Refresh

Menampilkan ulang data dalam tabel.

Untuk lebih memahami pemrograman database, kita akan membuat sebuah program database sederhana dengan menggunakan database pengajaran (tabel : dosen).

Program VI : Program Data Dosen Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 8.1.

Page 37 of 61


Gambar 8.1. Desain Form Program VI


Properti

Nilai

Form1

(Name)

frmdosen

Caption

Data Dosen

(Name)

Adodosen

Caption

Data Dosen

Label1

Caption

Kode Dosen

Label2

Caption

Nama Dosen

Label3

Caption

Alamat Dosen

Label4

Caption

No Telepon

Textbox1

(Name)

TxtKode

Text

(kosongkan)

(Name)

TxtNama

Text

(kosongkan)

(Name)

TxtAlamat

Text

(kosongkan)

(Name)

TxtTelpon

Text

(kosongkan)

DataSource

Adodosen

Adodc1 (

)

Textbox2

Textbox3

Textbox4

Datagrid1 (

)

Page 38 of 61


Komponen

Properti

Nilai

Command1

(Name)

Cmdpertama

Caption

Pertama

(Name)

Cmdsebelum

Caption

Sebelum

(Name)

Cmdberikut

Caption

Berikut

(Name)

Cmdterakhir

Caption

Terakhir

(Name)

Cmdtambah

Caption

&Tambah

(Name)

Cmdedit

Caption

&Edit

(Name)

Cmdsimpan

Caption

&Simpan

(Name)

Cmdbatal

Caption

&Batal

(Name)

Cmdhapus

Caption

&Hapus

(Name)

Cmdkeluar

Caption

&Keluar

Command2

Command3

Command4

Command5

Command6

Command7

Command8

Command9

Command10

Listing Program :

Public Baru As Boolean

Private Sub cmdbatal_Click() Tombol True, True, False, False, True Adodosen.Recordset.Cancel Kosong End Sub

Page 39 of 61


Private Sub cmdberikut_Click() 'Menuju ke record berikutnya Adodosen.Recordset.MoveNext 'Jika berada di record terakhir menuju ke record terakhir If Adodosen.Recordset.EOF Then Adodosen.Recordset.MoveLast End If End Sub

Private Sub cmdedit_Click() Tombol False, False, True, True, False With Adodosen.Recordset txtkode.Text = !Kode_Dos txtnama.Text = !Nama_Dos txtalamat.Text = !Alamat_Dos txttelpon.Text = !No_Telp End With txtkode.SetFocus Baru = False End Sub

Private Sub cmdhapus_Click() Dim hapus hapus

=

MsgBox("Anda

yakin

data

ini

akan

dihapus?",

vbQuestion

+

vbYesNo, "Hapus Data") If hapus = vbYes Then Adodosen.Recordset.Delete Adodosen.Recordset.MoveLast Else MsgBox

"Data

tidak

jadi

dihapus!",

vbOKOnly

+

vbInformation,

"Batal Menghapus" End If End Sub


Page 40 of 61


Private Sub cmdpertama_Click() 'Menuju ke record pertama Adodosen.Recordset.MoveFirst End Sub

Private Sub cmdsebelum_Click() 'Menuju ke record sebelumnya Adodosen.Recordset.MovePrevious 'Jika berada di record pertama menuju ke record pertama If Adodosen.Recordset.BOF Then Adodosen.Recordset.MoveFirst End If End Sub

Private Sub cmdsimpan_Click() Tombol True, True, False, False, True With Adodosen.Recordset If Baru Then .AddNew !Kode_Dos = txtkode.Text !Nama_Dos = txtnama.Text !Alamat_Dos = txtalamat.Text !No_Telp = txttelpon.Text .Update .Sort = "Kode_Dos" End With Kosong End Sub

Private Sub cmdtambah_Click() Tombol False, False, True, True, False Baru = True Kosong txtkode.SetFocus End Sub

Private Sub cmdterakhir_Click() Adodosen.Recordset.MoveLast End Sub

Page 41 of 61


Public Sub Tombol(tambah, edit, simpan, batal, hapus As Boolean) cmdtambah.Enabled = tambah cmdedit.Enabled = edit cmdsimpan.Enabled = simpan cmdbatal.Enabled = batal cmdhapus.Enabled = hapus End Sub

Private Sub Form_Load() Adodosen.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=" & App.Path & "\Pengajaran.mdb" Adodosen.RecordSource = "Dosen" Adodosen.Refresh Adodosen.Recordset.Sort = "Kode_Dos" Baru = False End Sub

Public Sub Kosong() txtkode.Text = "" txtnama.Text = "" txtalamat.Text = "" txttelpon.Text = "" End Sub

Page 42 of 61


Bab IX Pemrograman Database dengan SQL

Structured Query Language (SQL) adalah bahasa standard untuk melakukan berbagai operasi data pada database, diantaranya mendefinisikan tabel, menampilkan data dengan kriteria tertentu, menambahkan data hingga menghapus data tertentu. Penggunaan SQL pada beberapa bahasa pemrograman secara umum relatif sama. Berikut akan dijelaskan beberapa perintah SQL yang sering digunakan dalam operasi pemrograman database.

1. SELECT Perintah SELECT digunakan untuk menampilkan data. Bentuk Umum: SELECT

*|

FROM

[WHERE

<syarat>]

[ORDER BY DESC|ASC]

Klausa WHERE digunakan untuk membatasi data yang akan ditampilkan dengan menambahkan syarat tertentu pada data yang ingin ditampilkan. Klausa ORDER BY digunakan untuk menampilkan data dengan urutan menaik (ASC) atau urutan menurun (DESC). Contoh : ‘menampilkan seluruh data dosen SELECT * FROM Dosen

‘menampilkan kode dosen dan nama dosen dari data dosen SELECT Kode_Dos, Nama_Dos FROM Dosen

‘menampilkan data dosen diurutkan berdasarkan nama secara menaik SELECT * FROM Dosen ORDER BY Nama_Dos ASC

‘menampilkan data dosen yang namanya diawali huruf M SELECT * FROM Dosen Where Nama_Dos Like ‘M%’

Page 43 of 61


2. INSERT Perintah INSERT digunakan untuk menambahkan data kedalam tabel. Bentuk Umum: INSERT INTO VALUES (,,...)

Contoh : ‘menambahkan data dosen baru INSERT INTO Dosen VALUES (‘D05’,’Fatah Adi’,’Jl.Solo 100’,’799811’)

3. UPDATE Perintah UPDATE digunakan untuk mengubah data pada suatu tabel dengan kriteria tertentu Bentuk Umum: UPDATE

SET

=,

=,...

[WHERE <syarat>]

Contoh: ‘ mengubah data nama dosen dengan Kode Dosen ‘D05’ menjadi ‘Fatah Ali’ UPDATE Dosen SET Nama_Dos=’Fatah Ali’ WHERE Kode_Dos=’D05’

4. DELETE Perintah DELETE digunakan untuk menghapus data yang memenuhi kriteria tertentu. Bentuk Umum: DELETE FROM [WHERE <syarat>]

Contoh : ‘menghapus data dosen dengan nama ‘Fatah Ali’ DELETE FROM Dosen WHERE Nama_Dos=’Fatah Ali’

‘menghapus seluruh data dalam tabel DELETE FROM Dosen

Page 44 of 61


Program VII : Program Data Dosen dengan SQL Buatlah sebuah project dan form baru pada Visual BASIC, desain tampilan form sehingga didapat tampilan seperti pada gambar 9.1.

Gambar 9.1. Desain Form Program VII

Pengaturan Properti :

Komponen

Properti

Nilai

Form1

(Name)

frmdosen

Caption

Data Dosen

(Name)

Adodosen

Caption

Data Dosen

Label1

Caption

Kode Dosen

Label2

Caption

Nama Dosen

Label3

Caption

Alamat Dosen

Label4

Caption

No Telepon

Textbox1

(Name)

TxtKode

Text

(kosongkan)

Adodc1 (

)

Page 45 of 61


Komponen

Properti

Nilai

Textbox2

(Name)

TxtNama

Text

(kosongkan)

(Name)

TxtAlamat

Text

(kosongkan)

(Name)

TxtTelpon

Text

(kosongkan)

DataSource

Adodosen

(Name)

Cmdpertama

Caption

Pertama

(Name)

Cmdsebelum

Caption

Sebelum

(Name)

Cmdberikut

Caption

Berikut

(Name)

Cmdterakhir

Caption

Terakhir

(Name)

Cmdtambah

Caption

&Tambah

(Name)

Cmdedit

Caption

&Edit

(Name)

Cmdsimpan

Caption

&Simpan

(Name)

Cmdbatal

Caption

&Batal

(Name)

Cmdhapus

Caption

&Hapus

(Name)

Cmdkeluar

Caption

&Keluar

(Name)

CmdCari

Caption

&Cari Data

(Name)

CmdTampil

Caption

T&ilkan Semua Data

Textbox3

Textbox4

Datagrid1 ( Command1

Command2

Command3

Command4

Command5

Command6

Command7

Command8

Command9

Command10

Command11

Command12

)

Page 46 of 61


Listing Program : Public Baru As Boolean Private Sub cmdbatal_Click() Tombol True, True, False, False, True Adodosen.Recordset.Cancel Kosong End Sub

Private Sub cmdberikut_Click() 'Menuju ke record berikutnya Adodosen.Recordset.MoveNext 'Jika berada di record terakhir menuju ke record terakhir If Adodosen.Recordset.EOF Then Adodosen.Recordset.MoveLast End If End Sub

Private Sub cmdcari_Click() Kriteria = InputBox("Masukkan Nama Dosen yang dicari", "Mencari Data") Adodosen.RecordSource = "SELECT * FROM Dosen Where Nama_Dos Like'" & "%" & Kriteria & "%" & "'" Adodosen.Refresh

If Adodosen.Recordset.EOF Then MsgBox "Data Tidak Ditemukan!", vbCritical, "Data Tidak Ada" End If End Sub

Private Sub cmdedit_Click() Tombol False, False, True, True, False With Adodosen.Recordset txtkode.Text = .Fields("Kode_Dos") txtnama.Text = .Fields("Nama_Dos") txtalamat.Text = .Fields("Alamat_Dos") txttelpon.Text = .Fields("No_Telp") End With txtkode.SetFocus Baru = False End Sub

Page 47 of 61


Private Sub cmdhapus_Click() Dim hapus hapus

=

MsgBox("Anda

yakin

data

ini

akan

dihapus?",

vbQuestion

+

vbYesNo, "Hapus Data") If hapus = vbYes Then Adodosen.Recordset.Delete Adodosen.Recordset.MoveLast Else MsgBox

"Data

tidak

jadi

dihapus!",

vbOKOnly

+

vbInformation,

"Batal Menghapus" End If End Sub


Private Sub cmdpertama_Click() 'Menuju ke record pertama Adodosen.Recordset.MoveFirst End Sub

Private Sub cmdsebelum_Click() 'Menuju ke record sebelumnya Adodosen.Recordset.MovePrevious 'Jika berada di record pertama menuju ke record pertama If Adodosen.Recordset.BOF Then Adodosen.Recordset.MoveFirst End If End Sub

Private Sub cmdsimpan_Click() Tombol True, True, False, False, True With Adodosen.Recordset If Baru Then .AddNew .Fields("Kode_Dos") = txtkode.Text .Fields("Nama_Dos") = txtnama.Text .Fields("Alamat_Dos") = txtalamat.Text .Fields("No_Telp") = txttelpon.Text

Page 48 of 61


.Update .Sort = "Kode_Dos" End With Kosong End Sub

Private Sub cmdtambah_Click() Tombol False, False, True, True, False Baru = True Kosong txtkode.SetFocus End Sub

Private Sub cmdtampil_Click() Adodosen.RecordSource = "SELECT * FROM Dosen Order By Kode_Dos" Adodosen.Refresh End Sub

Private Sub cmdterakhir_Click() Adodosen.Recordset.MoveLast End Sub

Public Sub Tombol(tambah, edit, simpan, batal, hapus As Boolean) cmdtambah.Enabled = tambah cmdedit.Enabled = edit cmdsimpan.Enabled = simpan cmdbatal.Enabled = batal cmdhapus.Enabled = hapus End Sub

Private Sub Form_Load() Adodosen.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=" & App.Path & "\Pengajaran.mdb" Adodosen.CommandType = adCmdText Adodosen.RecordSource = "SELECT * FROM DOSEN ORDER BY Kode_Dos" Adodosen.Refresh Baru = False End Sub

Page 49 of 61


Public Sub Kosong() txtkode.Text = "" txtnama.Text = "" txtalamat.Text = "" txttelpon.Text = "" End Sub

Page 50 of 61


Bab X Laporan

Salah satu komponen penting dalam pengolahan database adalah membuat laporan/report. Sebuah laporan tidak hanya dapat ditampilkan dalam bentuk tampilan layar(soft copy) tetapi juga harus dapat dicetak kedalam media output lain, seperti kertas (hard copy). Ada banyak program aplikasi yang dapat membantu kita dalam pembuatan laporan seperti Crystal Report, Quick Report, dsb. Namun sebenarnya dalam Visual BASIC telah disediakan komponen untuk pembuatan laporan pada program, yaitu komponen Data Report. Komponen Data Report digunakan untuk mendesain tampilan laporan, sedangkan untuk sumber datanya data report membutuhkan komponen pengakses database, yaitu Data Environment.

1. Menampilkan Pilihan Data Report dan Data Environment. Walaupun pada awal instalasi Visual BASIC, komponen Data Report dan Data Environment telah diikutsertakan, namun ada kalanya kedua komponen ini belum ditampilkan secara otomatis pada menu project. Untuk menampilkannya dapat dilakukan dengan klik Menu Project – Components.

Gambar 10.1

Pada jendela Components (Gambar 10.1), pilih Tab Designer. Berikan checklist pada Data Environment dan Data Report. Kemudian klik Apply, OK.

Page 51 of 61


2. Menambahkan Data Environment Untuk dapat membuat sebuah laporan, pertama kali kita harus menambahkan sebuah Data Environment yang berfungsi mendefinisikan database dan tabel yang akan ditampilkan pada laporan. Data Environment dapat ditambahkan dengan cara klik menu Project – Add Data Environment. Selanjutnya akan tampil jendela seperti pada Gambar 10.2.

Gambar 10.2.

Untuk menghubungkan Data Environment dengan database pengajaran. Lakukan dengan cara klik kanan Connection1 – Pilih Properties. Selanjutnya akan ditampilkan jendela Data Link Properties seperti gambar 10.3.

Gambar 10.3.

Page 52 of 61


Pilih Microsoft Jet 4.0 OLE DB Provider, kemudian Klik Next >>, sehingga akan ditampilkan Tab Connection seperti pada gambar 10.4:

Gambar 10.4.

Pada bagian Select or enter a database name isikan dengan nama database (Pengajaran.mdb). Kemudian klik OK. Setelah Data Environment terhubung dengan database, langkah berikutnya adalah menambahkan command sebagai pendefinisian tabel (1 command = 1 tabel/query) dengan cara klik kanan Connection1 – Pilih Add Command. Kemudian klik kanan Command1 – Pilih Properties sehingga akan ditampilkan jendela seperti pada gambar 10.5

Gambar 10.5

Page 53 of 61


Langkah berikutnya ubah nama Command1 menjadi cmddosen, Pada bagian Database Object pilih pilihan Table. Pada Object Name pilih nama tabel yang akan dipakai (Dosen). Kemudian Klik Apply – OK, sehingga pada tampilan akhir Data Environment akan didapat hasil seperti pada gambar 10.6:

Gambar 10.6

3. Menambahkan Data Report Data Report merupakan komponen utama untuk mendesain tampilan laporan. Untuk menambahkan Data Report dapat dilakukan dengan cara memilih Menu Project – Add Data Report. Sehingga akan ditampilkan Lembar Desain Data Report (Gambar 10.7) dan Toolbox Data Report (Gambar 10.8).

Gambar 10.8

Gambar 10.7

Page 54 of 61


Untuk mendesain laporan kita dapat menggunakan komponen-komponen yang terdapat pada data report. Sebagai contoh, kita akan mendesain laporan data dosen dari database pengajaran diatas. Tambahkan komponen-komponen data report kedalam desain laporan dengan pengaturan properti sebagai berikut: Komponen

Properti

Nilai

DataReport1

(Name)

LapDosen

DataSource

DataEnvironment1 (pilihan)

DataMember

Cmddosen (pilihan)

Report Header (Section4) RptLabel1 (

Caption

)

Laporan Data Dosen

Page Header (Section2) RptLabel2

Caption

Kode Dosen

RptLabel3

Caption

Nama Dosen

RptLabel4

Caption

Alamat Dosen

RptLabel5

Caption

No Telepon

Top

0

Top

440

DataMember

Cmddosen

DataField

Kode_Dos

DataMember

Cmddosen

DataField

Nama_Dos

DataMember

Cmddosen

DataField

Alamat_Dos

DataMember

Cmddosen

DataField

No_Telp

RptLine1(

)

RptLine2 Detail (Section1) RptTextBox1 (

)

RptTextBox2

RptTextBox3

RptTextBox4

Page Footer (Section3) RptLine3

Top

0

Report Footer (Section5) RptLabel6 RptFunction ( RptLine4

Caption

Jumlah Data

FunctionType

4-rptFuncRCnt

Top

0

)

Page 55 of 61


Sehingga akan didapatkan hasil seperti pada gambar 10.9.

Gambar 10.9 Kemudian jalankan program sehingga didapat hasil seperti pada gambar 10.10.

Gambar 10.10.

Page 56 of 61


Bab XI Menu & Toolbar

Pada pemrograman aplikasi berbasis windows, umumnya sebuah program selalu dilengkapi dengan fasilitas Menu Bar dan Toolbar. Dalam pemrograman Visual BASIC, kita juga dapat membuat menu dan toolbar melalui fasilitas menu editor dan toolboxtoolbox yang telah disediakan Visual BASIC. Pada Bab ini kita akan membahas tata cara pembuatan menu dan toolbar menggunakan Visual BASIC secara singkat.

1. Menu Untuk membuat menu pada sebuah form, pertama kali kita harus membuat desain dari menu dan sub menu yang akan kita buat. Sebagai contoh kita akan membuat sebuah menu utama untuk mengakses program database yang telah kita buat. Langkah pertama anda harus menambahkan sebuah form (Project - Add Form). Kemudian Klik Menu Tools – Menu Editor untuk menampilkan jendela menu editor. Pada jendela yang muncul lakukan pengaturan menu sebagai berikut :

Caption

Name

&Data

mndata

....Data Dosen

mndtdosen

....Data Mata Kuliah

mndtmtkuliah

....Data Kuliah

mndtkuliah

....-

mngrs

&Laporan

mnlap

....Daftar Dosen

mnlapdosen

....Daftar Matakuliah

mnlapmk

....Jadwal Perkuliahan

mnlapjadwal

sehingga pada menu editor akan didapat tampilan lengkap sebagai berikut:

Page 57 of 61


Kemudian Klik OK. Sehingga pada tampilan form menu utama, akan tampil menu seperti berikut :

Untuk menambahkan perintah pada setiap menu dan sub menu, dapat dilakukan dengan memilih menu yang akan diberi perintah. Page 58 of 61


2. Toolbar Untuk mempercantik dan mempermudah akses pada program, kita dapat menambahkan komponen toolbar yang dapat berfungsi sebagai shortcut perintah tertentu. Sebagai contoh pada menu utama kita akan menambahkan 3 buah toolbar. Untuk membuat toolbar kita membutuhkan 2 buah komponen yaitu : Komponen ImageList (

) dan Komponen Toolbar (

). Tambahkan kedua

komponen tersebut kedalam form menu utama. Setelah itu atur gambar yang akan ditampilkan sebagai logo dari toolbar dengan cara klik kanan pada ImageList1 – Pilih Properties. Selanjutnya akan ditampilkan kotak dialog Property Pages sebagai berikut:

Pada Kotak dialog diatas pilih ukuran toolbar 32x32, kemudian klik Apply. Selanjutnya klik tab Images sehingga tampilan akan menjadi sebagai berikut:

Page 59 of 61


Klik tombol Insert Picture, tentukan tempat penyimpanan gambar dan pilih gambar yang diinginkan, kemudian klik Open. Isikan Key dengan nama tombol, misalnya : Dosen untuk tombol dosen dan selanjutnya. Setelah 3 gambar telah dipilih dan diberi nama, selanjutnya klik Apply – OK.

Langkah selanjutnya adalah mengatur property dari komponen Toolbar dengan cara Klik Kanan komponen Toolbar – Pilih Properties. Maka akan ditampilkan kotak dialog berikut:

Pada kotak dialog diatas atur ImageList menjadi ImageList1. Pilihan ini akan mendefiniskan daftar gambar yang kita pilih adalah Gambar dari ImageList1.

Selanjutnya klik tab Buttons, sehingga akan ditampilkan kotak dialog berikut :

Page 60 of 61


Untuk menambahkan tombol pada toolbar klik tombol Insert Button, kemudian untuk mendefinisikan gambar dari tombol, isikan Image dengan Key/nama tombol dari gambar pada ImageList1. Lakukan lagi hal tersebut hingga terdapat 3 tombol pada toolbar (Index = 3). Kemudian Klik Apply – OK. Sehingga pada tampilan akhir menu utama didapatkan tampilan seperti pada gambar berikut:

Catatan : Untuk memanggil form lain melalui menu utama anda dapat lakukan dengan memberikan listing : .Show Contoh : FrmDosen.Show

3. Mengkompile Program Langkah terakhir dalam pembuatan program aplikasi adalah mengkompile program yang telah kita buat menjadi program aplikasi berbentuk executable file (file exe). Untuk membuat file exe, ikuti langkah berikut ini: -

Aktifkan Project (contoh : Pengajaran.vbp) yang akan dijadikan file exe.

-

Klik menu File – Make Pengajaran.exe.

-

Selanjutnya tentukan tempat penyimpanan file exe.

-

Beri nama file exe (contoh : Pengajaran.exe)

-

Klik tombol OK

-

Selesai

Selanjutnya cobalah untuk membuka file exe tersebut melalui Windows Explorer dan lihat hasilnya. Page 61 of 61

Bab I Pengenalan Visual BASIC

Recommend Documents