BAB V

IMPLEMENTASI SISTEM

5.1 Pengembangan Sistem

5.1.1 Tabel Buku

Nama database (alias) : db1.mdb

Nama File : TBuku

Media Penyimpanan : Harddisk

Panjang Record : 103 karakter

Struktur File fields : nobuku type text size 5

: judul type text size 20

: pengarang type text size 20

: penerbit type text size 20

: tahun type Number size 8

: jumlah type Number size 8

: max_hari type Number size 20

: jenis type text size 2

Primary key : nobuku

Foreign key :-

Software : Microsoft Visual Basic 6.0

65
 66

5.1.2 File Anggota

Nama database (alias) : db1.mdb

Nama File : TAnggota

Media Penyimpanan : Harddisk

Panjang Record : 106 karakter

Struktur File fields : kodepeminjam type text size 5

: nama type text size 20

: alamat type text size 25

: tempat_lahir type text size 25

: tanggal_lahir type Date/Time size 8

: jenis_kelamin type text size 10

: tanggal_masuk type Date/Time size 8

: kelas type text size 5

Primary key : kodepeminjam

Foreign key :-

Software : Microsoft Visual Basic 6.0

5.1.3 File Jenis Buku

Nama database (alias) : db1.mdb

Nama File : TJenis

Media Penyimpanan : Harddisk

Panjang Record : 10 karakter

Struktur File fields : jenis type text size 2

 67

: denda type Currency size 8

Primary key : jenis

Foreign key :-

Software : Microsoft Visual Basic 6.0

5.1.4 File DENDA

Nama database (alias) : db1.mdb

Nama File : TDenda

Media Penyimpanan : Harddisk

Panjang Record : 31 karakter

Struktur File fields : ids type text size 5

: nobuku type text size 5

: kodepeminjam type text size 5

: tanggalkembali type Date/Time size 8

: denda type Currency size 8

Primary key :-

Foreign key :-

Software : Microsoft Visual Basic 6.0

 68

5.1.5 File PINJAMAN

Nama database (alias) : db1.mdb

Nama File : TPeminjam

Media Penyimpanan : Harddisk

Panjang Record : 90 karakter

Struktur File fields : ids type Number size 8

: nobuku type Date/Time size 8

: kodepeminjam type Text size 5

: TanggalPinjam type Text size 5

: Tanggalkembali type Date/Time size 8

: SudahKembali type Date/Time size 8

: Petugas type Number size 8

: Petugas type Text size 20

: ULUMS type Text size 20

Primary key :-

Foreign key :-

Software : Microsoft Visual Basic 6.0

 69

5.2 Implementasi Program

5.2.1 Form Login

Gambar 5.1 Form Login

Nama Program : Password.frm

Fungsi : Akses ke menu utama

Private Sub cmdok_Click()

If txtuser.Text = "" Then
MsgBox "Isi Nama Petugas", 0 + 64
Exit Sub
ElseIf txtPassword.Text = "" Then
MsgBox " Username/Password salah", 0 + 64
Exit Sub
End If
If txtuser.Text = data\db1.mdb And txtPassword.Text = data\db1.mdb Then
MENU.Show
Unload Me
Else
MsgBox "Pami Sanes Padamel Teukenging Ngoprek Nya Ang",
vbOKOnly + vbCritical, "Ngawartosan"
End If
End Sub
 70

5.2.2 Form Menu Utama

Gambar 5.2 Form Menu Utama

Penjelasan

Nama Program : MENU.frm

Fungsi : Menampilkan submenu

Modul Program :

1. Data Buku : FrmBuku.Show vbModal

2. Data Anggota : FrmAnggota.Show vbModal

3. Data Denda : FrmDenda.Show vbModal

4. Data Pinjam : FrmPinjam.Show vbModal

5. Data Pengembalian : FrmPengembalian.Show vbModal

6. Laporan Anggota : LapAnggota.show

7. Laporan Buku : LapBuku.show

8. Laporan Pinjaman Buku : LapPinjamanBuku.show

9. Laporan Denda : LapDenda.show

10. About : FrmAbout.show

 71

5.2.3 Form Data Buku

Gambar 5.3 Data Buku

Penjelasan

Nama Program : Dtbuku.frm

Fungsi : Input data buku

Private Sub cmdtambah_Click()

TxtNoBuku.SetFocus

Private Sub cmdsimpan_Click()

RsDTBuku.AddNew

RsDTBuku.Update

Exit Sub

Private Sub cmdedit_Click()

RsDTBuku.Edit

RsDTBuku. Update

Exit Sub
 72

Private Sub cmdhapus_Click()

RsDTBuku.delete

Exit Sub

5.2.4 Form Data Anggota

Gambar 5.4 Data Anggota

Penjelasan

Nama Program : DtAnggota.frm

Fungsi : Input Data Anggota

Private Sub cmdtambah_Click()

KodeAnggota.SetFocus

Private Sub cmdsimpan_Click()

Rs DtAnggota.AddNew

Rs DtAnggota.Update

Exit Sub
 73

Private Sub cmdedit_Click()

Rs DtAnggota.Edit

Rs DtAnggota. Update

Exit Sub

Private Sub cmdhapus_Click()

Rs DtAnggota.delete

Exit Sub

5.2.5 Form Jenis Buku

Gambar 5.5 Jenis Buku

Penjelasan

Nama Program : DtJnsBuku.frm

Fungsi : Input Jenis Buku

Private Sub cmdtambah_Click()

TxtJnsBuku.SetFocus

Private Sub cmdsimpan_Click()

Rs DtJnsBuku.AddNew

Rs DtJnsBuku.Update

Exit Sub
 74

Private Sub cmdedit_Click()

Rs DtJnsBuku.Edit

Rs DtJnsBuku. Update

Exit Sub

Private Sub cmdhapus_Click()

Rs DtJnsBuku.delete

Exit Sub

5.2.6 Form Peminjaman

Gambar 5.6 Peminjaman

Penjelasan

Nama Program : DtPeminjaman.frm

Fungsi : Input Data Peminjaman

Private Sub cmdtambah_Click()

Txt. KdAnggota.SetFocus
 75

Private Sub Combobox Anggota _Click()

Rs KdAnggota.Insert

Rs KdAnggota.Update

Exit Sub

Private Sub Combobox Buku _Click()

Rs NoBuku.Insert

Rs NoBuku.Update

Exit Sub

Private Sub Tambah_Click()

Rs Pinjaman.AddNew

Rs Pinjaman. Update

Exit Sub

Private Sub Simpan_Click()

Rs Pinjaman.AddNew

Rs Pinjaman.Update

Exit Sub

5.2.7 Form Pengembalian

Gambar 5.7 Pengembalian

 76

Penjelasan

Nama Program : DtPengembalian.frm

Fungsi : Input Pengembalian

Private Sub cmdtambah_Click()

Txt. KdAnggota.SetFocus

Private Sub Combobox Anggota_Click()

Rs KdAnggota.Insert

Rs KdAnggota.Update

Exit Sub

Private Sub Simpan_Click()

Rs Pinjaman.AddNew

Rs Pinjaman.Update

Exit Sub

5.2.8 Laporan Anggota

Gambar 5.8 Laporan Anggota

 77

Penjelasan

Nama Program : lapAnggota.rpt

Fungsi : Laporan Anggota

Private Sub form_load()

lap.ReportFileName = App.Path & "\Report\anggota.rpt"

lap.DataFiles(0) = App.Path & "\data\db1.mdb"

5.2.9 Laporan Buku

Gambar 5.9 Laporan Buku

Penjelasan

Nama Program : lapBuku.rpt

Fungsi : Laporan Buku

Private Sub form_load()

lap.ReportFileName = App.Path & "\Report\DataBuku.rpt"

lap.DataFiles(0) = App.Path & "\data\db1.mdb"

 78

5.2.10 Laporan Denda

Gambar 5.10 laporan Denda

Penjelasan

Nama Program : lapDenda.rpt

Fungsi : Laporan Denda

Private Sub form_load()

lap.ReportFileName = App.Path & "\Report\denda.rpt"

lap.DataFiles(0) = App.Path & "\data\db1.mdb"

 79

5.2.11 Laporan Peminjaman Buku

Gambar 5.11 Laporan Peminjaman Buku

Penjelasan

Nama Program : lapPinjamanBuku.rpt

Fungsi : Laporan Pinjaman Buku

Private Sub form_load()

lap.ReportFileName = App.Path & "\Report\pinjam.rpt"

lap.DataFiles(0) = App.Path & "\data\db1.mdb"