MODUL PRAKTIKUM PEMROGRAMAN AKUNTANSI ( PRA 1)

MODUL PRAKTIKUM PEMROGRAMAN AKUNTANSI ( PRA 1)

Disusun Oleh: UMI HASANAH VERAWATI DIAN JUNAIDI SICILIA INDRIYANI W

Programmer : HAPPY INDRA WIJAYA SANDY ACHMADI

UNIVERSITAS GUNADARMA 2013 - 2014

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA

BAB I

Visual basic adalah bahasa pemrograman yang sangat mudah untuk dipelajari,dengan teknik pemrograman visual yang memungkinkan user untuk dapat berkreasi lebih baik dalam membuat suatu program aplikasi. Fungsi toolbar pada visual basic:

TEAM PENGEMBANGAN PRA 1 2013

Page 2

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Fungsi- fungsi toolbox pada Visual basic :


Page 3

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA TIPE DATA, VARIABLE DAN ARRAY Dalam Visual Basic kita akan mempelajari variable dan constant, maka sebelum itu kita perlu mengenal berbagai jenis tipe data dalam Visual Basic 1. Tipe Data Suatu variable dapat memberikan tipe data yang dibatasi pada data yang akan digunakan. Dimana akan membuat efisien pada listing kode. Jika tidak memakai tipe data maka semua variable adalah varian. 

Tipe Numerics Jika kita ingin memakai angka, dan mendeklarasikan variable dengan integer atau long tergantung dari kapasitas. Operator matematika memiliki memori yang cepat tergantung dari panjang ukuran tipe. Jika kita menggunakan angka maka kita pakai Single, Double atau Currency. Currency (Decimal Point) dengan kapasitas 4 digit untuk desimal point kanan dan 15 digit untuk desimal point kiri. Floating Point (Singlle atau Double) memiliki kapasitas yang besar.



Tipe String Jika variable terdiri dari text, maka kita mendeklarasikan dengan String: Dim temp as String

2. Variable Variable adalah sebuah nama yang diberikan pada suatu area dalam memory komputer untuk menyimpan data yang akan diproses dalam suatu operasi. Nama variable harus didefinisikan terlebih dahulu sebelum dapat digunakan. Masing-masing mempunyai jenis spesifikasi yang membedakan berapa banyak memori yang digunakan dalam mengoperasikan suatu data variable. Bentuk umum: Dim nama_variable [AsType] Cara penamaan variable: 

Variable harus diawali dengan Letter (Alfabhet)



Setelah Letter pertama, dapat terdiri atas kombinasi apa saja dari Letter, bilangan, dan garis bawah ( _ )


Page 4

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 

Nama variable tidak boleh diwali dengan angka



Tidak boleh mengandung karakter-karakter khusus, seperti *,-,+,#,@ spasi dan sebagainya.



Nama variable tidak boleh melebihi 255 karakter



Nama variable harus unik (tidak kembar) dalam suatu scope dimana tidak didefinisikan.



Nama variable tidak boleh sama dengan perintah-perintah visual basic misalnya Dim

AsType : bersifat operasional yang mendefinisikan tipe data pada variable yang dideklarasikan. Contoh: Dim MyInteger as Integer Variable dapat dideklarasikan menjadi tiga macam: 

Variable Local Variable Local menggunakan Dim, Static, atau ReDim (digunakan untuk array) digunakan untuk mendeklarasikan variable dalam prosedur. Beberapa prosedur menggunakan temp, sebab variable lokal dalam program berdiri sendiri. Statement Dim digunakan selama prosedur itu dialankan. Statement Static digunakan selama aplikasi itu dipakai. Contoh: Dim TempVal Static Temp Val

Penggunaan ReDim harus didefinisikan dengan Array. Dim A(3) membuat array sederhana dengan 4 elemen (0-3). ReDim A(10) berarti membuat 11 elemen array ReDim juga digunakan untuk menampung elemen array. 

Variable Modul Variable modul mendeklarasikan modul yang umum. Dipakai untuk semua prosedur yang memakai modul.



Variable Global

3. Array Mendeklarasikan sebuah array sama halnya dengan kita mendeklarasikan sebuah variable reguler. Kita juga dapat menetapkn tipe array tersebut dan menetapkan nilai array didalam kurung yang mengikuti nama array. Didalam Visual Basic ada dua kategori dari Array: TEAM PENGEMBANGAN PRA 1 2013

Page 5

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 

Fixed-size Array, ukuran Array selalu ditetapkan. Array dapat ditampilkan lebih dari satu dimensi. Untuk mengetahui ukuran suatu array dapat menggunakan Ubound dan Lbounnd. Ubound berfungsi untuk menemukan batas tertinggi dari suatu dimensi array sedangkan Lbound berfungsi untuk menentukan atas yang lebih rendah dari suatu dimensi array.



Array Dinamis : ukuran array dapat ditentukan / diubah pada saat dijalankan.

STATEMENT-STATEMENT PADA VISUAL BASIC Ketika kita membuat program, penting untuk mengetahui bagaimana penggunaan keputusan (decision) dan pengulangan. Perulangan adlah proses pengambilan beberapa instruksi sampai kondisi itu berakhir. Program memakai statement keputusan berdasarkan parameter yang memudahkan program untuk menjalankannnya. Perulangan terjadi setiap kita melakukan aktifitas. 1. Pernyataan bersyarat Ada berbagai format untuk membuat perintah If. Contohnya syntax dalam satu baris, syntax ini sering digunakan ketika hanya satu kondisi yang akan dieksekusi. Pemakaian syntax dalam satu baris tidak perlu menggunakan perintah penutup End If. If kondisi Then statement1 [Else Statement2] 2. Struktur Pengulangan Struktur pengulangan dapat digunakan untuk melaksanakan kode secara berulang. Pengulangan yang berulang kali dalam melaksanakan satu baris atau blok kode diterapkan terlebih dahulu banyaknya pengulangan. Struktur pengulangan terdiri dari: 

Perintah For...Next Perulangan yang sederhana adalah perintah For & Next. Sebuah pengulangan menggunakan variable konter yang meningkatkan atau menurunkan nilai selama perintah pengulangan dijalankan.


Page 6

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Syntax dari perintah For...Next yaitu: For konter = [kondisi1] to [kondisi2] Statement Next [konter] 

Perintah For...Each...Next Syntax dalam For Each Next agak sedikit berbiri dari For Next, karena variable diberikan setelah for each.



Perintah Do...Loop Perintah Do...Loop digunakan untuk menguji suatu kondisi awal dari pengulangan perintah Do...Loop akan menjalankan pengulangan sepanjang kondisi True dan berhenti ketika kondisi menjadi False. Syntax dari perintah Do While...Loop Do[While kondisi] Statement Loop



Perintah Do...Until Perintah Do...Untuil digunakan sampai kondisi yang diinginkan terpenuhi. Syntax dari perintah Do Until...Loop: Do [Until kondisi] Statement Loop



Perintah While...Wend Perintah While...Wend akan terus melakukan pengulangan sampai kondisi bernilai benar. Dan akan berhenti sampai kondisi bernilai salah.


Page 7


FORM MENU UTAMA

Langkah – langkah menbuat form menu utama : 1. Buka Microsoft Visual Basic , lalu pilih Standar EXE pada kotak New Project dan klik Open


Page 8

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 2. Klik kanan Project 1 pada kotak Project , lalu pilih Add dan MDI form lalu tekan Open

3. Ganti Caption MDIform1 Menjadi Menu Utama pada kotak properties 4. Klik kanan di kotak menu utama lalu pilih Menu editor

5. Setelah itu buat kerangka Menu Utama Dimulai dari File , Jurnal , Posting , Report File Jurnal - Informasi Perusahaan -general ledger - Edit Rekening - Exit


Posting

Report - Trial Balance - L/R - Perubahan Modal - Neraca

Page 9

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 6. Ketik File Pada Caption dan Name. setelah itu klik Next untuk membuat sub menu berikutnya. Klik tanda panah kanan untuk membuat sub menu file sampai muncul tanda (….) lalu ketik Informasi Perusahaan pada caption dan name begitu seterusnya


Page 10


FORM INFORMASI PERUSAHAAN

Langkah – langkah membuat Kotak Informasi Perusahaan 1. 2. 3. 4. 5.

Kilik Form1 pada kotak project Ganti “False” menjadi “True” pada MDIchild di kotak properties Ganti caption form1 pada kotak properties menjadi Informasi Perusahaan Drag and Drop menu Frame pada kotak Toolbox Hapus Caption form1 pada kotak properties


Page 11

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 6. Untuk menulis Nama Perusahaan , Alamat , Telepone dan jenis Perusahaan gunakan Label lalu drag and drop pada kotak Toolbox . lalu ganti caption Label1 menjadi Nama perusahaan dan seterusnya.

7. Gunakan menu textbox pada kotak toolbox untuk membuat kotak disamping Nama perusahaan, Alamat, Telepon dan jenis perusahaan


Page 12

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 8. Gunakan command button untuk membuat kotak cancel , save , edit dan delete

Buatlah Form Main Menu dan Informasi Perusahaan pada visual basic seperti form-form diatas menggunakan toolbox-toolbox yang ada!


Page 13


BAB II Rekening atau account adalah suatu alat untuk mencatat transaksi-transaksi keuangan yang bersangkutan dengan aset, kewajiban, ekuitas, pendapatan, dan beban perusahaan. FORM REKENING

Jurnal adalah alat untuk mencatat transaksi perusahaan yang dilakukan secara kronologis (berdasarkan urut waktu terjadinya) dengan menunjukkan rekening yang harus didebet dan dikredit beserta jumlah rupiahnya masing-masing. FORM GENERAL LEDGER


Page 14

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Buatlah Form Rekening dan General Ledger pada visual basic seperti formform diatas menggunakan toolbox-toolbox yang ada!

Sebelum membuat form rekening dan form general ledger, terlebih dahulu kita membuat database bernama praDB.mdb untuk dapat diakses dengan program VB yang nanti di buat . Database ini terdiri dari tabel rekening, perusahaan, dan transaksi. Langkah-langkah Membuat Tabel rekening, perusahaan, dan transaksi 1. Jalankan program Microsoft Access 2007 2. Pilih Blank Database  tekan tombol 3. Atur Filename dan Save as type persis seperti gambar dibawah ini  pastikan file disimpan di dalam folder yang sama dengan program vb yang akan dibuat nanti

4. Setelah tekan OK  lalu pilih Create 5. Klik kanan pada Tabel1  Design View


Page 15


6. Beri nama tabel yaitu perusahaan  klik OK

7. Buat design tabel perusahaan dengan id_perusahaan sebagai primary key seperti gambar berikut

8. Lalu buat tabel rekening , caranya 9. Klik menu Create  Table 10. Lalu klik kanan  pilih Design View 11. Beri nama tabel yaitu rekening  klik OK 12. Buat design tabel rekening dengan ID sebagai primary key seperti gambar berikut


Page 16

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 13. Lalu buat tabel transaksi , caranya 14. Klik menu Create  Table 15. Lalu klik kanan  pilih Design View 16. Beri nama tabel yaitu transaksi  klik OK 17. Buat design tabel rekening dengan ID sebagai primary key seperti gambar berikut

Kemudian relasikan tabel – tabel diatas 1. Pilih menu Database Tools  Relastionships


Page 17

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 2. Drag and Drop table rekening , perusahaan , dan transaksi pada runag Relationships seperti gambar berikut

3. Lalu hubungkan field - id_perusahaan ( table perusahaan )  id_perusahaan (table rekening ) - id_perusahaan ( table perusahaan )  id_perusahaan ( table transaksi caranya :

-

klik

-

klik Create New …  Buat seperti gambar dibawah ini

-

setelah itu klim OK


Page 18

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA -

Lalu ceklistt semua cekbox  klik Create

-

Maka akan tampil seperti ini

-

Lalu lakukan ulang untuk merelasikan table perusahaan dengan traksaksi Sehingga tampil seperti berikut


Page 19

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Form Rekening merupakan form yang terhubung dengan database yang kita buat yaitu pra Apa itu form ? Form merupakan interface / tatap muka antara pengguna dengan aplikasi yang kita buat di VB ini, form merupakan tempat objek/komponen sperti textbox, label, command button , dll dipasang . Jalankan program Visual Basic 6 Langkah-langkah membuat Form Rekening: 1. Pastikan file project yang dibuat sebelumnya berjalan 2. Tambahkan form , pilih menu Project  Add Form  pilh form  Open

3. Berikut Properties dari Form yang tadi dibuat Name frmRekening

Caption Rekening

MDI Child True ( agar form dpt berjalan di dalam MDIform

4. Berikut komponen / objek yang harus dipasaang di form sbb : DataGrid

: untuk menampilkan tabel dari file database pra

TextBox

: menginput text

Command Button

: Untuk tombol perintah .

Option Button

: komponen untuk memilih dua atau lebih pilihan

Frame

: Untuk pembatas

Secara default , komponen dari datagrid dan adodc harus dipanggil , berikut caranya TEAM PENGEMBANGAN PRA 1 2013

Page 20

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 5. Panggil komponen Datagrid dan Adodc dengan pilih menu Project  Component …  pilih tab control  ceklist pada Microsoft Datagrid Control 6 (OLEDB)  Klik OK , jika berhasil pada toolbar komponen akan tampil sepeti gambar dibawah ini

6. Setelah itu, pasang komponen-komponen yang tadi disebutkan , seperti gambar dibawah ini :

Datagrid

Frame

Command Button

Option Button


TextBox

Page 21


Isi properties komponen-komponen gambar diatas seperti berikut Komponen Form Datagrid Frame Label

Name FormRekening Table Frame1 Label2

Label

Label1

Label

Label3

Label

Label4

Caption Rekening

Text

MDIChild True

Kode Rekening : Rekening : Debit/Kredit : Saldo :

TextBox txKode ( kosongkan ) TextBox txRek ( kosongkan ) TextBox txSaldo ( kosongkan ) Option Button rdDebit Debit Option Button rdKredit Kredit CommandButton btnAdd Add CommandButton btnSave Save CommandButton btnEdit Edit CommandButton btnDelete Delete 7. Tambahkan judul / nama field pada datagrid tabel, caranya : - Klik kanan pada komponen datagrid tabe  pilih Edit - Klik kanan lagi  pilih Append ( ulangi langkah kedua ini sampai kolom berjumlah 4 ) - Lalu klik kanan lagi pada komponen ( seperti langkah 1 )  pilih properties - Pilih tab Columns  isi sesuai dibawah ini  klik Apply


Page 22

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA -

Isi column 1 seperti dibawah ini :

-

Untuk column 2 Caption : Debit/Kredit Datafield : dk - Untuk Column 3 Caption : Saldo Datafiled : saldo 8. Masukkan coding berikut caranya , klik menu View  Code


Page 23

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 9. Ketikkan coding berikut ( jangan copy text warna hijau ): Sub setData() Call bukaKoneksi „Membuat fungsi setData yang apabila di panggil maka akan memanggil function bukaKoneksi . function bukaKoneksi yaitu menghubungkan databsae praDB.mdb dengan aplikasi VB ini rsRekening.Open "select id_perusahaan,kode_rek,keterangan,dk,saldo from rekening where id_perusahaan=" + idPerusahaan, conn, adOpenForwardOnly, adLockOptimistic „ mengambil data dari tabel rekening pada database praDB.mdb ke FormRekening ini With rsRekening If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If End With Set tabel.DataSource = rsRekening.DataSource End Sub „logika diatas maksudnya menampilkan tabel rekening ke tabel datagrid Sub clean() txKode.Text = "" txRek.Text = "" rdDebit.Value = True txSaldo.Text = "" End Sub „membuat function clean dengan logika yaitu jika dipanggil maka textbox yang bernama txKode , txRek, txSaldo akan kosong isinya . dan radiobutton yang bernama rdDebit akan tampil seperti ini Sub kontentStatus(state As Boolean) txKode.Enabled = state txRek.Enabled = state rdDebit.Enabled = state rdKredit.Enabled = state txSaldo.Enabled = state End Sub


Page 24

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA „Fungsi kontentStatus membuat varibel state sebagai parameter bertipe data boolean ( true or flase . fungsi ini berguna apabila dipanggil maka txKode, txRek, rdDebit, rdKredit. txSaldo nilai enabled-nya akan menjadi true atau false tergantung perintah

Private Sub btnAdd_Click() If btnAdd.Caption = "Add" Then rsRekening.AddNew kontentStatus (True) clean txKode.SetFocus btnSave.Enabled = True btnAdd.Caption = "Cancel" Else kontentStatus (False) clean btnSave.Enabled = False btnAdd.Caption = "Add" tabel.Enabled = True Call setData End If End Sub „Event dari tombol btnAdd apabila diklik maka - jika caption btnAdd adalah “Add” maka akan menambahkan record baru pada tabel rekening, memanggil fungsi kontentStatus dengan menjadikan true, memanggil fungsi clean, menjadikan txKode latak awal pointer, enabled tombol btnSave dalam keadaan true , dan caption dari btnAdd berubah menjadi “Cancel” - Selain itu apabila kondisi atas tidak terpenuhi maka - fungsi kontentStatus dengan menjadikan false, memanggil fungsi clean, enabled tombol btnSave dalam keadaan false , dan caption dari btnAdd adalah “Add”, komponen datagrid yang bernama tabel ber-enabled yaitu true, memanggil fungsi setData


Page 25

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Private Sub btnDelete_Click() pilih = MsgBox("Yakin ingin menghapus rsRekening ini?", vbQuestion + vbYesNo, "Konfirmasi") If pilih = vbYes Then rsRekening.Delete tabel.Refresh Call clean Else Exit Sub End If „Event dari tombol btnDelete apabila diklik maka - Akan tampil kotak pemberitahuan yang isinya “ Yakin ingin menghapus “ - Jika anda tekan yes maka record dari tabel yang dipilih akan dihapus, datagrid tabel akan merefresh , fungsi clean dipanggil . - Selain itu maka - Tidak ada perubahan

btnAdd.Caption = "Add" „ caption dari tombol btnAdd adalah “Add” btnEdit.Enabled = False „ enabled dari tombol btnEdit adalah “false” maksudnya berarti tombol tesebut tidak bisa digunakan kalau true yaitu sebaliknya btnDelete.Enabled = False „ enabled dari tombol btnDelete adalah “false” End Sub „menandakan bahwa event diakhiri atau ditutup Private Sub btnEdit_Click() „Event dari tombol btnDelete apabila diklik maka Call kontentStatus(True) „Panggil fungsi kontentStatus tabel.Enabled = False „enabled dari datagrid yang bernama tabel yaitu false btnSave.Enabled = True „enabled dari tombol btnSave yaitu true btnEdit.Enabled = False „enabled dari tombol btnEdit yaitu false btnDelete.Enabled = False „enabled dari tombol btnDelete yaitu false End Sub


Page 26


Private Sub btnSave_Click() If txKode <> "" And txRek <> "" And txSaldo <> "" Then rsRekening!id_perusahaan = idPerusahaan rsRekening!kode_rek = txKode.Text rsRekening!keterangan = txRek.Text If rdDebit.Value = True Then rsRekening!dk = "debit" Else rsRekening!dk = "kredit" End If rsRekening!saldo = txSaldo rsRekening.Update MsgBox "Data berhasil disimpan!", vbInformation, vbOKOnly clean kontentStatus (False) btnSave.Enabled = False btnAdd.Caption = "Add" tabel.Enabled = True Else MsgBox "Masukkan data dengan lengkap!", vbExclamation, vbOKOnly End If End Sub „Event dari tombol btnSave apabila diklik yaitu akan menyimpan nilai dari txKode, txRek, txSaldo , dan rdDebit atau rdKredit kedalam tabel rekening pada database praDB. Private Sub Form_Activate() 'Call setData End Sub „Event akan jalan apabila form pertama kali dalam keadaan aktif Private Sub Form_Load() „Event ketika pertama kali form diload ( proses ) Call center(Me) „memangil fungsi center untuk form ini Call kontentStatus(False) „panggil fungsi kontentStatus dengan btnSave.Enabled = False „enabled dari tombol btnSave yaitu false btnEdit.Enabled = False „enabled dari tombol btnEdit yaitu false


Page 27

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA btnDelete.Enabled = False „enabled dari tombol btnDelete yaitu false Call setData „panggil fungsi setData End Sub

Private Sub tabel_Click() If rsRekening.RecordCount = 0 Then Exit Sub Else txKode.Text = rsRekening!kode_rek txRek.Text = rsRekening!keterangan If rsRekening!dk = "Debit" Then rdDebit.Value = True ElseIf rsRekening!dk = "Kredit" Then rdKredit.Value = True End If txSaldo.Text = rsRekening!saldo btnAdd.Caption = "Cancel" btnEdit.Enabled = True btnDelete.Enabled = True End If End Sub „Event ini berfungsi ketika datagrid tabel diklik , intinya yaitu untuk sinkronisasi antara texbox pada form dengan tabel Private Sub txSaldo_KeyPress(KeyAscii As Integer) If Not ((KeyAscii >= 48) And (KeyAscii <= 57) Or KeyAscii = 8) Then Beep MsgBox "Dimohon untuk input numeric, periksa kembali!", vbCritical, vbOKOnly txSaldo.Text = "" End If End Sub „Event ini berguna ketika textbox yaitu txSaldo di input , maka ketentuannya harus huruf numerik yang di input jika tidak akan ada pesan pemberitahuan ( message Box )


Page 28

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Langkah-langkah membuat Form General Ledger: 1. Tambahkan form dengan pilih menu Project  Add Form  Form  klik Open 2. Buat form seperti tampilan dibawah ini Form

TextBox

Datagrid

Label ComboBox

Frame

Option Button

Command Button

Isi properties komponen-komponen gambar diatas seperti berikut Komponen Form Datagrid Frame Label Label

Name FormGL tabelGL Frame1 Label1 Label2

Label

Label3

Label Label Label Label Label Label TextBox TextBox TextBox

Label4 Label5 Label6 Label7 totDebit totKredit txNomor txTanggal txKeterangan


Caption General Ladger

Text

MDIChild True

Tanggal : No.Transaksi : Total : Kode Rekening Keterangan Debit/Kredit Saldo 100,000,000 100,000,000 (kosongkan) (kosongkan) (kosongkan) Page 29

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA TextBox ComboBox OptionButton OptionButton CommandButton CommandButton CommandButton CommandButton

txSaldo cmbKode rdDebit rdKredit btnAdd btnSave btnEdit btnDelete

(kosongkan) (kosongkan) Debit Kredit Add Save Edit Delete

3. Tambahkan judul / nama field pada datagrid tabel, caranya : - Klik kanan pada komponen datagrid tabelGL  pilih Edit - Klik kanan lagi  pilih Append ( ulangi langkah kedua ini sampai kolom berjumlah 5 ) - Lalu klik kanan lagi pada komponen ( seperti langkah 1 )  pilih properties - Pilih tab Columns  isi sesuai dibawah ini  klik Apply

-

Untuk Collumn 1 Caption : No. Transaksi Datafield : no_transaksi

-

Untuk Collumn 2 Caption : Keterangan Datafield : keterangan

-

Untuk Collumn 3 Caption : Debit Datafield : debit

-

Untuk Collumn 4 Caption : Kredit Datafield : kredit


Page 30

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 4. Masukkan coding berikut caranya , klik menu View  Code

5. Ketikkan coding dibawah ini ( jangan copy text warna hijau ) : Dim nomor As Integer „menjadikan variabel nomor dengan tipedata bilangan bulat

Function getNomor(no As Integer) Dim s As String Dim n As String If no < 10 Then n = no s = "JU00" + n ElseIf no >= 10 And no < 100 Then n = no s = "JU0" + n ElseIf no >= 100 Then TEAM PENGEMBANGAN PRA 1 2013

Page 31

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA n = no s = "JU" + n End If getNomor = s End Function „Fungsi getNomor dengan varibel no sebagai parameter . fungsi ini berguna untuk penentuan nomor jadi apabila variabel no bernilai kurang dari 10 maka variabel n samadengan variabel no dan variabel s bernilai JU00+n Selain itu jika variabel no adalah >= 10 dan < 100 maka n = no dan s = “JU0”+n Selain itu juga maka n = no dan s = “JU”+n

Sub setTotal() Dim debit As Currency „Menjadikan variabel debit bertipedata currency Dim kredit As Currency „Menjadikan variabel kredit bertipedata currency

Call bukaKoneksi „memanggil fungsi bukaKoneksi yaitu berguna untuk menghubungkan database praDB.mdb ke form ini agar database itu dapat diakses melalui form ini rsTransaksi.Open "select no_transaksi,tanggal,kode_rek, keterangan, iif(dk='debit',saldo,0) as debit, iif(dk='kredit',saldo,0) as kredit from transaksi where id_perusahaan=" + idPerusahaan + " order by tanggal", conn, adOpenStatic, adLockOptimistic Do Until rsTransaksi.EOF debit = debit + rsTransaksi!debit kredit = kredit + rsTransaksi!kredit rsTransaksi.MoveNext Loop TEAM PENGEMBANGAN PRA 1 2013

Page 32

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA totDebit.Caption = Format(debit, "###,###,###,###") totKredit.Caption = Format(kredit, "###,###,###,###") End Sub

Sub clear() „Fungsi clear txTanggal.Text = "" „TextBox txTanggal dikosongkan isinya cmbKode.Text = "" „ComboBox yang bernama cmbKode dikosongkan isinya txKeterangan.Text = "" „TextBox txKeterangan dikosongkan isinya rdDebit.Value = True „OptionButton bernama rdDebit bernilai True artinya opsi yang dipilih secara default txSaldo.Text = "" „TextBox txSaldo dikosongkan isinya End Sub

Sub kontentStatus(state As Boolean) txTanggal.Enabled = state cmbKode.Enabled = state txKeterangan.Enabled = state rdDebit.Enabled = state rdKredit.Enabled = state txSaldo.Enabled = state End Sub


Page 33

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA „Fungsi kontentStatus membuat varibel state sebagai parameter bertipe data boolean ( true or flase . fungsi ini berguna apabila dipanggil maka txTanggal, cmbKode, rdDebit, rdKredit. txSaldo , txKeterangan yang nilai enabled-nya akan menjadi true atau false tergantung perintah

Sub setInput() Call bukaKoneksi rsInput.Open "select * from transaksi where id_perusahaan=" + idPerusahaan, conn, adOpenStatic, adLockOptimistic End Sub „Fungsi ini berguna untuk meamanggil bukaKoneksi dan untuk mengakses tabel transaksi pada database praDB.mdb

Sub setData() Call bukaKoneksi rsTransaksi.Open "select no_transaksi,tanggal,kode_rek, keterangan, iif(dk='debit',saldo,0) as debit, iif(dk='kredit',saldo,0) as kredit from transaksi where id_perusahaan=" + idPerusahaan + " order by tanggal", conn, adOpenStatic, adLockOptimistic With rsTransaksi If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If End With Set tabelGL.DataSource = rsTransaksi.DataSource End Sub „Membuat fungsi setData yang apabila di panggil maka akan memanggil function bukaKoneksi . function bukaKoneksi yaitu menghubungkan databsae praDB.mdb dengan aplikasi VB ini „ mengambil data dari tabel transaksi pada database praDB.mdb ke FormGL ini


Page 34


Sub setKode() „Fungsi setKode Call bukaKoneksi „Panggil/jalankan fungsi dari bukaKoneksi rsRekening.Open "select kode_rek from rekening where id_perusahaan=" + idPerusahaan, conn, adOpenStatic, adLockOptimistic „sinkronisasi agar tabel rekening dapat diakses rsRekening.MoveFirst Do Until rsRekening.EOF cmbKode.AddItem rsRekening!kode_rek rsRekening.MoveNext Loop „Membaca record dari tabel rekening End Sub

Private Sub btnAdd_Click() If btnAdd.Caption = "Add" Then btnAdd.Caption = "Cancel" Call kontentStatus(True) Call setData nomor = rsTransaksi.RecordCount + 1 txNomor.Text = getNomor(nomor) Call setInput rsInput.AddNew btnSave.Enabled = True tabelGL.Enabled = False TEAM PENGEMBANGAN PRA 1 2013

Page 35

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA ElseIf btnAdd.Caption = "Cancel" Then btnAdd.Caption = "Add" txNomor.Text = "" btnSave.Enabled = False btnEdit.Enabled = False btnDelete.Enabled = False tabelGL.Enabled = True Call setData Call kontentStatus(False) End If Call clear End Sub „Coding diatas merupakan event dari btnAdd apabila diklik , maka tombol btnDelete, btnEdit pada enabled-nya akan false artimya tobol di-disable . intinya ketika anda meneka tombol btnAdd maka akan dapat menginput data ke record dari tabel rekening dan hasilnya akan tampil di datagrid.

Private Sub btnDelete_Click() pilih = MsgBox("Yakin ingin menghapus rsRekening ini?", vbQuestion + vbYesNo, "Konfirmasi") If pilih = vbYes Then rsTransaksi.Delete tabelGL.Refresh Call setTotal txNomor.Text = "" Call clear Else Exit Sub TEAM PENGEMBANGAN PRA 1 2013

Page 36

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA End If btnAdd.Caption = "Add" btnEdit.Enabled = False btnDelete.Enabled = False End Sub „event ini apabila tombol btnDelete diklik maka anda akan menghapus record dari tabel rekening yang disorot pada datagrid .

Private Sub btnEdit_Click() Call kontentStatus(True) btnSave.Enabled = True btnEdit.Enabled = False btnDelete.Enabled = False Call setInput rsInput.Move (tabelGL.Row) tabelGL.Enabled = False End Sub „event ini apabila tombol btnEdit diklik maka anda dapat mengubah isi record pada tabel rekening

Private Sub btnSave_Click() If txNomor <> "" And txTanggal <> "" And txKeterangan <> "" And txSaldo <> "" And cmbKode.Text <> "" Then rsInput!tanggal = txTanggal.Text rsInput!id_perusahaan = idPerusahaan rsInput!kode_rek = cmbKode.Text rsInput!no_transaksi = txNomor.Text


Page 37

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA rsInput!keterangan = txKeterangan.Text If rdDebit.Value = True Then rsInput!dk = "debit" Else rsInput!dk = "kredit" End If rsInput!saldo = txSaldo.Text rsInput.Update tabelGL.Enabled = True Call setTotal Call setData txNomor.Text = "" Call clear Call kontentStatus(False) btnAdd.Caption = "Add" btnSave.Enabled = False tabelGL.Enabled = True Else MsgBox "Masukkan data dengan lengkap!", vbExclamation, vbOKOnly End If End Sub „event ini apabila tombol btnSave diklik maka anda akan menyimpan data yang diinput ke tabel rekening , tombol ini digunakan setelah meneka tombol btnAdd  input  tekan tombol btnSave

Private Sub Form_Activate() Call setKode


Page 38

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Call setData End Sub „Event ini akan melakukan ketika form pertama kali dalam keadaan aktif , logikanya yaitu jalankan fungsi setKode dan setData

Private Sub Form_Load() Call center(Me) Call setKode Call setTotal nomor = rsTransaksi.RecordCount Call kontentStatus(False) btnSave.Enabled = False btnEdit.Enabled = False btnDelete.Enabled = False End Sub „event ini berjalan ketika form diproses ( load ) dengan melakukan -

Jalankan fungsi center untuk form ini Jalankan fungsi setKode Jalankan fungsi setTotal Memberi nilai pada variabel nomor adalah sesuai dengan jumlah record pada tabel transaksi Menjalankan fungsi kontentStatus dengan nilai false Menjadikan enabled tombol btnSave, btnEdit, btnDelete yaitu false aratinya tombol tidak dapat ditekan

Private Sub tabelGL_Click() If rsTransaksi.RecordCount = 0 Then Exit Sub Else


Page 39

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA txNomor.Text = rsTransaksi!no_transaksi txTanggal.Text = rsTransaksi!tanggal cmbKode.Text = rsTransaksi!kode_rek txKeterangan.Text = rsTransaksi!keterangan If rsTransaksi!debit = 0 Then rdKredit.Value = True txSaldo.Text = rsTransaksi!kredit Else rdDebit.Value = True txSaldo.Text = rsTransaksi!debit End If btnAdd.Caption = "Cancel" btnEdit.Enabled = True btnDelete.Enabled = True End If End Sub „Event ini berfungsi ketika datagrid tabelGL diklik , intinya yaitu untuk sinkronisasi antara texbox pada form dengan tabel


Page 40


BAB III

Buku Besar adalah Kumpulan dari semua rekening/perkiraan yang dimiliki suatu perusahaan yang saling berhubungan satu dengan lainnya dan merupakan suatu kesatuan. REPORT TRIAL BALANCE

Laporan Laba/Rugi merupakan laporan mengenai pendapatan dan beban-beban suatu perusahaan selama periode tertentu. REPORT LABA RUGI

Buatlah Report Trial Balance dan Report Laba Rugi pada visual basic seperti form-form diatas menggunakan toolbox-toolbox yang ada!


Page 41

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Sebelum membuat form report trial balance dan form report laba rugi, terlebih dahulu kita membuat modul untuk dapat diakses dengan program VB yang nanti di buat. Modul berisi coding fungsinya dari perintahnya dapat digunakan oleh semua form. Biasanya module bersisi coding yang fungsinya untuk mengkoneksikan database ke VB. Modul sendiri bukan berbentuk form jadi anda hanya dapat memasukkan coding. Berikut Langkah membuat Module untuk aplikasi PRA: 1. Pastikan anda sudah menjalankan program aplikasi Microsoft Visual Basic 6 2. Lalu pilih menu Project – Add Module - Open 3. Lalu ketikkan coding sbb ( tulisan berwarna hijau yaitu penjelasann , jgn diketik ) :

Public conn As New ADODB.Connection Public rsPerusahaan As New ADODB.Recordset Public rsRekening As New ADODB.Recordset Public rsTransaksi As New ADODB.Recordset Public rsInput As New ADODB.Recordset Public index As Long Public idPerusahaan As String Public laba As Currency Public modal As Currency Pada rangkaian codng diatas maksudnya yaitu kita membuat beberapa variable yaitu rsPerusahaan , rsRekening, rsTransaksi, rsInput , dll . variable ini berfungsi universal artinya berlaku jika diprose oleh semua form pada program pra ini. As New ADODB.Conection artinya tugas dari variable missal rsPerusahaan mencakup pemrosesan database dari mulai input, save, delete pada record. As Long artinya variable index bertipe data long (dapat mencakup karakter yang sangat banyak) As Currency artinya variable tersebut missal diatas yaitu modal hanya mencakup / menampung data currency ( format matauang )

Sub bukaKoneksi()


Page 42

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Set conn = New ADODB.Connection Set rsPerusahaan = New ADODB.Recordset Set rsRekening = New ADODB.Recordset Set rsTransaksi = New ADODB.Recordset Set rsInput = New ADODB.Recordset conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\praDB.mdb" conn.CursorLocation = adUseClient End Sub Rangkaian coding diatas disebut function , jadi kalau function ini dipanggil /dijalankan maka database access yang telah dibuat yaitu praDB.mdb sudah terkoneksi dengan program pra ini , sehingga database dapat di akses melalui program ini missal input data, hapus data pada record .

Sub center(Form As Form) Form.Top = (MainForm.Height - Form.Height) / 2 Form.Left = (MainForm.Width - Form.Width) / 2 End Sub Pada serangkaian coding diatas , merupakan function yang apabila dipanggil maka berguna untuk menentukan posisi form yang ditampilkan selalu pada posisi center ( tengah pada layar monitor )


Page 43


Membuat Form Report Form Report ini berguna untuk menampilkan hasil akhir dari pemrosessan dari formRekening dan FormGl Form ini terdiri: -

Laporan Trial Balance ( formTB ) Laporan Laba/Rugi ( formLR ) Laporan Perubahan Modal (formPM) Laopran Neraca ( formNR )

Langkah-langkah membuat formTB: 1. Pastikan berada di program aplikasi VB 6 2. Pilih menu Project  Add Form  Open

Berikut komponen / objek yang harus dipasaang di form sbb : Common Dialog TextBox untuk

: memanggil file txt untuk ditampilnan di form : menginput text ( di form ini digunakan sebgai interface menampilkan isi file txt


Page 44

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 3. Lanjut, Pasang 2 komponen pada form seperti gambar berikut :

Commn Dialog

Textbox

Isi properties komponen-komponen gambar diatas seperti berikut Komponen Form

Name FormTB

TextBox CommonDialog

txFile cmDialog

Caption Trial Balance

Text

MDIChild True

Kosongkan

Multiline

Scroolbar

true

3 –Both

4. Masukkan coding berikut caranya , klik menu View  Code 5. Ketikkan coding dibawah ini :

Private Sub Form_Activate() On Error GoTo 10 Wrap$ = Chr$(13) + Chr$(10) cmDialog.FileName = App.Path & "\report_tb.txt" Open cmDialog.FileName For Input As #1 Do Until EOF(1) Line Input #1, LineOfText$ AllText$ = AllText$ & LineOfText$ & Wrap$ Loop txFile = AllText$ TEAM PENGEMBANGAN PRA 1 2013

Page 45

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Close #1 10: Exit Sub End Sub Rangkaian coding diatas merupakan sebuah event yang berfungsi ketika form pertama kali aktif atau dijalankan yaitu menampilkan file report_tb.txt di komponen textbox yang bernama txFile . report_tb.txt merupakan file text yang isinya laporan Trial Balance .

Private Sub Form_Resize() txFile.Height = Me.Height - 645 txFile.Width = Me.Width - 360 End Sub Event ini berfungsi untuk menentukan ukuran form dari repotTB Private Sub txFile_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Event ini berfungsi mengunci textbox pada form reportTB agar tidak menerima input

Langkah-langkah membuat formLR : 1. Pastikan berada di program aplikasi VB 6 2. Pilih menu Project  Add Form  Open


Page 46

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA Berikut komponen / objek yang harus dipasaang di form sbb : Common Dialog TextBox untuk

: memanggil file txt untuk ditampilnan di form : menginput text ( di form ini digunakan sebgai interface menampilkan isi file txt

-

Secara default , komponen Common dialog tidak ditampilkan di toolbar komponen, oleh katena itu , kita harus memanggilnya dengan cara : Pilih menu Project  Component  ceklist Microsoft Common Dialog 6.0 0 OK

3. Lanjut, Pasang 2 komponen pada form seperti gambar berikut :

Commn Dialog

Textbox

Isi properties komponen-komponen gambar diatas seperti berikut Komponen Form

Name FormLR

TextBox CommonDialog

txFile cmDialog

Caption Laba / Rugi


Text

Kosongkan

MDIChild True

Multiline

Scroolbar

true

3 –Both

Page 47

LABORATORIUM AKUNTANSI LANJUT A FAKULTAS EKONOMI UNIVERSITAS GUNADARMA 4. Masukkan coding berikut caranya , klik menu View  Code 5. Ketikkan coding dibawah ini : Private Sub Form_Activate() On Error GoTo 10 Wrap$ = Chr$(13) + Chr$(10) cmDialog.FileName = App.Path & "\report_lr.txt" Open cmDialog.FileName For Input As #1 Do Until EOF(1) Line Input #1, LineOfText$ AllText$ = AllText$ & LineOfText$ & Wrap$ Loop txFile = AllText$ Close #1 10: Exit Sub End Sub Rangkaian coding diatas merupakan sebuah event yang berfungsi ketika form pertama kali aktif atau dijalankan yaitu menampilkan file report_lr.txt di kompoinen textbox yang bernama txFile . report_lr.txt merupakan file text yang isinya laporan laba/rugi .

Private Sub Form_Resize() txFile.Height = Me.Height - 645 txFile.Width = Me.Width - 360 End Sub Event ini berfungsi untuk menentukan ukuran form dari repotLR Private Sub txFile_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Event ini berfungsi mengunci textbox pada form reportLR agar tidak menerima input


Page 48


BAB IV

Laporan perubahan modal merupakan laporan yang menggambarkan perubahan saldo akan ekuitas seperti modal disetor, tambahan modal disetor, laba yang ditahan dan aakun ekuitas lainnya. REPORT PERUBAHAN MODAL

Neraca adalah laporan yang menginformasikan posisi keuangan pada saat tertentu, yang tercermin pada jumlah harta yang dimiliki, jumlah kewajiban, dan modal perusahaan.

REPORT NERACA

Buatlah Report Perubahan Modal dan Report Neraca pada visual basic seperti form-form diatas menggunakan toolbox-toolbox yang ada


Page 49


Langkah-langkah membuat formPM 1. Pastikan berada di program aplikasi VB 6 2. Pilih menu Project  Add Form  Open

Berikut komponen / objek yang harus dipasaang di form sbb : Common Dialog TextBox interface untuk

: memanggil file txt untuk ditampilnan di form : menginput text ( di form ini digunakan sebgai

menampilkan isi file txt 3. Lanjut, Pasang 2 komponen pada form seperti gambar berikut :

Commn Dialog

Textbox


Page 50


Isi properties komponen-komponen gambar diatas seperti berikut Komponen

Name

Caption

Form

Perubaha n Modal

TextBox

FormP M txFile

CommonDial og

cmDialo g

Text

MDIChil Multilin Scroolb d e ar True

Kosongka n

true

3 –Both

4. Masukkan coding berikut caranya , klik menu View  Code 5. Ketikkan coding dibawah ini : Private Sub Form_Activate() On Error GoTo 10 Wrap$ = Chr$(13) + Chr$(10) cmDialog.FileName = App.Path & "\report_pm.txt" Open cmDialog.FileName For Input As #1 Do Until EOF(1) Line Input #1, LineOfText$ AllText$ = AllText$ & LineOfText$ & Wrap$ Loop txFile = AllText$ Close #1 10: Exit Sub End Sub Rangkaian coding diatas merupakan sebuah event yang berfungsi ketika form pertama kali aktif atau dijalankan yaitu menampilkan file report_pm.txt di komponen textbox yang bernama txFile . report_pm.txt merupakan file text yang isinya laporan Perubahan Modal .

Private Sub Form_Resize() txFile.Height = Me.Height - 645 txFile.Width = Me.Width - 360 End Sub Event ini berfungsi untuk menentukan ukuran form dari repotPM Private Sub txFile_KeyPress(KeyAscii As Integer) TEAM PENGEMBANGAN PRA 1 2013

Page 51


KeyAscii = 0 End Sub Event ini berfungsi mengunci textbox pada form reportPM agar tidak menerima input Langkah-langkah membuat formNR 1. Pastikan berada di program aplikasi VB 6 2. Pilih menu Project  Add Form  Open

Berikut komponen / objek yang harus dipasaang di form sbb : Common Dialog TextBox interface untuk

: memanggil file txt untuk ditampilnan di form : menginput text ( di form ini digunakan sebgai menampilkan isi file txt


Page 52


3. Lanjut, Pasang 2 komponen pada form seperti gambar berikut : Commn Dialog

Textbox

Isi properties komponen-komponen gambar diatas seperti berikut Komponen

Name

Form TextBox

FormNR txFile

Captio n Neraca

Text

MDIChil d True

Kosongka n

Multilin e

Scroolba r

true

3 –Both

CommonDialo cmDialo g g 4. Masukkan coding berikut caranya , klik menu View  Code 5. Ketikkan coding dibawah ini : Private Sub Form_Activate() On Error GoTo 10 Wrap$ = Chr$(13) + Chr$(10) cmDialog.FileName = App.Path & "\report_nr.txt" Open cmDialog.FileName For Input As #1 Do Until EOF(1) Line Input #1, LineOfText$ AllText$ = AllText$ & LineOfText$ & Wrap$ Loop txFile = AllText$ Close #1 10: Exit Sub End Sub


Page 53


Rangkaian coding diatas merupakan sebuah event yang berfungsi ketika form pertama kali aktif atau dijalankan yaitu menampilkan file report_nr.txt di kompoinen textbox yang bernama txFile . report_nr.txt merupakan file text yang isinya laporan neraca .

Private Sub Form_Resize() txFile.Height = Me.Height - 645 txFile.Width = Me.Width - 360 End Sub Event ini berfungsi untuk menentukan ukuran form dari repotNR Private Sub txFile_KeyPress(KeyAscii As Integer) KeyAscii = 0 End Sub Event ini berfungsi mengunci textbox pada form reportNR agar tidak menerima input


Page 54

MODUL PRAKTIKUM PEMROGRAMAN AKUNTANSI ( PRA 1)

Recommend Documents