No title

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi

PROGRAM BANK Peminat silakan hubungi : Email : [email protected] Facebook : [email protected] (Uus Rusmawan) Phone : 0812 838 1118 Pada program bank ini diperlukan konsentrasi ekstra, karena kita harus memerhatikan perubahan saldo setiap kali terjadi transaksi baik melalui Teller maupun melalui ATM.

13.1 Normalisasi File Dalam program bank ini bentuk relasinya one to one, karena setiap terjadi satu transaksi maka data disimpan satu kali, tidak ada data yang disimpan berulang. Bentuk normalisasinya dapat dilihat pada Gambar 13.1 berikut ini.

Normalisasi File

13.2 Database Dan Tabel Untuk mengetahui file database dan struktur masing-masing tabel berikut type data dan kunci primer maupun kunci tamunya silakan buka CD pendukung buku ini.

1


Database Dan Tabel

13.3 Membuat Module Langkah awal pembuatan program bank adalah membuat module yang di dalamnya terdapat nomor transaksi yang terus berubah. Setelah mengaktifkan VB, buatlah module kemudian tulislah coding berikut ini.

13.4 Buka Rekening Program pertama pembukaan rekening dengan saldo minimal sebesar Rp. 500,000,- buatlah form dengan bentuk seperti Gambar 13.3 di bawah ini.

Transaksi Pembukaan Rekening

2


Bukti Pembukaan Rekening

13.5 Transaksi Setoran Setelah seorang nasabah membuka rekening, selanjutnya kita coba membuat program transaksi setoran dengan bentuk form seperti Gambar 13.5 berikut.

Gambar 13.5 Setoran

3


Bukti Setoran

13.6 Pengambilan Kas Program ini hampir sama dengan program setoran kas. Buatlah form seperti Gambar 13.7. Untuk mempercepat pekerjaan, salinlah form setoran kas kemudian ubahlah beberapa bagiannya sehingga cocok untuk program pengambilan kas dan salin juga codingnya kemudian ubahlah tanda PLUS menjadi tanda MINUS pada bagian SQLEdit.

Gambar 13.7 Penarikan Dana

4


Bukti Penarikan

13.7 Fasilitas ATM Beberapa program yang disediakan oleh fasilitas ATM ini antara lain : 1.

Informasi saldo

2.

Penarikan tunai

3.

Transfer antar bank

4.

Pembayaran tagihan

5.

Dan ganti PIN

Untuk memulainya buatlah form dengan bentuk seperti Gambar 13.9 berikut ini.

5

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Fasilitas ATM

13.8 Informasi Saldo Informasi saldo digunakan sebagai bahan pertimbangan sebelum melakukan transaksi, dengan demikian dapat diperkirakan transaksi apa yang dapat dilakukan dengan jumlah saldo yang dimiliki saat ini. Private Sub Command1_Click() Call BukaDB RSNasabah.Open "select * from nasabah where norek='" & LblNoRek & "'", Conn If Not RSNasabah.EOF Then MsgBox "Nama : " & RSNasabah!Namansb & "" & Chr(13) & _ "Saldo : Rp. " & Format(RSNasabah!Saldo, "###,###,###") & "" End If End Sub

Gambar 13.10 Informasi Saldo

13.9 Penarikan Dana Penarikan dana dibuat dengan dua model, yaitu model jumlah otomatis dimana jumlah uang tinggal dipilih dalam list dan model jumlah yang diisi manual.

Penarikan Dana di ATM

6


Bukti Penarikan Dana di ATM

13.10 Penarikan Manual Buatlah form untuk program penarikan manual seperti Gambar 13.13 di bawah ini.

Penarikan Dana Manual

13.11 Transfer Dana Untuk transaksi transfer dana buatlah form seperti gambar berikut ini.

Transaksi Transfer Dana

7


Bukti Transfer

13.12 Bayar Tagihan Data tagihan disimpan dalam tabel Tagihan dengan rincian sebagai berikut. Tagihan NomorPlg NamaPlg Tagihan Status 12345 RUSMAN 90000 23456 RYAN 85000 34567 HAFIZ 120000 45678 ALBANI 100000 56789 RISNA 50000

Pembayaran Telepon

8


Bukti Pembayaran Telepon

13.13 Ganti PIN Untuk menggati PIN buatlah form dengan bentuk seperti gambar berikut ini.

Ganti PIN

13.14 Jejak Transaksi Setelah sekian banyak transaksi dilakukan oleh nasabah baik melalui Teller maupun ATM, kini saatnya kita melihat jejak transaksi tersebut. Buatlah form seperti Gambar 13.19 berikut ini.

Gambar 13.19 Form Jejak Transaksi

9

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Coding Private Sub Form_Load() Call BukaDB RSNasabah.Open "select * from nasabah", Conn Do While Not RSNasabah.EOF Combo1.AddItem RSNasabah!norek RSNasabah.MoveNext Loop End Sub Private Sub Combo1_KeyPress(Keyascii As Integer) If Keyascii = 27 Then Unload Me If Keyascii = 13 Then If Len(Combo1) < 10 Then MsgBox "Nomor Rekening harus 10 digit" Combo1.SetFocus Exit Sub End If Call BukaDB RSNasabah.Open "select * from nasabah where Norek='" & Combo1 & "'", Conn If Not RSNasabah.EOF Then CrystalReport1.SelectionFormula = "{Transaksi.Norek}='" & Combo1 & "'" CrystalReport1.ReportFileName = App.Path & "\Lap Jejak.rpt" CrystalReport1.WindowState = crptMaximized CrystalReport1.RetrieveDataFiles CrystalReport1.Action = 1 Else MsgBox "Nomor Rekeing tidak terdaftar" Combo1.SetFocus Exit Sub End If End If End Sub

Laporan Jejak Transaksi

10

No title

Recommend Documents