Makalah Kasus Simpan Pinjam Koperasi

APLIKASI SIMPAN PINJAM KOPERASI DENGAN MICROSOFT VISUAL BASIC 6.0

KELOMPOK 3 Diajukan untuk memenuhi tugas mata kuliah Pemrograman Visual II pada program Diploma Tiga (D.III)

Disusun oleh: 1.Imam Uwesul Qoroni (12094820) 2.Mohamad Prastya

(12094830)

3.Ibnu Abas

(12094836)

4.Helmi Winangun

(12094916)

Jurusan Manajemen Informatika Akademi Manajemen Informatika dan Komputer Bina Sarana Informatika Jalan Cut Mutiah No.88, Bekasi 2011

i

KATA PENGANTAR Bismillahirrohmaanirrahiim, puji syukur kami panjatkan kehadirat Allah SWT, atas rahmat dan hidayah-Nya sehingga kami dapat menyelesaikan makalah ini. Kami telah menyadari bahwa telah banyak bantuan yang kami dapatkan dalam pembuatan makalah ini sehingga dapat terselesaikan, untuk itu pada kesempatan ini kami mengucapkan banyak terima kasih terutama kepada : 1. Ibu Sri Muryani, S.Kom, selaku dosen, dalam pembuatan makalah ini telah banyak memberikan bimbingan dan pengarahan tentang materi pemrograman Visual Basic 6.0 dengan penggunaan basis data Microsoft Access. 2. Kakak – kakak instruktur selaku asisten dosen di lab praktek yang telah banyak memberikan pengarahan dan bantuan sehingga kami benar - benar paham, dan terselesaikannya makalah ini. 3. Rekan satu kelompok yang telah banyak membantu terselesaikannya makalah ini. Selanjutnya kami sadar akan keterbatasan kami selaku manusia biasa yang tidak luput dari kesalahan, maka sudah barang tentu dalam makalah ini terdapat kelemahan dan kekurangan. Demi kesempurnaan makalah ini, kami mengharapkan kritik dan saran yang konstruktif dari semua pihak. Akhirnya atas bantuan, kritik, dan saran dari semua pihak, kami mengucapkan banyak terima kasih. Bekasi, 31 Mei 2011

ii

DAFTAR ISI Halaman Lembar Judul Makalah……………………………………………………….

i

Kata Pengantar. ..………………………………………………………….….

ii

Daftar Isi . ……………………………………………………….…………...

iii

BAB I

PENDAHULUAN………………………………………………..

1

1.1. Latar Belakang Masalah …………………………………….

1

1.2. Maksud dan Tujuan Penulisan………………………………

1

1.3. Batasan Masalah. .……………………………………….......

2

1.4. Metodologi Masalah…………………………………………

2

BAB II PEMBAHASAN………………………………………………….

3

2.1. Normalisasi Data ……………………………………………

3

2.2. Alur sistem kerja koperasi simpan pinjam …………………..

5

2.3. Spesifikasi File………………….. ………………………….

6

2.4. Rancangan Form dan Source Code dari Program……………

8

2.5. Rancangan Laporan …………………………………………

42

2.6. Cara Menjalankan Program …………………………………

43

BAB III PENUTUP………………………………………………………...

47

3.1. Kesimpulan ……………………………….............................

47

3.2. Saran ………………………………......................................

47

DAFTAR PUSTAKA

iii

BAB I PENDAHULUAN 1.1

Latar Belakang Masalah Pada saat ini banyak terjadi pembangunan di segala bidang dimana

masyarakat dituntut untuk dapat menerima kemajuan teknologi, dalam hal ini seseorang diharapkan dapat melakukan pekerjaannya menjadi lebih efisien dengan bantuan dari teknologi. Teknologi komputer dari waktu ke waktu terus berkembang. Fungsi komputer telah berubah, komputer tidak hanya digunakan sekedar untuk sarana menghitung angka atau numerik tetapi juga digunakan untuk sarana mengolah database. Dalam makalah ini kami mencoba untuk membuat program koperasi simpan pinjam atau aplikasi untuk memudahkan pencatatan kegiatan transaksi khususnya pada koperasi simpan pinjam. Aplikasi ini dibuat dengan menggunakan Microsoft Visual Basic 6.0, dengan integrasi basis data menggunakan Microsoft Access sehingga diharapkan dapat lebih memudahkan staff administrasi koperasi simpan pinjam untuk melakukan pengolahan data koperasi.

1.2

Maksud dan Tujuan Penulisan

Adapun maksud dan tujuan dari pembuatan makalah ini adalah : 1. Mencoba menerapkan kemampuan yang didapat selama kuliah dalam hal ini pembuatan aplikasi simpan pinjam koperasi dengan menggunakan program

1

Microsoft Visual Basic 6.0 dan penginputan database koperasi simpan pinjam menggunakan Microsoft Access. 2. Memudahkan pengguna atau staff - staf yang ada di koperasi dalam hal input dan output dari proses kegiatan simpan pinjam koperasi. 3. Menambah pengetahuan tentang fungsi dan kegunaan apa saja khususnya pada program Microsoft Visual Basic 6.0. 4.

Dapat mengoptimalkan sistem kerja yang sudah ada dalam dunia koperasi

simpan pinjam.

1.3

Batasan Masalah Dalam makalah ini masalah yang akan dibahas mengenai pembuatan setiap

form yang ada pada aplikasi ini, rancangan database, rancangan laporannya, beserta coding program dari masing - masing form.

1.4

Metedologi Masalah

Metode masalah yang digunakan adalah: 1.

Dengan menggunakan metode deskriptif dimana kami melakukan pembelajaran literatur - literatur yang terkait dengan tema. Kemudian akan dicoba untuk diterapkan contoh beberapa perumusan program yang berhubungan dengan topik bahasan.

2.

Metode studi pustaka dimana kami melakukan studi kepustakaan pada buku buku serta media lain seperti internet yang berhubungan dengan sistem simpan pinjam koperasi. 2

BAB II PEMBAHASAN 2.1. Normalisasi Data Sebelum kita membahas sistem kerja dari kasus simpan pinjam koperasi ini. Adapun rancangan database yang nanti akan di integrasikan dengan form - form yang telah ada pada Microsoft Visual Basic 6.0, berikut ini nama tabel - tabel yang ada di dalam database: •

Tabel Master Anggota Tabel ini berisi tentang identitas tiap - tiap anggota koperasi simpan pinjam

•

Tabel Simpanan Berisi tentang saldo yang telah disimpan dari tiap - tiap anggota

•

Tabel Detail Simpanan Berisi tentang jumlah total dari penjumlahan yang berasal dari debet dan kredit

•

Tabel Pinjaman Berisi tentang data - data peminjam dari tiap anggota

•

Tabel Angsuran Berisi tentang data - data segala proses kegiatan peminjaman.

3

Berikut adalah normalisasi data dari database/file yang telah kami buat dalam aplikasi simpan pinjam koperasi:

Tabel Anggota NoAnggota (*) Nama Alamat Kota NoTelp Pekerjaan

Tabel Detail NoTrans (**) NoAnggota (**) Debet Kredit Total

Tabel Pinjaman NoPinjam (*) TglPinjam NoAnggota (**) Keterangan PinjPokok Lama Bunga Admn TglMulai TglSelesai JmlBunga TotalPinjaman Angsuran TglBayar

Tabel Angsuran NoBukti (*) TglBukti NoPinjam(**) Bayar Sisa Periode JmlSisa Terlambat Denda Jumlah Status

Tabel Simpanan NoTrans (*) Tgl Jenis Saldo

Ket: (*) = Primary Key (**) = Foreign Key

Gambar II.1 Normalisasi Data Simpan Pinjam Koperasi

4

Gambar II.2 Relationship Database di Microsoft Office Acces 2003

2.2. Alur sistem kerja koperasi simpan pinjam 1. Pengunjung atau calon anggota koperasi mendaftarkan diri kepada staff

administrasi untuk melakukan pengisian data diri atau identitas. 2. Setelah anggota terdaftar sebagai anggota koperasi, dari sini anggota sudah

dapat melakukan kegiatan simpan pinjam uang di koperasi. 3. Dalam kegiatan simpan pinjam staff administrasi akan melakukan penghitungan melalui masing – masing form terhadap setiap kegiatan simpan pinjam yang dilakukan.

5

4. Kemudian saat melakukan kegiatan simpan pinjam, anggota koperasi akan

menerima laporan atau bukti telah melakukan transaksi penyimpanan ataupun bukti transaksi pembayaran pinjaman. 2.3. Spesifikasi File Adapun spesifikasi file dari aplikasi program simpan pinjam koperasi dapat diuraikan sebagai berikut: Tabel Master Anggota Field Name

Type

Size Key

NoAnggota

Text

7

Nama

Text

30

Alamat

Text

50

Kota NoTelp

Text Text

25 15

Pekerjaan

Text

20

*

Tabel Simpanan Field Name NoTransaksi Tanggal Jenis Saldo

Tabel Detail Simpanan 6

Type Text Date/Time Text Currency

Size 11 15

Key *

Field Name NoTransaksi NoAnggota Debet Kredit Saldo

Type Text Text Currency Currency Currency

Tabel Pinjaman

Field Name NoPinjam TglPinjam NoAnggota Keterangan PinjPokok Lama B unga Administrasi TglMulai TglSelesai JmlBunga TotalPinjaman Angsuran TglBayar

Type Text Date/Time Text Text Currency Number Number Number Date/Time Date/Time Currency Currency Currency Date/Time

Size 11

Key *

7 25

**

Size 11 7

Field Name NoBukti TglBukti NoPinjam Bayar Sisa Periode JmlSisa Terlambat Denda Jumlah Status

Key ** **

Type Text Date/Time Text Currency Currency Number Currency Text Currency Number Text

Size 11

Key *

30

**

50 15

Tabel Angsuran

7

2.4. Rancangan Form dan Source Code dari program 2.4.1. Form Login

Gambar II.3 Form Login Merupakan tampilan form yang pertama kali mucul saat program dijalankan. Form ini ditujukan agar setiap pengguna (user), khususnya staff administrasi koperasi dapat menverifikasi identitasnya agar bisa mengakses kedalam program, agar tidak semua orang dapat mengakses database tersebut. Dalam form ini berisi input user ID dan password yang bertujuan untuk membedakan status pengguna (user). 8

Berikut coding program dari form login ini: Private Sub cmdclose_Click()

End Sub

Unload Me

Private Sub Form_Activate()

End Sub

tuser.SetFocus

Private Sub cmdlogin_Click()

End Sub

Adologin.RecordSource = "select

Private Sub Timer1_Timer()

password from pengguna"

Label4.Caption = Time

Adologin.Refresh

End Sub

With Adologin.Recordset

Private Sub

.Find ("password='" & Trim(tpwd) &

tuser_KeyPress(KeyAscii As

"'")

Integer)

If .EOF Then

If KeyAscii = 13 Then

MsgBox "Password anda salah",

Adologin.RecordSource = "select

vbCritical + vbYesNo, "Info"

UserId,Nmuser from pengguna"

tpwd = ""

Adologin.Refresh

tpwd.SetFocus

Adologin.Recordset.Find ("UserId='"

Else

& Trim(tuser) & "'")

Form7.Show

If Adologin.Recordset.EOF Then

Form6.Hide

MsgBox " User ID Anda Salah",

End If

vbCritical + vbYesNo, "Info"

End With

tuser = "" tuser.SetFocus 9

Else

tpwd.SetFocus

tnmuser.Text =

End If

Adologin.Recordset.Fields("Nmuser")

End If

tnmuser.Enabled = False

End Sub

2.4.2. Form Menu Utama (MDI Utama)

Gambar II.4 Form Menu Utama Form ini biasanya disebut juga dengan form induk karena dapat menampilkan form lain didalamnya.

Berikut coding program dari form menu utama ini: 10

Private Sub MDIForm_Load()

Form1.Show

Me.Caption = "Menu Utama Koperasi

End Sub

Simpan Pinjam IV PRIA SHOLEH

Private Sub menuBayar_Click()

System "

Form5.Show

End Sub

End Sub

Private Sub mnuAnggota_Click()

Private Sub

Form1.Show

menuDaftarAnggota_Click()

End Sub

cranggota.ReportFileName = App.Path

Private Sub mnuBayar_Click()

& "\ranggota.rpt"

Form5.Show

cranggota.Destination = crpToWindow

End Sub

cranggota.WindowState =

Private Sub mnuExit_Click()

crptMaximized

Unload Me

cranggota.WindowTitle = "Cetak

End Sub

Laporan Anggota "

Private Sub mnuPinjaman_Click()

cranggota.RetrieveDataFiles

Form4.Show

cranggota.Action = 1

End Sub

End Sub

Private Sub mnuSimpanan_Click()

Private Sub menuDetail_Click()

Form2.Show

Form3.Show

End Sub

End Sub

Private Sub menuAnggota_Click()

Private Sub menuLapPembayaran_Click() 11

crbayar.ReportFileName = App.Path

End Sub

& "\rangsuran.rpt"

Private Sub

crbayar.Destination = crpToWindow

menuLapSimpanan_Click()

crbayar.WindowState =

crsimpanan.ReportFileName =

crptMaximized

App.Path & "\rsimpanan.rpt"

crbayar.WindowTitle = "Cetak

crsimpanan.Destination =

Laporan Transaksi "

crpToWindow

crbayar.RetrieveDataFiles

crsimpanan.WindowState =

crbayar.Action = 1

crptMaximized

End Sub

crsimpanan.WindowTitle = "Cetak

Private Sub

Laporan Simpanan "

menuLapPinjaman_Click()

crsimpanan.RetrieveDataFiles

crpinjaman.ReportFileName =

crsimpanan.Action = 1

App.Path & "\rpinjaman.rpt"

End Sub

crpinjaman.Destination =

Private Sub menuPinjaman_Click()

crpToWindow

Form4.Show

crpinjaman.WindowState =

End Sub

crptMaximized

Private Sub menuSimpanan_Click()

crpinjaman.WindowTitle = "Cetak

Form2.Show

Laporan Pinjaman "

End Sub

crpinjaman.RetrieveDataFiles

Private Sub Timer1_Timer()

crpinjaman.Action = 1 12

StatusBar1.Panels(5).Text =

Case 10

Format(Now, "HH:MM:SS")

Unload Me

End Sub

End Select

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) On Error Resume Next

End Sub

Select Case Button.Index

Private Sub

Case 2

Toolbar1_ButtonDropDown(ByVal

Form1.Show

Button As MSComctlLib.Button)

Case 4

On Error Resume Next

Form4.Show

Select Case Button.Index

Case 5

Case 8

Form2.Show

PopupMenu menuLaporan, 4

Case 6

End Select

Form5.Show

End Sub

2.4.3. Form Master Anggota

13

Gambar II.5 Form Master Anggota Berikut coding program dari form master anggota: Dim anggota As Boolean

tcnoanggota = ""

Private Sub cmdbatal_Click()

tcnoanggota.SetFocus

awal

Call tampil

End Sub

Else

Private Sub cmdcari_Click()

MsgBox "Kode" + tckobar + "tidak

Adosp.RecordSource = "select* from

ada", 34, "info"

anggota

tcnoanggota = ""

where

NoAnggota='"

&

tcnoanggota & "'"


Adosp.Refresh

Adosp.RecordSource = "select*from

With Adosp.Recordset

anggota"

If .PageCount <> 0 Then

Adosp.Refresh

Adosp.Refresh

End If 14

End With

Else

End Sub

awal

Private Sub cmdedit_Click()

End If

anggota = False

End Sub

aktif

Private Sub cmdlast_Click()

tnoanggota.Enabled = False

Adosp.Recordset.MoveLast

tnama.SetFocus

End Sub

End Sub

Private Sub cmdnext_Click()

Private Sub cmdhapus_Click()

Adosp.Recordset.MoveNext

If Len(Trim(tnoanggota.Text)) = ""

If Adosp.Recordset.EOF Then

Then

MsgBox "Data sudah diakhiri record",

Exit Sub

48, "Info"

End If


b = MsgBox("Benar mau dihapus?",

End If

32 + 4, "Tanya")

tampil

If p = vbYes Then

End Sub

Adosp.Recordset.Delete

Private Sub cmdprev_Click()

Adosp.Recordset.MoveFirst

Adosp.Recordset.MovePrevious

Adosp.Refresh

If Adosp.Recordset.BOF Then

bersih

MsgBox "Data sudah di awal record",

awal

48, "Info" 15


.Fields("Pekerjaan") = tpekerjaan

End If

.Update

tampil

End If

End Sub

End With

Private Sub cmdsimpan_Click()

Adosp.RecordSource = "select * from


anggota"

If anggota = True Then

Adosp.Refresh

.AddNew

On Error GoTo 0

.Fields("NoAnggota") = tnoanggota

cmdbatal_Click

.Fields("Nama") = tnama

End Sub

.Fields("Alamat") = talamat .Fields("Kota") = tkota

Private Sub

.Fields("NoTelp") = ttelp

cmdtambah_Click(Index As

.Fields("Pekerjaan") = tpekerjaan

Integer)

.Update

aktif

Else

bersih

.Fields("NoAnggota") = tnoanggota

tnoanggota.SetFocus

.Fields("Nama") = tnama

End Sub

.Fields("Alamat") = talamat

Private Sub cmdtop_Click()

.Fields("Kota") = tkota


.Fields("NoTelp") = ttelp

End Sub 16

Private Sub cmdtutup_Click()

ttelp.Enabled = False

w = MsgBox("Anda yakin mau

tpekerjaan.Enabled = False

menutup form ini?", 36, "Tanya")

tcnoanggota.Enabled = False

If w = vbYes Then

tcnama.Enabled = False

Unload Me

cmdsimpan.Enabled = False

Form8.Show

cmdedit.Enabled = False

End If

cmdhapus.Enabled = False

End Sub

cmdbatal.Enabled = False


cmdcari.Enabled = False

awal

MSHFlexGrid1.Enabled = False

tampil

cmdtop.Enabled = False

anggota = True

cmdprev.Enabled = False

End Sub

cmdnext.Enabled = False

Sub awal()

cmdlast.Enabled = False


End Sub

anggota"

Sub bersih()

Adosp.Refresh

tnoanggota = ""


tnama = ""

tnama.Enabled = False

talamat = ""

talamat.Enabled = False

tkota = ""

tkota.Enabled = False

ttelp = "" 17

tpekerjaan = ""

End Sub

End Sub

Sub tampil()

Sub aktif()

tnoanggota.Text =

tnoanggota.Enabled = True

Adosp.Recordset.Fields("noanggota")

tnama.Enabled = True

tnama.Text =

talamat.Enabled = True

Adosp.Recordset.Fields("nama")

tkota.Enabled = True

talamat.Text =

ttelp.Enabled = True

Adosp.Recordset.Fields("alamat")

tpekerjaan.Enabled = True

tkota.Text =

tcnoanggota.Enabled = True

Adosp.Recordset.Fields("kota")

tcnama.Enabled = True

ttelp.Text = Adosp.Recordset.Fields("notelp")

cmdsimpan.Enabled = True

tpekerjaan.Text =

cmdedit.Enabled = True

Adosp.Recordset.Fields("pekerjaan")

cmdhapus.Enabled = True

End Sub

cmdbatal.Enabled = True

Private Sub tcnama_Change()

cmdcari.Enabled = True


MSHFlexGrid1.Enabled = True

anggota where nama like '%" &

cmdtop.Enabled = True

tcnama & "%'"

cmdprev.Enabled = True

Adosp.Refresh

cmdnext.Enabled = True

End Sub

cmdlast.Enabled = True 18

2.4.4. Form Simpanan

Gambar II.6 Form Simpanan Berikut coding program dari form simpanan ini: Dim simpanan As Boolean

awal


End If

hapus = MsgBox("Yakin data ini akan

End Sub

dihapus???", vbQuestion +

Private Sub cmdlasr_Click()

vbOKCancel, "Hapus Data")


If hapus = vbOK Then

End Sub





bersih

Adosp.Recordset.MoveNext 19


Y = MsgBox("Anda yakin mau



MsgBox "Data Anda sudah diakhir

If Y = vbYes Then

record", vbInformation, "Akhir record"

Form8.Show

Else

End If

End If

End Sub

End Sub



awal


simpanan = True


End Sub


Sub awal()



MsgBox "Data Anda sudah diawal

simpanan"

record", vbInformation, "Awal record"

Adosp.Refresh

Else


End If

tnotrans.Enabled = False

End Sub

dttrans.Enabled = False


tjenis.Enabled = False



End Sub Private Sub cmdtutup_Click()

tnama.Enabled = False 20


ttelp = ""


tdebet = ""


tkredit = ""

tsaldo.Enabled = False

tsaldo = ""


tjumlah = ""


End Sub


Sub aktif()




tnotrans.Enabled = True


dttrans.Enabled = True


tjenis.Enabled = True



End Sub


Sub bersih()


tcnoanggota = ""


tnotrans = ""


tjenis = ""

tsaldo.Enabled = True

tnoanggota = ""


tnama = ""


talamat = ""


tkota = ""

MSHFlexGrid1.Enabled = True 21


tnotrans.SetFocus End Sub





cmdlast.Enabled = True

If simpanan = True Then

End Sub

.AddNew

Sub tampil()

!NoTrans = tnotrans

tnoanggota = Adosp1.Recordset!

!Tgl = dttrans

NoAnggota

!Jenis = tjenis

tnama = Adosp1.Recordset!nama

!Saldo = tsaldo

talamat = Adosp1.Recordset!Alamat

.Update

tkota = Adosp1.Recordset!Kota

Else

ttelp = Adosp1.Recordset!NoTelp

!NoTrans = tnotrans

End Sub

!Tgl = dttrans


!Jenis = tjenis

simpanan = False

!Saldo = tsaldo

aktif

.Update

tnotrans = Adosp.Recordset!NoTrans

End If

ttgltrans = Adosp.Recordset!Tgl

End With

tjenis = Adosp.Recordset!Jenis


tsaldo = Adosp.Recordset!Saldo

simpanan" 22

Adosp.Refresh

tnoanggota.SetFocus

On Error GoTo 0

Call tampil

End Sub

tnotrans.SetFocus

Private Sub

Else



Integer)

ada", 34, "info"

aktif

tnoanggota = ""

bersih

tnoanggota.SetFocus


Adosp1.RecordSource = "select*from

End Sub

anggota"

Private Sub

Adosp1.Refresh

tcnoanggota_KeyPress(KeyAscii As

End If

Integer)

End With


End If

Adosp1.RecordSource = "select* from

End Sub

anggota where NoAnggota='" &

Private Sub

tcnoanggota & "'"

tsaldo_KeyPress(KeyAscii As

Adosp1.Refresh

Integer)

With Adosp1.Recordset



cmdsimpan.SetFocus

Adosp1.Refresh

End If

tnoanggota = "" 23

End Sub

2.4.5. Form Detail Simpanan

Gambar II.7 Form Detail Simpanan Berikut coding program dari form detail simpanan ini: Dim detail As Boolean

tnoanggota = Adosp.Recordset!


NoAnggota

detail = False

tdebet.SetFocus

aktif

tdebet = Adosp.Recordset!Debet

tnotrans = Adosp.Recordset!NoTrans

tkredit = Adosp.Recordset!kredit ttotal = Adosp.Recordset!Total

24

End Sub





Else


End If


End Sub







bersih


awal


End If


End Sub



Else


End If

End Sub

End Sub






If detail = True Then


.AddNew


!NoTrans = tnotrans !NoAnggota = tnoanggota 25

!Debet = tdebet

Private Sub

!kredit = tkredit


!Total = ttotal

Integer)

.Update

aktif

Else

bersih

!NoTrans = tnotrans

tcnotrans.SetFocus

!NoAnggota = tnoanggota

End Sub

!Debet = tdebet


!kredit = tkredit


!Total = ttotal

End Sub Private Sub cmdtutup_Click()

.Update

Z = MsgBox("Anda yakin mau

End If


End With

If Z = vbYes Then


Unload Me

detail"

Form8.Show

Adosp.Refresh

End If

On Error GoTo 0

End Sub

End Sub

Private Sub Form_Activate() awal detail = True 26

End Sub

End Sub

Sub awal()

Sub bersih()


tcnotrans = ""

detail"

tnotrans = ""

Adosp.Refresh

tnoanggota = ""

tcnotrans.Enabled = False

tjenis = ""

tnotrans.Enabled = False

tdebet = ""

dttrans.Enabled = False

tkredit = ""

tjenis.Enabled = False

ttotal = ""


End Sub

tdebet.Enabled = False

Sub aktif()

tkredit.Enabled = False

tcnotrans.Enabled = True

ttotal.Enabled = False

tnotrans.Enabled = True


dttrans.Enabled = True


tjenis.Enabled = True




tdebet.Enabled = True


tkredit.Enabled = True


ttotal.Enabled = True




cmdedit.Enabled = True 27




Adosp1.Refresh


tcnotrans = ""


tcnotrans.SetFocus


Call tampil


tnoanggota.SetFocus

End Sub

Else

Sub tampil()


tnotrans = Adosp1.Recordset!NoTrans

ada", 34, "info"

tjenis = Adosp1.Recordset!Jenis

tcnotrans = ""

tdebet = Adosp1.Recordset!Saldo

tcnotrans.SetFocus

End Sub


Private Sub

simpanan"

tcnotrans_KeyPress(KeyAscii As

Adosp1.Refresh

Integer)

End If


End With


End If

simpanan where Notrans='" &

End Sub

tcnotrans & "'"

Private Sub

Adosp1.Refresh

tkredit_KeyPress(KeyAscii As


Integer)

28


Private Sub

ttotal.Text = Val(tdebet.Text) +

tnoanggota_KeyPress(KeyAscii As

Val(tkredit.Text)

Integer)

End If


End Sub

tkredit.SetFocus End If End Sub

2.4.6. Form Pinjaman

Gambar II.8 Form Pinjaman Berikut coding program dari form pinjaman ini: Dim isipinjam As Boolean

Sub tampil() 29

tnoanggota = Adosp1.Recordset!


NoAnggota

ada", 34, "info"

tnama = Adosp1.Recordset!nama

tcnoanggota = ""

talamat = Adosp1.Recordset!Alamat


tkota = Adosp1.Recordset!Kota


ttelp = Adosp1.Recordset!NoTelp

anggota"

End Sub

Adosp1.Refresh

Private Sub cmdcari_Click()

End If


End With

anggota where NoAnggota='" &

End Sub

tcnoanggota & "'"


Adosp1.Refresh

detail = False


aktif


tnopinjam = Adosp.Recordset!

Adosp1.Refresh

NoPinjam

tcnoanggota = ""

tnoanggota = Adosp.Recordset!


NoAnggota

Call tampil

tket = Adosp.Recordset!Keterangan

tnopinjam.SetFocus

tpinjam = Adosp.Recordset!PinjPokok

Else

tlama = Adosp.Recordset!Angsuran tbunga = Adosp.Recordset!Bunga

30

tadmin = Adosp.Recordset!Admn


dtmulai = Adosp.Recordset!TglMulai


tselesai = Adosp.Recordset!TglSelesai

End Sub

tjumlah = Adosp.Recordset!JmlBunga


ttotal = Adosp.Recordset!


TotalPinjaman


tangsuran = Adosp.Recordset!


Angsuran


dtbayar = Adosp.Recordset!TglBayar


End Sub



Else


End If


End Sub









bersih


awal


End If


End Sub

Else 31

End If

Else

End Sub

!NoPinjam = tnopinjam


!TglPinjam = dtpinjam



If isipinjam = True Then

!Keterangan = tket

.AddNew

!PinjPokok = ttotal

!NoPinjam = tnopinjam

!Lama = tlama

!TglPinjam = dtpinjam

!Bunga = tbunga


!Admn = tadmin

!Keterangan = tket

!TglMulai = dtmulai

!PinjPokok = ttotal

!TglSelesai = tselesai

!Lama = tlama

!JmlBunga = tjumlah

!Bunga = tbunga

!TotalPinjaman = ttotal

!Admn = tadmin

!Angsuran = tangsuran

!TglMulai = dtmulai

!TglBayar = dtbayar

!TglSelesai = tselesai

.Update

!JmlBunga = tjumlah

End If

!TotalPinjaman = ttotal

End With

!Angsuran = tangsuran


!TglBayar = dtbayar

pinjaman"

.Update

Adosp.Refresh 32

On Error GoTo 0


End Sub

pinjaman"

Private Sub cmdtambah_Click()

Adosp.Refresh

aktif


bersih

tnopinjam.Enabled = False


dtpinjam.Enabled = False

End Sub



tnama.Enabled = False



End Sub




a = MsgBox("Anda yakin mau

tket.Enabled = False


tpinjam.Enabled = False

If a = vbYes Then

tlama.Enabled = False

Form8.Show

tbunga.Enabled = False

End If

ttotalbunga.Enabled = False

End Sub

tadmin.Enabled = False

Private Sub Form_Activate() awal detail = True End Sub Sub awal()

ttotaladmin.Enabled = False dtmulai.Enabled = False tselesai.Enabled = False tjumlah.Enabled = False 33


tkota = ""

tangsuran.Enabled = False

ttelp = ""

dtbayar.Enabled = False

tket = ""


tpinjam = ""


tlama = ""


tbunga = ""


ttotalbunga = ""


tadmin = ""

cmdcari.Enabled = False

ttotaladmin = ""


dtmulai = False


tselesai = ""


tjumlah = ""

cmdtambah.SetFocus

ttotal = ""

End Sub

tangsuran = ""

Sub bersih()

dtbayar = False

tcnoanggota = ""

End Sub

tnopinjam = ""

Sub aktif()

dtpinjam = False


tnoanggota = ""

tnopinjam.Enabled = True

tnama = ""

dtpinjam.Enabled = True

talamat = ""

tnoanggota.Enabled = True 34




cmdcari.Enabled = True





tket.Enabled = True


tpinjam.Enabled = True

End Sub

tlama.Enabled = True

Private Sub tadmin_Change()

tbunga.Enabled = True

ttotaladmin.Text = Val(tadmin.Text) *

ttotalbunga.Enabled = True

0.01

tadmin.Enabled = True

ttotaladmin.SetFocus

ttotaladmin.Enabled = True

End Sub

dtmulai.Enabled = True

Private Sub tbunga_Change()

tselesai.Enabled = True

ttotalbunga.Text = Val(tbunga.Text) *

tjumlah.Enabled = True

0.01


End Sub

tangsuran.Enabled = True

Private Sub

dtbayar.Enabled = True

tjumlah_KeyPress(KeyAscii As


Integer)




ttotal.Text = Val(tpinjam.Text) + Val(tjumlah.Text)

cmdnext.Enabled = True 35

End If

Private Sub

End Sub

ttotaladmin_KeyPress(KeyAscii As

Private Sub

Integer)

tnopinjam_KeyPress(KeyAscii As


Integer)

tjumlah.Text = (Val(ttotalbunga.Text)


+ Val(ttotaladmin.Text)) *

tket.SetFocus

Val(tpinjam.Text)

End If

End If

End Sub

tselesai.SetFocus End Sub

2.4.7. Form Master Pembayaran

36

Gambar II.9 Form Master Transaksi Pembayarn Pinjaman Berikut coding program dari form master pembayaran ini:

Dim Angsuran As Boolean

tpinjam = Adosp1.Recordset!

Private Sub cbnopinjam_Click(Area

PinjPokok

As Integer)

tlama = Adosp1.Recordset!Lama


ttempo = Adosp1.Recordset!

Pinjam where NoPinjam='" &

TglSelesai

cbnopinjam & "'"

tjumlah = Adosp1.Recordset!

tket = Adosp1.Recordset!Keterangan

TotalPinjaman End Sub 37


bersih

Angsuran = False

cbnopinjam.SetFocus

aktif

End Sub

tnobukti = Adosp.Recordset!NoBukti


dtbukti = Adosp.Recordset!TglBukti

b = MsgBox("Anda yakin mau

cbnopinjam = Adosp.Recordset!


NoPinjam

If b = vbYes Then

tbayar = Adosp.Recordset!Bayar

Form8.Show

tsisa = Adosp.Recordset!Sisa

End If

tperiode = Adosp.Recordset!Periode

End Sub

tjmlsisa = Adossp.Recordeset!JmlSisa


tterlambat = Adosp.Recordset!

awal

Terlambat

Angsuran = True

tdenda = Adosp.Recordset!Denda

End Sub

tangsuran = Adosp.Recordset!

Sub awal()

Angsuran


ttotal = Adosp.Recordset!Jumlah

angsuran"

tstatus = Adosp.Recordset!Status

Adosp.Refresh

End Sub

cbnopinjam.Enabled = False

Private Sub cmdtambah_Click()

dtpinjam.Enabled = False

aktif

tnobukti.Enabled = False 38

dtbukti.Enabled = False


tket.Enabled = False


tpinjam.Enabled = False


tlama.Enabled = False


ttempo.Enabled = False

cmdtambah.SetFocus

dtbayar.Enabled = False

End Sub

tperiode.Enabled = False

Sub bersih()

tjumlah.Enabled = False

tnopinjam = ""

tbayar.Enabled = False

dtpinjam = False

tsisa.Enabled = False

tnobukti = ""

tangsuran.Enabled = False

dtbukti = Fale

tjmlsisa.Enabled = False

tket = ""

tterlambat.Enabled = False

tpinjam = ""

tdenda.Enabled = False

tlama = ""


ttempo = ""

tterbilang.Enabled = False

dtbayar = False

tstatus.Enabled = False

tperiode = ""


tjumlah = ""


tbayar = ""


tsisa = ""


tangsuran = "" 39

tjmlsisa = ""

tangsuran.Enabled = True

tterlambat = ""

tjmlsisa.Enabled = True

tdenda = ""

tterlambat.Enabled = True

ttotal = ""

tdenda.Enabled = True

tterbilang = ""


tstatus = ""

tterbilang.Enabled = True

End Sub

tstatus.Enabled = True

Sub aktif()


cbnopinjam.Enabled = True


dtpinjam.Enabled = True


tnobukti.Enabled = True


dtbukti.Enabled = True


tket.Enabled = True


tpinjam.Enabled = True


tlama.Enabled = True


ttempo.Enabled = True

cmdtambah.SetFocus

dtbayar.Enabled = True

End Sub

tperiode.Enabled = True

Private Sub

tjumlah.Enabled = True

tangsuran_KeyPress(KeyAscii As

tbayar.Enabled = True

Integer)

tsisa.Enabled = True

If KeyAscii = 13 Then 40

tjmlsisa.Text = Val(tsisa.Text) -

strTerbilang = ""

Val(tangsuran.Text)

If Len(CStr(nNilai)) > 15 Then

tterlambat.SetFocus

strTerbilang = ""

End If

Else

End Sub

If Trim(nNilai) = "0" Then Konversi =

Private Sub

"Nol ": Exit Function

tbayar_KeyPress(KeyAscii As

strPart = Format(nNilai, String(15,

Integer)

"0"))


For iGrade = 1 To 5

tsisa.Text = Val(tbayar.Text) -

If Val(Mid(strPart, (iGrade - 1) * 3 +

Val(tjumlah.Text)

1, 3)) > 0 Then

tangsuran.SetFocus

strTerbilang = strTerbilang & _

End If

GetRatus(Mid(strPart, (iGrade - 1) * 3

End Sub

+ 1, 3), iGrade)

Private Function Konversi(ByVal

strTerbilang = strTerbilang &

nNilai As Currency) As String

Grade(iGrade - 1)

Dim Grade As Variant

End If

Dim strTerbilang As String

Next iGrade

Dim strPart As String

End If

Dim iGrade As Byte

Konversi = strTerbilang

Grade = Array("Triliun ", "Milyar ",

End Function

"Juta ", "Ribu ", "") 41

Private Function GetRatus(ByVal

If nTemp = 0 Then

strPart As String, ByVal iGrade As

strHasil = strHasil & "Sepuluh "

Byte) As String

ElseIf nTemp = 1 Then

Dim Angka1 As Variant, Angka2 As

strHasil = strHasil & "Sebelas "

Variant

Else

Dim i As Integer

strHasil = strHasil & Angka1(nTemp -

Dim strHasil As String

1) & "Belas "

Dim nTemp As Byte

End If

Angka1 = Array("Satu ", "Dua ", "Tiga

ElseIf Val(strPart) = 1 And iGrade = 4

", "Empat ", _

Then

"Lima ", "Enam ", "Tujuh ", "Delapan

strHasil = strHasil & "Se"

", "Sembilan ")

Else

Angka2 = Array("Ratus ", "Puluh ",

strHasil = strHasil & "Satu "

"")

End If

For i = 1 To 3

ElseIf nTemp <> 0 Then

nTemp = Val(Mid(strPart, i, 1))

strHasil = strHasil + Angka1(nTemp -

If nTemp = 1 Then

1) + Angka2(i - 1)

If i = 1 Then

End If

strHasil = "Seratus "

Next i

ElseIf i = 2 Then

GetRatus = strHasil

i=i+1

End Function

nTemp = Val(Mid(strPart, i, 1)) 42

Private Sub

Private Sub

tdenda_KeyPress(KeyAscii As

tsisa_KeyPress(KeyAscii As Integer)

Integer)



End If

ttotal.Text = Val(tjmlsisa) +

tangsuran.SetFocus

Val(terlamabt) + Val(tdenda)

End Sub

tterbilang.Text = Konversi(ttotal.Text)

Private Sub

If ttotal = 0 Then

tterlambat_KeyPress(KeyAscii As

tstatus = "LUNAS"

Integer)

Else


tstatus = "BELUM LUNAS"

tdenda.SetFocus

End If

End If

End If

End Sub

End Sub

43

2.5. Rancangan Laporan 2.5.1. Laporan Anggota Adapun rancangan laporan data anggota pada program koperasi simpan pinjam ini adalah sebagai berikut:

Gambar II.10 Laporan Data Anggota Koperasi

2.5.2. Laporan Simpanan

Gambar II.11 Laporan Data Simpanan Anggota Koperasi 44

2.5.3. Laporan Pinjaman

Gambar II.12 Laporan Data Pinjaman Anggota Koperasi

2.5.4. Laporan Transaksi Pembayaran Pinjaman

Gambar II.13 Laporan Data Transaksi Pembayaran Pinjaman 2.6. Cara Menjalankan Program 2.6.1. Form Login 1. Pada form login ketikan user id yang dimiliki oleh setiap staff administrasi

pada kolom user id kemudian tekan enter maka nama user akan terisi

45

otomatis, dan kursor akan berada di kolom password kemudian masukan password kemudian tekan button login. 2. Setelah klik button login

maka akan langsung masuk pada menu utama

program. 3. Klik close untuk membatalkan login.

2.6.2. Form Menu Utama 1. Terdiri dari menu setup yang berisi sub menu anggota koperasi untuk

menampilkan form master anggota, dan sub menu exit untuk keluar dari menu utama. 3.

menu

form

yang

berisi

sub

menu

simpanan,detail

simpanan,pinjaman,pembayaran yang dimana bila dipilih salah satu dari sub menu itu kita akan masuk ke masing – masing form yang telah kita buat sebelumnya. 4.

menu

laporan

yang

berisi

sub

menu

laporan

anggota,

simpanan,pinjaman,pembayaran yang dimana bila dipilih salah satu dari sub menu itu kita akan masuk ke masing – masing laporan yang telah kita buat di form masing – masing. 2.7.3. Form Master Anggota 1.

Pada tampilan awal, form anggota dalam keadaan nonaktif.

2.

Klik button tambah untuk mengkatifkan form.

3.

Input identitas data anggota

4.

Klik button simpan untuk menyimpan data yang telah diinput.

5.

Klik button edit untuk merubah isi tabel database yang telah diinput. 46

6.

Klik button hapus untuk menghapus isi dari database.

7.

Klik button batal apabila tidak ingin melakukan penginputan.

8.

Klik button tutup untuk menutup/mengakhiri form.

9.

Tombol navigasi untuk melihat isi tabel database secara top – down.

10.

Klik button cari untuk mencari data dengan memasukan kata kunci

terlebih dahulu berupa nama anggota ataupun kode anggota. 2.7.4. Form Simpanan 1. Pada tampilan awal, form simpanan dalam keadaan nonaktif. 2. Klik button tambah untuk mengkatifkan form.

3. Input data simpanan 4. Klik button simpan untuk menyimpan data yang telah diinput. 5. Klik button edit untuk merubah isi tabel database yang telah diinput. 6. Klik button hapus untuk menghapus isi dari database. 7. Klik button batal apabila tidak ingin melakukan penginputan. 8. Klik button tutup untuk menutup/mengakhiri form. 9. Tombol navigasi untuk melihat isi tabel database secara top – down.

2.7.5. Form Detail Simpanan 1. Pada tampilan awal, form detail simpanan dalam keadaan nonaktif. 2. Klik button tambah untuk mengkatifkan form. 3. Klik button simpan untuk menyimpan data yang telah diinput. 4. Klik button edit untuk merubah isi tabel database yang telah diinput. 5. Klik button hapus untuk menghapus isi dari database. 6. Klik button batal apabila tidak ingin melakukan penginputan.

47

7. Klik button tutup untuk menutup/mengakhiri form. 8. Tombol navigasi untuk melihat isi tabel database secara top – down.

2.7.6. Form Pinjaman 1. Pada saat tampilan awal, form pinjaman dalam keadaan nonaktif. 2. Klik button tambah untuk mengkatifkan form.

3. Pada saat melakukan penginputan tanggal,tekan tombol drop downya ,kemudian pilih tanggal yang sesuai. 4. Klik button simpan untuk menyimpan data yang telah diinput. 5. Klik button edit untuk merubah isi tabel database yang telah diinput. 6. Klik button hapus untuk menghapus isi dari database. 7. Klik button batal apabila tidak ingin melakukan penginputan. 8. Klik button tutup untuk menutup/mengakhiri form. 9. Tombol navigasi untuk melihat isi tabel database secara top – down. 2.7.7. Form Master Pembayaran

1. Pada saat tampilan awal, form dalam keadaan nonaktif. 2. Klik button tambah untuk mengkatifkan form.

3. Pada saat melakukan penginputan tanggal,tekan tombol drop downya ,kemudian pilih tanggal yang sesuai. 4. Klik button simpan untuk menyimpan data yang telah diinput. 5. Klik button edit untuk merubah isi tabel database yang telah diinput. 6. Klik button hapus untuk menghapus isi dari database. 7. Klik button batal apabila tidak ingin melakukan penginputan. 8. Tombol navigasi untuk melihat isi tabel database secara top – down.

48

9. Klik button tutup untuk menutup/mengakhiri form dan akan kembali ke menu

utama.

BAB III PENUTUP 3.1. Kesimpulan •

Dengan adanya program ini diharapkan dapat sedikit membantu dari segi perhitungan kegiatan simpan pinjam koperasi

•

Desain

program

yang

minimalis

diharapkan

dapat

mempermudah

pengoperasian •

Adanya sistem login untuk meghindari penyalahgunaan program

•

Dibutuhkan penelitian lebih lanjut agar program ini dapat bekerja secara optimal

3.2

. SARAN

Kami sadari dalam pembuatan program ini masih ada kekurangan, mungkin ke depan untuk kesempatan selanjutnya kelompok kami akan terus mengembangkan/meng-update program kami sesuai kebutuhan pemakai (user) dan tingkat kompleksitas yang cukup tinggi demi kenyaman pengguna program kami ini. Oleh karena itu dibutuhkan penelitian lebih lanjut agar program ini dapat bekerja secara optimal.

49

DAFTAR PUSTAKA  Andi,“Seri Panduan Pemrograman MicrosoftVisual Basic 6.0”, LPKBM MADCOMS  Ridwan Sanjaya, “Kolaborasi Visual Basic 6.0 dan Access 2003”, PT. Elex Media Komputindo, Jakarta, 2008  www.planet-source-code.com/vb

Makalah Kasus Simpan Pinjam Koperasi

Recommend Documents