Latihan Visual Basic

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Di Susun Oleh Agus Muhardi, A.Md

Jurusan Komputerisasi Akuntansi dan Manajeman Informatika Tangerang

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

1

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

KATA PENGANTAR Visual Basic! Kata ini sepertinya sudah tidak asing lagi bagi para pemakai komputer, khususnya yang orang-orang yang senang bahasa pemograman. Sejak bahasa ini muncul, seakan-akan menjadi kiblat bagi para progremmer untuk mempelajari dan menguasainya. Siapapun yang tidak mengetahui Visual Basic adalah orang yang ketinggalan katanya. Modul ini di susun untuk memberikan panduan pengunaan perangkat lunak Visual Basic, sehingga pembaca dapat mencobanya langsung. Pejelasan tiap modul di sajikan dalam bentuk step by step, sehingga lebih mudah dipelajari. Dan modul Visual Basic ini disusun untuk melengkapi kebutuhan belajar mahasiswa di Bina Sarana Informatika, khususnya bagi mereka yang ingin menekuni bidang pemograman berbasis windows. Penulis menyadari keterbatasan penyusunan modul ini masih jauh dari sempurnah. Oleh karena itu saran dan kritik dari para pembaca sangat di hargai. Saran, kritik atau pun pertanyaan dapat di kirim melalui email ke: [email protected] atau [email protected] atau [email protected] kunjungi www.geocities.com/alga_musa Akhir kata semoga pembaca mendapat menfaat dari buku ini.Terima Kasih.

Tangerang, 17 Maret 2005

Agus Muhardi,A.md Penulis

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

2

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Pertemuan 1- 3 Pengenalan Visual Basic 6.0 Merancang Form

Label 2

Pengaturan Objek Objek

Properti

Nilai

Form1

Name

Perkenalan

Caption

Perkenalan VB

Label1

Caption

Belajar Visual Basic 6.0

Label2

Name

lblkenal

Text1

Name

txtkenal

Frame1

Name

frmoption

Caption

Coba Option Button

OptionButton Caption

Klik Daku

Frame2

Name

Frmcek

Caption

Check List Aku

CheckBox

Caption

Coba Cehck Button

Comamnd1

Name

cmdmerah

Caption

&Merah

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

3

Bina Sarana Informatika Comamnd2

Comamnd3

Comamnd1

Komputerisasi Akuntansi & Manajemn Informatika

Name

cmdkuning

Caption

&Kuning

Name

cmdclear

Caption

&Clear

Name

cmdaktif

Caption

&Aktif

Listing Programnya: Private Sub Check1_Click() lblkenal.Caption = "Visual Basic 6.0 Gampang Yach" lblkenal.Alignment = vbCenter lblkenal.FontSize = 24 txtkenal.Text = "Ini gara-gara diklik CheckBox" txtkenal.Alignment = vbCenter txtkenal.FontSize = 20 Option1.Value = 0 End Sub

Private Sub cmdaktif_Click() lblkenal.Enabled = True txtkenal.Enabled = True frmoption.Enabled = True frmcek.Enabled = True Option1.Enabled = True Check1.Enabled = True cmdmerah.Enabled = True cmdkuning.Enabled = True cmdclear.Enabled = True End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

4

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdclear_Click() lblkenal.Caption = "" txtkenal.Text = "" Check1.Value = 0 Option1.Value = 0 End Sub

Private Sub cmdkuning_Click() lblkenal.ForeColor = vbYellow txtkenal.ForeColor = vbYellow End Sub

Private Sub cmdmerah_Click() lblkenal.ForeColor = vbRed txtkenal.ForeColor = vbRed End Sub

Private Sub Form_Load() lblkenal.Enabled = False txtkenal.Enabled = False frmoption.Enabled = False frmcek.Enabled = False Option1.Enabled = False Check1.Enabled = False cmdmerah.Enabled = False cmdkuning.Enabled = False cmdclear.Enabled = False

Private Sub Option1_Click() lblkenal.Caption = "Kami Baru Belajar Visual Basic 6.0" lblkenal.Alignment = vbCenter lblkenal.FontSize = 24 txtkenal.Text = "Ini ada di TextBox" txtkenal.Alignment = vbCenter txtkenal.FontSize = 20 Check1.Value = 0 End Sub

End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

5

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Pertemuan 4 - 7 Konstanta dan Variable , operator , Struktur Kendali Designlah Form seperti di bawah ini:

o Objek-objek yang terkait Objek

Properti

Nilai

Form1

Caption

If then else n select case

Label1

Captiom

Latihan Brancing

Label2

Captiom

Niali

Label3

Caption

Keterangan

Label4

Caption

Kategori

Text1

Name

txtnilai

Label5

Name

lblket

Label5

Name

lblkate

Listing programnya Private Sub cmdbersih_Click() txtnilai.Text = "" lblket = "" lblkate = "" txtnilai.SetFocus End Sub Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

6

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdelse_Click() Dim niali As Integer Dim ket As String nilai = txtnilai.Text Select Case nilai Case 0 To 50 ket = "Mengecewakan" Case 51 To 60 ket = "Tidak Memuaskan" Case 61 To 70 ket = "Memeuaskan" Case Is <= 100 ket = "Sangat Memuaskan" Case Else ket = "Buset Tinggi Bangget Nilai Looeeee Tong" End Select lblkate.Caption = ket End Sub

Private Sub cmdif_Click()

Private Sub cmdkeluar_Click()

If txtnilai <= 50 Then

End

lblket.Caption = "Bodoh"

End Sub

ElseIf txtnilai <= 60 Then lblket.Caption = "Sedang" ElseIf txtnilai <= 70 Then lblket.Caption = "Pintar" ElseIf txtnilai <= 100 Then lblket.Caption = "Sangat Pintar" Else lblket.Caption = "Emang ada Nilai Segitu" End If End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

7

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Designlah Form seperti di bawah ini:

Urutan Proses: o Pertama form dipanggil, tombol Hitung,Bersih, dan Keluar tidak aktif. o User mengisi Jumlah Beli, dan jika di tekan enter, kursor akan terfokus menuju Harga Satuan. o Saat mengisi Harga Satuan, Tombol Hitung aktif, dan jika di tekan enter maka hasil perhitungan muncul pada label Bayar(Bayar=Jumalh Beli * Harga Satuan) o Saati itu tombol Bersih dan Keluar bisa di akses o Objek-objek yang terkait Objek

Properti

Nilai

Form1

Caption

Yantie Mart

Label1

Captiom

Yantie Mart Struk Belanja

Label2

Captiom

Jumlah Beli

Label3

Caption

Harga Satuan

Label4

Caption

Bayar

Label5

Name

lblhasi

Text1

Name

txtjumlah

Text2

Name

txtharga

Command1 Name Caption Command2 Name Caption Command3 Name Caption

Cmdhitung &Hitung Cmdbersih &Bersih Cmdkeluar &Keluar

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

8

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Listing Programnya: Dim bayar As Single

Private Sub cmdbersih_Click() txtjumlah.Text = "" txtharga.Text = "" txthasil = "" txtjumlah.SetFocus End Sub

Private Sub cmdhitung_Click() bayar = Val(txtjumlah.Text) * Val(txtharga.Text) lblhasil = Format(bayar, " Rp ###,###,###") & ",-" cmdbersih.Enabled = True cmdkeluar.Enabled = True Exit Sub End Sub

Private Sub cmdkeluar_Click() psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi") If psn = vbYes Then MsgBox "Makasih Yach.........", 32, "informasi" End Else If psn = vbNo Then MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi" End If End If End Sub Private Sub Form_Load() cmdhitung.Enabled = False cmdbersih.Enabled = False cmdkeluar.Enabled = False End Sub Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

9

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub txtharga_Change() bayar = Val(txtjumlah.Text) * Val(txtharga.Text) On Error Resume Next lblhasil = Format(" Rp ") & ",-" Exit Sub End Sub

Private Sub txtharga_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdhitung.Enabled = True cmdhitung.SetFocus Else If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then MsgBox "Hanya Boleh Angka BO....?", 16, "informasi" KeyAscii = 0 End If End If End Sub

Private Sub txtjumlah_Change() bayar = Val(txtjumlah.Text) * Val(txtharga.Text) On Error Resume Next lblhasil = Format(bayar, " Rp ###,###,###") & ",-" Exit Sub End Sub

Private Sub txtjumlah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtharga.SetFocus Else If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then MsgBox "Hanya Boleh Angka BO....?", 16, "informasi" Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

10

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

KeyAscii = 0 End If End If End Sub

Rancanglah form berikut ini : (Struktur Kendali/Brancing)

Urutan Proses o Pertama form dipanggil, tombol Hitung tidak aktif. o User mengisi Nilai Ujian 1, dan jika di tekan enter, kursor akan terfokus menuju Nilai Ujian 2. o Saat mengisi Nilai Ujian , Tombol Hitung aktif, dan jika di tekan enter maka hasil perhitungan tampil dan Tombol Hitung berganti dengan Tombol Clear o Objek-objek yang terkait Objek

Properti

Nilai

Form1

Caption

Hitung Nilai

Label1

Captiom

Menghitung Nilai Mahasiswa

Label2

Captiom

Nilai Ujian 1

Label3

Caption

Nilai Ujian 2

Label4

Caption

Rata - Rata

Label5

Caption

Keterangan

Label6

Name

lblrata

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

11

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Label7

Name

lblket

Text1

Name

Txtnilai1

Text1

Name

Txtnilai2

Comamand1 Caption Name

&Hitung Cmdhitung

Listing Programnya: Private Sub cmdhitung_Click() If cmdhitung.Caption = "&Hitung" Then lblrata = (Val(txtnilai1.Text) + Val(txtnilai2.Text)) / 2 ket cmdhitung.Caption = "&Clear" Else If cmdhitung.Caption = "&Clear" Then bersih cmdhitung.Caption = "&Hitung" End If End If End Sub

Private Sub Form_Load() cmdhitung.Enabled = False End Sub

Sub bersih() txtnilai1.Text = "" txtnilai2.Text = "" lblket = "" lblrata = "" txtnilai1.SetFocus End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

12

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub txtnilai1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnilai2.SetFocus End If End Sub

Sub ket() If lblrata >= 85 Then lblket = "Sangat Memuaskan" ElseIf lblrata >= 75 Then lblket = "Cukup Memuaskan" ElseIf lblrata >= 60 Then lblket = "Memuaskan" Else lblket = "Kurang Memuaskan" End If End Sub

Private Sub txtnilai2_KeyPress(KeyAscii As Integer) cmdhitung.Enabled = True If KeyAscii = 13 Then cmdhitung.SetFocus End If End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

13

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Pertemuan 9 Perulangan / Looping Designlah Form Berikut ini

o Objek-objek yang terkait Objek Form1

Properti Caption

Command1 Name Caption Command2 Name Caption Command3 Name Caption Command4 Name Caption Comamnd5 Name Caption Command3 Name Caption Command6 Name Caption Command7 Name

Nilai looping Cmdfor FOR cmdfornext FORNEXT cmdfornested FOR NESTED cmddowhile DO - WHILE cmdfornested &FOR NESTED cmdfornested &FOR NESTED cmdwhilewen WHILE - WEN cmdkeluar

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

14

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Listing Programnya: Private Sub cmddountil_Click() frmperulangan.Cls kamu = 8 Do Until kamu = 0 frmperulangan.Print kamu; kamu = kamu - 2 Loop End Sub Private Sub cmddowhile_Click() frmperulangan.Cls kamu = 5 Do While kamu > 0 frmperulangan.Print kamu; kamu = kamu - 1 Loop End Sub Private Sub cmdfor_Click() frmperulangan.Cls For Yantie = 1 To 5 frmperulangan.Print Yantie Next Yantie End Sub Private Sub cmdfornested_Click() frmperulangan.Cls Dim cinta, sayang As Integer For cinta = 1 To 3 For sayang = 10 To 5 Step -1 frmperulangan.Print sayang Next sayang Next cinta End Sub Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

15

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdfornext_Click() frmperulangan.Cls Dim Yantie As Integer For Yantie = 1 To 10 frmperulangan.Print Yantie Next Yantie End Sub

Private Sub cmdkuluar_Click() End End Sub

Private Sub cmdloop_Click() frmperulangan.Cls y=6 Do frmperulangan.Print y; y=y-1 Loop While y > 0 End Sub

Private Sub cmdwhilewen_Click() frmperulangan.Cls Dim p As Integer p=1 While p <= 10 frmperulangan.Print p p=p+1 Wend End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

16

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Contoh Aplikasi yang Menggunakan Perulangan:

o Objek-objek yang terkait Objek Form1

Properti Caption

Command1 Name Caption Command2 Name Caption

Nilai Aplikasi Perulangan cmdhitung &Hitung Lagi cmdselesai &Selesai

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

17

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Program Listingnya: Private Sub bersih() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Combo1 = "" List1 = "" Option1.Value = 0 Option2.Value = 0 Option3.Value = 0 End Sub

Private Sub cmdhitung_Click() bersih End Sub Private Sub cmdselesai_Click() psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi") If psn = vbYes Then MsgBox "Makasih Yach.........", 32, "informasi" End Else If psn = vbNo Then MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi" End If End If End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

18

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub Combo1_click() Select Case Combo1.ListIndex Case 0 Text3 = 150000 Text4 = 100000 Case 1 Text3 = 200000 Text4 = 125000 Case 2 Text3 = 300000 Text4 = 175000 Case 3 Text3 = 400000 Text4 = 200000 Case 4 Text3 = 500000 Text4 = 250000 Case 5 Text3 = 600000 Text4 = 300000 End Select End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then List1.SetFocus End If End Sub

Private Sub Form_Load() bersih Dim yasta As Integer For yasta = 1 To 6 Combo1.AddItem "A" & CStr(yasta) Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

19

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Next For yasta = 1 To 5 List1.AddItem CStr(yasta) & "A" Next End Sub Private Sub List1_Click() If List1.ListIndex = 0 Then Text5 = "Direktur" Text6 = 500000 ElseIf List1.ListIndex = 1 Then Text5 = "Manager" Text6 = 300000 ElseIf List1.ListIndex = 2 Then Text5 = "Kabag" Text6 = 250000 ElseIf List1.ListIndex = 3 Then Text5 = "Manager" Text6 = 175000 ElseIf List1.ListIndex = 4 Then Text5 = "Seketaris" Text6 = 125000 End If End Sub Private Sub Option1_Click() Text9 = 150000 Option2.Value = False Option3.Value = False End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

20

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub Option2_Click() Text9 = 0 Option1.Value = False Option3.Value = False End Sub Private Sub Option3_Click() Text9 = 100000 Option1.Value = False Option2.Value = False End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub

Private Sub Text10_Click() Text10 = Format(Val(Text3.Text) + (Text4.Text) + (Text6.Text) + (Text8.Text) + (Text9.Text), "Rp ###,###,###") End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Combo1.SetFocus End If End Sub

Private Sub Text8_Click() Text8 = Val(Text7.Text) * 75000 End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

21

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Pertemuan 10 Latihan Aplikasi Dari Pertemuan 1 Samapi Pertemuan 9 Sebuah Cafe Palembang 16 Ilir mempunyai cara sendiri dalam menarik pelanggannya mulai dari menu yang menarik samapai mendapat bonus ataupun potongan, Menu Pilihan di pilih secara otomatis melalui Option Button: o Jika memilih Menu Kapal Selam maka Harga 5500/porsi o Jika memilih Menu Pempek Panggang maka Harga 5000/porsi o Jika memilih Menu Lenggang maka Harga 4500/porsi Café Palembang ini juga memberikan potongan pembayaran berdasarkan jumlah porsi yang dipesan: Bila pemesanan diatas 10 maka akan mendapatkan potongan 10% dari Bayar dan mendapat bonus 1 porsi. Tekwan, selainnya tidak dpat potongan dan bonus Biaya pajak yang harus di keluarkan oleh pembeli sebagai wajib pajak yang baik adalah 5% dari Bayar. Buatlah program berdasarkan ketentuan diatas dan designlah tampilan seperti dibawah ini:

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

22

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Urutan Proses o Pertama form dipanggil, tombol Claer tidak aktif. o User Memilih Mnu maka otomatis Harga Per Porsih Terisi o Saat mengisi Jumlah Porsi maka secara otomatis Bayarm Bonus, Potongan, PPn, Total Bayat Terisi, jika di tekan enter maka kursor berada pada Uang Bayar dan Tombol Clear bisa di akses o Saat mengisi Uang Bayar maka Uang Kembali akan terisi secara otomatis

Jawaban: o Objek-objek yang terkait Objek Form1

Properti Caption

Command1 Caption Name Command2 Caption Name

Nilai Latihan 1 samapi 9 &Clear Cmdclear &Exit cmdexit

Listing Programnya: Dim bayar As Long Private Sub cmdclear_Click() bersih End Sub

Private Sub Form_Load() Label10 = Date bersih Option1.Value = False Option2.Value = False Option3.Value = False cmdclear.Enabled = False End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

23

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Sub bersih() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Option1.Value = 0 Option2.Value = 0 Option3.Value = 0 End Sub Private Sub Option1_Click() Text1 = 5500 Text2.SetFocus Option2.Value = False Option3.Value = False End Sub Private Sub Option2_Click() Text1 = 5000 Text2.SetFocus Option1.Value = False Option3.Value = False End Sub

Private Sub Option3_Click() Text1 = 4500 Text2.SetFocus Option1.Value = False Option2.Value = False End Sub Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

24

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub Text2_Change() cmdclear.Enabled = True bayar = Val(Text1.Text) * Val(Text2.Text) On Error Resume Next Text3.Text = Format(bayar, " Rp ###,###,###") & ",-" If Text2 >= 10 Then Text4.Text = "Lenggang" Text5.Text = bayar * 10 / 100 Text6.Text = bayar * 5 / 100 Text7.Text = bayar + Text6.Text - Text5.Text Else Text4.Text = "-" Text5.Text = 0 Text6.Text = bayar * 5 / 100 Text7.Text = bayar + Text6.Text End If Exit Sub End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text8.SetFocus End If End Sub

Private Sub Text8_Change() On Error Resume Next 'Text9.Text = Text8.Text - Text7.Text Text9.Text = Format(Text8.Text - Text7.Text, " Rp ###,###,###") & ",-" End Sub

Selamat Menempuh UTS Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

25

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Kretria penilaian Visual basic 6.0 Kriteria penilaian programing (database):

a. persiapan (20%) n-1-> kesesuaian aplikasi & Nama file yang digunakan (10%) n-2-> Pembuatan database, table & index (10%) b. struktur program (50%) n-3-> Koneksi database (15%) n-4-> Penggunaan objek & properties (15%) n-5-> Sintak program & prosedur (20%) c. tampilan hasil (30%) n-6-> Eksekusi program (15%) n-7-> Kesesuaian tampilan (15%)

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

26

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Pertemuan 19 Pengenalan DataBase Membuat database dengan Visual Manager, ikuti langka2 berikut ini:  Pilih Add-Ins pada menu utma Visual Basic, lalu pilih Visual Data Manager

 Pilih: File/New/Microsoft Access/version7.0 MDB

Pindahkan ke folder masingmasing setelah itu ketik File Name nya….kemudian Tekan Save

 Setelah klik Save maka akan tampil

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

27

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

 Klik kanan pada Properties, pilih New Table, setelah itu ketik Table Name : tbl_bio

 Klik Add Fiels untuk menginput field-filed berikut ini

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

28

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Name

Type

Size

inisial

Text

3

nama

Text

25

alamat

Text

30

telepon

Text

15

Membuat Index  Klik Add Index, jika sudah di isi klik Ok

 Klik Build the Table, jika telh selesai membuat index  Mengisi data pada Tabel, cukup doble klik aja pada tbl_bio, maka akan tampil

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

29

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

 Fungsi –fungsi Add

: Menambah Record Baru

Edit

: Mengedit Record Aktif

Delete : Menghapus Record Aktif Close

: Tutup Database

Setelah selesai membuat database, kita akan membahas bagai mana menggunakan database tersebut..

Pertemuan 20 - 22 Menggunakan Database Kontrol Data Dan Pencarian Data SEEK Designlah Form Berikut ini:

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

30

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

o Objek-objek yang terkait Objek

Properti

Nilai

Form1

Caption

Mengunakan Database Lewat Kontrol Data

Label1

Caption

Daftar Nama Teman – Teman Ku

Label2

Caption

Inisial

Label3

Caption

Nama

Label4

Caption

Alamat

Label5

Caption

Telepon

Data1

Name

Dbbio

Caption

Bio Data Teman Ku

Database Name

Ada difolder masing-masing

RecordSet Type

0-Table

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

31

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

RecordSource

Tbl_bio

Frem1

Caption

Tombol Yang Digunakan

Command1

Caption

&Awal

Name

cmdawal

Picture

C:\Program

Files\Microsoft

Visual

Studio\Vfp98\Wizard\Graphics\TOP

Command2

Style

1 - Graphical

ToolTipText

Awal

Caption

A&khir

Name

cmdakhir

Picture

C:\Program

Files\Microsoft

Visual

Studio\Vfp98\Wizard\Graphics\Bottom

Command3

Style

1 - Graphical

ToolTipText

Akhir

Caption

&Lagi

Name

cmdlagi

Picture

C:\Program

Files\Microsoft

Visual

Studio\Vfp98\Wizard\Graphics\Next

Command4

Style

1 - Graphical

ToolTipText

LAgi

Caption

Bali&k

Name

cmdbalik

Picture

C:\Program

Files\Microsoft

Visual

Studio\Vfp98\Wizard\Graphics\Privious

Command5

Style

1 - Graphical

ToolTipText

Balik

Caption

&Tambah

Name

cmdtambah

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang e\Color\New Style

1 - Graphical

ToolTipText

Tambah Files

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

32

Bina Sarana Informatika Command6

Komputerisasi Akuntansi & Manajemn Informatika

Caption

&Simpan

Name

cmdsimpan

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang e\Color\Save

Command7

Style

1 - Graphical

ToolTipText

Simpan Files

Caption

&Edit

Name

cmdedit

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang e\Color\Edit

Command8

Style

1 - Graphical

ToolTipText

Edit File nih….

Caption

&Batal

Name

cmdbatal

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang e\Color\Undo

Command9

Style

1 - Graphical

ToolTipText

Ini Batal

Caption

&Hapus

Name

cmdhapus

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang e\Color\Delete

Command10

Style

1 - Graphical

ToolTipText

Mo Hapus File

Caption

&Cari

Name

cmdcari

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lang

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

33

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika e\Color\Spell

Command11

Style

1 - Graphical

ToolTipText

Mo Cari File Yach

Caption

&Keluar

Name

cmdkeluar

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Icon\Traffic\Traffic19A Style

1 - Graphical

ToolTipText

Tambah Files

Listing Programnya Sub aktif() Dim GusTi As Control For Each GusTi In Frm_kontrol_data If TypeName(GusTi) = "TextBox" Then GusTi.Locked = False GusTi.Enabled = True End If Next End Sub

Sub nonaktif() Dim Yantie As Control For Each Yantie In Frm_kontrol_data If TypeName(Yantie) = "TextBox" Then Yantie.Locked = True Yantie.Enabled = False End If Next End Sub

Sub kosong() Dim yasta As Control For Each yasta In Frm_kontrol_data If TypeName(yasta) = "TextBox" Then Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

34

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

yasta.Text = "" End If Next End Sub

Private Sub cmdakhir_Click() dbbio.Recordset.MoveLast MsgBox "Sudah Diawal Record....Aa", 16, "Informasi" End Sub

Private Sub cmdawal_Click() dbbio.Recordset.MoveFirst MsgBox "Sudah Diawal Record...Dek", 16, "Informasi" End Sub

Private Sub cmdbalik_Click() dbbio.Recordset.MovePrevious If dbbio.Recordset.BOF Then dbbio.Recordset.MoveFirst MsgBox "Sudah Diawal Record Adek", "16", "Informasi" End If End Sub

Private Sub cmdbatal_Click() dbbio.Recordset.CancelUpdate dbbio.Recordset.MoveLast nonaktif End Sub

Private Sub cmdcari_Click() Dim caridek As String * 3 caridek = InputBox("Ketik Inisialnya:", "Pencarian Biodata") deksyarat = "inisial '" & caridek & "'" Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

35

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

dbbio.Recordset.Index = "inisial" dbbio.Recordset.Seek "=", caridek If dbbio.Recordset.NoMatch Then MsgBox "Record Inisial " + caridek + " tidk ada", 16, "informasi" dbbio.Recordset.MoveFirst End If End Sub

Private Sub cmdedit_Click() dbbio.Recordset.Edit aktif txtini.SetFocus End Sub

Private Sub cmdhapus_Click() del = MsgBox("Record Mo Dihapus?", 36, "Konfirmasi") If del = 6 Then dbbio.Recordset.Delete dbbio.Recordset.MoveLast If dbbio.Recordset.EOF Then dbbio.Recordset.MoveLast End If End If End Sub

Private Sub cmdkeluara_Click() psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi") If psn = vbYes Then MsgBox "Makasih Yach.........", 32, "informasi" End Else If psn = vbNo Then MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi" End If Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

36

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

End If End Sub

Private Sub cmdlagi_Click() dbbio.Recordset.MoveNext If dbbio.Recordset.EOF Then dbbio.Recordset.MoveLast MsgBox "Sudah Diakhir Reocrd Adek...Sayang", 16, "Informasi" End If End Sub

Private Sub cmdsimpan_Click() If tambah = True Then dbbio.Recordset.Update Else dbbio.Recordset.Update End If nonaktif End Sub

Private Sub cmdtambah_Click() tambah = True dbbio.Recordset.AddNew kosong aktif txtini.SetFocus End Sub

Private Sub Form_Activate() Private Sub txtnomor_KeyPress(KeyAscii As Integer) txtini.MaxLength = 3 KeyAscii = Asc(UCase(Chr(KeyAscii))) txtnama.MaxLength = 25 txtalamat.MaxLength = 30

If KeyAscii = 13 Then cmdsimpan.SetFocus

Kumpulan Materi Visual Basic Else 6.0

CopyRight:AgusMuhardi, A.Md

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then

37

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

txtnomor.MaxLength = 15 End Sub

Private Sub Form_Load() nonaktif tambah = False End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then txtnomor.SetFocus End If End Sub

Private Sub txtini_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub

Pertemuan 23 Menggunakan Database Kontrol Data Dan Pencarian Data SEEK Plus Dbgrid Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

38

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Menampilan Objek Dbgtid : Klik Project – Components atau tekan Ctrl T, maka akan tampil:

Cek List lah Microsoft Data Bound Grid Control5.0 (SP3) kemudian klik APPLY

Buakalah file yang diatas , kemudian tambahkan Objeck Dbgrid diform tersebut:

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

39

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

o Objek-objek yang terkait Objek DBgrid

Properti

Nilai

Name

Dbgrid1

Caption

Daftar Teman – Teman Ku

DataSource

Tbl_bio

Listing Programnya tidak ada perubahan atau penambahan

Pertemuan 24 Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

40

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Menggunakan Database Kontrol Data Dan Pencarian Data FindFirst Plus Dbgrid Bukalah form yang diatas tadi….lalu edit/hilangkanlah objeck yang tidak di perlukan sehingga sama seperti dibawah ini:

o Objek-objek yang Dihilangkan Objek Command10

Properti

Nilai

Caption

&Cari

Name

cmdcari

Picture

C:\Program

Files\Microsoft

Visual

Studio\Common\Graphics\Bitmaps\Off\CtlBr\Lange\ Color\Spell Style

1 - Graphical

ToolTipText

Mo Cari File Yach

o Objek-objek yang Yang Ditambah

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

41

Bina Sarana Informatika Objek

Komputerisasi Akuntansi & Manajemn Informatika

Properti

Nilai

Frame1

Caption

Cari Inisial Teman Ku

Label1

Cation

Masukkan Inisialnya

Text1

Name

Txtcari

Caption



Name

Cmdaktif

Caption

&Aktif

Name

Cmdcari

Caption

&Cari

Command1

Command2

Listing Program yang harus di edit/di rubah dan ditambah: Private Sub txtcari_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Cmdcari.SetFocus End If End Sub Private Sub cmdaktif_Click() aktif txtcari.SetFocus End Sub Private Sub cmdcari_Click() Dim caridek As String * 3 caridek = txtcari.Text deksyarat = "inisial '" & caridek & "'" dbbio.Recordset.Index = "inisial" dbbio.Recordset.Seek "=", caridek If dbbio.Recordset.NoMatch Then MsgBox "Record Inisial " + caridek + " tidk ada", 16, "informasi" dbbio.Recordset.MoveFirst End If End Sub

Latihan Mengunakan 1 database dgn 2 tebel atau lebih Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

42

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

o Buatlah database dengan nama Daftar dan buatlah table-table berikut ini o Tbl_Makan FIELD

TYPE

SIZE

Kode1

Text

5

Nm_Makan

Text

25

Harga

Currency

o Tbl_Minum FIELD

TYPE

SIZE

Kode2

Text

5

Nm_Minum

Text

20

Harga

Currency

o Objek-objek yang terkait Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

43

Bina Sarana Informatika Objek

Komputerisasi Akuntansi & Manajemn Informatika

Properti

Nilai

Form1

Caption

Mengunakan Database Dengan 2 Table

Label1

Caption

Rumah Makan Bajek Nian

Data1

Caption

Data Makanan

Name

DataMakanan

DatabaseName

Ada di folder Mahasiswa masing-masing

RecordSource

Tbl_Makan

Caption

Data Minuman

Name

Dataminuman

DatabaseName

Ada di folder Mahasiswa masing-masing

RecordSource

Tbl_Minum

Caption

Daftar Makanan

DataSource

Datamakanan

Caption

Daftar Minuman

DataSource

Dataminuman

Frame1

Caption

Makanan

Frame2

Caption

Minuman

Label2

Caption

Nama Makanan

Label3

Caption

Harga

Label4

Caption

Jumlah Porsi

Label6

Caption

Nama Minuman

Label7

Caption

Harga

Label8

Caption

Jumlah porsi

Label9

Caption

Total Bayar

Label10

Caption

Uang Bayar

Label11

Caption

Kembali

Text1

Name

Text1

Caption



Name

Text2

Caption



Name

Text3

Caption



Name

Text4

Data2

DBGrid1

DBGrid2

Text2

Text3

Text4

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

44

Bina Sarana Informatika

Text5

Text6

Text7

Text8

Text9

Command1

Command2

Komputerisasi Akuntansi & Manajemn Informatika

Caption



Name

Text5

Caption



Name

Text6

Caption



Name

Text7

Caption



Name

Text8

Caption



Name

Text9

Caption



Name

Cmdhitung

Caption

&Hitung

Name

Cmdkeluar

Caption

&Keluar

Listing Programnya Dim bayar As Long Private Sub cmdhitung_Click() bayar = Val(Text2.Text) * Val(Text3.Text) + Val(Text5.Text) * Val(Text6.Text) Text7 = Format(bayar, " Rp ###,###,###") & ",-" End Sub

Private Sub Text8_Change() Text9.Text = Format(Text8.Text - bayar, " Rp ###,###,###") & ",-" End Sub

Private Sub cmdkeluar_Click() End End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

45

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Pertemuan 25 Mengunakan Database Lewat Kode Program 1. Designlah Form dibawah ini: 2. Gunakan database bio

o Objek-objek yang terkait Objek

Properti

Nilai

Form1

Caption

Mengunakan Database Lewat Kode Program

Label1

Caption

Daftar Nama Teman – Teman Ku

Label2

Caption

Inisial

Label3

Caption

Nama

Label4

Caption

Alamat

Label5

Caption

Telepon

Frem1

Caption

Tombol Yang Digunakan

Command1

Caption

&Awal

Name

cmdawal

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

46

Bina Sarana Informatika

Command2

Command3

Command4

Command5

Command6

Command7

Command8

Command9

Command10

Command11

Komputerisasi Akuntansi & Manajemn Informatika

ToolTipText

Awal

Caption

A&khir

Name

cmdakhir

ToolTipText

Akhir

Caption

&Lagi

Name

cmdlagi

ToolTipText

LAgi

Caption

Bali&k

Name

cmdbalik

ToolTipText

Balik

Caption

&Tambah

Name

cmdtambah

ToolTipText

Tambah Files

Caption

&Simpan

Name

cmdsimpan

ToolTipText

Simpan Files

Caption

&Edit

Name

cmdedit

ToolTipText

Edit File nih….

Caption

&Batal

Name

cmdbatal

ToolTipText

Ini Batal

Caption

&Hapus

Name

cmdhapus

ToolTipText

Mo Hapus File

Caption

&Cari

Name

cmdcari

ToolTipText

Mo Cari File Yach

Caption

&Keluar

Name

cmdkeluar

ToolTipText

Tambah Files

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

47

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Listing Programnya: Dim dbbio As Database Dim rsbio As Recordset

Sub aktif() Dim GusTi As Control For Each GusTi In frmkodeprogram If TypeName(GusTi) = "TextBox" Then GusTi.Locked = False GusTi.Enabled = True End If Next End Sub

Sub nonaktif() Dim Yantie As Control For Each Yantie In frmkodeprogram If TypeName(Yantie) = "TextBox" Then Yantie.Locked = True Yantie.Enabled = False End If Next End Sub

Sub kosong() Dim Yasta As Control For Each Yasta In frmkodeprogram If TypeName(Yasta) = "TextBox" Then Yasta.Text = "" End If Next End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

48

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Sub ambil_data() On Error Resume Next txtini.Text = rsbio!inisial txtnama.Text = rsbio!nama txtalamat.Text = rsbio!alamat txtnomor.Text = rsbio!telepon End Sub

Private Sub cmdakhir_Click() aktif rsbio.MoveLast ambil_data MsgBox "Sudah Diakhir Record Coy....", 16, "Informasi" End Sub

Private Sub cmdawal_Click() aktif rsbio.MoveFirst ambil_data MsgBox "Sudah Diawal Record", 16, "Informasi" End Sub

Private Sub cmdbalik_Click() 'On Error Resume Next aktif rsbio.MovePrevious ambil_data If rsbio.BOF Then rsbio.MoveFirst ambil_data MsgBox "Sudah Diawal Record", 16, "Informasi" End If End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

49

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub cmdcari_Click() carikode = InputBox("ketik Inisial yang akan cari", "Pencarian Data") rsbio.Index = "inisial" rsbio.Seek "=", carikode If rsbio.NoMatch Then MsgBox "Maaf Inisial" & carikode & "belum Terdaftar", 16, "Informasi" Else aktif ambil_data End If End Sub

Private Sub cmdedit_Click() If txtini = "" Then MsgBox "Tampilkan File dulu atau Cari File yang akan Di EDIT", 32, "Informasi" Else rsbio.Edit aktif txtini.SetFocus End If End Sub

Private Sub cmdhapus_Click() If txtini = "" Then MsgBox "Maaf Tidak ada data yang akan dihapus, Tampilkan dulu", 16, "Informasi" Else adek = MsgBox("Betul Akan Dihapus?", 32 + 4, "Konfirmasi") If adek = 6 Then '6=vbyes rsbio.Delete rsbio.MoveFirst Refresh kosong nonaktif End If Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

50

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

End If End Sub

Private Sub cmdkeluara_Click() psn = MsgBox("Anda Yakin Ingin Keluar", 32 + 4, "Informasi") If psn = vbYes Then MsgBox "Makasih Yach.........", 32, "informasi" End Else If psn = vbNo Then MsgBox "Lho.....kok enggak jadi toh", 32, "Informasi" End If End If End Sub

Private Sub cmdlagi_Click() 'On Error Resume Next aktif rsbio.MoveNext ambil_data If rsbio.EOF Then rsbio.MoveLast ambil_data MsgBox "Sudah Diakhir Record...jangan diklik terus....", 16, "Informasi" End If End Sub

Private Sub cmdsimpan_Click() If tambah = True Then rsbio!inisial = txtini.Text rsbio!nama = txtnama.Text rsbio!alamat = txtalamat.Text rsbio!telepon = txtnomor.Text rsbio.Update Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

51

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

kosong nonaktif Else rsbio!inisial = txtini.Text rsbio!nama = txtnama.Text rsbio!alamat = txtalamat.Text rsbio!telepon = txtnomor.Text rsbio.Update kosong nonaktif End If nonaktif End Sub

Private Sub cmdtambah_Click()

Private Sub Form_Activate()

tambah = True

txtini.MaxLength = 3

rsbio.AddNew

txtnama.MaxLength = 25

kosong

txtalamat.MaxLength = 30

aktif

txtnomor.MaxLength = 15

txtini.SetFocus

nonaktif

End Sub

tambah = False End Sub

Private Sub Form_Load() Set dbbio = OpenDatabase("c:\yantie\database\bio.mdb") Set rsbio = dbbio.OpenRecordset("tbl_bio") rsbio.Index = "inisial" End Sub

Private Sub txtalamat_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then txtnomor.SetFocus End If End Sub Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

52

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Private Sub txtini_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then txtnama.SetFocus End If End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub

Private Sub txtnomor_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdsimpan.SetFocus Else If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then MsgBox "Hnya Boleh Diisi Dengan Angka", 16, "Informasi" KeyAscii = 0 End If End If End Sub

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

53

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

Pertemuan 26 Membuat Laporan dengan Data Environment Mo bisa buat laporan, ikutin langka-langka berikut ini: 1. Lihatlah di menu Project apakah Add Data Envorinmet sudah ada atau belum, jika belum ada Anda bisa menambahnya dengan cara: Klik Project – component atau Ctrl – T lalu klik tab Designers berilah tanda caklist pada Data Environment – lalu klik Apply

Agus Muhardi [email protected]

2. Klik Procejt – Add Data Envoritment – klik kanan pada conection1. pilih rename ketik bio 3. Untuk menghubungkan dengan database, klik kanan pada bio – pilih properties – kemudian pilih Microsoft Jet 3.51 OLE DB PROVIDER, klik Next

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

54

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

4. Browse/carilah nama database yang akan di hubungkan Klik ini untuk mencari database yang akan dihubunkan.

5. Klik Test Connection untuk melihat berhasil atau tidak koneksinya, jika koneksi berhasil silahkan klik OK. 6. Klik kanan pada bio….kemudian klik Add Comamand 7. Klik kanan pada Command1 pilih properties:

Ubah menjadii table

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

55

Bina Sarana Informatika

Komputerisasi Akuntansi & Manajemn Informatika

8. Membuat Data Report a. Klik Project – klik Add Data Report ( Letakkan jendela Data Environment di atas jendela Data Report) sepeti contoh di bawah ini:

b. Klik Drak/tarik/pindahkan isi yang ada pada Command1 ke dalam Detail(Section1) lalu aturlah/designlah sesuai keinginan Anda.. c. Field yang sebelah kiri itu untuk Judul…dan sebelah kanan untuk isi field d. Dan kini laporan Anda sudah siap…..

Kumpulan Materi Visual Basic 6.0

CopyRight:AgusMuhardi, A.Md

56