BAB I PENGENALAN MICROSOFT VISUAL BASIC 6.0

Bahan Ajar/Modul

BAB I PENGENALAN MICROSOFT VISUAL BASIC 6.0 Visual basic merupakan bahasa pemrograman yang berorientasi pada objek ( object oriented programming = OOP ). Visual basic dirancang untuk memberi kkemudahan bagi Programmer dalam merancang suatu program atau aplikasi. A. Versi-versi visual basic -

Standart edition Merupakan versi standart yang sudah mencakup berbagai dasar dari visual basic

-

Professional Edition Memberikan berbagai sarana extra yang dibutuhkan oleh programmer profesional

-

Enterprise Edition Visual Basic yang telah menggunakan jaringan dan menggunakan penyimpanan data dalam bentuk SQL

B. Keunggulan Visual Basic Beberapa keunggulan dari visual basic yaitu : 1. Menggunakan platform pembuatan program yang diberi nama Developer Studio yang memiliki tampilan dan saran yang sama dengan Visual C++ dan J++. Sehingga kita bias belajar bahasa pemrograman lainnya dengan mudah dan cepat tanpa harus belajar dari awal lagi. 2. Memiliki Compiler handal yang dapat menghasilkan file executable yang lebih cepat dan lebih efisien. 3. Memiliki tambahan sarana wizard yang baru. Wizard adalah sarana yang mempermudah didalam pembuatan aplikasi dengan mengotomatisasikan tugas-tugas tertentu. 4. Tambahan control baru yang lebih canggih serta peningkatan kaidah struktur bahasa Visual basic 5. Sarana akses data yang lebih cepat dan handal untuk membuat aplikasi database yang berkemampuan tinggi.

1

ANDRI ANTO,M.KOM Pemrograman dengan Microsoft Visual Studio 6.0

Bahan Ajar/Modul

C. Menjalankan Visual Basic

1. Pada Microsoft Windows, klik tombol Start, pilih program lalu pilih folder Microsoft Visual Studio 6.0. Icon-icon yang terdapat pada folder akan ditampilkan. 2. Klik icon program Microsoft Visual Basic 6.0 Kotak dialog New Project muncul. 3. Klik Open

Scroolbar

Toolbar

Toolbox

Form

Project

Propertis

2


Bahan Ajar/Modul

BAB II MANAJEMEN DATABASE

A. STRUKTUR DATABASE Aplikasi penjualan buku ini akan kita buat berdasarkan struktur database sebagai berikut :

Proses pengolahan data menggunakan Manajemen database B.

Pembuatan Tabel

1.

Tabel Buku

Nama Tabel

: Buku

Field Index

: Kode_buku

Nama Index

: Dxbuku

No

Item Data

Tipe

Ukuran

1 2 3 4 5 6 7 8 9

Kode_buku Judul Pengarang Penerbit ISBN Tahun Hrg_beli Hrg_jual Jumlah

Text Text Text Text Text Text Text Text Text

6 25 25 30 10 4 10 10 10

3


Bahan Ajar/Modul

2.

Tabel Karyawan

Nama Tabel

: Karyawan

Field Index

: Kode_karyawan

Nama Index

: Dxkaryawan

No

Item Data

Tipe

Ukuran

1 2 3 4 5 6 7

Kode_karyawan Nama Alamat Agama Pendidikan Kota Telpon

Text Text Text Text Text Text Text

6 25 100 10 4 100 13

3.

Tabel Penjualan

Nama Tabel

: Penjualan

Field Index

: Kode_tran

Nama Index

: Dxtran

No

Item Data

Tipe

Ukuran

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Kode_transaksi Kode_karyawan Nama_karyawan Nama_pembeli Alamat Kode_buku Judul Pengarang Penerbit Tahun Isbn Harga Exemplar Jumlah

Text Text Text Text Text Text Text Text Text Text Text Text Text Text

6 6 20 20 100 6 30 30 30 4 10 10 10 10

C. Langkah-langkah membuat database dengan VB 6.0

1. Aktifkan VB 2. Clik Add-Ins dari Menu ToolBars

4


Bahan Ajar/Modul

3. Pilih Visual Data Manajer…., Tunggu beberapa saat hingga muncul tampilan seperti dibawah ini. (VisData)

4. Clik File, Pilih New, Microsoft Access Version 7.0 MDB,

5. Tunggu beberapa saat hingga muncul tampilan seperti dibawah ini.

6. Ketik Nama File Database pada File Name : , (Ingat ! Ketik nama file database pada directory yang telah dibuat sebelumnya supaya data tidak tercampur dengan yang lain). Contoh : Posisi pada directory (Folder) Latihan (D:\LATIHAN, Ketik nama file Database) 7. Clik Save, tunggu sampai muncul Database Windows 8. Clik Kanan pada Propertis (Database Windows)

5


Bahan Ajar/Modul

9. Pilih New Tabel, Kemudian muncul Table Structure.

10. Pada Table Name, ketik nama table Misal (TBBuku : untuk Tabel Buku) 11. Clik Add Field, kemudian muncul tampilan seperti dibawah ini

12. Ketik Kd_buku pada name, text pada type: dan 10 pada Size, tandai pada Fixed Field (supaya panjang field tetap) 6


Bahan Ajar/Modul

13. Clik Ok 14. Ulangi langkah nomor 11 untuk : (judul,pengarang,penerbit,isbn,harga_beli,hargajual,jumlah_buku) 15. Clik Close jika telah selesai membuat table.

Membuat Index 1. Clik Add Index 2. Ketik Nama File Index (Pada Name ; nama index boleh sama dengan nama table,tetapi sebaiknya dilainkan agar kita mudah mengingatnya) (Misal : dxBuku) 3. Clik Kd_buku pada Availabel Fields 4. Ok 5. Close 6. Clik Build the Table Langkah diatas telah membentuk suatu table Buku dengan Index dxbuku.

Untuk membuat table selanjutnya,kita klik kanan pada properties lalu pilih new table. Dapat dilihat pada gambar dibawah ini

7


Bahan Ajar/Modul

BAB III PEMBUATAN FORM

F A.

orm adalah halaman yang kita gunakan untuk melakukan input,edit,hapus,cetak laporan atau hal yang lain yang berhubungan dengan program yang kita buat. Menu Utama

Menbuat Form MDI

Agar program yang kita buat memiliki kemampuan MDI ( Multi Document Interface ),yaitu mampu menampilkan beberapa form sekaligus,maka menu utama harus kita buat dengan menggunakan MDI Form,yaitu dengan cara : 1.

8

Klik kanan pada Project 1, pilih Add lalu klik MDI Form


Bahan Ajar/Modul

2.

Klik Open pada kotak dialog Add MDI Form

3. Untuk membuat struktur menu tersebut,kita klik Tools,lalu pilih menu editor

9


Bahan Ajar/Modul

4. Maka muncul kotak dialog menu editor. Ketikkan nama menu di kotak caption dan beri nama internal untuk tiap menu pada kotak Name. Top Level Menu

Sub Menu

Setelah semua menu dan sub menu maupun sub-sub menu selesai kita buat maka kita klik ok pada menu editor sehingga kita akan mendapatkan hasil seperti gambar dibawah ini :

10


Bahan Ajar/Modul

C.

Form Input

a.

Form Input Data Buku

Form input data buku adalah form yang berfungsi untuk melakukan penginputan data buku. Desain tampilan Input Data Buku Seperti Berikut

11


Bahan Ajar/Modul

Setelah tampilan form selesai dibuat lalu kita atur propertiesnya: Objek

Properties

Setting

Label 1 Label 2 Label 3 Label 4 Label 5 Label 6 Label 7 Label 8 Label 9 Label 10 Text 1

Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Caption Name Caption Name Caption Name Caption

Kode buku Kode buku maksimal 5 digit Judul buku Pengarang Penerbit Isbn Tahun Harga Beli Harga Jual Jumlah Buku Kd_buku Kosongkan Tjdl kosongkan Tpeng kosongkan Tper kosongkan Tisbn kosongkan Tthn kosongkan Tbeli kosongkan Tjual kosongkan tjumlah kosongkan Ca Add Cs Save Cc Cancel Cf Finish

Text 2 Text 3 Text 4 Text 5 Text 6 Text 7 Text 8 Text 9 Command 1 Command 2 Command 3 Command 4

Setelah itu koneksikan antara database dengan form dengan menggunakan control data. Ikuti petunjuk dibawah ini 1. Pilih objek data pada menu toolbox 2. Drag ke dalam form 3. Aktifkan windows properties jika belum aktif ( atau tekan F4 pada keyboard ) 12


Bahan Ajar/Modul

- Database name

: Aplikasi_penjualan ( Sesuai dengan yang anda buat 0

- Recordset Type

: 0 : Table

- Record Source

:Buku

4. Langkah diatas telah mengkoneksikan form dengan database Setelah itu lalu kita ketik kode program dibawah ini Dim aplikasi_penjualan As Database Dim rsbuku As Recordset Private Sub Form_Load() Set aplikasi_penjualan = OpenDatabase("d:\buku\aplikasi_pen jualan.mdb") Set rsbuku = aplikasi_penjualan.OpenRecordset(" buku") rsbuku.Index = "dxbuku" nonaktifkan End Sub Private Sub ca_Click() aktifkan bersihlayar tkd.SetFocus DBGrid1.Refresh End Sub Private Sub cf_Click() Close End Sub Private Sub tjdl_keypress(keyascii As Integer) If keyascii = 13 Then tpeng.SetFocus End If End Sub

Private Sub cd_Click() Dim Mcari As String * 10 Mcari = InputBox("Masukkan Kode Buku Yang akan di Hapus : ") rsbuku.Index = "dxbuku" rsbuku.Seek "=", Mcari If rsbuku.NoMatch Then

13

x = MsgBox("Maaf kode Tidak Ditemukan..!", vbOKOnly, "Peringatan ..!") Exit Sub End If tkd.Enabled = False tkd.Text = rsbuku!kode_buku tjdl.Text = rsbuku!Judul tpeng.Text = rsbuku!Pengarang tper.Text = rsbuku!penerbit tisbn.Text = rsbuku!isbn tthn.Text = rsbuku!tahun tbeli.Text = rsbuku!hrg_beli tjual.Text = rsbuku!hrg_jual tjumlah.Text = rsbuku!jumlah x = MsgBox("Yakin Data akan di Hapus ?", vbOKCancel, "Hati-Hati...!") bersihlayar If x = vbOK Then rsbuku.Delete bersihlayar ca.SetFocus End If Exit Sub End Sub Private Sub tkd_Keypress(keyascii As Integer) If keyascii = 13 Then rsbuku.Seek "=", tkd.Text If rsbuku.NoMatch Then tjdl.SetFocus Else MsgBox "Kode Sudah Ada" tkd.SetFocus SendKeys "{home}+{end}" End If End If End Sub Private Sub nonaktifkan()


Bahan Ajar/Modul

tkd.Enabled = False tjdl.Enabled = False tpeng.Enabled = False tper.Enabled = False tisbn.Enabled = False tthn.Enabled = False tbeli.Enabled = False tjual.Enabled = False tjumlah.Enabled = False End Sub Private Sub aktifkan() tkd.Enabled = True tbeli.Enabled = True tjual.Enabled = True tjumlah.Enabled = True tjdl.Enabled = True tpeng.Enabled = True tper.Enabled = True tisbn.Enabled = True tthn.Enabled = True End Sub Private Sub bersihlayar() tkd.Text = Clear tjdl.Text = Clear tpeng.Text = Clear tper.Text = Clear tisbn.Text = Clear tthn.Text = Clear tbeli.Text = Clear tjual.Text = Clear tjumlah.Text = Clear End Sub

Private Sub tpeng_Keypress(keyascii As Integer) If keyascii = 13 Then tper.SetFocus End If End Sub Private Sub tper_Keypress(keyascii As Integer) If keyascii = 13 Then tisbn.SetFocus End If End Sub 14

Private Sub tisbn_Keypress(keyascii As Integer) If keyascii = 13 Then tthn.SetFocus End If End Sub Private Sub tthn_keypress(keyascii As Integer) If keyascii = 13 Then tbeli.SetFocus End If End Sub Private Sub tbeli_keypress(keyascii As Integer) If keyascii = 13 Then tjual.SetFocus End If End Sub Private Sub tjual_keypress(keyascii As Integer) If keyascii = 13 Then tjumlah.SetFocus End If End Sub Private Sub tjumlah_keypress(keyascii As Integer) If keyascii = 13 Then cs.SetFocus End If End Sub

Private Sub cs_Click() If tkd.Text = "" Then MsgBox ("Kode Harus Di Isi"), vbCritical tkd.SetFocus Else rsbuku.Seek "=", tkd.Text If rsbuku.NoMatch Then rsbuku.AddNew rsbuku!kode_buku = tkd.Text rsbuku!Judul = tjdl.Text rsbuku!Pengarang = tpeng.Text rsbuku!penerbit = tper.Text rsbuku!isbn = tisbn.Text


Bahan Ajar/Modul

rsbuku!tahun = tthn.Text rsbuku!hrg_beli = tbeli.Text rsbuku!hrg_jual = tjual.Text rsbuku!jumlah = tjumlah.Text rsbuku.Update nonaktifkan ca.SetFocus Else MsgBox "Kode Sudah Ada" tkd.SetFocus b.

End If End If End Sub Private Sub cc_Click() bersihlayar aktifkan tkd.SetFocus End Sub

Form Input Data Karyawan

Form input data karyawan adalah form yang berfungsi untuk melakukan penginputan data karyawan. Desain tampilan Input Data Karyawan Seperti Berikut

15


Bahan Ajar/Modul


Properties

Setting

Label 1 Label 2 Label 3 Label 4 Label 5 Label 6 Label 7 Label 8 Label 9 Text 1

Caption Caption Caption Caption Caption Caption Caption Caption Caption Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name Caption Name Caption Name Caption Name Caption

Kode karyawan Max 5 karakter Nama Jenis Kelamin Agama Tempat/tanggal Lahir Pendidikan Terakhir Telpon Alamat Tkd Kosongkan Tn kosongkan Tjk kosongkan Ta kosongkan Ttemp kosongkan Ttgl kosongkan Tp kosongkan Ttelp kosongkan Tal kosongkan Ca Add Cs Save Cc Cancel Cf Finish

Text 2 Combo Box 1 Combo Box 2 Text 3 Text 4 Text 5 Text 6 Text 7 Command 1 Command 2 Command 3 Command 4

Setelah itu kita ketikkan kode program dibawah ini Dim aplikasi_penjualan As Database Dim rskaryawan As Recordset

Set aplikasi_penjualan = OpenDatabase("d:\buku\aplikasi_penjualan.md b")

Private Sub Form_Load()

16


Bahan Ajar/Modul

Set rskaryawan = aplikasi_penjualan.OpenRecordset("karya wan") rskaryawan.Index = "dxkaryawan" nonaktifkan End Sub

ttemp.Enabled = False ttgl.Enabled = False tp.Enabled = False ttelp.Enabled = False tal.Enabled = False End Sub

Private Sub ca_Click() aktifkan bersihlayar tkd.SetFocus End Sub

Private Sub aktifkan() tkd.Enabled = True tn.Enabled = True tjk.Enabled = True ta.Enabled = True ttemp.Enabled = True ttgl.Enabled = True ttgl.Enabled = True tp.Enabled = True ttelp.Enabled = True tal.Enabled = True End Sub

'Private Sub Timer1_Timer() 'Label11.Caption = Right(Label11.Caption, Len(Label11.Caption) - 1) & Left(Label11.Caption, 1) 'End Sub Private Sub tn_keypress(keyascii As Integer) If keyascii = 13 Then tjk.SetFocus End If End Sub

Private Sub tkd_Keypress(keyascii As Integer) If keyascii = 13 Then rskaryawan.Seek "=", tkd.Text If rskaryawan.NoMatch Then tn.SetFocus Else MsgBox "Kode Sudah Ada" tkd.SetFocus SendKeys "{home}+{end}" End If End If End Sub Private Sub nonaktifkan() tkd.Enabled = False tn.Enabled = False tjk.Enabled = False ta.Enabled = False 17

Private Sub bersihlayar() tkd.Text = Clear tn.Text = Clear tjk.Text = Clear ta.Text = Clear ttemp.Text = Clear ttgl.Text = Clear tp.Text = Clear ttelp.Text = Clear tal.Text = Clear End Sub

Private Sub tjk_keypress(keyascii As Integer) If keyascii = 13 Then ta.SetFocus End If End Sub Private Sub ta_Keypress(keyascii As Integer) If keyascii = 13 Then ttemp.SetFocus End If End Sub Private Sub ttemp_Keypress(keyascii As Integer) If keyascii = 13 Then ttgl.SetFocus End If


Bahan Ajar/Modul

End Sub Private Sub ttgl_keypress(keyascii As Integer) If keyascii = 13 Then tp.SetFocus End If End Sub Private Sub tp_Keypress(keyascii As Integer) If keyascii = 13 Then ttelp.SetFocus End If End Sub Private Sub ttelp_keypress(keyascii As Integer) If keyascii = 13 Then tal.SetFocus End If End Sub Private Sub tal_keypress(keyascii As Integer) If keyascii = 13 Then cs.SetFocus End If End Sub Private Sub cs_Click() If tkd.Text = "" Then MsgBox ("Kode Harus Di Isi"), vbCritical tkd.SetFocus Else 3.

rskaryawan.Seek "=", tkd.Text If rskaryawan.NoMatch Then rskaryawan.AddNew rskaryawan!kode_karyawan = tkd.Text rskaryawan!nama = tn.Text rskaryawan!jenis_kelamin = tjk.Text rskaryawan!agama = ta.Text rskaryawan!tempat_lahir = ttemp.Text rskaryawan!tgl_lahir = ttgl.Text rskaryawan!pendidikan = tp.Text rskaryawan!telp = ttelp.Text rskaryawan!alamat = tal.Text rskaryawan.Update nonaktifkan ca.SetFocus Else MsgBox "Kode Sudah Ada" tkd.SetFocus End If End If End Sub

Private Sub cc_Click() bersihlayar aktifkan tkd.SetFocus End Sub Private Sub cf_Click() Unload Me End Sub

Desain Form Input Data Penjualan

Form input data penjualan adalah form yang berfungsi untuk memasukkan data-data yang berhubungan dengan penjualan seperti kode transaksi,nama pembeli maupun data yang berhubungan dengan buku yang akan dijual.Untuk menampilkan data-data penjualan ke dalam suatu table anda dapat menambahkan satu control data yaitu dbgrid.

18


Bahan Ajar/Modul


Properties

Setting

Label 1 Label 2 Label 3 Label 4 Label 5 Label 6 Label 7 Label 8 Label 9 Label 7 Label 8 Label 9 Text 1

Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Name Text Name Text Name Text Name Text Name Text Name Text Name Text Name

Kode kasir Kode transaksi Nama pembeli Alamat Kode buku Judul Pengarang Tahun ISBN Harga Exemplar Jumlah Tran Kosongkan Tkasir kosongkan nama_kasir kosongkan Tnama kosongkan Talm kosongkan Tbuku kosongkan Tj kosongkan Tpeng

Text 2 Text 3 Text 4 Text 5 Text 6 Text 7 Text 8 19


Bahan Ajar/Modul

Text 9 Text 10 Text 11 Text 12 Text 13 Text 14 Command 1 Command 2 Command 3 Command 4

Text Name Text Name Text Name Text Name Text Name Text Name Text Name Caption Name Caption Name Caption Name Caption

kosongkan Tper Kosongkan Tthn kosongkan Tisbn kosongkan Tharga kosongkan Tex kosongkan Tjum Kosongkan Ca Add Cs Save Cc Cancel Cf Finish

Setelah itu kita ketikkan kode program dibawah ini :

Dim aplikasi_penjualan As Database

Set

rskaryawan

Dim rspenjualan, rsbuku, rskaryawan As

aplikasi_penjualan.OpenRecordset("karyawan"

Recordset

) rskaryawan.Index = "dxkaryawan"

Private Sub Form_Load() Set

aplikasi_penjualan

Data1.Refresh =

OpenDatabase("d:\buku\aplikasi_penjuala

nonaktifkan End Sub

n.mdb") Set

rspenjualan

=

Private Sub ca_Click()

aplikasi_penjualan.OpenRecordset("trans

aktifkan

aksi")

bersihlayar

rspenjualan.Index = "dxpenjualan"

ttran.SetFocus

Set

rsbuku

=

End Sub

aplikasi_penjualan.OpenRecordset("buku ")

Private Sub DBGrid1_Click()

rsbuku.Index = "dxbuku"

With Data1.Recordset

20


=

Bahan Ajar/Modul

If .RecordCount >= 1 Then

End Sub

tkasir.Enabled = False

Private Sub talm_keypress(keyascii As Integer)

nama_kasir.Enabled = False

If keyascii = 13 Then

tkasir

=

.Fields("kode_karyawan") nama_kasir = .Fields("nama")

Tbuku.SetFocus End If End Sub

ttran.SetFocus Else

Private Sub talamat_Keypress(keyascii

pesan = MsgBox("Maaf Data Tidak

Integer)

ada", vbCritical, "Info Cari") ca.SetFocus End If

As

If keyascii = 13 Then Tbuku.SetFocus End If

End With

End Sub

End Sub

Private

Sub

tbuku_Keypress(keyascii

As

Integer) Private Sub DBGrid2_Click() With Data2.Recordset If .RecordCount >= 1 Then Tbuku.Visible = True Tbuku = .Fields("kode_buku") tj = .Fields("judul") tpeng = .Fields("pengarang")

rsbuku.Seek "=", Tbuku.Text If rsbuku.NoMatch Then MsgBox "Kode Buku Tidak Ketemu", vbCritical Tbuku.SetFocus Else

tper = .Fields("penerbit")

tj.Text = rsbuku!Judul

tthn = .Fields("tahun")

tpeng.Text = rsbuku!Pengarang

tisbn = .Fields("isbn")

tper.Text = rsbuku!penerbit

thrg = .Fields("hrg_jual")

tisbn.Text = rsbuku!isbn

tex.SetFocus

tthn.Text = rsbuku!tahun

Else

thrg.Text = rsbuku!hrg_jual

pesan = MsgBox("Maaf Data Tidak

tex.SetFocus

ada", vbCritical, "Info Cari") ca.SetFocus End If End With 21


SendKeys "{home}+{end}" End If End If End Sub


Bahan Ajar/Modul

Private Sub tkasir_Keypress(keyascii As

rspenjualan.Seek "=", ttran.Text

Integer)

If rspenjualan.NoMatch Then


tnama.SetFocus

rskaryawan.Seek "=", tkasir.Text

Else

If rskaryawan.NoMatch Then

MsgBox "Kode Sudah Ada"

MsgBox "Kode Tidak Ketemu", vbCritical

SendKeys "{home}+{end}"

tkasir.SetFocus

End If

Else nama_kasir.Text

ttran.SetFocus

End If =

End Sub

rskaryawan!nama ttran.SetFocus SendKeys "{home}+{end}" End If End If End Sub

Private Sub nonaktifkan() ttran.Enabled = False Tbuku.Enabled = False tkasir.Enabled = False nama_kasir.Enabled = False tj.Enabled = False

Private Sub tnama_keypress(keyascii As

tpeng.Enabled = False

Integer)

tper.Enabled = False


tisbn.Enabled = False

talm.SetFocus

tthn.Enabled = False

End If

thrg.Enabled = False

End Sub

tex.Enabled = False

Private Sub tex_Keypress(keyascii As

tjm.Enabled = False

Integer)

End Sub

If keyascii = 13 Then cs.SetFocus

Private Sub aktifkan()

tjm.Text = tex.Text * thrg

ttran.Enabled = True

End If

tkasir.Enabled = True

End Sub

nama_kasir.Enabled = True

Private Sub ttran_Keypress(keyascii As

Tbuku.Enabled = True

Integer)

tj.Enabled = True

If keyascii = 13 Then 22

tpeng.Enabled = True


Bahan Ajar/Modul

tper.Enabled = True

rspenjualan!kode_tran = ttran.Text

tisbn.Enabled = True

rspenjualan!kode_karyawan = tkasir.Text

tthn.Enabled = True

rspenjualan!nama = nama_kasir.Text

thrg.Enabled = True

rspenjualan!nama_pembeli = tnama.Text

tex.Enabled = True

rspenjualan!alamat = talm.Text

tjm.Enabled = True

rspenjualan!kode_buku = Tbuku.Text

End Sub

rspenjualan!Judul = tj.Text rspenjualan!Pengarang = tpeng.Text

Private Sub bersihlayar()

rspenjualan!penerbit = tper.Text

ttran.Text = Clear

rspenjualan!isbn = tisbn.Text

tkasir.Text = Clear

rspenjualan!harga = thrg.Text

nama_kasir.Text = Clear

rspenjualan!exemplar = tex.Text

Tbuku.Text = ""

rspenjualan!jumlah = tjm.Text

tj.Text = Clear

rspenjualan.Update

tpeng.Text = Clear

rsbuku.Update

tper.Text = Clear

nonaktifkan

tisbn.Text = Clear

ca.SetFocus

thrg.Text = Clear

End If

tthn.Text = Clear

End Sub

tex.Text = Clear tjm.Text = Clear

Private Sub cc_Click()

End Sub

bersihlayar aktifkan

Private Sub cs_Click()

ttran.SetFocus

rspenjualan.Seek "=", ttran.Text

End Sub

If rspenjualan.NoMatch Then

'Private Sub Cf_Click()

rspenjualan.AddNew

'Unload Me

rsbuku.Edit

'Flex_buku.Show

rsbuku!jumlah = jumlah - 1

'End Sub

23


Bahan Ajar/Modul

C. Form Edit dan Hapus 1. Desain form Edit dan Hapus data Buku Form edit dan hapus data buku digunakan untuk memperbaiki atau menghapus suatu data yang ada dalam table buku dikarenakan data tersebut salah atau tidak diperlukan lagi. Desain edit dan hapus data buku dapat dilihat pada gambar dibawah ini.

Untuk kode programnya dapat dilihat dibawah ini :Dim aplikasi_penjualan As Database

Dim rsbuku As Recordset

Exit Sub

Private Sub ce_Click()

ce.SetFocus

Dim korek As String * 50 korek = InputBox("Masukan Kode Buku

End If

Yang akan Di Koreksi")

aktifkan

If korek = Space(50) Then Exit Sub

tkd.Text = rsbuku!kode_buku tjdl.Text = rsbuku!Judul

rsbuku.Seek "=", korek If rsbuku.NoMatch Then


x = MsgBox("Maaf kode buku


Tidak

Ditemukan..!",

"Peringatan ..!") 24


vbOKOnly,

tthn.Text = rsbuku!tahun tbeli.Text = rsbuku!hrg_beli


Bahan Ajar/Modul

tjual.Text = rsbuku!hrg_jual

Private Sub cd_Click()

tjumlah.Text = rsbuku!jumlah

bersihlayar

tjdl.SetFocus

Dim Mcari As String * 10

End Sub

Mcari = InputBox("Masukkan Kode Buku Yang akan di Hapus : ")

Private Sub cf_Click()


Close

rsbuku.Seek "=", Mcari

End Sub

If rsbuku.NoMatch Then x

Private Sub Form_Load() Set

aplikasi_penjualan

=

MsgBox("Maaf

=

Exit Sub End If

n.mdb")

tkd.Enabled = False rsbuku

=

tkd.Text = rsbuku!kode_buku

aplikasi_penjualan.OpenRecordset("buku

tjdl.Text = rsbuku!Judul

")




nonaktifkan


End Sub

tthn.Text = rsbuku!tahun

Private Sub ca_Click()

tbeli.Text = rsbuku!hrg_beli

aktifkan

tjual.Text = rsbuku!hrg_jual

bersihlayar

tjumlah.Text = rsbuku!jumlah

tkd.SetFocus DBGrid1.Refresh End Sub

x = MsgBox("Yakin Data akan di Hapus ?", vbOKCancel, "Hati-Hati...!") bersihlayar If x = vbOK Then

Private Sub tjdl_keypress(keyascii As

rsbuku.Delete

Integer)

bersihlayar


ca.SetFocus

tpeng.SetFocus

End If

End If

Exit Sub

End Sub

25

Tidak

Ditemukan..!", vbOKOnly, "Peringatan ..!")


Set

kode

End Sub


Bahan Ajar/Modul

Private Sub nonaktifkan() tkd.Enabled = False

tjumlah.Text = Clear End Sub

tjdl.Enabled = False tpeng.Enabled = False

Private

Sub

tpeng_Keypress(keyascii

tper.Enabled = False

Integer)

tisbn.Enabled = False


tthn.Enabled = False

tper.SetFocus

tbeli.Enabled = False

End If

tjual.Enabled = False

End Sub

As

tjumlah.Enabled = False End Sub

Private Sub tper_Keypress(keyascii As Integer) If keyascii = 13 Then


tisbn.SetFocus

tkd.Enabled = True

End If

tbeli.Enabled = True

End Sub

tjual.Enabled = True

Private

tjumlah.Enabled = True

Integer)

tjdl.Enabled = True


tpeng.Enabled = True

tthn.SetFocus

tper.Enabled = True

End If

tisbn.Enabled = True

End Sub

tthn.Enabled = True

Private Sub tthn_keypress(keyascii As Integer)

End Sub

Sub

tisbn_Keypress(keyascii

As

If keyascii = 13 Then tbeli.SetFocus

Private Sub bersihlayar() tkd.Text = Clear

End If End Sub

tjdl.Text = Clear tpeng.Text = Clear

Private Sub tbeli_keypress(keyascii As Integer)

tper.Text = Clear


tisbn.Text = Clear

tjual.SetFocus

tthn.Text = Clear

End If

tbeli.Text = Clear

End Sub

tjual.Text = Clear

Private Sub tjual_keypress(keyascii As Integer)

26


Bahan Ajar/Modul


rsbuku!penerbit = tper.Text

tjumlah.SetFocus

rsbuku!isbn = tisbn.Text

End If

rsbuku!tahun = tthn.Text

End Sub

rsbuku!hrg_beli = tbeli.Text

Private Sub tjumlah_keypress(keyascii

rsbuku!hrg_jual = tjual.Text

As Integer)

rsbuku!jumlah = tjumlah.Text


rsbuku.Update

cu.SetFocus

nonaktifkan

End If

ce.SetFocus

End Sub

End Sub

Private Sub cu_Click()


rsbuku.Edit

bersihlayar

rsbuku!kode_buku = tkd.Text

aktifkan

rsbuku!Judul = tjdl.Text

ce.SetFocus

rsbuku!Pengarang = tpeng.Text

End Sub

27


Bahan Ajar/Modul

2. Desain form Edit dan Hapus data Karyawan Form edit dan hapus data karyawan digunakan untuk memperbaiki atau menghapus suatu data yang ada dalam table karyawan dikarenakan data tersebut salah atau tidak diperlukan lagi. Desain edit dan hapus data karyawan dapat dilihat pada gambar dibawah ini.

Setelah itu lalu kita ketikkan kode program dibawah ini : Dim aplikasi_penjualan As Database

aktifkan

Dim rskaryawan As Recordset

bersihlayar tkd.SetFocus


End Sub

Set aplikasi_penjualan = OpenDatabase("d:\buku\aplikasi_penjualan.md Private Sub cd_Click() b")

Dim Mcari As String * 10

Set rskaryawan =

Mcari = InputBox("Masukkan Kode karyawan

aplikasi_penjualan.OpenRecordset("karyawan" Yang akan di Hapus : ") )

rskaryawan.Index = "dxkaryawan"

rskaryawan.Index = "dxkaryawan"

rskaryawan.Seek "=", Mcari

nonaktifkan

If rskaryawan.NoMatch Then

End Sub

x = MsgBox("Maaf kode Tidak Ditemukan..!", vbOKOnly, "Peringatan ..!")

Private Sub ca_Click() 28

Exit Sub


Bahan Ajar/Modul

End If

ce.SetFocus

tkd.Enabled = False tkd.Text = rskaryawan!kode_karyawan

End If

tn.Text = rskaryawan!nama

aktifkan

tjk.Text = rskaryawan!jenis_kelamin

tkd.Text = rskaryawan!kode_karyawan

ta.Text = rskaryawan!agama

tn.Text = rskaryawan!nama

ttemp.Text = rskaryawan!tempat_lahir

tjk.Text = rskaryawan!jenis_kelamin

ttgl.Text = rskaryawan!tgl_lahir

ta.Text = rskaryawan!agama

tp.Text = rskaryawan!pendidikan

ttemp.Text = rskaryawan!tempat_lahir

ttelp.Text = rskaryawan!telp

ttgl.Text = rskaryawan!tgl_lahir

tal.Text = rskaryawan!alamat

tp.Text = rskaryawan!pendidikan

x = MsgBox("Yakin Data akan di Hapus ?", vbOKCancel, "Hati-Hati...!")

ttelp.Text = rskaryawan!telp tal.Text = rskaryawan!alamat

bersihlayar

tn.SetFocus

If x = vbOK Then

End Sub

rskaryawan.Delete bersihlayar

'Private Sub Timer1_Timer()

ce.SetFocus

'Label11.Caption = Right(Label11.Caption,

End If

Len(Label11.Caption) - 1) &

Exit Sub

Left(Label11.Caption, 1)

End Sub

'End Sub

Private Sub ce_Click()

Private Sub tn_keypress(keyascii As Integer)

Dim korek As String * 50


korek = InputBox("Masukan Kode Karyawan

tjk.SetFocus

Yang akan Di Koreksi")

End If

If korek = Space(50) Then Exit Sub

End Sub

rskaryawan.Seek "=", korek If rskaryawan.NoMatch Then x = MsgBox("Maaf kode buku Tidak Ditemukan..!", vbOKOnly, "Peringatan ..!") Exit Sub 29

Private Sub nonaktifkan() tkd.Enabled = False


Bahan Ajar/Modul

tn.Enabled = False

Private Sub tjk_keypress(keyascii As Integer)

tjk.Enabled = False


ta.Enabled = False

ta.SetFocus

ttemp.Enabled = False

End If

ttgl.Enabled = False

End Sub

tp.Enabled = False ttelp.Enabled = False

Private Sub ta_Keypress(keyascii As Integer)

tal.Enabled = False


End Sub

ttemp.SetFocus End If


End Sub

tkd.Enabled = True

Private Sub ttemp_Keypress(keyascii As

tn.Enabled = True

Integer)

tjk.Enabled = True


ta.Enabled = True

ttgl.SetFocus

ttemp.Enabled = True

End If

ttgl.Enabled = True

End Sub

ttgl.Enabled = True

Private Sub ttgl_keypress(keyascii As Integer)

tp.Enabled = True


ttelp.Enabled = True

tp.SetFocus

tal.Enabled = True

End If

End Sub

End Sub

Private Sub bersihlayar()

Private Sub tp_Keypress(keyascii As Integer)

tkd.Text = Clear


tn.Text = Clear

ttelp.SetFocus

tjk.Text = Clear

End If

ta.Text = Clear

End Sub

ttemp.Text = Clear

Private Sub ttelp_keypress(keyascii As Integer)

ttgl.Text = Clear


tp.Text = Clear

tal.SetFocus

ttelp.Text = Clear

End If

tal.Text = Clear

End Sub

End Sub 30


Bahan Ajar/Modul

Private Sub tal_keypress(keyascii As Integer)

rskaryawan!alamat = tal.Text


rskaryawan.Update

cu.SetFocus

nonaktifkan

End If

ce.SetFocus

End Sub

End Sub

Private Sub cu_Click() rskaryawan.Edit


rskaryawan!kode_karyawan = tkd.Text

bersihlayar

rskaryawan!nama = tn.Text

aktifkan

rskaryawan!jenis_kelamin = tjk.Text

tkd.SetFocus

rskaryawan!agama = ta.Text

End Sub

rskaryawan!tempat_lahir = ttemp.Text rskaryawan!tgl_lahir = ttgl.Text

Private Sub cf_Click()

rskaryawan!pendidikan = tp.Text

Unload Me

rskaryawan!telp = ttelp.Text

End Sub

Latihan - buatkan kode program untuk edit dan hapus data penjualan

31


Bahan Ajar/Modul

D.

Desain Form Laporan

1.

Desain Form laporan Buku

aporan adalah file output yang terdapat didalam program yang kita buat. Output atau aporan yang kita buat dapat ditampilkan dilayar monitor atau dapat juga di print. Laporan yang akan kita buat nantinya menggunakan suatu aplikasi yang dinamakan Crystal Report. Disini penulis menggunakan Crystal Report 8.5. Sebelum kita membuat laporan sebaiknya kita mendesain dahulu tampilan formnya. Sebagai contoh form laporan data buku yang dapat dilihat pada gambar dibawah ini.

Untuk mendesain form laporan seperti diatas,kita memerlukan beberapa control,yaitu 1. SStab

: Berbentuk seperti tombol dan dapat dibagi menjadi beberapa kelompok.

2. Crystal Report

:

Berfungsi untuk mengkoneksikan form dengan laporan yang dibuat

dengan crystal report. 3. Listbox

: Berfungsi untuk menampilkan data yang akan dibuat laporannya.

4. Control data

; Berfungsi untuk mengkoneksikan form dengan database.

32


Bahan Ajar/Modul

Setelah kita selesai mendesain form tersebut,maka langkah selanjutnya adalah menuliskan kode program. Adapun kode programnya adalah sebagai berikut : Dim aplikasi_penjualan As Database

Set rsbuku =

Dim rsbuku As Recordset

aplikasi_penjualan.OpenRecordset("buku") Dim SQLPglKdkasir As String

Private Sub CmdTutup_Click()

SQLPglKdkasir = "Select distinct kode_buku

Unload Me

From buku order by 1"

End Sub

Set rsbuku = aplikasi_penjualan.OpenRecordset(SQLPglKdk

Private Sub Command1_Click()

asir)

CRkar.ReportFileName =

Do While Not rsbuku.EOF

"d:\buku\Laporan\buku.rpt" CRkar.RetrieveDataFiles CRkar.WindowState = crptMaximized CRkar.Action = 1

List1.AddItem Buku!kode_buku rsbuku.MoveNext Loop lapkar.Refresh End Sub

End Sub Private Sub List1_Click() Private Sub Form_Activate()

CRkar.SelectionFormula =

Me.Height = 4110

"{buku.kode_buku}='" & List1 & "'"

Me.Width = 5190


End Sub

"d:\buku\Laporan\buku.rpt" CRkar.RetrieveDataFiles


CRkar.WindowState = crptMaximized

Set aplikasi_penjualan =

CRkar.Action = 1


End Sub

n.mdb")

33


Bahan Ajar/Modul

2.

Desain Form Laporan Data Karyawan

Untuk mendesain tampilan form data karyawan,kita menggunakan proses yang sama pada saat kita mendesai form laporan data buku. Begitu juga dengan control yang digunakan. Setelah kita selesai mendesai tampilan form, langkah selanjutnya adalah menuliskan kode program. Yaitu sebagai berikut :

Dim aplikasi_penjualan As Database

CRkar.Action = 1

Dim rskaryawan As Recordset

End Sub

Private Sub CmdTutup_Click()

Private Sub Form_Activate()

Unload Me

Me.Height = 4110

End Sub

Me.Width = 5190 End Sub

Private Sub Command1_Click() CRkar.ReportFileName =


"d:\buku\Laporan\karyawan.rpt"

Set aplikasi_penjualan =

CRkar.RetrieveDataFiles

OpenDatabase("d:\buku\aplikasi_penjualan.md

CRkar.WindowState =

b")

crptMaximized 34


Bahan Ajar/Modul

Set rskaryawan =

lapkar.Refresh

aplikasi_penjualan.OpenRecordset("karya

End Sub

wan") Dim SQLPglKdkasir As String

Private Sub List1_Click()

SQLPglKdkasir = "Select distinct

CRkar.SelectionFormula =

kode_karyawan From karyawan order by

"{karyawan.kode_karyawan}='" & List1 & "'"

1"


Set rskaryawan =

"d:\buku\Laporan\karyawan.rpt"

aplikasi_penjualan.OpenRecordset(SQLP

CRkar.RetrieveDataFiles

glKdkasir)

CRkar.WindowState = crptMaximized

Do While Not rskaryawan.EOF

CRkar.Action = 1

List1.AddItem

End Sub

kode_karyawan!Karyawan rskaryawan.MoveNext Loop

Latihan - Buatlah tampilan form data penjualan disertai kode programnya

35


Bahan Ajar/Modul

BAB IV PEMBUATAN LAPORAN A. Desain Laporan - Laporan data buku Laporan data buku merupakan laporan yang berkaitan dengan buku masuk dan buku keluar yang nantinya akan dilaporkan kepada pimpinan. Berikut ini adalah desain laporan data buku dengan crystal report 8.5

Langkah-langkah membuat laporan diatas dapat anda lihat dibawah ini ; 1. Buka aplikasi atau program crystal report dengan cara pilih start,lalu pilih all program lalu pilih crystal report 8.5

2. Kemudian pilih new,sampai muncul form crystal report gallery

36


Bahan Ajar/Modul

3. Kemudian kita pilih standart,lalu kita klik tombol ok. Tunggu sebentar hingga muncul form starndart report expert seperti gambar dibawah ini.

4. Klik tombol database hingga muncul form data explorer,pada form ini kita pilih database file hingga tombol add disampingnya berubah menjadi aktif

37


Bahan Ajar/Modul

5. Setelah itu kita pilih add,tunggu sampai muncul form atau kotak dialog open database. Pada posisi look in kita cari letak folder yang kita gunakan sebagai tempat penyimpanan database kita( Contoh : D:\buku\aplikasi_penjualan ),setelah itu kita klik tombol open

7. Tunggu sampai muncul gambar dibawah ini

Pada posisi database file akan muncul table yang ada didalam database yang kita rancang. Untuk memasukan table tersebut kedalam crystal report kita klik salah satu table yang kita inginkan setelah itu klik tombol add hingga table yang kita inginkan ditandai dengan tanda Centang.

38


Bahan Ajar/Modul

8. Lalu kita klik tombol next,hingga muncul kotak dialog standart report expert dengan available fields table buku. Tombol add berfungsi untuk memasukkan fields yang kita inginkan satu persatu. Sedangkan tombol add all berfungsi untuk memasukkan semua fields yang ada pada table.

-

39

contoh penggunaan tombol add

- Contoh penggunaan tombol add all


Bahan Ajar/Modul

9. Setelah itu kita pilih desaign report,tunggu hingga muncul tampilan seperti gambar dibawah ini.

Untuk pembuatan laporan data karyawan dan laporan data penjualan,lakukan langkah 1 hingga langkah 8 seperti diatas.

40


Bahan Ajar/Modul

BAB V MEMBUAT FILE SETUP Setelah program rancangan kita selesai dibuat, aturlah program tersebut sehingga dapat diinstal ke computer lain. Agar program tersebut dapat diinstal, kita harus membuat file setup nya. Visual basic telah menyediakan utility Pack and Deployment Wizard yang akan kita gunakan dalam membuat file setup. Berikut ini adalah langkah-langkah dalam pembuatan file setup. 1. Buka project yang akan kita buat file setupnya. 2. Klik Add-ins,lalu pilih Add In Manager. Pada kotak dialog Add in Manager klik Package and Deployment Wizard,kemudian beri tanda centang pada Load/Unloaded kemudian klik ok.

3. Klik add ins lagi,lalu klik Package and deployment Wizard, klik Package

41


Bahan Ajar/Modul

4. Program akan meminta kita mengkompilasi program terlebih dahulu agar penjadi project.exe. lalu klik Compile

8.

Program akan menampilkan proses pelaksanaan kompilasi

9. Pilih paket program yang akan diinstal dengan mengklik Standart Setup Package lalu klik next

42


Bahan Ajar/Modul

10. Tentukan letak folder untuk menyimpan file-file install dengan cara mengetiknya dikotak Package folder kemudian klik next

11. Berikutnya kita dapat memilih driver yang akan kita ikut sertakan atau langsung klik next

43


Bahan Ajar/Modul

12. Berikutnya pilih file-file apa saja yang akan kita masukkan dalam paket program install dengan mengklik tombol add,lalu pilih file yang akan diikutsertakan. Kemudian klik next

13. Pilih jenis file cab yang akan kita buat, single atau multiple. Jika kita ingin agar file-file install tersebut dapat dicopy ke disket,maka pilih Multiple Cabs. Klik next untuk melanjutkan

44


Bahan Ajar/Modul

14. Ketikkan judul yang akan ditampilkan pada saat proses install dilakukan

15. Klik next untuk melanjutkan. Tentukan nama group ditombol Start jika program selesai diinstall

45


Bahan Ajar/Modul

16. Selanjutnya program akan menampilkan lokasi file-file jika telah diinstall ke computer. Klik next untuk melanjutkan

17. Pada kotak dialog berikut ini,pilihlah file yang akan kita jadikan sebagai shared file ( file yang dapat digunakan oleh lebih dari satu program ) jika program telah diinstall. Klik next untuk melanjutkan.

18. Pada kotak dialog berikutnya,berilah nama untuk script

19. Klik finish untuk menyelesaikan proses ini. 46


Bahan Ajar/Modul

DAFTAR PUSTAKA Dr. Erhans,2003. Membuat Program Persediaan dan Penjualan dengan Microsoft Visual Basic 6.0. PT. Encontara Rajawali. Jakarta Pusat Heriady,2009. Implementasi Visual Basic 6.0.PT .Elexmedia Komputindo.Jakarta Thabrani,Suryanto,2007.Mudah dan Cepat menguasai Visual Basic.Media Kita.Jakarta Selatan Sadeli,Muhammad.2010.Aplikasi Penjualan Dengan Visual Basic 6.0.Maxikom.Paalembang Yamin,Abu ,2007. Bahan Ajar Pemrograman Microsoft Visual Basic 6.0.

47


Bahan Ajar/Modul

Visual

Basic

yang

telah

menggunakan

jaringan

dan

menggunakan

penyimpanan

data

dalam bentuk SQL B. Keunggulan Visual Basic Beberapa keunggulan dari visual basic yaitu : - Menggunakan platform pembuatan Visual

basic

merupakan

bahasa

pemrograman yang berorientasi pada objek ( object oriented programming = OOP ). Visual basic dirancang untuk memberi kkemudahan

bagi

Programmer

dalam

merancang suatu program atau aplikasi. E. Versi-versi visual basic -

Standart edition Merupakan versi standart yang sudah mencakup berbagai dasar dari visual basic

-

Professional Edition Memberikan berbagai sarana extra yang dibutuhkan oleh programmer

program yang diberi nama Developer Studio yang memiliki tampilan dan saran yang sama dengan Visual C++ dan J++. Sehingga

kita

48

belajar

bahasa

pemrograman lainnya dengan mudah dan cepat tanpa harus belajar dari awal lagi. - Memiliki Compiler handal yang dapat menghasilkan file executable yang lebih cepat dan lebih efisien. -

Memiliki tambahan sarana wizard

yang baru. Wizard adalah sarana yang mempermudah aplikasi

didalam

dengan

tugas-tugas tertentu.

profesional -

bias

Enterprise Edition ANDRI ANTO,M.KOM Pemrograman dengan Microsoft Visual Studio 6.0

pembuatan

mengotomatisasikan

Bahan Ajar/Modul

-

Tambahan control baru yang lebih

canggih

serta

peningkatan

struktur bahasa Visual basic

kaidah

- Sarana akses data yang lebih cepat dan handal untuk membuat aplikasi database yang berkemampuan tinggi.

Tentang Penulis Andri Anto,M.Kom adalah Dosen STIE-STMIK MURA ( 2009 – sekarang ) Lubuklinggau. Dilahirkan di Lubuklinggau, pernah mengenyam pendidikan Strata 1 di Universitas Jember ( UNEJ ) pada tahun 2003, kemudian pindah ke STMIK AKAKOM Jogjakarta pada tahun 2004, Setelah itu melanjutkan studi di STMIK MURA lubuklinggau selesai tahun 2009.Setelah itu melanjutkan Studi Strata Dua ( S 2) di Universitas Binadarma Palembang,selesai tahun 2011.

49


Bahan Ajar/Modul

50


BAB I PENGENALAN MICROSOFT VISUAL BASIC 6.0

Recommend Documents