BAB IV PERANCANGAN SISTEM INFORMASI AKUNTANSI BELANJA

BAB IV PERANCANGAN SISTEM INFORMASI AKUNTANSI BELANJA

4.1 Sistem Informasi Akuntansi Belanja Yang Diusulkan 4.1.1 Kebijakan Sistem Informasi Akuntansi Belanja Yang Diusulkan Adapun kebijakan Kantor Kecamatan Cileunyi mengenai belanja adalah sebagai berikut: A.

Proses pengajuan dana untuk belanja ke bagian keuangan harus berdasarkan anggaran belanja yang sudah ditetapkan oleh pemerintah.

B.

Bukti pembayaran akan diterbitkan setelah pengajuan dana untuk belanja yang direalisasi oleh bagian keuangan.

C.

Pencatatan transaksi yang telah direalisasi dilakukan oleh Bag. Keuangan.

D.

Semua pencatatan transaksi realisasi belanja dicatat bukti pembayarannya yang selanjutnya dibukukan oleh Bag. Keuangan.

E.

Laporan keuangan dana belanja harus dibuat atau berdasarkan sistem akuntansi pemerintah yang telah ada.

F.

Realisasi belanja yang ada pada instansi pemerintahan yaitu Belanja ATK (Alat Tulis Kantor), belanja alat listrik, belanja gaji, belanja perangko dan alat pos,

belanja makanan dan minuman buat rapat, belanja peralatan

kebersihan, belanja perjalanan dinas dan belanja pemeliharaan. G.

Semua dana belanja yang dikeluarkan dilakukan dengan tunai

H.

Realisasi dana belanja langsung masuk ke kas kecamatan.

83

84

I.

Realisasi Anggaran pendapatan dan belanja dilaporkan kepada Camat setiap 6 bulan sekali.

J.

Permintaan dana belanja sebesar-besarnya ¾ dari anggaran yang ada.

K.

Dana yang ada pada laporan Realisasi Anggaran pada akhir tahun dijadikan saldo pada awal tahun berikutnya.

4.1.2 Formulir/Dokumen dan Catatan Yang Diusulkan Dokumen dan catatan yang digunakan untuk proses pembuatan laporan yang diusulkan oleh penulis dimulai dari jurnal umum dan, buku besar umum, surplusdefisit dan neraca adalah sebagai berikut: A. Jurnal Umum B. Buku Besar Umum diantaranya adalah: 1. Buku Besar Umum Kas 2. Buku Besar Umum Belanja C. Realisasi anggaran, pendapatan dan belanja

4.1.3 Account dan Code Account yang diusulkan Account dan Code Account merupakan suatu hal yang penting dalam pembuatan laporan keuangan, untuk itu Account dan Code Account diusulkan adalah sebagai berikut :

85

Tabel 4.1 Account dan Code Account yang diusulkan Account Kas Belanja Pegawai Belanja Barang

Code rekening 1.1.1.01.01 5.1.1.01 5.2.2.01

Belanja Perjalanan Dinas Belanja Pemeliharaan Persediaan ATK

5.2.2.15 5.2.2.16 1.1.01.05

4.2 Perancangan Model Sistem yang Diusulkan Bab ini Penulis akan memberikan usulan pada rancangan sistem informasi akuntansi belanja yang berjalan, sistem yang diusulkan merupakan sistem secara terkomputerisasi dan sistem yang diusulkan tersebut diharapkan dapat lebih membantu dan mempermudah saat memasukkan data transaksi dan pembuatan laporan belanja bisa lebih akurat. waktu yang digunakan bisa efektif dan efisien. Tabel 4.2 Perbandingan Sistem Yang Berjalan dan Sistem Yang Diusulkan No 1

Penjelasan Sistem Informasi Akuntansi

2

Catatan Yang Digunakan

3

Dokumen Yang Digunakan

Sistem yang Berjalan Siklus akuntansi dimulai dari terjadinya transaksi sampai pembuatan laporan bulanan, belum sesuai dengan standar akuntansi pemerintah -

Sistem yang Diusulkan Penulis akan membuat jurnal umum, yang disesuaikan dari transaksi, membuat buku besar, surplus-defisit, rencana anggaran, neraca Catatan yang diusulkan: 1. Jurnal Umum 2. Buku Besar

Dokumen yang digunakan diantaranya: 1. SPBD 2. SPPPBD 3. BABD 4. Laporan Bulanan

Dokumen yang digunakan: 1. Rencana anggaran, pendapatan dan belanja

86

4.2.1 Diagram Arus Data (Data Flow Diagram) yang Diusulkan 4.2.1.1 Diagram Konteks yang Diusulkan Diagram konteks yang diusulkan digunakan untuk menggambarkan sistem pengolahan data secara garis besar atau menyeluruh, diagram konteks ini dirancang untuk memperhatikan masukan yang dibutuhkan oleh sistem dan keluaran yang dihasilkan oleh sistem itu sendiri.

Gambar 4.1 Diagram Konteks yang Diusulkan Keterangan : SPBD BABD SPPPDB FB DFB JU BB R/A

: Surat Permintaan Belanja Daerah : Berita Acara Belanja Daerah : Surat Pelaksanaan Permohonan Pencairan Dana Belanja : Faktur Belanja : Database Faktur Belanja : Jurnal Umum : Buku Besar : Rencana anggaran

87

Deskripsi dari gambar di atas adalah, dimulai dari: A. Satuan Kerja membuat data SPBD, laporan persediaan, pengguanaan, dan pemeliharaan setelah itu diserahkan ke Bag. Keuangan. B. Bag. Keuangan menerima SPBD, laporan persediaan, pengguanaan, dan pemeliharaan setelah itu mengecek anggaran yang sudah ada pada kebijakan instansi jika melebihi anggaran tidak akan diproses dan jika sesuai dengan anggaran maka acc SPBD, laporan persediaan, pengguanaan, dan pemeliharaan dan memberikan kepada Sekertaris Camat. C. Sekertaris camat menerima acc. SPBD, laporan persediaan, pengguanaan, dan pemeliharaan dari Bag. Keuangan setelah itu mengecek kembali jika sudah sesuai maka membuat SPPPBD dan jika tidak mengembalikan acc. SPBD, laporan persediaan, pengguanaan, dan pemeliharaan ke Satuan Kerja. D. Bag. Keuangan menerima SPPPDB dari Sekertaris Camat dan pencairan dana belanja kemudian membuat BABD. E. Satuan Kerja menerima BABD dan mengecek uang dan BABD lalu memberikan kepada Rekanan. F. Rekanan menerima BABD dan mengecek barang yang akan dibeli kemudian membuat Faktur Belanja dan memberikan Faktur Belanja, Barang dan uang kembalian ke Satuan Kerja. G. Satuan Kerja menerima Faktur Belanja, Barang dan uang kembalian kemudian memberikan Faktur Belanja dan uang kembalian ke Bag. Keuangan H. Bagian Keuangan menerima Faktur Belanja dan uang kembalian kemudian membuat laporan berupa Jurnal Umum, Buku Besar, Rencana Anggaran,

88

kemudian memberikan laporanya berupa Neraca dan Surplus-Defsit ke Sekertaris Camat. I.

Sekertaris Camat menerima laporan berupa Neraca dan Surplus-Defisit setelah iti dicek kembali lalu diberikan kepada Camat

4.2.1.2 Data Flow Diagram Level 0 yang Diusulkan Data flow diagram level 0 yang diusulkan akan diterangkan proses dari sistem informasi akuntansi belanja yang diusulkan. Pada level 0 ini terdiri dari proses pengajuan barang dan jasa, proses belanja, proses pencairan dana belanja daerah dan proses pembuatan laporan keuangan.

Gambar 4.2 DFD Level 0 yang Diusulkan

89

Deskripsi di atas adalah di mulai dari: A. Satuan Kerja membuat data SPBD setelah itu diserahkan ke Bag. Keuangan. B. Bag. Keuangan menerima SPBD setelah itu mengecek anggaran yang sudah ada pada kebijakan instansi jika melebihi anggaran tidak akan diproses dan jika sesuai dengan anggaran maka acc SPBD dan memberikan kepada Sekertaris Camat. C. Sekertaris camat menerima acc. SPBD dari Bag. Keuangan setelah itu mengecek kembali jika sudah sesuai maka membuat SPPPBD dan jika tidak mengembalikan acc.SPBD ke Satuan Kerja. D. Bag. Keuangan menerima SPPPDB dari Sekertaris Camat dan pencairan dana belanja kemudian membuat BABD. E. Satuan Kerja menerima BABD dan mengecek uang dan BABD lalu memberikan kepada Rekanan. F. Rekanan menerima BABD dan mengecek barang yang akan dibeli kemudian membuat Faktur Belanja dan memberikan Faktur Belanja, Barang dan uang kembalian ke Satuan Kerja. G. Satuan Kerja menerima Faktur Belanja, Barang dan uang kembalian kemudian memberikan Faktur Belanja dan uang kembalian ke Bag. Keuangan H. Bagian Keuangan menerima Faktur Belanja dan uang kembalian kemudian membuat laporan berupa Jurnal Umum, Buku Besar, Realisasi Anggaran, kemudian memberikan laporanya berupa Realisasi Anggaran ke Sekertaris Camat. I.

Sekertaris Camat menerima laporan berupa Realisasi Anggaran setelah iti dicek kembali lalu diberikan kepada Camat.

90

4.2.1.3 Data Flow Diagram Level 1 Proses 1 yang Diusulkan Bagian ini akan menerangkan mengenai turunan dari level 0 sistem yang

ta g Da ran Ba

D Pe ata ga wa i

diusulkan yaitu mengenai pengajuan dan proses acc dokumen.

Gambar 4.3 DFD Level 1 Proses 1 yang Diusulkan

Deskripsi gambar di atas adalah dari Satuan Kerja membuat SPBD yang diberikan kepada Bag. Keuangan kemudian mengecek anggaran jika sesuai dengan anggaran maka acc.SPBD setelah itu diberikan kepada Sekertaris Camat, Sekertaris Camat mengecek kembali apabila tidak sesuai dikembalikan ke Satuan Kerja.

4.2.1.4 Data Flow Diagram Level 1 Proses 2 yang Diusulkan Bagian ini akan menerangkan terangkan mengenai turunan dari level 0 sistem yang diusulkan yaitu proses pencairan dana.

91

Ba Dat ra a ng

a at g D ran Ba

SPPPDB

Pe Da ga t a wa i

SPPPDB

Acc SPBD,Lap penggunaan, persediaan barang

SPPPDB

a i at a D aw g Pe


Deskripsi gambar di atas adalah setelah Sekertaris Camat memberi acc SPBD maka membuat SPPPDB dan jika tidak sesuai mengembalikan acc SPBD ke Satuan Kerja, Jika sesuai maka pencairan dana belanja pada Bag. Keuangan yang nantinya uang akan diberikan pada Satuan Kerja.

4.2.1.5 Data Flow Diagram Level 1 Proses 3 yang Diusulkan Bagian ini akan menerangkan mengenai turunan dari level 0 sistem yang diusulkan yaitu proses belanja.

92

3.3 Laporan Belanja

BABD, Uang

3.1 Belanja

BABD, Uang

Rekanan

Faktur belanja, Uang


Satuan Kerja


3.2 Terima Faktur Dan Barang

DFB

DFB

Faktur belanja, Uang Bag. Keuangan


Deskripsi gambar di atas adalah dari setelah Satuan Kerja menerima Uang dan BABD, Satuan Kerja memberikan BABD ke Rekanan, Rekanan mengecek barang yang akan dibeli, kemudian memilih barang yang akan dibeli, menghitung barang yang sudah dibeli, mencetak Faktur Belanja, menyerahkan Faktur Belanja ke Satuan Kerja, kemudian Satuan Kerja membayar dan menerima uang kembalian.

4.2.1.6 Data Flow Diagram Level 1 Proses 4 yang Diusulkan Bagian ini akan menerangkan mengenai turunan dari level 0 sistem yang diusulkan yaitu proses pembuatan laporan.

93

4.1 Input Data

Faktur Belanja, uang

4.2 Proses Laporan

Jurnal Umum

Jurnal Umum

Revisi Realisasi anggaran pendapatan dan belanja

Faktur Belanja, uang

4.3 Membuat Buku Besar

Camat

Buku Besar Buku Besar

Acc. Realisasi anggaran pendapatan

4.7 Menyerahkan Laporan

Sekertaris Camat

4.4 Membuat Realisasi anggaran, pendapatan, dan belanja

Realisasi anggaran pendapatan

Realisasi Anggaran

Revisi Realisasi anggaran pendapatan dan belanja

Acc. Realisasi anggaran pendapatan

Buku Besar

4.6 Mengembalikan Laporan

Jurnal Umum

Bagian Keuangan

4.5 Mencetak Laporan

Realisasi anggaran

Realisasi anggaran

Gambar 4.6 DFD Level 1 Proses 4 yang Diusulkan Deskripsi gambar di atas adalah setelah Satuan Kerja menerima Faktur Belanja dan sisa uang menyerahkan ke Bag. Keuangan, kemudian membuat jurnal umum, buku besar, realisasi anggaran dan pendapatan, setelah itu menyerahkan laporan realisasi anggaran dan pendapatan kepada Sekertaris Camat, Sekertaris Camat menerima laporan realisasi anggaran dan pendapatan mengecek kembali sebelum diberikan kepada camat, setelah diperiksa laporan realisasi anggaran dan pendapatan diberikan kepada Camat untuk dijadikan dokumen.

94

4.2.2 Kamus Data Yang Diusulkan Tabel 4.3 Kamus Data Nama Arus Data Surat Permintaan Belanja Barang

Alias

Berita Acara Belanja Daerah

BABD

Bentuk Data

SPBD,Acc Dokumen dari SPBD Satuan Kerja

Surat SPPPDB Pelaksanaan Permohonan Pencairan Dana Belanja Faktur Faktur Belanja Belanja

Neraca

Neraca

Jurnal Umum

JU

Arus Data

Penjelasan

Satuan Kerja ke Proses 1

Surat Permintaan Belanja Barang adalah Surat permintaan barang kepada Bag. Keuangan Surat Permintaan Belanja Barang adalah Surat permintaan barang kepada Bag. Keuangan Dokumen yang berisi pencairan dana yang akan diberikan pada Satuan Kerja

Dokumen dari Satuan Kerja Bag. Keuangan ke Proses 1

Dokumen dari Sekertaris Camat

Dokumen dari Rekanan

Proses 2

• Proses 3 ke Satuan Kerja • Satuan Kerja ke Bag. Keuangan Dokumen dari • Proses 4 Bag. Keuangan ke Sekertaris Camat • Sekertaris Camat ke Camat Dokumen dari Proses 4 Bag. Keuangan

Dokumen yang digunakan untuk membuat laporan pada Bag. Keuangan

Neraca dibuat oleh Bag. keuangan untuk dilaporkan kepada Camat

Merupakan file inputan yang dibuat oleh Bag. Keuangan dimana file inputan tersebut merupakan jenis laporan keuangan Sumber: jogiyanto. 2005. Analisis Sistem Informasi.

95

Tabel 4.4 Kamus Data Lanjutan 1 Nama Arus Data Buku Besar

Alias

Bentuk Data

BB

Dokumen dari Proses 4 Bag. Keuangan

SurplusDefisit

SurplusDefisit

Dokumen dari Proses 4 Bag. Keuangan

Laporan penggunaan Barang

Acc Laporan pengguna an Barang Acc Laporan persediaan Barang Realisasi Anggaran

Dokumen dari Satuan Kerja

Laporan Persediaan Barang Realisasi Anggaran

Dokumen dari Satuan Kerja

Dokumen dari Bag. Keaungan

Arus Data

• Satuan Kerja ke Proses 1 • Proses 2 • Satuan Kerja ke Proses 1 • Proses 2 Proses 4

Penjelasan Merupakan file inputan yang dibuat oleh Bag. Keuangan dimana file inputan tersebut merupakan jenis laporan keuangan Merupakan file inputan yang dibuat oleh Bag. Keuangan dimana file inputan tersebut merupakan jenis laporan keuangan Merupakan Data laporan penggunaan barang dari satuan kerja Merupakan Data laporan penggunaan barang dari satuan kerja Merupakan file inputan yang dibuat oleh Bag. Keuangan dimana file inputan tersebut merupakan jenis laporan keuangan

Sumber: jogiyanto. 2005. Analisis Sistem Informasi.

96

4.2.3 Bagan Alir (Flowchart) Sistem yang Diusulkan Bagan alir yang diusulkan terdiri dari empat bagian yaitu satuan kerja, bag. keuangan, sekertaris camat, camat. Bagan alir yang diusulkan dapat dilihat pada gambar di bawah ini:

Gambar 4.7 Bagan Alir Sistem Informasi Akuntansi Belanja Usulan

97

Gambar 4.8 Bagan Alir Sistem Informasi Akuntansi Belanja Usulan Lanjutan1

98

Gambar 4.9 Bagan Alir Sistem Informasi Akuntansi Belanja Usulan Lanjutan2

99

4.2.4 Perancangan Basis Data 4.2.4.1 Kode Pada Kunci Utama Adapun perancangan untuk pengkodean yang digunakan oleh penulis adalah sebagai berikut: A. Kode Account

B. Kode Nomor Induk Pegawai (NIP)

C. Kode Barang

D. Kode Golongan

E. Kode Tunjangan

F. Kode Slip Gaji

100

4.2.4.2 Normalisasi Yang Diusulkan A. SPBD (Surat Permintaan Belanja Daerah)

Gambar 4.10 SPBD (Surat Permintaan Belanja Daerah) Tabel 4.5 SPBD (Surat Permintaan Belanja Daerah) dalam Bentuk Unnormal

Tabel 4.6 SPBD (Surat Permintaan Belanja Daerah) dalam Bentuk normal ke Satu (1-NF)

101

Tabel 4.7 SPBD (Surat Permintaan Belanja Daerah) dalam Bentuk Normal ke Satu (2-NF) Tabel Harga Barang

Tabel 4.8 SPBD dalam Bentuk Normal ke Dua (2-NF) Tabel Pegawai

Tabel 4.9 SPBD dalam Bentuk Normal ke Dua (2-NF) Tabel Barang

B. BABD (Berita Acara Belanja Daerah)

Gambar 4.11 BABD (Berita Acara Belanja Daerah)

102

Tabel 4.10 BABD dalam Bentuk Unnormal

Tabel 4.11 BABD dalam Bentuk Normal ke Satu (1-NF)

Tabel 4.12 BABD dalam Bentuk Normal ke Dua (2-NF) Tabel Barang

Tabel 4.13 BABD dalam Bentuk Normal ke Dua (2-NF) Tabel Harga Barang

103

4.2.4.3 Perancangan Struktur Menu Tabel Perancangan struktur tabel adalah salah satu hal yang paling penting sebelum merancang program. Perancangan struktur tabel dapat dilihat pada gambar di bawah ini:

Gambar 4.12 Struktur Tabel Pengguna

Gambar 4.13 Struktur Tabel Golongan

Gambar 4.14 Struktur Tabel Gaji

104

Gambar 4.15 Struktur Tabel Potongan

Gambar 4.16 Struktur Tabel Data Pegawai

Gambar 4.17 Struktur Tabel Pemakaian Barang

Gambar 4.18 Struktur Tabel Data Pajak

105

Gambar 4.19 Struktur Tabel Data Jasa

Gambar 4.20 Struktur Tabel Data Barang

Gambar 4.21 Struktur Tabel Data Dinas Pegawai

Gambar 4.22 Struktur Tabel Kas Bank

106

Gambar 4.23 Struktur Tabel Kas Kecamatan

Gambar 4.24 Struktur Tabel Belanja Dinas

Gambar 4.25 Struktur Tabel Kas Belanja pemeliharaan

107

Gambar 4.26 Struktur Tabel Belanja Barang

Gambar 4.27 Struktur Tabel Jurnal

4.2.4.4 Diagram Relasi Entitas (Entity Relationship Diagram) Yang Diusulkan Entity Relationship Diagram yang diusulkan pada sistem informasi akuntansi belanja adalah sebagai berikut:

108

Gambar 4.28 Entity Relationship Diagram yang Diusulkan

109

4.3 Perancangan Struktur Menu Perancangan struktur menu dapat dilihat pada gambar di bawah ini:

Gambar 4.29 Struktur Menu Program

110

4.3.1 Struktur Menu Pada Satuan Kerja

Gambar 4.30 Struktur Menu Program pada Satuan Kerja

4.3.2 Struktur Menu Pada Bagian Keuangan

Gambar 4.31 Struktur Menu Program pada Bagian Keuangan

111

4.3.3 Struktur Menu Pada Sekertaris Camat

Gambar 4.32 Struktur Menu Program pada Sekertaris Camat

4.4 Perancangan Antar Muka dan Laporan 4.4.1 Perancangan Antar Muka Perancangan antarmuka dalam Sistem Informasi Akuntansi Belanja dapat dilihat pada gambar di bawah ini:

Gambar 4. 33 Tampilan Perancangan Antarmuka Pada Menu Utama

112

PROFIL PROGRAMER

PHOTO PROGRAMER

PROFIL PROGRAMER

KELUAR

Gambar 4.34 Tampilan Perancangan Antarmuka Pada Profil Programmer

Gambar 4.35 Tampilan Perancangan Antarmuka Pada Profil Instansi

Gambar 4.36 Tampilan Perancangan Antarmuka Pada Masuk

113

Gambar 4.37 Tampilan Perancangan Antarmuka Pada Satuan Kerja

Gambar 4.38 Tampilan Perancangan Antarmuka Pada Data Pegawai

114

Gambar 4.39 Tampilan Perancangan Antarmuka Pada Data Barang

Gambar 4.40 Tampilan Perancangan Antarmuka Pada Bagian Keuangan

115

LOGO DINAS

DATA GAJI Kode Golongan Nama Golongan Gaji Pokok

BARU

SIMPAN

KELUAR

Gambar 4.41 Tampilan Perancangan Antarmuka Pada Data Gaji

Gambar 4.42 Tampilan Perancangan Antarmuka Pada Data Harga Pegawai

116

Gambar 4.43 Tampilan Perancangan Antarmuka Pada Data Pendapatan

Gambar 4.44 Tampilan Perancangan Antarmuka Pada Belanja Barang

117

LOGO DINAS

BELANJA PEGAWAI Tanggal

Gaji Tunjangan Jabatan

NIP

Tunjangan Istri

Nama Pegawai Jabatan

Tunjangan Anak

Golongan

THR/Bonus Izin

Masa Kerja

Alfa Bagian Sakit

Status Jenis Kelamin

PPH 21

Menikah Pendapatan

Jumlah Anak

Potongan

Gaji Bersih BARU

HITUNG

SIMPAN

KELUAR

Nominal

Gambar 4.45 Tampilan Perancangan Antarmuka Pada Belanja Pegawai

Gambar 4.46 Tampilan Perancangan Antarmuka Pada Belanja Pemeliharaan

118

Gambar 4.47 Tampilan Perancangan Antarmuka Pada Belanja Dinas Pegawai

Gambar 4.48 Tampilan Perancangan Antarmuka Pada Jurnal Umum

119

LOGO INSTANSI

CETAK

KELUAR

Gambar 4.49 Tampilan Perancangan Antarmuka Pada Buku Besar Umum

LOGO INSTANSI

CETAK

KELUAR

Gambar 4.50 Tampilan Perancangan Antarmuka Pada Realisasi Anggaran dan Pendapatan

120

Gambar 4.51 Tampilan Perancangan Antarmuka Pada Sekertaris Camat 4.4.2 Perancangan Proses Tampilan perancangan Proses antar muka dapat dilihat pada gambar di bawah ini: Tgl

No.Rekening -

1.1.1.01.01

No.bkt

Uraian

091020

Kas di Bank

1.1.1.01.01 -

1.1.1.01.02

Pendapatan 091020

Kas di Kecamatan

1.1.1.01.01 -

5.1.1.01

Kas di Bank 001

Belanja Pegawai

1.1.1.01.02 -

1.1.01.05

Kas 003

Persediaan ATK

1.1.1.01.02 5.2.2.01

Kas 003

Biaya Perangkat Kantor

1.1.01.05 -

5.2.2.15

Persediaan ATK 002

Belanja Perjalanan Dinas

1.1.1.01.02 -

5.2.2.16

Ref

Kas 004

Belanja Pemeliharaan

1.1.1.01.02

Kas Jumlah

Debit

Kredit

-

xxx

-

-

-

Xxx

-

xxx

-

-

-

Xxx

-

Xxx

-

-

-

Xxx

-

Xxx

-

-

-

Xxx

-

xxx

-

-

Xxx

-

Xxx

-

-

-

Xxx

-

Xxx

-

-

xxx

Tabel 4.14 Tampilan Perancangan Antarmuka Pada Jurnal Umum

Xxx Xxx

121

Provinsi/Kabupaten/Kota Satuan Kerja:………… Buku Besar Umum Nama Rekening: Kas Kode Rekening: 1.1.1.01.01 Tgl

Uraian Belanja Pegawai Biaya Perangkat Kantor Belanja Perjalanan Dinas Belanja Pemeliharaan

Ref -

Debit Xxx Xxx Xxx Xxx

Kredit -

Saldo xxx xxx xxx xxx

Tabel 4.15 Tampilan Perancangan Antarmuka Pada Buku Besar Umum Kas

4.4.3 Perancangan Laporan Tampilan perancangan laporan antar muka dapat dilihat pada gambar di bawah ini:

122

Tabel 4.16 Tampilan Perancangan Antarmuka Pada Laporan Realisasi Anggaran

123

4.5 Tampilan Dan Kode Program 4.5.1 Tampilan Pada Menu Utama Tampilan halaman utama program Perancangan Sistem Informasi Akuntansi Belanja dapat dilihat pada gambar di bawah ini:

Gambar 4.52 Tampilan Menu Utama Tabel 4.17 Listing Menu Utama Listing Program Private Sub finstansi_Click() Form11.Show

Keterangan Untuk Memunculkan Form

End sub Private Sub fmasukan_Click() Form17.Show End Sub Private Sub Profil_Click() Profil.Show End Sub Private Sub password_Click() Form16.Show End Sub

Untuk memeunculkan Form

Untuk memeunculkan form profil Untuk memeunculkan form

124

4.5.2 Tampilan Masuk

Gambar 4.53 Tampilan Masuk Tabel 4.18 Listing Masuk Listing Program Dim i As Long 'Deklarasi Dim merah, hijau, biru As Integer 'Variabel global Private Sub Combo1_Click() cari1 = Combo1.Text Adodc1.CommandType = adCmdText Adodc1.RecordSource = "" Adodc1.RecordSource = " Select * from pasword where pasword.bagian ='" & cari1 & "'" Adodc1.Refresh Text3.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text4.Text = Adodc1.Recordset.Fields(2) Private Sub Form_Load() Adodc1.RecordSource = " select * pasword " Do While Not Adodc1.Recordset.EOF Combo1.AddItem Adodc1.Recordset!bagian Adodc1.Recordset.MoveNext Loop End Sub

Keterangan Perintah jika benar memasukan nama pengguna dan kata kunci

Perintah jika benar memasukan nama pengguna dan kata kunci

125

Tabel 4.19 Listing Masuk Lanjutan1 Listing Program Private Sub UserButtonz1_Click() If Text3.Text = "P001" Then Text1.Text = Text4.Text Form19.Show ElseIf Text3.Text = "P002" Then Text1.Text = Text4.Text Form2.Show ElseIf Text3.Text = "P003" Then Text1.Text = Text4.Text Form18.Show Else MsgBox "Maaf Pasword yang anda masukan salah, silahkan Login Kembali" Form17.Show End If Unload Me End Sub Private Sub UserButtonz2_Click() Combo1.Text = "" Text1.Text = "" End Sub

Keterangan Perintah jika benar memasukan nama pengguna dan kata kunci

Perintah jika benar memasukan nama pengguna dan kata kunci

4.5.3 Tampilan Pada Satuan Kerja

Gambar 4.54 Tampilan Satuan Kerja

126

Tabel 4.20 Listing Satuan Kerja Private Sub Form3.Show End Sub Private Sub Form4.Show End Sub Private Sub Form12.Show Private Sub form7.Show Private Sub Unload Me Form1.Show End Sub

Listing Program fbarang_Click()

Keterangan Memunculkan Form

fjasa_Click()

Memunculkan Form

fpegawai_Click()

Memunculkan Form

spbd_Click()

Memunculkan Form

UserButtonz1_Click()

Memunculkan Form

4.5.4 Tampilan Pada Data Barang

Gambar 4.55 Tampilan Data Barang Tabel 4.21 Listing Data Barang Listing Program Private Sub UserButtonz1_Click() Unload Me Form2.Show End Sub

Keterangan Perintah untuk keluar

127

4.5.5 Tampilan Pada Data Pemakaian Barang

Tabel 4.56 Data Pemakaian Barang Tabel 4.22 Listing Data Pemakaian Barang Listing Program Text1.Text = ”B” + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, ””) akhir = ”B00” + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = ”B001” End If End Sub Private Sub DataGrid1_Click() Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) Text4.Text = Adodc1.Recordset.Fields(3) Text5.Text = Adodc1.Recordset.Fields(4) Text1.Enabled = False End sub

Keterangan Perintah Untuk membuat kode

Perintah jika ingin menambah barang

128

Tabel 4.23 Listing Data Pemakaian Barang Lanjutan 1 Private Sub Text13_Click() If Text12.Text = "Aktiv" Then Text13.Enabled = True Else Text13.Enabled = False MsgBox " Maaf status anda non_aktiv, silahkan periksa kembali account anda" End If End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) Text9.Text = Val(Text5.Text) Val(Text7.Text) End Sub Private Sub UserButtonz2_Click() Adodc1.Recordset.Fields(4) = Text9.Text Adodc1.Recordset.Update Adodc1.Refresh Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(0) = DTPicker1 Private Sub Text6_KeyPress(KeyAscii As Integer) On Error Resume Next cari888 = Text6.Text Adodc3.CommandType = adCmdText Adodc3.RecordSource = "" Adodc3.RecordSource = " Select * from data_pegawai where data_pegawai.NIP ='" & cari888 & "'" Adodc3.Refresh

Perintah untuk membuka textdengan kata sandi

Perintah untuk menghitung

Perintah Untuk Menyimpan

Perintah untuk keluar

Text8.Text = Adodc3.Recordset.Fields(1) Text10.Text = Adodc3.Recordset.Fields(2) Text11.Text = Adodc3.Recordset.Fields(3) Text12.Text = Adodc3.Recordset.Fields(6) Text14.Text = Adodc3.Recordset.Fields(16) End Sub Adodc2.Recordset.Fields(2) = Text8.Text Adodc2.Recordset.Fields(3) = Text10.Text Adodc2.Recordset.Fields(4) = Text11.Text Adodc2.Recordset.Fields(5) = Text12.Text Adodc2.Recordset.Fields(6) = Text2.Text Adodc2.Recordset.Fields(7) = Text1.Text Adodc2.Recordset.Fields(8) = Text3.Text Adodc2.Recordset.Fields(9) = Text4.Text Adodc2.Recordset.Fields(10) = Text7.Text Adodc2.Recordset.Save Adodc2.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

Perintah untuk Mengupdate

129

4.5.6 Tampilan Pada Data Pegawai

Gambar 4.57 Tampilan Data Pegawai Tabel 4.24 Listing Data Pegawai Listing Program Private Sub Combo1_Click() If Combo1.Text = "Tidak" Then Text1.Enabled = False Else Text1.Enabled = True End If End Sub Private Sub Form_Load() Adodc2.RecordSource = " select * data_jabatan " Do While Not Adodc2.Recordset.EOF Combo2.AddItem Adodc2.Recordset!Nama_jabatan Adodc2.Recordset.MoveNext Loop Emd if

Keterangan Perntah jika pilihan

Perintah untuk mencari database

130

Tabel 4.25 Listing Data Pegawai Lanjutan 1 Private Sub Combo3_Click() If Combo3.Text = "A" Then Text4.Text = "1-4" ElseIf Combo3 = "B" Then Text4.Text = "5-8" ElseIf Combo3 = "C" Then Text4.Text = "9-12" Else Text4.Text = "12-16" End If Text7.Text = Combo3.Text End Sub Private Sub Combo4_Click() If Combo4.Text = "SMA" Then Text5.Text = "1" ElseIf Combo4.Text = "D3" Then Text5.Text = "2" ElseIf Combo4.Text = "S1" Then Text5.Text = "3" Else Text5.Text = "4" End If End Sub Private Sub Combo8_Click() Text8.Text = Text5.Text & Text7.Text End Sub Private Sub DataGrid1_Click() Text22.Text = Adodc1.Recordset.Fields(0) Text21.Text = Adodc1.Recordset.Fields(1) Combo2.Text = Adodc1.Recordset.Fields(2) Text8.Text = Adodc1.Recordset.Fields(3) Text4.Text = Adodc1.Recordset.Fields(4) Combo7.Text = Adodc1.Recordset.Fields(5) Combo5.Text = Adodc1.Recordset.Fields(6) Text16.Text = Adodc1.Recordset.Fields(7) Combo6.Text = Adodc1.Recordset.Fields(8) Text6.Text = Adodc1.Recordset.Fields(9) Combo4.Text = Adodc1.Recordset.Fields(10) Combo8.Text = Adodc1.Recordset.Fields(11) Text14.Text = Adodc1.Recordset.Fields(12) Combo9.Text = Adodc1.Recordset.Fields(13) Combo1.Text = Combo1.Text = Adodc1.Recordset.Fields(14) Text1.Text = Adodc1.Recordset.Fields(15) Text2.Text = Adodc1.Recordset.Fields(16) Adodc1.Refresh End Sub

Perintah untuk memilih masa kerja

Perintah untuk memilih jenjang

Perintah Perhitungan

Perintah mengubah

131

Tabel 4.26 Listing Data Pegawai Lanjutan 2 Private Sub Form_Load() Adodc2.RecordSource = " select * data_jabatan " Do While Not Adodc2.Recordset.EOF Combo2.AddItem Adodc2.Recordset!Nama_jabatan Adodc2.Recordset.MoveNext Loop End Sub Private Sub UserButtonz1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text22.Text Adodc1.Recordset.Fields(1) = Text21.Text Adodc1.Recordset.Fields(2) = Combo2.Text Adodc1.Recordset.Fields(3) = Text8.Text Adodc1.Recordset.Fields(4) = Text4.Text Adodc1.Recordset.Fields(5) = Combo7.Text Adodc1.Recordset.Fields(6) = Combo5.Text Adodc1.Recordset.Fields(7) = Text16.Text Adodc1.Recordset.Fields(8) = Combo6.Text Adodc1.Recordset.Fields(9) = Text6.Text Adodc1.Recordset.Fields(10) = Combo4.Text Adodc1.Recordset.Fields(11) = Combo8.Text Adodc1.Recordset.Fields(12) = Text14.Text Adodc1.Recordset.Fields(13) = Combo9.Text Adodc1.Recordset.Fields(14) = Combo1.Text Adodc1.Recordset.Fields(15) = Text1.Text Adodc1.Recordset.Fields(16) = Text2.Text Adodc1.Recordset.Save Adodc1.Refresh Text22.Text = "" Text21.Text = "" Combo2.Text = "" Text8.Text = "" Text4.Text = "" Combo7.Text = "" Combo5.Text = "" Text16.Text = "" Combo6.Text = "" Text6.Text = "" Combo4.Text = "" Combo8.Text = "" Text14.Text = "" Combo1.Text = "" Text1.Text = "" Text2.Text = "" End Sub

Perintah pencarian

Perintah untuk menyimpan

132

Tabel 4.27 Listing Data Pegawai Lanjutan 3 Private Sub UserButtonz2_Click() On Error Resume Next Adodc1.Recordset.Fields(0) = Text22.Text Adodc1.Recordset.Fields(1) = Text21.Text Adodc1.Recordset.Fields(2) = Combo2.Text Adodc1.Recordset.Fields(3) = Text8.Text Adodc1.Recordset.Fields(4) = Text4.Text Adodc1.Recordset.Fields(5) = Combo7.Text Adodc1.Recordset.Fields(6) = Combo5.Text Adodc1.Recordset.Fields(7) = Text16.Text Adodc1.Recordset.Fields(8) = Combo6.Text Adodc1.Recordset.Fields(9) = Text6.Text Adodc1.Recordset.Fields(10) = Combo4.Text Adodc1.Recordset.Fields(11) = Text9.Text Adodc1.Recordset.Fields(12) = Text14.Text Adodc1.Recordset.Fields(13) = Combo1.Text Adodc1.Recordset.Fields(14) = Text1.Text Adodc1.Recordset.Update End Sub Private Sub UserButtonz3_Click() Unload Me Form12.Show End Sub Private Sub UserButtonz4_Click() Adodc1.Recordset.Delete End Sub Private Sub UserButtonz5_Click() Unload Me Form19.Show End Sub

Perintah untuk mengubah


Perintah menghapus

Perinah untuk keluar

133

4.5.7 Tampilan SPBD (Surat Permohonan Belanja Daerah)

Gambar 4.58 Tampilan SPBD Tabel 4.28 Listing SPBD Listing Program Private Sub UserButtonz1_Click() Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Text3.Text Adodc1.Recordset.Fields(3) = Text4.Text Adodc1.Recordset.Fields(4) = Text5.Text Adodc1.Recordset.Fields(5) = Text6.Text Adodc1.Recordset.Fields(6) = Text7.Text Adodc1.Recordset.Save Adodc1.Refresh Text1.Text Text2.Text Text3.Text Text4.Text Text5.Text Text6.Text Text7.Text End Sub

= = = = = = =

Keterangan Perintah untuk menyimpan data

"" "" "" "" "" "" ""

Private Sub UserButtonz3_Click()

Perintah untuk

Adodc1.Recordset.Delete

menghapus

End Sub

134

Tabel 4.29 Listing SPBD Lanjutan 1 Private Sub UserButtonz5_Click() Unload Me Form18.Show End Sub Private Sub Text1_Click() On Error Resume Next cari888 = Text1.Text Adodc2.CommandType = adCmdText Adodc2.RecordSource = "" Adodc2.RecordSource = " Select * from data_pegawai where data_pegawai.NIP ='" & cari888 & "'" Adodc2.Refresh Text2.Text = Adodc2.Recordset.Fields(1) Text3.Text = Adodc2.Recordset.Fields(2) End Sub


Perintah pencarian

4.5.8 Tampilan Pada Bagian Keuangan

Gambar 4.59 Tampilan Bagian Keuangan Tabel 4.30 Listing Bagian Keuangan Listing Program Private Sub babd_Click() Form21.Show End Sub Private Sub belanjabarang_Click() Form9.Show End Sub Private Sub belanjapemeliharaan_Click() Form13.Show End Sub Private Sub belanjaperjalanan_Click() Form15.Show End Sub

Keterangan Perintah untuk masuk form

Perintah untuk masuk form



135

Tabel 4.31 Listing Bagian Keuangan Lanjutan 1 Listing Program

Private Sub Form4.Show End Sub Private Sub Form23.Show End Sub Private Sub Form14.Show End Sub Private Sub Form5.Show End Sub Private Sub Form14.Show End Sub Private Sub Form8.Show End Sub

Keterangan

jurnalumum_Click()


Fneraca_Click()


sgaji_Click()


fGaji_Click()


fbelanjapegawai_Click()


bukubesar_Click()


4.5.9 Tampilan Pada Data Pendapatan

Gambar 4.60 Tampilan Data Pendapatan

136

Tabel 4.32 Listing Data Pendapatan Listing Program Private Sub UserButtonz1_Click() Text1.Enabled = True Text3.Enabled = True Combo1.Enabled = True Text2.Enabled = True Text9.Text = Adodc8.Recordset.Fields(1) Text17.Text = Adodc8.Recordset.Fields(3) Text19.Text = Adodc8.Recordset.Fields(2) Text29.Text = DTPicker1.Month Text30.Text = DTPicker1.Year Text31.Text = Text29.Text + Text30.Text Text21.Text = Adodc8.Recordset.Fields(0) Text22.Text = Adodc8.Recordset.Fields(1) Text23.Text = Adodc8.Recordset.Fields(2) Text24.Text = Adodc8.Recordset.Fields(3) Text25.Text = Adodc8.Recordset.Fields(4) Text26.Text = Adodc8.Recordset.Fields(5) Adodc2.Refresh If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MoveLast X = Adodc2.Recordset.Fields(1) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text1.Text = "P" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text1.Text = "P" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "P00" + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = "P001" End If End Sub

Keterangan Perintah untuk jurnal

137

Tabel 4.33 Listing Data Pendapatan 1 Private Sub Combo2_Click() If Combo1.Text = "Anggaran Dana" Then Text10.Text = Val(Text3.Text) + Val(Text9.Text) Text18.Text = Text17.Text Text2.Visible = True Label6.Visible = True Text2.Text = "" Else Text18.Text = Val(Text3.Text) + Val(Text17.Text) Text10.Text = Text9.Text Private Sub DataGrid1_Click() Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) Adodc1.Refresh End Sub Private Sub Form_Load() DTPicker1 = Date DTPicker2 = Date End Sub Private Sub Text2_Click() Text12.Text = Val(Text3.Text) + Val(Text11.Text) Text14.Text = Val(Text3.Text) + Val(Text13.Text) End Sub Private Sub Text3_Click() 'Text3.Text = Val(Text1.Text) Val(Text2.Text) On Error Resume Next cariya = Text31.Text Adodc8.CommandType = adCmdText Adodc8.RecordSource = "" Adodc8.RecordSource = " Select * from t_jurnal where t_jurnal.Alias_Periode ='" & cariya & "'" Adodc8.Refresh Text32.Text = Adodc8.Recordset.Fields(8) If Text32.Text = "x" Then Adodc9.Recordset.AddNew Adodc9.Recordset.Fields(0) Adodc9.Recordset.Fields(1) Adodc9.Recordset.Fields(2) Adodc9.Recordset.Fields(3) Adodc9.Recordset.Fields(4) Adodc9.Recordset.Fields(5) Adodc9.Recordset.Fields(6) Adodc9.Recordset.Fields(7) Adodc9.Recordset.Fields(8) Adodc9.Recordset.Save End Sub

= = = = = = = = =

Text21.Text Text22.Text Text23.Text Text24.Text Text25.Text Text26.Text Text27.Text Text28.Text Text33.Text

Perintah untuk combo

Peintah mengubah

Perintah untuk tanggal

Perintah menghitung

Perintah Mencari

138

4.5.10 Tampilan Pada Data Gaji dan Tunjangan

Gambar 4.61 Tampilan Data Gaji dan Tunjangan Tabel 4.34 Listing Data gaji dan Tunjangan Listing Program Private Sub UserButtonz4_Click() Adodc2.Refresh If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MoveLast X = Adodc2.Recordset.Fields(0) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text4.Text = "K" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text4.Text = "K" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "K00" + akhir Text4.Text = akhir Exit Sub End If Else Text4.Text = "K001"

Keterangan Perintah untuk membuat kode baru

139

Tabel 4.35 Listing Data gaji dan Tunjangan Lanjutan 1 Private Sub UserButtonz1_Click() Adodc1.Refresh If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MoveLast X = Adodc1.Recordset.Fields(0) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text1.Text = "G" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text1.Text = "G" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "G00" + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = "G001" End If End Sub Private Sub UserButtonz5_Click() Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(0) = Text4.Text Adodc2.Recordset.Fields(1) = Text5.Text Adodc2.Recordset.Fields(2) = Text6.Text Adodc2.Recordset.Fields(3) = Text7.Text Adodc2.Recordset.Fields(4) = Text8.Text Adodc2.Recordset.Fields(5) = Text21.Text Adodc2.Recordset.Save Adodc2.Refresh Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text21.Text = "" End Sub

Perintah membuat kode Baru


140

Tabel 4.36 Listing Data gaji dan Tunjangan Lanjutan 2 Private Sub UserButtonz8_Click() Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(0) = Text12.Text Adodc3.Recordset.Fields(1) = Combo1.Text Adodc3.Recordset.Fields(2) = Text9.Text Adodc3.Recordset.Fields(3) = Text10.Text Adodc3.Recordset.Fields(4) = Text11.Text Adodc3.Recordset.Save Adodc3.Refresh End Sub Private Sub UserButtonz2_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Text3.Text Adodc1.Recordset.Save Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub UserButtonz11_Click() Adodc4.Recordset.AddNew Adodc4.Recordset.Fields(0) = Text13.Text Adodc4.Recordset.Fields(1) = Text14.Text Adodc4.Recordset.Fields(2) = Text15.Text Adodc4.Recordset.Fields(3) = Text16.Text Adodc4.Recordset.Fields(4) = Text17.Text Adodc4.Recordset.Fields(5) = Text18.Text Adodc4.Recordset.Fields(6) = Text19.Text Adodc4.Recordset.Fields(7) = Text20.Text Adodc4.Recordset.Update Adodc4.Refresh End Sub



Perintah untuk menambah

141

4.5.11 Tampilan Pada Data Harga Dinas

Gambar 4.62 Tampilan Data Harga Dinas Tabel 4.37 Listing Data Harga Dinas Listing Program Private Sub UserButtonz1_Click() Adodc1.Refresh If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MoveLast X = Adodc1.Recordset.Fields(0) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text1.Text = "D" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text1.Text = "D" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "D00" + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = "D001" End If End Sub

Keterangan Perintah untuk mebuat kode baru

142

Tabel 4.38 Listing Data Harga Dinas Lanjutan1 Private Sub UserButtonz2_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Text3.Text Adodc1.Recordset.Save Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Private Sub UserButtonz3_Click() On Error Resume Next Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Text3.Text Adodc1.Recordset.Update Adodc1.Refresh


Perintah untuk meng update

Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

4.5.12 Tampilan Pada Belanja Barang

Gambar 4.63 Tampilan Belanja Barang

143

Tabel 4.39 Listing Belanja Barang Listing Program Private Sub UserButtonz3_Click() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text10.Enabled = True Text9.Enabled = True Text6.Enabled = True Text7.Enabled = True Text5.Enabled = True Text8.Enabled = True Label15.Enabled = True Text11.Text = "a" Adodc2.Refresh If Adodc2.Recordset.BOF = False Then Adodc2.Recordset.MoveLast X = Adodc2.Recordset.Fields(0) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text1.Text = "B" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text1.Text = "B" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "B00" + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = "B001" End If End Sub Private Sub UserButtonz5_Click() Unload Me Form19.Show End Sub Private Sub UserButtonz8_Click() CrystalReport1.SelectionFormula = "({Belanja_Barang.Kode_Barang})='" & Text28.Text & "'" CrystalReport1.ReportFileName = App.Path & "/belanja_barang.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = True End Sub

Keterangan Perintah untuk meng update

Perintah keluar

Perintah cetak

144

Tabel 4.40 Listing Belanja Barang Lanjutan 1 Listing Program If Text11.Text = "w" Then Adodc2.Recordset.Fields(4) = Text5.Text Adodc2.Recordset.Fields(5) = Text7.Text Adodc2.Recordset.Fields(6) = Text8.Text Adodc2.Recordset.Update Adodc2.Refresh Else Adodc2.Refresh Adodc2.Recordset.AddNew Adodc2.Recordset.Fields(0) = Text1.Text Adodc2.Recordset.Fields(1) = Text2.Text Adodc2.Recordset.Fields(2) = Text3.Text Adodc2.Recordset.Fields(3) = Text4.Text Adodc2.Recordset.Fields(4) = Text6.Text Adodc2.Recordset.Fields(5) = Text7.Text Adodc2.Recordset.Fields(6) = Text8.Text Adodc2.Recordset.Save Adodc2.Refresh End If Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = DTPicker1 Adodc1.Recordset.Fields(1) = Text1.Text Adodc1.Recordset.Fields(2) = Text2.Text Adodc1.Recordset.Fields(3) = Text3.Text Adodc1.Recordset.Fields(4) = Text4.Text Adodc1.Recordset.Fields(5) = Text10.Text Adodc1.Recordset.Fields(6) = Text9.Text Adodc1.Recordset.Fields(7) = Text6.Text Adodc1.Recordset.Fields(8) = Text7.Text Adodc1.Recordset.Fields(9) = Text5.Text Adodc1.Recordset.Fields(10) = Text8.Text Adodc1.Recordset.Fields(11) = Label15.Caption Adodc1.Recordset.Save Adodc1.Refresh Adodc4.Recordset.Fields(0) = DTPicker1 Adodc4.Recordset.Fields(5) = Text13.Text Adodc4.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text10.Text = "" Text9.Text = "" Text6.Text = "" Text7.Text = "" Text5.Text = "" Text8.Text = "" Label15.Caption = "" Text12.Text = "0" Text13.Text = "0"

Keterangan Perintah Menyimpan

145

Tabel 4.41 Listing Belanja Barang Lanjutan 2 Text14.Text Text15.Text Text16.Text Text17.Text Text18.Text Text19.Text Text20.Text Text21.Text Text22.Text Text23.Text Text24.Text Text25.Text Text26.Text

= = = = = = = = = = = = =

Listing Program "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "0" "x"

Keterangan Perintah Menyimpan

Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text10.Enabled = False Text9.Enabled = False Text6.Enabled = False Text7.Enabled = False Text5.Enabled = False Text8.Enabled = False Label15.Enabled = False Unload Me Form9.Show End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) Text8.Text = Val(Text6.Text) * Val(Text7.Text) Text13.Text = Val(Text8.Text) + Val(Text12.Text) On Error Resume Next cariy = Text25.Text Adodc6.CommandType = adCmdText Adodc6.RecordSource = "" Adodc6.RecordSource = " Select * from t_jurnal where t_jurnal.Alias_Periode ='" & cariy & "'" Adodc6.Refresh Text26.Text = Adodc6.Recordset.Fields(8) If Text26.Text = "x" Then Adodc5.Recordset.AddNew Adodc5.Recordset.Fields(0) = Text14.Text Adodc5.Recordset.Fields(1) = Text15.Text Adodc5.Recordset.Fields(2) = Text16.Text Adodc5.Recordset.Fields(3) = Text17.Text Adodc5.Recordset.Fields(4) = Text18.Text Adodc5.Recordset.Fields(5) = Text19.Text Adodc5.Recordset.Fields(6) = Text20.Text Adodc5.Recordset.Fields(7) = Text21.Text

Perintah menghitung

146

Tabel 4.42 Listing Belanja Barang Lanjutan 3 Listing Program Adodc5.Recordset.Fields(8) = Text22.Text Adodc5.Recordset.Save Adodc5.Refresh Text14.Text = "0" Text15.Text = "0" Text16.Text = "0" Text17.Text = "0" Text18.Text = "0" Text19.Text = "0" Text20.Text = "0" Text21.Text = "0" Text22.Text = "0" Text12.Text = "0" Adodc4.Recordset.Fields(0) = DTPicker1 Adodc4.Recordset.Fields(1) = Text15.Text Adodc4.Recordset.Fields(2) = Text16.Text Adodc4.Recordset.Fields(3) = Text17.Text Adodc4.Recordset.Fields(4) = Text18.Text Adodc4.Recordset.Fields(5) = Text19.Text Adodc4.Recordset.Fields(6) = Text20.Text Adodc4.Recordset.Fields(7) = Text21.Text Adodc4.Recordset.Fields(8) = Text25.Text Adodc4.Recordset.Update Adodc4.Refresh Else On Error Resume Next cariy = Text25.Text Adodc6.CommandType = adCmdText Adodc6.RecordSource = "" Adodc6.RecordSource = " Select * from t_jurnal where t_jurnal.Alias_Periode ='" & cariy & "'" End If If Text8 <> "" Then Text8.Text = Format(Text8, "#,##0") Text8.SelStart = Len(Text8) Label15.Caption = AngkaTerbilang(Text8) Label15.Caption = StrConv(Label15, vbProperCase) Else Label15.Caption = "" End If If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

Keterangan Perintah menyimpan

147

Tabel 4.43 Listing Belanja Barang Lanjutan 4 Listing Program Private Sub Text6_KeyPress(KeyAscii As Integer) Text5.Text = Val(Text9.Text) + Val(Text6.Text)

Keterangan Perintah menghitung

Text12.Text = Adodc6.Recordset.Fields(5) Text23.Text = DTPicker1.Month Text24.Text = DTPicker1.Year Text25.Text = Text23.Text + Text24.Text Text14.Text Text15.Text Text16.Text Text17.Text Text18.Text Text19.Text Text20.Text Text21.Text Text22.Text End Sub

= = = = = = = = =

Adodc4.Recordset.Fields(0) Adodc4.Recordset.Fields(1) Adodc4.Recordset.Fields(2) Adodc4.Recordset.Fields(3) Adodc4.Recordset.Fields(4) Adodc4.Recordset.Fields(5) Adodc4.Recordset.Fields(6) Adodc4.Recordset.Fields(7) Adodc4.Recordset.Fields(8)

4.5.13 Tampilan Pada Belanja Pegawai

Gambar 4.64 Tampilan Belanja Pegawai

148

Tabel 4.44 Listing Belanja Pegawai Listing Program Private Sub UserButtonz5_Click() Text28.Enabled = True Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text13.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Text10.Enabled = True Text11.Enabled = True Text12.Enabled = True Text14.Enabled = True Text32.Enabled = True Text33.Enabled = True Text34.Enabled = True Text38.Enabled = True Text27.Enabled = True Text35.Enabled = True Text36.Enabled = True Label31.Enabled = True Text15.Text = Adodc11.Recordset.Fields(4) Text67.Text = DTPicker1.Month Text68.Text = DTPicker1.Year Text69.Text = Text67.Text + Text68.Text Text58.Text = Adodc9.Recordset.Fields(0) Text59.Text = Adodc9.Recordset.Fields(1) Text60.Text = Adodc9.Recordset.Fields(2) Text61.Text = Adodc9.Recordset.Fields(3) Text62.Text = Adodc9.Recordset.Fields(4) Text63.Text = Adodc9.Recordset.Fields(5) Text64.Text = Adodc9.Recordset.Fields(6) Text65.Text = Adodc9.Recordset.Fields(7) Text66.Text = Adodc9.Recordset.Fields(8) Adodc1.Refresh If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MoveLast X = Adodc1.Recordset.Fields(1)

Keterangan Perintah menyimpan

149

Tabel 4.45 Listing Belanja Pegawai Lanjutan 1 akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text28.Text = "KG" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text28.Text = "KG" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "KG00" + akhir Text28.Text = akhir Exit Sub End If Else Text28.Text = "KG001" End If End Sub Private Sub Command10_Click() On Error Resume Next cari2 = Text4.Text Adodc3.CommandType = adCmdText Adodc3.RecordSource = "" Adodc3.RecordSource = " Select * from data_golongan where data_golongan.Nama_Golongan ='" & cari2 & "'" Adodc3.Refresh Text9.Text = Adodc3.Recordset.Fields(2) End Sub Private Sub Form_Load() Text39.Text = Adodc6.Recordset.Fields(0) Text40.Text = Adodc6.Recordset.Fields(1) Text41.Text = Adodc6.Recordset.Fields(2) Text42.Text = Adodc6.Recordset.Fields(3) Text43.Text = Adodc6.Recordset.Fields(4) Text44.Text = Adodc6.Recordset.Fields(5) Text45.Text = Adodc6.Recordset.Fields(6) Text46.Text = Adodc6.Recordset.Fields(7) DTPicker1 = Date End Sub

Perintah mencari

Perintah Mangubah

150

Tabel 4.46 Listing Belanja Pegawai Lanjutan 2 Private Sub Text1_KeyPress(KeyAscii As Integer) On Error Resume Next cariy = Text69.Text Adodc9.CommandType = adCmdText Adodc9.RecordSource = "" Adodc9.RecordSource = " Select * from t_jurnal where t_jurnal.Alias_Periode ='" & cariy & "'" Adodc9.Refresh Text70.Text = Adodc9.Recordset.Fields(8) If Text70.Text = "x" Then Adodc10.Recordset.AddNew Adodc10.Recordset.Fields(0) = Text58.Text Adodc10.Recordset.Fields(1) = Text59.Text Adodc10.Recordset.Fields(2) = Text60.Text Adodc10.Recordset.Fields(3) = Text61.Text Adodc10.Recordset.Fields(4) = Text62.Text Adodc10.Recordset.Fields(5) = Text63.Text Adodc10.Recordset.Fields(6) = Text64.Text Adodc10.Recordset.Fields(7) = Text65.Text Adodc10.Recordset.Fields(8) = Text66.Text Adodc10.Recordset.Save Adodc10.Refresh Text58.Text = "0" Text59.Text = "0" Text60.Text = "0" Text61.Text = "0" Text62.Text = "0" Text63.Text = "0" Text64.Text = "0" Text65.Text = "0" Text66.Text = "0" Text15.Text = "0" Adodc11.Recordset.Fields(0) = DTPicker1 Adodc11.Recordset.Fields(1) = Text71.Text Adodc11.Recordset.Fields(2) = Text71.Text Adodc11.Recordset.Fields(3) = Text71.Text Adodc11.Recordset.Fields(4) = Text71.Text Adodc11.Recordset.Fields(5) = Text71.Text Adodc11.Recordset.Fields(6) = Text71.Text Adodc11.Recordset.Fields(7) = Text71.Text Adodc11.Recordset.Fields(8) = Text69.Text Adodc11.Recordset.Update Else On Error Resume Next carii = Text69.Text Adodc9.CommandType = adCmdText Adodc9.RecordSource = "" Adodc9.RecordSource = " Select * from t_jurnal where t_jurnal.Alias_Periode ='" & carii & "'" End If

Perintah pencarian

151

Tabel 4.47 Listing Belanja Pegawai Lanjutan 3 Private Sub UserButtonz2_Click() On Error Resume Next Adodc1.Recordset.Fields(0) = DTPicker1 Adodc1.Recordset.Fields(1) = Text28.Text Adodc1.Recordset.Fields(2) = Text1.Text Adodc1.Recordset.Fields(3) = Text2.Text Adodc1.Recordset.Fields(4) = Text3.Text Adodc1.Recordset.Fields(5) = Text4.Text Adodc1.Recordset.Fields(6) = Text5.Text Adodc1.Recordset.Fields(7) = Text6.Text Adodc1.Recordset.Fields(8) = Text13.Text Adodc1.Recordset.Fields(9) = Text7.Text Adodc1.Recordset.Fields(10) = Text8.Text Adodc1.Recordset.Fields(11) = Text16.Text Adodc1.Recordset.Fields(12) = Text17.Text Adodc1.Recordset.Fields(13) = Text31.Text Adodc1.Recordset.Fields(14) = Text9.Text Adodc1.Recordset.Fields(15) = Text10.Text Adodc1.Recordset.Fields(16) = Text11.Text Adodc1.Recordset.Fields(17) = Text12.Text Adodc1.Recordset.Fields(18) = Text14.Text Adodc1.Recordset.Fields(19) = Text32.Text Adodc1.Recordset.Fields(20) = Text33.Text Adodc1.Recordset.Fields(21) = Text34.Text Adodc1.Recordset.Fields(22) = Text38.Text Adodc1.Recordset.Fields(23) = Text27.Text Adodc1.Recordset.Fields(24) = Text35.Text Adodc1.Recordset.Fields(25) = Text36.Text Adodc1.Recordset.Fields(26) = Label31.Caption Adodc1.Recordset.Update Adodc1.Refresh End Sub Private Sub UserButtonz1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = DTPicker1 Adodc1.Recordset.Fields(1) = Text28.Text Adodc1.Recordset.Fields(2) = Text1.Text Adodc1.Recordset.Fields(3) = Text2.Text Adodc1.Recordset.Fields(4) = Text3.Text Adodc1.Recordset.Fields(5) = Text4.Text Adodc1.Recordset.Fields(6) = Text5.Text Adodc1.Recordset.Fields(7) = Text6.Text Adodc1.Recordset.Fields(8) = Text13.Text Adodc1.Recordset.Fields(9) = Text7.Text Adodc1.Recordset.Fields(10) = Text8.Text Adodc1.Recordset.Fields(11) = Text16.Text Adodc1.Recordset.Fields(12) = Text17.Text Adodc1.Recordset.Fields(13) = Text31.Text Adodc1.Recordset.Fields(14) = Text9.Text Adodc1.Recordset.Fields(15) = Text10.Text Adodc1.Recordset.Fields(16) = Text11.Text Adodc1.Recordset.Fields(17) = Text12.Text Adodc1.Recordset.Fields(18) = Text14.Text Adodc1.Recordset.Fields(19) = Text32.Text

Perintah pencarian

Perintah menyimpan

152

Tabel 4.48 Listing Belanja Pegawai Lanjutan 4 Adodc1.Recordset.Fields(20) Adodc1.Recordset.Fields(21) Adodc1.Recordset.Fields(22) Adodc1.Recordset.Fields(23) Adodc1.Recordset.Fields(24) Adodc1.Recordset.Fields(25) Adodc1.Recordset.Fields(26) Label31.Caption Adodc1.Recordset.Save Adodc1.Refresh

= = = = = = =

Text33.Text Text34.Text Text38.Text Text27.Text Text35.Text Text36.Text

Adodc11.Recordset.Fields(0) = DTPicker1 Adodc11.Recordset.Fields(4) = Text57.Text Adodc11.Recordset.Update Text28.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text13.Text = "" Text7.Text = "" Text8.Text = "" Text16.Text = "" Text17.Text = "" Text31.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text12.Text = "" Text14.Text = "" Text32.Text = "" Text33.Text = "" Text34.Text = "" Text38.Text = "" Text27.Text = "" Text35.Text = "" Text36.Text = "" Label31.Caption = "nominal" Text15.Text = "0" Text57.Text = "0" Text58.Text = "0" Text59.Text = "0" Text60.Text = "0" Text61.Text = "0" Text62.Text = "0" Text63.Text = "0" Text64.Text = "0" Text65.Text = "0" Text66.Text = "0" Text67.Text = "0" Text68.Text = "0" Text69.Text = "0" Text70.Text = "x"

Perintah menyimpan

153

Tabel 4.49 Listing Belanja Pegawai Lanjutan 5 Text28.Enabled = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text13.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text14.Enabled = False Text32.Enabled = False Text33.Enabled = False Text34.Enabled = False Text38.Enabled = False Text27.Enabled = False Text35.Enabled = False Text36.Enabled = False Label31.Enabled = False Unload Me Form14.Show End Sub Private Sub UserButtonz6_Click() If Text8.Text <= 3 Then Text12.Text = Val(Text8.Text) * Val(Text12.Text) Else Text12.Text = (Text12.Text) * 3 End If Text27.Text = Val(Text9.Text) + Val(Text10.Text) + Val(Text11.Text) + Val(Text12.Text) + Val(Text14.Text) '+ Val(Text15.Text) Text32.Text = Val(Text16.Text) * Val(Text18.Text) Text33.Text = Val(Text17.Text) * Val(Text19.Text) Text34.Text = Val(Text31.Text) * Val(Text20.Text) Text35.Text = Val(Text32.Text) + Val(Text33.Text) + Val(Text34.Text) Text36.Text = Val(Text27.Text) Val(Text35.Text) 'Text11.Text = (Val(Text8.Text) * Val(Text10.Text)) * Val(Text9.Text) Text47.Text = Val(Text27.Text) * 0.05

Perintah menyimpan

Perintah untuk menghitung tunjangan

154

Tabel 4.50 Listing Belanja Pegawai Lanjutan 6 Text48.Text = Val(Text27.Text) Val(Text47.Text) Text49.Text = Val(Text48.Text) * 12 'tambahan istri If Text7.Text = "Ya" Then Text50.Text = Text40.Text Else Text50.Text = "0" End If 'jumlah anak If Text8.Text = "0" Then Text51.Text = Val(Text41.Text) ElseIf Text8.Text = "1" Then Text51.Text = Val(Text41.Text) ElseIf Text8.Text = "2" Then Text51.Text = Val(Text41.Text) Else Text51.Text = Val(Text41.Text) End If

* 0 * 1 * 2 * 3

Text52.Text = Val(Text39.Text) + Val(Text50.Text) + Val(Text51.Text) Text53.Text = Val(Text49.Text) Val(Text52.Text) If Text149 < 25000000 Then Text54.Text = Val(Text53.Text) * (Val(Text42.Text) / 100) ElseIf Text49 >= 25000000 Then Text54.Text = Val(Text53.Text) * (Val(Text43.Text) / 100) ElseIf Text49 >= 50000000 Then Text54.Text = Val(Text53.Text) * (Val(Text45.Text) / 100) ElseIf Text49 >= 100000000 Then Text54.Text = Val(Text53.Text) * (Val(Text47.Text) / 100) ElseIf Text49 >= 200000000 Then Text54.Text = Val(Text53.Text) * (Val(Text48.Text) / 100) End If Text55.Text = Val(Text54.Text) / 12 If Text55.Text < 0 Then Text56.Text = "0" Else Text56.Text = Text55.Text End If Text57.Text = Val(Text36.Text) + Val(Text15.Text) Text38.Text = Text56.Text


155

Tabel 4.51 Listing Belanja Pegawai Lanjutan 7 If Text36 <> "" Then Text36.Text = Format(Text36, "#,##0") Text36.SelStart = Len(Text36) Label31.Caption = AngkaTerbilang(Text36) Label31.Caption = StrConv(Label31, vbProperCase) Else Label31.Caption = "" End If


If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

4.5.14 Tampilan Pada Belanja Pemeliharaan

Gambar 4.65 Tampilan Belanja Pemeliharaan

156

Tabel 4.52 Listing Belanja Pemeliharaan Listing Program Private Sub UserButtonz2_Click() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text5.Enabled = True Combo1.Enabled = True Text4.Enabled = True Text6.Enabled = True Text8.Enabled = True Text9.Enabled = True Text10.Enabled = True Text11.Enabled = True Text7.Text = Adodc7.Recordset.Fields(7) Text22.Text = DTPicker1.Month Text23.Text = DTPicker1.Year Text24.Text = Text22.Text + Text23.Text Text13.Text = Adodc7.Recordset.Fields(0) Text14.Text = Adodc7.Recordset.Fields(1) Text15.Text = Adodc7.Recordset.Fields(2) Text16.Text = Adodc7.Recordset.Fields(3) Text17.Text = Adodc7.Recordset.Fields(4) Text18.Text = Adodc7.Recordset.Fields(5) Text19.Text = Adodc7.Recordset.Fields(6) Text20.Text = Adodc7.Recordset.Fields(7) Text21.Text = Adodc7.Recordset.Fields(8) Adodc1.Refresh If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MoveLast X = Adodc1.Recordset.Fields(1) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text1.Text = "JP" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text1.Text = "JP" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "JP00" + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = "JP001" End If End Sub

Keterangan Membuat baru

157

Tabel 4.53 Listing Belanja Pemeliharaan Lanjutan 1 Private Sub UserButtonz2_Click() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text5.Enabled = True Combo1.Enabled = True Text4.Enabled = True Text6.Enabled = True Text8.Enabled = True Text9.Enabled = True Text10.Enabled = True Text11.Enabled = True Text7.Text = Adodc7.Recordset.Fields(7) Text22.Text = DTPicker1.Month Text23.Text = DTPicker1.Year Text24.Text = Text22.Text + Text23.Text Text13.Text = Adodc7.Recordset.Fields(0) Text14.Text = Adodc7.Recordset.Fields(1) Text15.Text = Adodc7.Recordset.Fields(2) Text16.Text = Adodc7.Recordset.Fields(3) Text17.Text = Adodc7.Recordset.Fields(4) Text18.Text = Adodc7.Recordset.Fields(5) Text19.Text = Adodc7.Recordset.Fields(6) Text20.Text = Adodc7.Recordset.Fields(7) Text21.Text = Adodc7.Recordset.Fields(8) Adodc1.Refresh If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MoveLast X = Adodc1.Recordset.Fields(1) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text1.Text = "JP" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text1.Text = "JP" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "JP00" + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = "JP001" End If End Sub


158

Tabel 4.54 Listing Belanja Pemeliharaan Lanjutan 2 Private Sub UserButtonz1_Click() Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = DTPicker1 Adodc1.Recordset.Fields(1) = Text1.Text Adodc1.Recordset.Fields(2) = Text2.Text Adodc1.Recordset.Fields(3) = Text3.Text Adodc1.Recordset.Fields(4) = Combo1.Text Adodc1.Recordset.Fields(5) = Text5.Text Adodc1.Recordset.Fields(6) = Text8.Text Adodc1.Recordset.Fields(7) = Text9.Text Adodc1.Recordset.Fields(8) = Text10.Text Adodc1.Recordset.Fields(9) = Text11.Text Adodc1.Recordset.Fields(10) = Label6.Caption Adodc1.Recordset.Save Adodc1.Refresh Adodc3.Recordset.Fields(4) = Text6.Text Adodc3.Recordset.Update Adodc3.Refresh Adodc7.Recordset.Fields(0) = DTPicker1 Adodc7.Recordset.Fields(7) = Text12.Text Adodc7.Recordset.Update Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Combo1.Text = "" Text5.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Label6.Caption = "nominal" Text7.Text = "0" Text12.Text = "0" Text13.Text = "0" Text14.Text = "0" Text15.Text = "0" Text16.Text = "0" Text17.Text = "0" Text18.Text = "0" Text19.Text = "0" Text20.Text = "0" Text21.Text = "0" Text22.Text = "0" Text23.Text = "0" Text24.Text = "0" Text25.Text = "x" Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text5.Enabled = False Combo1.Enabled = False

Perintah untuk mnyimpan

159

Tabel 4.55 Listing Belanja Pemeliharaan Lanjutan 3 Text6.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Unload Me Form13.Show End Sub Private Sub UserButtonz5_Click() CrystalReport1.SelectionFormula = "({belanja_pemeliharaan.Kode_Jasa})='" & Text1.Text & "'" 'CrystalReport1.SelectionFormula = "month({belanja_pemeliharaan.Tanggal})=" & DTPicker1.Month & " And " & "Year({belanja_pemeliharaan.Tanggal})=" & DTPicker1.Year CrystalReport1.ReportFileName = App.Path & "/belanja_pemeliharaan.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = True Text1.Text = "" End Sub Private Sub UserButtonz6_Click() Unload Me Form19.Show End Sub

Perintah untuk mnyimpan

Perintah mencetak


4.5.15 Tampilan Pada Belanja Dinas

Gambar 4.66 Tampilan Belanja Dinas

160

Tabel 4.56 Listing Belanja Dinas Private Sub UserButtonz6_Click() Text1.Enabled = True Text2.Enabled = True Combo1.Enabled = True Text10.Enabled = True Text4.Enabled = True Text5.Enabled = True Text6.Enabled = True Text7.Enabled = True Text8.Enabled = True Text9.Enabled = True Text11.Enabled = True Label18.Enabled = True Text17.Text = Adodc5.Recordset.Fields(6) Text19.Text = Adodc6.Recordset.Fields(0) Text20.Text = Adodc6.Recordset.Fields(1) Text21.Text = Adodc6.Recordset.Fields(2) Text22.Text = Adodc6.Recordset.Fields(3) Text23.Text = Adodc6.Recordset.Fields(4) Text24.Text = Adodc6.Recordset.Fields(5) Text25.Text = Adodc6.Recordset.Fields(6) Text26.Text = Adodc6.Recordset.Fields(7) Text27.Text = Adodc6.Recordset.Fields(8) Text28.Text = DTPicker1.Month Text29.Text = DTPicker1.Year Text30.Text = Text28.Text + Text29.Text Adodc1.Refresh If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MoveLast X = Adodc1.Recordset.Fields(1) akhir = Right(X, 3) akhir = akhir + 1 If akhir > 99 Then akhir = Format(akhir, "") akhir = "" + akhir Text1.Text = "BD" + akhir Exit Sub End If If akhir > 9 Then akhir = Format(akhir, "") akhir = "0" + akhir Text1.Text = "BD" + akhir Exit Sub End If If akhir < 10 Then akhir = Format(akhir, "") akhir = "BD00" + akhir Text1.Text = akhir Exit Sub End If Else Text1.Text = "BD001" End If UserButtonz1.Enabled = True End Sub


161

Tabel 4.57 Listing Belanja Dinas Lanjutan 1 Private Sub UserButtonz11_Click() On Error Resume Next cari1 = Text12.Text Adodc3.CommandType = adCmdText Adodc3.RecordSource = "" Adodc3.RecordSource = " Select * from data_pegawai where data_pegawai.NIP ='" & cari1 & "'" Adodc3.Refresh Text3.Text = Adodc3.Recordset.Fields(1) Text13.Text = Adodc3.Recordset.Fields(2) Text14.Text = Adodc3.Recordset.Fields(3) Text15.Text = Adodc3.Recordset.Fields(11) Text16.Text = Adodc3.Recordset.Fields(6) On Error Resume Next If Text16.Text = "Aktiv" Then MsgBox "pegawai aktif, silahkan simpan" UserButtonz9.Enabled = True Else MsgBox " maaf status pegawai tidak aktif, silahkan masukan kembali NIP pada menu tambah" UserButtonz9.Enabled = False Text12.Text = "" Text3.Text = "" Text13.Text = "" Text14.Text = "" Text15.Text = "" Text16.Text = "" End If End Sub Private Sub Command5_Click() Text11.Text = Val(Text4.Text) * Val(Text8.Text) * Val(Text9.Text) Text18.Text = Val(Text17.Text) + Val(Text11.Text) If Text11 <> "" Then Text11.Text = Format(Text11, "#,##0") Text11.SelStart = Len(Text11) Label18.Caption = AngkaTerbilang(Text11) Label18.Caption = StrConv(Label18, vbProperCase) Else Label18.Caption = "" End If If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then Exit Sub Else KeyAscii = 0 End If End Sub

Perintah untuk mencari data pegawai

Perintah Menghitung

162

Tabel 4.58 Listing Belanja Dinas Lanjutan 2 Private Sub Text9_Click() On Error Resume Next cariy = Text30.Text Adodc8.CommandType = adCmdText Adodc8.RecordSource = "" Adodc8.RecordSource = " Select * from t_jurnal where t_jurnal.Alias_Periode ='" & cariy & "'" Adodc8.Refresh Text31.Text = Adodc8.Recordset.Fields(8) If Text31.Text = "x" Then Adodc7.Recordset.AddNew Adodc7.Recordset.Fields(0) = Text19.Text Adodc7.Recordset.Fields(1) = Text20.Text Adodc7.Recordset.Fields(2) = Text21.Text Adodc7.Recordset.Fields(3) = Text22.Text Adodc7.Recordset.Fields(4) = Text23.Text Adodc7.Recordset.Fields(5) = Text24.Text Adodc7.Recordset.Fields(6) = Text25.Text Adodc7.Recordset.Fields(7) = Text26.Text Adodc7.Recordset.Fields(8) = Text27.Text Adodc7.Recordset.Save Text19.Text = "0" Text20.Text = "0" Text21.Text = "0" Text22.Text = "0" Text23.Text = "0" Text24.Text = "0" Text25.Text = "0" Text26.Text = "0" Text27.Text = "0" Text17.Text = "0" Adodc6.Recordset.Fields(0) = DTPicker1 Adodc6.Recordset.Fields(1) = Text32.Text Adodc6.Recordset.Fields(2) = Text32.Text Adodc6.Recordset.Fields(3) = Text32.Text Adodc6.Recordset.Fields(4) = Text32.Text Adodc6.Recordset.Fields(5) = Text32.Text Adodc6.Recordset.Fields(6) = Text32.Text Adodc6.Recordset.Fields(7) = Text32.Text Adodc6.Recordset.Fields(8) = Text30.Text Adodc6.Recordset.Update Else On Error Resume Next caric = Text30.Text Adodc8.CommandType = adCmdText Adodc8.RecordSource = "" Adodc8.RecordSource = " Select * from t_jurnal where t_jurnal.Alias_Periode ='" & caric & "'" End If End Sub

Perintah untuk mencari data pegawai

163

Tabel 4.59 Listing Belanja Dinas Lanjutan 3 Private Sub UserButtonz1_Click() Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = DTPicker1 Adodc1.Recordset.Fields(1) = Text1.Text Adodc1.Recordset.Fields(2) = Text2.Text Adodc1.Recordset.Fields(3) = Combo1.Text Adodc1.Recordset.Fields(4) = Text10.Text Adodc1.Recordset.Fields(5) = Text4.Text Adodc1.Recordset.Fields(6) = Text5.Text Adodc1.Recordset.Fields(7) = Text6.Text Adodc1.Recordset.Fields(8) = Text7.Text Adodc1.Recordset.Fields(9) = Text8.Text Adodc1.Recordset.Fields(10) = Text9.Text Adodc1.Recordset.Fields(11) = Text11.Text Adodc1.Recordset.Fields(12) = Label18.Caption Adodc1.Recordset.Save Adodc1.Refresh Adodc6.Recordset.Fields(0) = DTPicker1 Adodc6.Recordset.Fields(6) = Text18.Text Adodc6.Recordset.Update Text2.Text = "" Text10.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text11.Text = "" Label18.Caption = "" Text17.Text = "0" Text18.Text = "0" Text19.Text = "0" Text20.Text = "0" Text21.Text = "0" Text22.Text = "0" Text23.Text = "0" Text24.Text = "0" Text25.Text = "0" Text26.Text = "0" Text27.Text = "0" Text29.Text = "0" Text30.Text = "0" Text31.Text = "x" Text1.Enabled = False Text2.Enabled = False Combo1.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Unload Me Form15.Show End Sub


164

4.5.16 Tampilan Pada Sekertaris Camat

Gambar 4.67 Tampilan Sekertaris Camat

4.5.17 Tampilan Pada Jurnal Umum

Gambar 4.68 Tampilan Jurnal Umum

165

Tabel 4.60 Listing Jurnal Umum Listing Program Private Sub UserButtonz5_Click() If Text2.Text = "Bulanan" Then CrystalReport1.ReportFileName = App.Path & "/jurnal_umum.rpt" CrystalReport1.SelectionFormula = "month({t_jurnal_2.Periode})=" & Combo1.ListIndex + 1 & " And " & "Year({t_jurnal_2.Periode})=" & Text1.Text CrystalReport1.RetrieveDataFiles CrystalReport1.Action = True Else CrystalReport1.SelectionFormula = "Year({t_jurnal_2.Periode})=" & Text1.Text CrystalReport1.ReportFileName = App.Path & "/jurnal_tahunan.rpt" CrystalReport1.RetrieveDataFiles CrystalReport1.Action = True End If End Sub Private Sub Option1_Click() If Option1.Value = True Then Text2.Text = "Bulanan" Combo1.Enabled = True Else Text2.Text = "Tahunan" Combo1.Enabled = False End If End Sub Private Sub Option2_Click() If Option2.Value = True Then Text2.Text = "Tahunan" Combo1.Enabled = False Else Text2.Text = "Bulanan" Combo1.Enabled = True End If End Sub

Keterangan Perintah cetak

Perintah untuk cetak

Perintah option

166

Gambar 4.69 Tampilan Keluaran Jurnal Umum

4.5.18 Tampilan Pada Buku Besar Umum

Gambar 4.70 Tampilan Buku Besar Umum

167

Tabel 4.61 Listing Buku Besar Umum Listing Program Private Sub UserButtonz5_Click() If Combo2.Text = "Kas" Then CrystalReport1.ReportFileName = App.Path & "/Buku Besar Kas.rpt" CrystalReport1.SelectionFormula = "month({t_jurnal_2.Periode})=" & Combo1.ListIndex + 1 & " And " & "Year({t_jurnal_2.Periode})=" & Text1.Text CrystalReport1.RetrieveDataFiles CrystalReport1.Action = True Else CrystalReport1.ReportFileName = App.Path & "/Buku Besar Belanja.rpt" CrystalReport1.SelectionFormula = "month({t_jurnal_2.Periode})=" & Combo1.ListIndex + 1 & " And " & "Year({t_jurnal_2.Periode})=" & Text1.Text CrystalReport1.RetrieveDataFiles CrystalReport1.Action = True End If End Sub Private Sub UserButtonz1_Click() Unload Me End Sub

Keterangan Perintah cetak

Perintah keluar

Gambar 4.71 Tampilan Keluaran Buku Besar

168

4.5.19 Tampilan Pada Realisasi Anggaran dan Pendapatan

Gambar 4.72 Tampilan Realisasi Anggaran Tabel 4.62 Listing Realisasi Anggaran Listing Program Private Sub UserButtonz5_Click() CrystalReport1.ReportFileName = App.Path & "/Realisasi anggaran.rpt" CrystalReport1.SelectionFormula = "month({t_jurnal_2.Periode})=" & Combo1.ListIndex + 1 & " And " & "Year({t_jurnal_2.Periode})=" & Text1.Text CrystalReport1.RetrieveDataFiles CrystalReport1.Action = True Combo1.Text = "" Text1.Text = "" End Sub Private Sub UserButtonz1_Click() Unload Me End Sub

Keterangan Perintah untuk mencetak


169

4.5.20 Tampilan Pada Profil Programmer

Gambar 4.73 Tampilan Profil Programmer

4.5.21 Tampilan Pada Profil Instansi

Gambar 4.74 Tampilan Profil Perusahaan

170

4.5.22 Tampilan Pada Bantuan

Gambar 4.75 Tampilan Bantuan

4.6 Konversi Komponen Sistem 4.6.1 Pengguna (Brainware) Sumber daya manusia yang diperlukan untuk menjalankan program sistem informasi akuntansi belanja ini minimal lulusan SMU/Sederajat yang bisa mengoperasikan komputer di bidang hardware dan software.

4.6.2 Perangkat Keras (Hardware) Hardware yang diperlukan untuk menjalankan program aplikasi sistem informasi akuntansi Belanja ini adalah: Processor Pentium IV, Motherboard INTEL, Hardisk Minimal 20 Gb, memory DDR 256 MB, ATI RADEON XPRESS 200M Series 128MB.

171

4.6.3 Perangkat Lunak (Software) 4.6.3.1 Perangkat Lunak Sistem Perangkat lunak sistem yang digunakan untuk mengkonfigurasi komputer yaitu Windows XP, karena sistem operasi ini dapat mendukung program perancangan sistem informasi akuntansi belanja.

4.6.3.2 Perangkat Lunak Pemrograman Perangkat lunak pemrograman yang digunakan untuk membuat program perancangan sistem informasi akuntansi belanja ini adalah Visual Basic 6.0, karena aplikasi ini dapat mendukung dalam pembuatan laporan keuangan.

4.6.3.3 Perangkat Lunak Aplikasi Perangkat lunak aplikasi yang digunakan untuk membuat program aplikasi belanja ini adalah Microsoft SQL Server 2000 dan Crystal Report, karena aplikasi ini dapat mendukung perancangan sistem informasi akuntansi belanja.

4.7

Jaringan Komputer Client-Server

4.7.1 Model Jaringan Client-Server Model jaringan yang digunakan yaitu model jaringan topologi star. Dalam bukunya yang berjudul Instalasi dan konfigurasi Jaringan Komputer, topologi star sebagai berikut: “Topologi star berbentuk seperti bintang dan memiliki kemudahan untuk menambah atau mengurangi serta mudah untuk mendeteksi kerusakan pada sistem yang ada.” (Dede, 2004:41)

172

Penulis memilih model topologi ini karena mudah dikembangkan dan terhubung langsung dengan central node. Sehingga mempermudah untuk mendeteksi kerusakan pada sistem.

4.7.2 Koneksi Jaringan Client-Server Berdasarkan perancangan sistem informasi akuntansi belanja yang berbasis client server dengan menggunakan Microsoft Visual Basic 6.0 dan SQL Server 2000, maka diperlukannya konfigurasi client server. Dimana beberapa komputer yang saling terhubung dan membentuk suatu jaringan (client-server) untuk dapat menggunakan program aplikasi secara bersama-sama (sharing). Maka harus di-setting terlebih dulu ODBC-nya supaya dapat terkoneksi. Langkah–langkah dalam melakukan client server: A. Pertama-tama pastikan komputer anda terdapat port jaringan B. Sediakan peralatan-peralatan jaringan seperti: 1. Kabel UTP, misalnya kabel UTP tipe Straight, seperti di bawah ini:

Gambar 4.76 Kabel UTP Tipe Straight

173

2. Konektor dengan tipe straight, seperti di bawah ini:

Gambar 4.77 Tipe Straight 3. Crimp Tool, yaitu tang khusus untuk memasang konektor ke kabel UTP, seperti berikut ini:

Gambar 4.78 Crimp Tool Saat akan memasang konektor ke Crimp Tool, maka potong ujung kabelnya, kemudian susun kabelnya dan diratakan dengan pisau potong yang ada pada Crimp Tool. Kita tidak perlu repot-repot harus melepaskan isolasi pada bagian ujung kabel, karena saat kita memasukan kabel itu ke konektor lalu ditekan (pressed) dengan menggunakan crimp tool, saat itu pin yang ada di konektor menembus sampai ke dalam kabel C. Tes kabel UTP yang telah dibuat tadi dengan menggunakan LAN Tester, yaitu alat untuk memeriksa benar tidaknya sambungan kabel. Untuk tipe straight jika benar maka led 1 sampai 8 berkedip. Berikut adalah gambar dari bawah dari ujung kabel UTP yang sudah dipasangi konektor dan berhasil dengan baik (urutan pewarnaan pinnya ikut standar).

174

Gambar 4.79 Urutan pin standar 1. Kemudian jika seluruh peralatan jaringan telah terpenuhi, maka pasangkan kabel UTP tadi ke Port jaringan komputer anda. 2. Pastikan Jaringan anda terkoneksi. 3. Setelah komputer anda terkoneksi pada jaringan maka anda dapat melakukan sharing data dengan cara: a. Langkah pertama adalah cari ODBC dulu untuk mengkoneksikan data. ODBC dapat dicari dengan klik start jika sudah ada pada layar dapat langsung di klik, apabila tidak ada maka dapat dicari melalui Control Panel kemudian klik Administrative Tools.

Gambar 4.80 Setting Control Panel

175

b.

Setelah ODBC di klik maka muncul tampilan. Jika database sudah ada dapat langsung klik configure apabila database belum ada, kita pilih Add untuk memasukan database dan pilih driver yang digunakan.

Gambar 4.81 Setting ODBC

Gambar 4.82 Setting ODBC untuk memilih client-server

176

Gambar 4.83 Setting Configure c. Setelah database masuk isikan data source name sesuai dengan database, kemudian klik next.

Gambar 4.84 Setting Data Source d.Kemudian pilih server yang digunakan, serta masukan login ID dan Password apabila settingan komputer ada Password lalu pilih Next.

Gambar 4.85 Setting Koneksi

177

e. Setelah itu pada change the default database pilih database yang akan digunakan kemudian klik Next.

Gambar 4.86 Setting Database

f. Apabila muncul gambar seperti di bawah ini kemudian klik Finish

Gambar 4.87 Setting bahasa SQL

g. Kemudian untuk memastikan data source sudah terkoneksi dapat di klik Test Data Source dan apabila sudah terkoneksi klik OK

178

Gambar 4.88 Test Data Source

4.8 Kelebihan dan Kelemahan Sistem Usulan 4.8.1 Kelebihan sistem yang diusulkan Program aplikasi sistem informasi akuntansi belanja ini dengan menggunakan software Microsoft Visual Basic 6.0 dengan Microsoft SQL 2000 sebagai databasenya, yang dibuat oleh penulis ini terdapat beberapa kelebihan dan kelemahannya, kelebihan program ini diantaranya sebagai berikut: A. Ada pengendalian keamanan pada saat memasuki program yaitu dengan kata kunci (password). B. Pada tahap proses penginputan data dan transaksi dapat dilakukan dengan lebih cepat, tepat, akurat dan efisien serta data dapat tersimpan dengan teratur. C. Software aplikasi sistem informasi akuntansi belanja ini sudah menggunakan Microsoft Visual Basic 6.0 dan Microsoft SQL 2000 sehingga dapat memudahkan dalam pengerjaan dalam setiap aktivitas yang berbeda dalam waktu yang sama dengan aplikasi yang sama.

179

D. Output yang penulis hasilkan berupa Slip Gaji, Daftar Pemakaian Barang. Daftar Inventaris Kantor, Laporan Keuangan Realisasi Anggaran, Pendapatan dan Belanja. Dan Surflus-Defisit

4.8.2 Kelemahan sistem yang diusulkan Untuk program aplikasi sistem informasi akuntansi belanja dengan menggunakan software Microsoft Visual Basic 6.0 dengan Microsoft SQL 2000 sebagai databasenya

ini terdapat beberapa kelemahan diantaranya

sebagai

berikut: A. Program aplikasi ini hanya memunculkan data-data yang berkaitan dengan belanja saja.

BAB IV PERANCANGAN SISTEM INFORMASI AKUNTANSI BELANJA

Recommend Documents