INFO PROFIL

Foto saya
JENTREK ROJOIMO WONOSOBO, jawa tengah indonesia, Indonesia
Ya Allah jadikan kami manusia yang bisa keluar dari belenggu “kemunafikan”. Bimbing kami untuk tidak mengoreksi orang lain sebelum diri ini terkoreksi ya Rabb. Jadikan kami manusia yang jujur dan tidak pernah membohongi diri sendiri apalagi orang lain. kepadaMulah kami berserah ya Allah, kepadaMulah kami bermohon karena tanpa kehendakMu kami tidak bisa berbuat apa-apa Affannur Jentrek rojoimo wonosobo . lahir13 Agustus 1989

Jumat, 04 Februari 2011


LAPORAN TUGAS AKHIR







  









PROGRAM KEAHLIAN    : REKAYASA PERANGKAT LUNAK

BIDANG KEAHLIAN        : TEKNIK INFORMASI DAN

KOMUNIKASI

UNIT KERJA                      : SMK 1 WONOSOBO










PEMERINTAH DAERAH KABUPATEN WONOSOBO
DINAS PENDIDIKAN
TAHUN 2008
SISTEM PENGOLAHAN DATA
PERPUSTAKAAN SD N 1 KALIBEBER
 













LAPORAN TUGAS AKHIR
DISUSUN SEBAGAI LAPORAN PELAKSANAAN TUGAS AKHIR
DALAM RANGKA UJIAN AKHIR NASIONAL
TAHUN 2007 / 2008




DISUSUN OLEH

NAMA                               Affannur
NIS                                  8008061
PROGRAM KEAHLIAN : REKAYASA PERANGKAT
LUNAK





SEKOLAH MENENGAH KEJURUAN 1 WONOSOBO
Jl. BHAYANGKARA NO. 12 WONOSOBO
TAHUN 2008

PENGESAHAN



Tugas Akhir (TA) ini telah dilakukan pengujian dihadapan Tim Penguji pada :

Hari                   : ..............................
Tanggal             : ..............................
Tim Penguji,

Penguji I,
Penguji II,


Herry Setyaningsih, S.Kom
NIP.500128391
...........................................
NIP.                                                                 







Mengetahui,

Pemberi Order

Ketua Program Keahlian



Khozim
NIP. 130375234

Mochamad Irfan, S.Kom.
NIP. 500107458                                                                   














DAFTAR ISI


SAMPUL DEPAN ..................................................................................... i

LEMBAR PENGESAHAN........................................................................ ii

DAFTAR ISI............................................................................................... iii

KATA PENGANTAR................................................................................ iv

BAB I      PENDAHULUAN..................................................................... 1
1.1.   Latar Belakang................................................................. 1
1.2.   Tujuan............................................................................... 1

BAB II     PROSES PRODUKSI/JASA.................................................... 2
2.1.Waktu dan Tempat Pelaksanaan........................................ 2
2.2.Alat dan Bahan.................................................................. 2
2.3.Gambar Kerja (bila diperlukan).......................................... 3
2.4.Peta Program...................................................................... 4
2.5.Flowchart..........................................................................5
2.6.Proses Pengerjaan............................................................... 7
2.7.Hasil yang Dicapai............................................................. 47
2.8.Perhitungan Laba/Rugi (Biaya).......................................... 47

BAB III   TEMUAN................................................................................... 48
3.1.Keterlaksanaan (Faktor Pendukung dan Penghambat....... 48
3.2.Manfaat yang Dirasakan.................................................... 48
3.3.Pengembangan/Tindak Lanjut........................................... 48

BAB IV    PENUTUP................................................................................. 49
4.1.Kesimpulan........................................................................ 49
4.2.Saran.................................................................................. 49

LAMPIRAN
5.1.Tampilan Form
5.2.Kumpulan Bukti Belajar (Evidence Of Learning)

DAFTAR PUSTAKA
KATA PENGANTAR


Segala puji syukur  kami panjatkan kepada Allah SWT yang telah melimpahkan rahmat dan karunianya sehingga penulis dapat menyelesaikan Tugas Akhir ini. Shalawat serta salam kami haturkan kepada beliau Nabi Muhammad SAW yang telah membawa umatnya dari jaman kegelapan ke jaman yang terang.

Akhirnya penulisanTugas Akhir dengan judl “Sistem Pengolahan Data Perpustakaan SD N 1 Kalibeber I” telah terselesaikan. Program aplikasi ini dirancang menggunakan bahasa pemrograman Delphi 7.

Tugas Akhir ini diberikan kepada siswa kelas 3 diperuntukkan  untuk memenuhi nilai kompetensi pada semester akhir Tahun Ajaran 2007/2008 dan juga sebagai syarat mengikuti Ujian Akhir Sekolah dan Ujian Nasional.

Penulisan Tugas Akhir ini tidak mungkin terselesaikan dengan baik tanpa adanya bantuan, dukungan serta dorongan dari berbagai pihak. Untuk itu penulis ucapkan terimakasih kepada :
1.    Drs. H. Ahmad Jamhari, M. Pd., selaku kepala sekolah,
2.    Mochamad Irfan, S.Kom.  selaku ketua program keahlian.
3.     Bpk. Sumbodo Adhi Skom. selaku pembimbing kami
4.    Ayah dan Ibuku tecinta, yang telah banyak membantu baik dalam materiil, moril maupun spirituil.
5.    Teman-temanku senasib seperjuangan yang telah membantu dan meluangkan waktunya untuk bertukar pilkiran.
6.    Keluarga besarku yang selalu memberiku dorongan dan semangat.
7.    Beberapa pihak yang tidak dapat penulis sebut satu persatu.

Penulis sadari dalam pembuatan Laporan Tugas Akhir ini hasilnya masih jauh dari sempurna, banyak sekali kekurangan dan kesalahan yang perlu untuk dibenahi baik dalam masalah teknis maupun dalam penulisan, oleh karena itu penulis mohon maaf atas segala kekurangan dan kesalahan tersebut. Kritik dan saran dari semua pihak akan Penulis terima dengan senag hati untuk kesempurnaan Tugas Akhir ini. Dan Semoga Tugas Akhir ini dapat memberikan manfaat bagi semua.

Februari 2008




Penyusun
BAB I
PENDAHULUAN

1.1.LATAR BELAKANG

Pada zaman sekarang tekhnologi berkembang semakin pesat dan kita dituntut untuk dapat menguasainya agar kita bisa bersaing diera global. Dalam perkembangannya, tekhnologi informasi berperan sangat penting dalam mencapai sebuah keberhasilan, terutama dalam bidang komputer. Dahulu orang dalam melakukan pekerjaan masih mengandalkan sepenuhnya pada kemampuan manusia, tetapi sekarang penguunaan komputer sangat diperlukan karena dapat mempersingkat waktu dan komputer juga bisa melakukan pekerjaan yang rumit. Kita bisa menjumpai penggunaan komputer pada kantor-kantor atau instansi yang sudah banyak menggunakan komputer dalam pengolahan data.

Untuk mendukung proses pengolahan data yang ada di Perpustakaan SD N 1 Kalibeber salah satu cara yang dilakukan yaitu dengan mengganti sistem pengolahan data yang bersifat manual menjadi sistem pengolahan data yang terkomputerisasi. Dengan komputerisasi data yang bersifat kompleks dapat diolahmenjadi data yangmudah dimengerti.

Dari uraian di atas maka penulis akan membuat sistem pengolahan data yang terkomputerisasi menggunakan Borland Delphi 7.0 yang berjudul “Sistem Pengolahan Data Perpustakaan SD N 1 Kalibeber”.


1.2.TUJUAN

Penelitian yang dilaksanakan ini mempunyai tujuan untuk memenuhi salah satu syarat akademik progran studi  Teknik Informasi dan Komunikasi SMK N 1 Wonosobo, selain itu juga untuk mengetahui sejauh mana ilmu yang didapat dari bangku sekolah dan menerapkan ilmu yang didapat dari bangku sekolah dalam bentuk program aplikasi yang siap pakai.







BAB II
PROSES PRODUKSI/JASA


2.1.WAKTU DAN TEMPAT PELAKSANAAN

Proses pelaksanaan Proyek Tugas Akhir ini dilakukan di Rental Wijaya Kusuma Yang Berada Disapen, selain itu juga dilaksanakan pada jam-jam produktif di Sekolah.
No
Kegiatan
Januari
Februari
1
2
3
4
1
2
3
4
1
Rancangan kerja








2
Proses kerja/jasa








3
Penyusunan laporan








4
Presentasi/Verifikasi










2.2.ALAT DAN BAHAN

Alat-alat yang dibutuhkan dalam pembuatan Pengolahan Data  ini :
No
Nama Alat
Spesifikasi
Satuan
Jumlah
1.
PC
Intel Pentium 4,1,8 GHz,
RAM 256 MB  , HD 80 GB, VGA AGP 4x64MB
Unit
1
2.
CD Software
-      OS
-      Microsoft Office


-      Software 
    Developer

XP. Proffesional
MS. Word
MS. PowerPoint
MS. Access
Borland Delphi 7

Buah
Buah
Buah
Buah
Buah

1
1
1
1
1
3.
Printer
Canon
Buah
1







Bahan-bahan yang dibutuhkan dalam pembuatan Pengolahan Data  ini :
No
Nama Bahan
Spesifikasi
Satuan
Jumlah
1.
Data Buku
Kode Buku, Judul Buku, Pengarang, Penerbit, Tahun Terbit, Tempat Terbit, Jumlah Halaman, Ilustrasi, Klasifikasi, Kategori, ISBN, Tanggal Terima, Asal
Data
Min 10
2.
Data Siswa
NIS, Nama Siswa, Tempat Lahir, Tanggal Lahir, Jenis Kelamin, Alamat,.
Data
Min 10


2.3.GAMBAR KERJA

Dalam pembuatan Tugas Akhir ini penulis menggunakan model kerja seperti gambar di bawah ini, Dan yang memegang kendali pegawai Perpustakaan SD N 1 Kalibeber
Pengunjung
Buku
Admin
PC
Laporan
 




















Gambar 1.1: Gambar kerja



2.4. PETA PROGRAM

Menu Login
Data Anggota
Laporan
Laporan
 




File
Data Buku
                                                                                              
Menu Utama
Exit
Transaksi Peminjaman
Transaksi Pengembalian
Data Anggota
Data Buku
Data Peminjaman
Data
Laporan
Tentang
Program
Tentang Program
Laporan
 




























     Gambar 2.1: Peta Siklus










2.5. FLOWCHAT

Data Pengembalian
Input Data Pengembalian
Proses Data Pengembalian
Pengembalian
Data Anggota
Data Buku
Data Peminjaman
Input Data Anggota
Inpu Data Buku
Input Data Peminajamn
Proses Data Angota
Proses Data Buku
Proses Data Peminjaman
Anggota
Buku
Peminjaman
 

























`
Proses Pembuatan laporan

Pembuatan Laporan
Laporan
 















Gambar 3.1: Flowchart



Keterangan Simbol Flowchart:




Dokumen atau data yang akan diolah






Input menggunakan Keyboard




 

                             Proses atau Pengolahan







                             Tempat penyimpanan data






                                         Laporan




 

                             Arah Sistem









2.6.PROSES PENGERJAAN
1.  Intallasi
a. Installasi Borland Delphi 07

  • Pilih Delphi 7 pada awal tampilan

  • Tunggu persiapan penginstallan

·         Pilih next untul melanjutkan proses pengintalan



  • Isikan serial numbernya dengan mencari pada keygen, pilih Next

  • Pada kotak dialog License Agrement pilif “I Accep the terms in the license agrement”. Pilih Next untuk melanjutkan

  • Pilih Next

  • Pada kotak Setup Type pilih Tyyical karena kita akan mengintal semua yang ada di dalam pemrograman Delphi 7

  • Pilih Yes untuk melanjutkan

  • Pada Kotak Choose Visibroker/COBRA Support di bagian chek listnya jika kita akan menggunakan visiBroker maka kita centang chek listnya, tapi jika kita tidak menginginkannya kita kosongi chek lisnya. Pilih Next Untuk melanjutkan
  • Pada kotak Microsoft Office Control pilihlah Microsoft office yang sedang digunakan untuk menginstal. Pilih Next Untuk Melanjutkan

  • Pilih Next Untuk Melanjutkan

  • Pilih Next untuk melanjutkan

  • Pilih Next untuk melanjutkan
 











                                                                                                    

  • Pilih Next untuk melanjutkan














·       Pilih Instal untuk melakukan proses penginstalan

  • Tunggu proses penginstalan

  • Tunggu proses hingga selesai

  • Pilih I accept all of the terms of the proceding license agreement
  • Status Removing backup files

  • Pilih Finish untuk melnjutkan pengintalan Microsoft data Acces Component

  • Pilih Finish untuk melanjutkan pengintalan VisiBroker


  • Proses Penginstalan VisiBroker


  • Pilih Finish dan proses penginstalan selesai.

  • Proses penginstalan Delphi 7  telah selesa.
 








(Delphi siap untuk digunakan)






1.1. Pembuatan Tabel
a.      Rancangan Tabel Anggota
Field Name
Type
Size
Keterangan
No Anggota
Text
8
No Anggota perpustakaan
Nama Anggota
Text
75
Nama Anggota Perpustakaan
Tempat Lahir
Text
20
Tempat Lahir Anggota Perpustakaan
Tanggal Lahir
Date/Time
-
Tanggal Lahir Anggota Perpustakaan
Jenis Kelamin
Text
10
Jenis Kelamin Anggota Perpustakaan
Alamat
Text
100
Alamat anggota Perpustakaan

b.     Tabel Anggota

c.      Rancangan Tabel Buku
Field Name
Type
Size
Keterangan
Kode Buku
Text
8
Kodu Buku
Judul Buku
Text
100
Judul Buku
Pengarang
Text
75
Pengarang Buku
Penerjemah
Text
75
Penerjemah Buku
Penerbit
Text
50
Penerbit Buku
Tempat Terbit
Text
20
Empat Terbit Buku
Tahun Terbit
Text
6
Tahun Terbit Buku
Kolasi
Text
30
Jumlah Halaman Buku
Ilustrasi
Text
10
Ukuran Buku
ISBN
Text
10
ISBN Buku
Kategori
Text
20
Kategori Buku
No Inventaris
Text
10
No Inventaris Buku
Tanggal Terima
Date/Time
-
Tanggal Terima Buku
Asal
Text
20
Asal Buku
d.     Tabel Buku

e.      Rancangan Tabel Transaksi
Field Name
Type
Size
Keterangan
Kode Buku
Text
8
Kodu Buku
Judul Buku
Text
100
Judul Buku
Pengarang
Text
75
Pengarang Buku
Penerbit
Text
50
Penerbit Buku
ISBN
Text
10
ISBN Buku
Kategori
Text
20
Kategori Buku
No Inventaris
Text
10
No Inventaris Buku
Tanggal Pinjam
Date/Time
-
Tanggal peminjaman buku
Tanggal Kembali
Date/Time
-
Tanggal Pengembalian buku
No Anggota
Text
8
No Anggota yang melakukan peminjaman
Nama Anggota
Text
75
Nama Anggota Yang melakukan peminjaman

f.       Tabel Transaksi
g.      Rancangan Tabel Login
Field Name
Type
Size
Keterangan
User
Text
6
Pengguna Program Aplikasi
Password
Text
6
Keamanan Program Aplikasi

h.     Tabel Login

1.2.Relasi
      







1.3.Pembuatan Form Pada Delphi 7

a.      Rancangan Form Login

Nilai property pada Form Login
Komponen
Properti
Nilai Properti
Tform
Caption
Login

Name
FLogin
Image
Picture
Image8

Align
AllClient

Name
Image1
ADOConection
Name
AdoCnDAta

Login Promt
False

Connected String
Lihat Keterangan

Connected
True
TADOQuery
Name
AdoQrLogin

Conected
AdoCnData

Active
True

SQL
Select * From Login
Panel
Name
BtnOK

Caption
&Ok
Panel
Name
BtnCancel

Caption
&Cancel
Label
Name
Label1

Caption
User
Label
Name
Label2

Caption
Password
Edit
Name
EdUser

Text
Kosong
Edit
Name
EdPassword

Text
Kosong

Keterangan:
Conection String pada MS Acces :
1.    Build
2.    Microsoft Jet 4.0 OLE DB Provider
3.    Next
4.    Pilih file pada MS.Acces pada “Select or enter a database name”
5.    Test Conection
6.    OK

  • Cooding Pada Form Login
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
  if (EdUser.Text=AdoQrLogin['User']) and
  (EdPassword.Text=AdoQrLogin['Password']) then
  FUtama.show
  else
  Showmessage('Login gagal!!!');
  EdUser.Text:='';
  EdPassword.Text:='';
  EdUser.SetFocus;
  FLogin.Hide;
end;

procedure TFLogin.BtnCancelClick(Sender: TObject);
begin
  FLogin.Close;
end;
end.

b.     Rancangan Form Utama


Nilai property pada Form Utama
Komponen
Properti
Nilai Properti
TForm
Caption
Perpustakaan SD N 1 Kalibeber

Name
FUtama
Image
Picture
tutwuri

Align
AllNone

Name
Image1
Label
Caption
Perpustakaan SD N 1 Kalibeber

Name
Label1

Font
MS Serif

Size
14

Color
Navy
Label
Caption
Jln. pRamuka No.05

Name
Label2

Font
MS Serif

Size
14

Color
Navy
Label
Caption
Copyright By Ie-phiet

Name
Label3

Font
MonotypeCorsiva

Size
12

Color
Navy
Edit
Name
Ed1

Text
Kosong
Edit
Name
Ed2

Text
Kosong
Panel
Caption
Kosong

Name
Panel1
MainMenu
Name
Menu

Items
File


Transaksi


Laporan


Tentang Program
DateTimePicer
Name
DtpTgl

Format
Dd/MMMM/yyyy

  • Cooding Pada Form Utama
procedure TFUtama.DataAnggota1Click(Sender: TObject);
begin
  FAnggota.show;
end;
procedure TFUtama.DataBuku1Click(Sender: TObject);
begin
  FBuku.show;
end;

procedure TFUtama.Exit1Click(Sender: TObject);
begin
  Aplication.terminate;
end;
end.

procedure TFUtama.ransaksiPeminjaman1Click(Sender: TObject);
begin
  FPeminjaman.show;
end;

procedure TFUtama.ransaksiPengembalian1Click(Sender: TObject);
begin
  FKembali.show;
end;
end.

procedure TFUtama.DataAnggota2Click(Sender: TObject);
begin
  FLprn_Anggota.Qr_Anggota.preview;
end;

procedure TFUtama.DataBuku2Click(Sender: TObject);
begin
  FLprn_Buku.Qr_Buku.Preview;
end;

procedure TFUtama.Peminajaman1Click(Sender: TObject);
begin
  FLprn_peminjaman.Qr_peminjaman.Preview;
end;

procedure TFUtama.entangProgram1Click(Sender: TObject);
begin
  FProgram.show;
end;
end.














c.      Rancangan Form Anggota
Form Anggota terdiri dari dua bagian yaitu bagian pengisian/input data dan bagian penelusuran data.

c.1 Bagian Input Data Anggota

c.2 Bagian Penelusuran Data Anggota

Nilai property pada Form Anggota
Komponen
Properti
Nilai Properti
TForm
Caption
Data Anggota

Name
FAnggota
PageControl
Name
Menu

Align
AllClient
PageControl
Name
Input

Caption
Input Data Anggota
Page Control
Name
Cari

Caption
Penelusuran Data Anggota
Label
Name
Label1

Caption
No Angota
Label
Name
Label2

Caption
Nama Angota
Label
Name
Label3

Caption
Tempat Lahir
Label
Name
Label4

Caption
Tanggal Lahir
Label
Name
Label5

Caption
Jenis Kelamin
Label
Name
Label6

Caption
Alamat
Edit
Name
EdNo

Text
Kosong
Edit
Name
EdNama

Text
Kosong
Edit
Name
EdTmpt

Text
Kosong
Edit
Name
EdAlmt

Text
Kosong
DateTimePicker
Name
DtpTgl

Format
dd/MMMM/yyyy
RadioButton
Name
RbLk

Caption
Laki-Laki
RadioButton
Name
RbPr

Caption
Perempuan
Button
Name
BtnTambah

Caption
&Tambah
Button
Name
BtnSimpan

Caption
&Simpan
Button
Name
BtnEdit

Caption
&Edit
Button
Name
BtnUpdate

Caption
&Update
Button
Name
BtnReset

Caption
&Reset
Button
Name
BtnCetak

Caption
&Cetak
Button
Name
BtnHapus

Caption
&Hapus
Button
Name
BtnKeluar

Caption
&Keluar
ADOConection
Name
AdoCnData

LoginPromt
False

ConectionString
Lihat Keterangan

Connected
True
ADOCommand
Name
AdoCmData

Conection
AdoCnData
ADOQuery
Name
AdoQrAnggota

Conection
AdoCnData

SQL
Select * From Anggota

Active
True
ADODataSet
Name
AdoDsCari

Conection
AdoCnData
DataSource
Name
DsAnggota

DataSet
AqoQrAnggota

AutoEdit
False
DBGrid
Name
DgAnggota

DataSource
DsAnggota

  • Cooding Pada Form Anggota
procedure TFormAnggota.BtnTambahClick(Sender: TObject);
begin
   EdNo.Enabled:=True;
  EdNama.Enabled:=True;
  EdTmpt.Enabled:=True;
  EdAlmt.Enabled:=True;
  RbLk.Checked:=False;
  RbPr.Checked:=False;
  DgAnggota.Enabled:=True;
  Self.Caption:='Data Anggota';
end;

procedure TFormAnggota.BtnSimpanClick(Sender: TObject);
var jk:String;
begin 
  //Validasi data sama
  AdoDsCari.Close;
  AdoDsCari.CommandText:=
  'Select * From Anggota Where NoAnggota='+QuotedStr(EdNo.Text);
  AdoDsCari.Open;
  if AdoDsCari.RecordCount>0 then
  begin
    Application.MessageBox('data sudah     ada','Simpan',MB_OK+mB_ICONINFORMATION);
    EdNo.SetFocus;
    exit;
  end;
  //Insert (input) data
  AdoCmData.CommandText:=
  'Insert Into Anggota   (NoAnggota,NamaAnggota,TempatLahir,TanggalLahir,'+
  'JenisKelamin,Alamat) Values('+QuotedStr(EdNo.Text)+','+
  QuotedStr(EdNama.Text)+','+QuotedStr(EdTmpt.Text)+','+
  QuotedStr(FormatDateTime('dd/MM/yyyy',DtpTgl.Date))+','+
  QuotedStr(jk)+','+
  QuotedStr(EdAlmt.Text)+')';
  AdoCmData.Execute;
   //memanggil data ulang
  AdoQrAnggota.Close;
  AdoQrAnggota.open;
  //Mengosonglkan teks
  BtnResetClick(Sender);
end;

procedure TFormAnggota.BtnEditClick(Sender: TObject);
begin
  Menu.ActivePage:=Cari;
end;
procedure TFormAnggota.BtnUpdateClick(Sender: TObject);
var jk:String;
begin 
  //Mengubah (update) data
  AdoCmData.CommandText:=
  'Update Anggota Set NoAnggota='+QuotedStr(EdNo.Text)+
  ',NamaAnggota='+QuotedStr(EdNama.Text)+
  ',TempatLahir='+QuotedStr(EdTmpt.Text)+
',TanggalLahir='+QuotedStr(FormatDateTime('dd/MM/yyyy',DtpTgl.Dat))+
  ',JenisKelamin='+QuotedStr(jk)+
  ',Alamat='+QuotedStr(EdAlmt.Text)+
  'where NoAnggota='+QuotedStr(Self.Caption);
  AdoCmData.Execute;
  //Memanggil data ulang
  AdoQrAnggota.Close;
  AdoQrAnggota.Open
  //Mengosongkan Text
  BtnResetClick(Sender);
end;

procedure TFormAnggota.BtnHapusClick(Sender: TObject);
begin
  If AdoQrAnggota.RecordCount>0 then
  begin
    if Application.MessageBox('Benar Data akan dihapus?','Hapus',
    MB_YESNO+MB_ICONQUESTION)=MRYES THEN
    begin
      AdoCmData.CommandText:=
      'Delete From Anggota Where NoAnggota='+QuotedStr(AdoQrAnggota['NoAnggota']);
      AdoCmData.Execute;
      AdoQrAnggota.close;
      AdoQrAnggota.Open;
    end;
  end
  else
  Application.MessageBox('Data kosong','Hapus',MB_OK+MB_ICONINFORMATION);
end;
d.     Rancangan Form Buku
Form Anggota terdiri dari dua bagian yaitu bagian pengisian/input data dan bagian penelusuran data.

d.1 Bagian Input Data Buku

d.2 Bagian Penelusuran Data Buku

Keterangan :
Form Buku tidak dijelaskan secara menyeluruh sebab prosedurnya sama seperti Form Anggota.

  • Cooding Pada Form Buku
procedure TFormBuku.BtnTampilClick(Sender: TObject);
begin
  Menu.ActivePage:=Input;
  if AdoQrBuku.RecordCount>0 then
  begin
    //MENAMPILKAN DATA
    EdKode.Text:=AdoQrBuku['KodeBuku'];
    EdJudul.Text:=AdoQrBuku['JudulBuku'];
    EdPengarang.Text:=AdoQrBuku['Pengarang'];
    EdPenerjemah.Text:=AdoQrBuku['Penerjemah'];
    EdPenerbit.Text:=AdoQrBuku['Penerbit'];
    EdTmpt.Text:=AdoQrBuku['TempatTerbit'];
    EdThn.Text:=AdoQrBuku['TahunTerbit'];
    EdKolasi.Text:=AdoQrBuku['Kolasi'];
    EdIlus.Text:=AdoQrBuku['Ilustrasi'];
    EdIsbn.Text:=AdoQrBuku['ISBN'];
    EdKategori.Text:=AdoQrBuku['Kategori'];
    EdNo.Text:=AdoQrBuku['NoInventaris'];
    DtpTgl.Date:=AdoQrBuku['TanggalTerima'];
    EdAsal.Text:=AdoQrBuku['Asal'];
 end;
 end;
procedure TFBuku.Ed1Change(Sender: TObject);
begin
  if Cmb1.Text='Kode Buku' then
  begin
    if not AdoQrBuku.Locate('KodeBuku',Ed1.Text,[loPartialKey]) then
    Application.MessageBox('Data tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
  end
  else
  if Cmb1.Text='Judul Buku' then
  begin
  if not AdoQrBuku.Locate('JudulBuku',Ed1.Text,[loPartialKey]) then
  Application.MessageBox('Data tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
  end
  else
  if Cmb1.Text='Pengarang' then
  begin
  if not AdoQrBuku.Locate('Pengarang',Ed1.Text,[loPartialKey]) then
  Application.MessageBox('Data tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
  end
  else
  if Cmb1.Text='Penerbit' then
  begin
  if not AdoQrBuku.Locate('Penerbit',Ed1.Text,[loPartialKey]) then
  Application.MessageBox('Data tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
  end
  else
  if Cmb1.Text='Tempat Terbit' then
  begin
  if not AdoQrBuku.Locate('TempatTerbit',Ed1.Text,[loPartialKey]) then
  Application.MessageBox('Data tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
  end;
end.
e.      Rancangan Form Peminjaman

Nilai property pada Form Transaksi Peminjaman
Komponen
Properti
Nilai Properti
TForm
Caption
Transaksi Peminjaman

Name
FPeminjaman
Label
Name
Label1

Caption
Transaksi Peminjaman
Label
Name
Label2

Caption
No Anggota
Label
Name
Label3

Caption
Nama Anggota
Label
Name
Label4

Caption
Kode Buku
DateTimePicker
Name
DtpTgl

Format
dd/MMMM/yyyy
DateTimePicker
Name
DtpTgl2

Format
dd/MMMM/yyyy
Button
Name
BtnPinjam

Caption
&Pinjam
Button
Name
BtnReset

Caption
&Reset
Button
Name
BtnCetak

Caption
&Cetak
Button
Name
BtnKeluar

Caption
&Keluar
ADOConection
Name
AdoCnData

LoginPromt
False

ConectionString
Lihat Keterangan

Connected
True
ADOCommand
Name
AdoCmData

Conection
AdoCnData
ADOQuery
Name
AdoQrAnggota

Conection
AdoCnData

SQL
Select * From Anggota

Active
True
ADOQuery
Name
AdoQrBuku

Conection
AdoCnData

SQL
Select * From Buku

Active
True
ADOQuery
Name
AdoQrTransaksi

Conection
AdoCnData

SQL
Select * From Transaksi

Active
True
ADODataSet
Name
AdoDsCari

Conection
AdoCnData
DataSource
Name
DsAnggota

DataSet
AqoQrAnggota

AutoEdit
False
DBGrid
Name
DgAnggota

DataSource
DsAnggota




  • Cooding Pada Form Peminjaman
//pencarian data buku
  if AdoQrBuku.Locate('KodeBuku',EdKode.Text,[loCaseInsensitive]) then
  begin
    AdoCmData.CommandText:=
    'Insert Into Transaksi (KodeBuku,JudulBuku,Pengarang,Penerbit,'+
    'ISBN,Kategori,NoInventaris,TanggalPinjam,TanggalKembali,'+
    'NoAnggota,NamaAnggota) values('+QuotedStr(AdoQrBuku['KodeBuku'])+','+
    QuotedStr(AdoQrBuku['JudulBuku'])+','+
    QuotedStr(AdoQrBuku['Pengarang'])+','+
    QuotedStr(AdoQrBuku['Penerbit'])+','+
    QuotedStr(AdoQrBuku['ISBN'])+','+
    QuotedStr(AdoQrBuku['Kategori'])+','+
    QuotedStr(AdoQrBuku['NoInventaris'])+','+
    QuotedStr(FormatDateTime('dd/MM/yyyy',DtpTgl.Date))+','+
    QuotedStr(FormatDateTime('dd/MM/yyyy',DtpTgl2.Date))+','+
    QuotedStr(EdNo.Text)+','+
    QuotedStr(EdNama.Text)+')';
    AdoCmdata.execute;
    ShowMessage('Data Telah Tersimpan');
  end;
  //mengosongkan text
  EdKode.Text:='';
end;

procedure TFPeminjaman.BtnCetakClick(Sender: TObject);
begin
  AdoQrTransaksi.Close;
  AdoQrTransaksi.Open;
  FLprn_PerPinjam.AdoTabel.Close;
  FLprn_PerPinjam.AdoTabel.Open;
  FLprn_PerPinjam.AdoTabel.Filtered:=True;
  FLprn_PerPinjam.AdoTabel.Filter:='NoAnggota='+QuotedStr(EdNo.Text);
  FLprn_PerPinjam.Qr_Pinjam.preview;
end;
procedure TFPeminjaman.EdNoKeyPress(Sender: TObject; var Key: Char);
begin
  if key=chr(13) then
  begin
   AdoQrAnggota.Close;
   AdoQrAnggota.Open;
   AdoQrAnggota.Filter:='NoAnggota='+QuotedStr(EdNo.Text);
   AdoQrAnggota.Filtered:=true;
   AdoDsTransaksi.Close;
   AdoDsTransaksi.CommandText:=
    'select * from Transaksi where NoAnggota='+QuotedStr(EdNo.Text);
  AdoDsTransaksi.Close;
  AdoDsTransaksi.Open;
  if AdoDsTransaksi.RecordCount>0 then
  begin
    Application.MessageBox('No Anggota sedang meminjam','pinjam',MB_OK+MB_ICONINFORMATION);
    exit;
  end
  else
  begin
    if AdoQrAnggota.Locate('NoAnggota',EdNo.Text,[Lopartialkey]) then
    EdNama.Text:=AdoQrAnggota['NamaAnggota']
    else
    begin
    Application.MessageBox('No Anggota tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
    Exit;
    end;
    EdNama.Enabled:=false;
    EdKode.setfocus;
  end;
  exit;
  end;
end;





f.       Rancangan Form Pengembalian
Nilai property pada Form Transaksi Pengembalian
Komponen
Properti
Nilai Properti
TForm
Caption
Transaksi Pengembalian

Name
FPengembalian
Label
Name
Label1

Caption
Transaksi Pengembalian
Label
Name
Label2

Caption
No Anggota
Label
Name
Label3

Caption
Nama Anggota
Label
Name
Label4

Caption
Lama Terlambat
Label
Name
Label5

Caption
Jumlah buku
Label
Name
Label6

Caption
Denda perbuku
Label
Name
Label7

Caption
Jumlah denda
Label
Name
Label1

Caption
Transaksi Pengembalian
Button
Name
BtnKembali

Caption
&Kembali
Button
Name
BtnReset

Caption
&Reset
Button
Name
BtnData

Caption
Data Pinjam
GroupBox
Name
Gb1

Caption
Informasi Keterlambatan
ADOConection
Name
AdoCnData

LoginPromt
False

ConectionString
Lihat Keterangan

Connected
True
ADOCommand
Name
AdoCmData

Conection
AdoCnData
ADOQuery
Name
AdoQrAnggota

Conection
AdoCnData

SQL
Select * From Anggota

Active
True
ADOQuery
Name
AdoQrTransaksi

Conection
AdoCnData

SQL
Select * From Transaksi

Active
True
ADODataSet
Name
AdoDsCari

Conection
AdoCnData
DataSource
Name
DsAnggota

DataSet
AqoQrAnggota

AutoEdit
False
DBGrid
Name
DgAnggota

DataSource
DsAnggota

  • Cooding Pada Form Pengembalian
procedure TFormKembali.EdNoKeyPress(Sender: TObject; var Key: Char);
begin
 if not(key=char(13)) then exit;
 begin
  if not AdoQrTransaksi.Locate('NoAnggota',EdNo.Text,[locaseinsensitive])then
  begin
    application.MessageBox('Anggota tidak meminjam','Cari',MB_OK+MB_ICONINFORMATION);
    EdNo.SetFocus;
    exit;
  end
  else
  begin
    EdNama.Text:=AdoQrTransaksi['NamaAnggota'];
    AdoQrTransaksi.Filtered:=true;
    AdoQrTransaksi.Filter:='NoAnggota='+QuotedStr(EdNo.Text);
    AdoQrTransaksi.Close;
    AdoQrTransaksi.Open;
  end;
  EdJmlBk.SetFocus;
end;
end;
procedure TFormKembali.BtnKembaliClick(Sender: TObject);
begin
  if AdoQrTransaksi.RecordCount>0 then
  begin
    if Application.MessageBox('Benar buku akan dikembalikan?','Kembali',
    MB_YESNO+MB_ICONQUESTION)=MRYES then
    begin
      AdoCmData.CommandText:=
      'Delete From Transaksi Where KodeBuku='+QuotedStr(AdoQrTransaksi['KodeBuku']);
      AdoCmData.Execute;
      AdoQrTransaksi.close;
      AdoQrTransaksi.Open;
    end;
  end
  else
  Application.MessageBox('No Anggota tidak meminjam','Kembali',
  MB_OK+MB_ICONINFORMATION);
end;
procedure TFormKembali.DgBukuDblClick(Sender: TObject);
var
tgl:real;
begin
tgl:=(Date()-AdoQrTransaksi['TanggalKembali']);
if tgl<0 then
EdLama.text:=''
else
EdLama.Text:=FloatToStr(tgl);
end;
procedure TFormKembali.DgBukuDblClick(Sender: TObject);
var
tgl:real;
begin
tgl:=(Date()-AdoQrTransaksi['TanggalKembali']);
if tgl<0 then
EdLama.text:=''
else
EdLama.Text:=FloatToStr(tgl);
end;
procedure TFormKembali.EdJmlBkKeyPress(Sender: TObject; var Key: Char);
begin
   if key=chr(13) then
   begin
      lama:=StrToInt(EdLama.Text);
      jml:=StrToInt(EdJmlBk.Text);
      dnd:=StrToInt(EdDenda.Text);
      total:=0;
      begin
         total:=lama*(jml*dnd);
         begin
             EdJml.Text:=IntToStr(total);
         end;
      end;
  end;
end.
g.      Rancangan Form Tentang Program

Nilai property pada Form Transaksi Pengembalian
Komponen
Properti
Nilai Properti
TForm
Caption
Tentang Program

Name
FProgram
Label
Name
Label1

Caption
Coding by ie-phiets
Button
Name
BtnOk

Caption
&Ok
Memo
Name
Memo1

List
Program ini penulis, dst.

  • Cooding Pada Form Tentang Program
procedure TFormProgram.Button1Click(Sender: TObject);
begin
FProgram.close;
end;
end.














h.     Rancangan Form Cetak Anggota

  • Cooding Pada Form Cetak Anggota
procedure TFCetakAnggota.EdCariKeyPress(Sender: TObject; var Key: Char);
begin
  if not(key=char(13)) then exit;
  begin
  if Cmb1.Text='No Anggota' then
   begin
    if not AdoQrAnggota.Locate('NoAnggota',EdCari.Text,[locaseinsensitive])then
    begin
     application.MessageBox('Anggota tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
     EdCari.SetFocus;
     exit;
    end
    else
    begin
      EdCari.Text:=AdoQrAnggota['NoAnggota'];
      AdoQrAnggota.Filtered:=true;
      AdoQrAnggota.Filter:='NoAnggota='+QuotedStr(EdCari.Text);
      AdoQrAnggota.Close;
      AdoQrAnggota.Open;
   end;

  end
  else
  if Cmb1.Text='Nama Anggota' then
   begin
    if not AdoQrAnggota.Locate('NamaAnggota',EdCari.Text,[locaseinsensitive])then
    begin
     application.MessageBox('Anggota tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
     EdCari.SetFocus;
     exit;
    end
    else
    begin
      EdCari.Text:=AdoQrAnggota['NamaAnggota'];
      AdoQrAnggota.Filtered:=true;
      AdoQrAnggota.Filter:='NamaAnggota='+QuotedStr(EdCari.Text);
      AdoQrAnggota.Close;
      AdoQrAnggota.Open;
   end;
end;
end;
end;

procedure TFCetakAnggota.BitBtn2Click(Sender: TObject);
begin
  if Cmb1.Text='No Anggota' then
  begin
  FLprn_PerAnggota.AdoTabel.Close;
  FLprn_PerAnggota.AdoTabel.Open;
  FLprn_PerAnggota.AdoTabel.Filtered:=True;
  FLprn_PerAnggota.AdoTabel.Filter:='NoAnggota='+QuotedStr(EdCari.Text);
  FLprn_PerAnggota.Qr_PerAnggota.Preview;
  end
  else
  if Cmb1.Text='Nama Anggota' then
  begin
  FLprn_PerAnggota.AdoTabel.Close;
  FLprn_PerAnggota.AdoTabel.Open;
  FLprn_PerAnggota.AdoTabel.Filtered:=True;
  FLprn_PerAnggota.AdoTabel.Filter:='NamaAnggota='+QuotedStr(EdCari.Text);
  FLprn_PerAnggota.Qr_PerAnggota.Preview;
  end;
end;

i.        Rancangan Form Cetak Buku
  • Cooding Pada Form Cetak Buku
procedure TFCetakBuku.Ed1KeyPress(Sender: TObject; var Key: Char);
begin
   if not(key=char(13)) then exit;
   begin
     if Cmb1.Text='Kode Buku' then
     begin
      if not AdoQrAnggota.Locate('KodeBuku',Ed1.Text,[locaseinsensitive])then
      begin
       application.MessageBox('Kode Buku tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
       Ed1.SetFocus;
       exit;
      end
    else
    begin
      Ed1.Text:=AdoQrAnggota['KodeBuku'];
      AdoQrAnggota.Filtered:=true;
      AdoQrAnggota.Filter:='KodeBuku='+QuotedStr(Ed1.Text);
      AdoQrAnggota.Close;
      AdoQrAnggota.Open;
   end;
 end
 else
 if Cmb1.Text='Judul Buku' then
     begin
      if not AdoQrAnggota.Locate('JudulBuku',Ed1.Text,[locaseinsensitive])then
      begin
       application.MessageBox('Buku tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
       Ed1.SetFocus;
       exit;
      end
    else
    begin
      Ed1.Text:=AdoQrAnggota['JudulBuku'];
      AdoQrAnggota.Filtered:=true;
      AdoQrAnggota.Filter:='JudulBuku='+QuotedStr(Ed1.Text);
      AdoQrAnggota.Close;
      AdoQrAnggota.Open;
   end;
 end
 else
 if Cmb1.Text='Pengarang' then
     begin
      if not AdoQrAnggota.Locate('Pengarang',Ed1.Text,[locaseinsensitive])then
      begin
       application.MessageBox('Buku tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
       Ed1.SetFocus;
       exit;
      end
    else
    begin
      Ed1.Text:=AdoQrAnggota['Pengarang'];
      AdoQrAnggota.Filtered:=true;
      AdoQrAnggota.Filter:='Pengarang='+QuotedStr(Ed1.Text);
      AdoQrAnggota.Close;
      AdoQrAnggota.Open;
   end;
 end
 else
 if Cmb1.Text='Penerbit' then
     begin
      if not AdoQrAnggota.Locate('Penerbit',Ed1.Text,[locaseinsensitive])then
      begin
       application.MessageBox('Buku tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
       Ed1.SetFocus;
       exit;
      end
    else
    begin
      Ed1.Text:=AdoQrAnggota['Penerbit'];
      AdoQrAnggota.Filtered:=true;
      AdoQrAnggota.Filter:='KPenerbit='+QuotedStr(Ed1.Text);
      AdoQrAnggota.Close;
      AdoQrAnggota.Open;
   end;
 end
 else
 if Cmb1.Text='Tempat Terbit' then
     begin
      if not AdoQrAnggota.Locate('TempatTerbit',Ed1.Text,[locaseinsensitive])then
      begin
       application.MessageBox('Buku tidak ada','Cari',MB_OK+MB_ICONINFORMATION);
       Ed1.SetFocus;
       exit;
      end
    else
    begin
      Ed1.Text:=AdoQrAnggota['TempatTerbit'];
      AdoQrAnggota.Filtered:=true;
      AdoQrAnggota.Filter:='TempatTerbit='+QuotedStr(Ed1.Text);
      AdoQrAnggota.Close;
      AdoQrAnggota.Open;
   end;
 end;
end;
end;

procedure TFCetakBuku.Button2Click(Sender: TObject);
begin
  AdoQrAnggota.Filtered:=False;
  Ed1.Text:='';
  Cmb1.Text:='';
  Ed1.SetFocus;
end;

j.       Rancangan Form Cetak Kartu Anggota

  • Cooding Pada Form Cetak Kartu Anggota
procedure TFCetak_Kartu.BitBtn2Click(Sender: TObject);
begin
  if Cmb1.Text='No Anggota' then
  begin
  Lprn_Kartu.AdoQrKrt.Close;
  Lprn_Kartu.AdoQrKrt.Open;
  Lprn_Kartu.AdoQrKrt.Filtered:=True;
  Lprn_Kartu.AdoQrKrt.Filter:='NoAnggota='+QuotedStr(EdCari.Text);
  Lprn_Kartu.Qr_Kartu.preview;
  end
  else
  if Cmb1.Text='Nama Anggota' then
  begin
  Lprn_Kartu.AdoQrKrt.Close;
  Lprn_Kartu.AdoQrKrt.Open;
  Lprn_Kartu.AdoQrKrt.Filtered:=True;
  Lprn_Kartu.AdoQrKrt.Filter:='NamaAnggota='+QuotedStr(EdCari.Text);
  Lprn_Kartu.Qr_Kartu.preview;
  end;
end;

procedure TFCetak_Kartu.BitBtn3Click(Sender: TObject);
begin
  FCetak_Kartu.Close;
end;

procedure TFCetak_Kartu.FormShow(Sender: TObject);
begin
  AdoQrAnggota.Close;
  AdoQrAnggota.open;
end;

end.
k.     Rancangan Form Penenlusuran Peminjaman

  • Cooding Pada Form Cetak Kartu Anggota
procedure TFPenelusuran.Ed1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key=char(13)) then exit;
  begin
   if Cmb1.Text='No Anggota' then
   begin
    if not AdoQrTransaksi.Locate('NoAnggota',Ed1.Text,[locaseinsensitive])then
    begin
     application.MessageBox('Anggota tidak meminjam','Cari',MB_OK+MB_ICONINFORMATION);
     Ed1.SetFocus;
     exit;
    end
    else
    begin
      Ed1.Text:=AdoQrTransaksi['NoAnggota'];
      AdoQrTransaksi.Filtered:=true;
      AdoQrTransaksi.Filter:='NoAnggota='+QuotedStr(Ed1.Text);
      AdoQrTransaksi.Close;
      AdoQrTransaksi.Open;
   end;
 end
 else
 if Cmb1.Text='Nama Anggota' then
   begin
    if not AdoQrTransaksi.Locate('NamaAnggota',Ed1.Text,[locaseinsensitive])then
    begin
     application.MessageBox('Anggota tidak meminjam','Cari',MB_OK+MB_ICONINFORMATION);
     Ed1.SetFocus;
     exit;
    end
    else
    begin
      Ed1.Text:=AdoQrTransaksi['NamaAnggota'];
      AdoQrTransaksi.Filtered:=true;
      AdoQrTransaksi.Filter:='NamaAnggota='+QuotedStr(Ed1.Text);
      AdoQrTransaksi.Close;
      AdoQrTransaksi.Open;
   end;
 end;
end;

end;
procedure TFPenelusuran.Button2Click(Sender: TObject);
begin
  AdoQrTransaksi.Close;
  AdoQrTransaksi.Open;
  AdoQrTransaksi.Filtered:=False;
  Ed1.Text:='';
  Cmb1.Text:='';
  Ed1.SetFocus;
end;
end.

l.        Rancangan Laporan Data Anggota
       
        Nilai property pada Form Laporan Data Angggota
Komponen
Properti
Nilai Properti
TForm
Caption
Laporan data anggota

Name
FLprn_Anggota
QuickReport
Name
Qr_Anggota

DataSet
AdoTabel
QrLabel
Name
QrLabel1

Caption
Perpustakaan SD N 1 Kalibeber
QrLabel
Name
QrLabel2

Caption
Jl.Pramuka No.05
QrLabel
Name
QrLabel3

Caption
Laporan Data Anggota
QrLabel
Name
QrLabel4

Caption
No Anggota
QrLabel
Name
QrLabel5

Caption
Nama Anggota
QrLabel
Name
QrLabel6

Caption
Tempat Lahir
QrLabel
Name
QrLabel7

Caption
Tanggal Lahir
QrLabel
Name
QrLabel7

Caption
Jenis Kelamin
QrLabel
Name
QrLabel8

Caption
Alamat
QrLabel
Name
QrLabel9

Caption
Halaman
QrDBText
Name
QrDBText1

DataSet
AdoTabel

DataField
NoAnggota
QrDBText
Name
QrDBText6

DataSet
AdoTabel

DataField
Alamat
QrDBText
Name
QrDBText2

DataSet
AdoTabel

DataField
NamaAnggota
QrDBText
Name
QrDBText3

DataSet
AdoTabel

DataField
TempatLahir
QrDBText
Name
QrDBText4

DataSet
AdoTabel

DataField
TanggalLahir
QrDBText
Name
QrDBText5

DataSet
AdoTabel

DataField
JenisKelamin
ADOConection
Name
AdoCnData

LoginPromt
False

ConectionString
Lihat Keterangan

Connected
True
ADOTable
Name
AdoTabel

Conection
AdoCnData

TableName
Anggota

Active
True
QrSysData
Name
QrSysData1

Data
QsPageNumber
QrSysData
Name
QrSysData2

Data
QsDateTime

Keterangan :
Rancangan form laporan yang dijelaskan secara mendetail hanya rancangan form laporan data anggota sebab secara umum prosedur rancangan form laporan komponen – komponen yang digunakan sama.

m.   Rancangan Laporan Data per Anggota




n.     Rancangan Laporan Data  Buku

o.      Rancangan Laporan Data per Buku

p.     Rancangan Laporan Data Peminjaman

q.     Rancangan Laporan Data Peminjaman per Anggota
r.      Rancangan kartu Anggota





















2.7.HASIL YANG DICAPAI

Dengan adanya Tugas Akhir ini maka penulis dapat membandingakan antara pendidikan yang diperoleh dengan praktek pembuatan sebuah program yang sesungguhnya. Penulis juga memperoleh pengetahuan baru yang tidak diterima selama proses belajar.Selain itu penulis juga mendapat pengalaman dan tantangan baru pada saat pengerjaan Tugas Akhir ini.


2.8. PERHITUNGAN LABA / RUGI

a.         Anggaran Pengadaan Software
NO
NAMA SOFTWARE
SPESIFIKASI
VOLUME
HARGA
SATUAN
JUMLAH
SATUAN (Rp.)
JUMLAH (Rp.)
1
OS
Windows XP- Proffesional
Unit
1
600.000,00
600.000,00
2
Sofware Developer
Borland Delphi 07
Unit
1
100.000,00
100.000,00
3
Microsoft Office
Ms.Word
Ms.Access
Ms.Powerpoint
Unit
1
300.000,00
300.000,00
TOTAL
1.000.000,00

b.      Anggaran proses pembuatan program Rekayasa Perangkat Lunak/Upah   kerja
NO
NAMA PEKERJAAN
SPESIFIKASI
JUMLAH
BIAYA (Rp)
SATUAN (Rp)
JUMLAH (Rp)
1
Membuat Database
Tabel
Relation
4
1
50.000,00
75.000,00
200.000,00
75.000,00
2
Membuat Form
Form
Report
12
7
50.000,00
50.000,00
600.000,00
350.000,00
3
Security
Autentifikasi User
1
200.000,00
200.000,00
TOTAL
1.425.000,00

1.  Jumlah                     1.000.000,00 + 1.425.000,00   Rp  2.425.000,00
2.  Keuntungan usaha 10%  x  Rp. 2.425.000,00        Rp     242.500,00
3.  PPN (SMK)             11%  x  Rp. 2.425.000,00        Rp.    266.750,00
4.  Harga Jual              1 + 2 + 3                                   Rp. 2.934.250,00

BAB III
TEMUAN

3.1.Keterlaksanaan (Faktor Pendukung dan Penghambat)

1. Faktor Pendukung
Faktor-faktor yang mendukung dalam membuat Pengolahan Data Karyawan Dengan Borland Delphi 7
-        Dukungan dan motivasi dari orang tua
-        Motivasi dari Diri Sendiri dan teman-teman
-        Dukungan dari pembimbing
-        Software yang digunakan sangat user friendly dan mudah di configurasi
2. Faktor Penghambat
Faktor yang menghambat dalam membuat Pengolahan Data Karyawan Dengan Borland Delphi 7 antara lain:
-        Waktu yang sedikit, sehingga pengerjaan Tugas Akhirpun tidak maksimal
-        Ilmu yang masih dangkal tentang Delphi 7 dan Ms. Acces
-        Software yang digunakan berlicense


3.2.Manfaat yang Dirasakan

1.      Memperoleh pengalaman membuat suatu (benda kerja) mulai dari merancang, pelaksanaan, sampai pada proses pembuatan laporan.
2.      Dapat melaksanakan/menyelesaikan tugas kerjaan yang sesungguhnya.
3.      Memperoleh pengalaman kerja langsung untuk menghasilkan sesuatu yang bermanfaat.


3.3.Pengembangan/Tindak Lanjut

Project work adalah metode pembelajaran yang mengarahkan peserta didik dan penguji pada prosedur kerja yang sistematis untuk membuat suatu produk melalui proses produksi yang sebenarnya.

Mengacu pada pernyataan di atas, maka setelah selesai melaksanakan Proyek Tugas Akhir ini akan penulis kembangkan dengan lebih merekomendasikan kompetensi yang dikuasai secara utuh, yaitu menghasilkan produk yang mempunyai nilai ekonomis, dapat dipertanggungjawabkan dan memiliki kelayakan .



BAB IV
PENUTUP

4.1.KESIMPULAN

1.  Program aplikasi ini dapat membantu petugas perpustakaan mengolah  data yang bersifat kompleks menjadi data yang mudah untuk dipahami.
2.  Program Aplikasi ini dapat mempercepat dan mempermudah dalam proses pengolahan data.
3.  Program aplikasi ini dapat meminimalisasikan tingkat kesalahan pada proses pengolahan data, sehingga tingkat efisiensi dan tingkat efektifitas kerja perpustakaan dapat lebih meningkat.


4.2.SARAN

Dalam pelaksanaan Proyek Tugas Akhir ini mengalami beberapa kesulitan, agar hal tersebut tidak dialami pada kegiatan Tugas Akhir yang akan datang, maka penulis sarankan agar materi yang digunakan dalam Tugas Akhir diajarkan lebih detail kepada siswa agar siswa bisa lebih memahami dan bisa mempermudah dalam pembuatan Tugas Akhir nantinya, sedangkan untuk siswanya sendiri diharapkan agar lebih aktif dan produktif dalam mengerjakan proyeknya, selain itu guru yang menjadi pembimbing diharapkan mempunyai kemampuan sesuai dengan proyek dari siswa yang dibimbing sehingga apabila siswa mengalami masalah, akan lebih cepat untuk diselesaikan. Penulis juga berharap agar waktu jam produktif untuk mengerjakan Tugas Akhir bisa ditambah.

Demikian saran yang dapat penulis sampaikan, penulis mohon maaf apabila terdapat kata yang tidak berkenan dihati para pembaca.

Sebagai penutup, penyusun berharap semoga laporan Tugas akhir ini dapat bermanfaat bagi adik - adik dan dapat digunakan sebagai mana mestinya.










DAFTAR PUSTAKA

JamaludinMalik, Jaja. 2006.Membuat Form Cantik untuk Aplikasi Delphi. Yogyakarta: Andi Offset










































LAMPIRAN

5.1.PENGUJIAN PROGRAM

5.1.1 Form Login

Form Login merupakan rancangan awal tampilan yang berisi user dan password. User bisa masuk ke menu utama setelah berhasil pada saat login. Jika Password atau user yang sio masukkan salah maka login gagal. Berikut tampilan jika login gagal.


Keterangan :
1. Form Login berfungsi sebagai keamanan sistem untuk dapat menjalankan program aplikasi.
2. User berfungsi untuk mengetahui siapa yang menjalankan program aplikasi.
3. Password berfungsi untuk pengisian kode/sandi tertentu.
4. OK berfungsi sebagai jalan masuk program setelah user (pengguna) berhasil dalam pengisian password.
5. Cancel berfungsi untuk pembatalan masuk program aplikas atau sebagai jalam keluar dari program.





5.1.2 Form Utama

Form utama merupakan menu yang menampilkan inti dari program aplikasi. User dapat masuk form utama jika telah berhasil pada saat Login. FormUtama terdiri dari beberapa menu, yaitu : File, Transaksi, Laporan dan tentang program.


Keterangan :
1. Menu File berisi Data Anggota, Data Buku, Exit.
    a. Data Anggota
Berfungsi untuk mengetahui dan mengisi data anggota yang berisi No Anggota, Nama Anggota, Tempat Lahir, Tanggal Lahir, Jenis Kelamin dan Alamat Anggota.
b. Data Buku
Berfungsi untuk mengetahui dan mengisi data anggota yang berisi Kode Buku, Judul Buku, Pengarang, Penerbit, Tahun Terbit,Tempat Terbit, Jumlah Halaman, Ilustrasi, Klasifikasi, Kategori, ISBN, Tanggal Terima, Asal
c. Exit
Berfungsi untuk keluar dari program aplikasi.

2. Menu Transaksi berisi Transaksi Peminjaman dan Transaksi Pengembalian.
a. Transaksi Peminjaman
Berfungsi untuk mengisi data pada saat transaksi peminjaman buku.
b. Transaksi Peminjaman
Berfungsi untuk mengisi data pada saat transaksi pengembalian buku.
3. Tentang Program
Berisi gambaran umum tentang program aplikasi.
4. Laporan
a. Laporan Anggota
Berisi tentang laporan data anggota
b. Laporan Buku
Berisi tentang laporan data buku
c. Laporan Peminjaman
Berisi tentang laporan peminjaman

5.1.3 Form Anggota

Form anggota merupakan Form yang berisi tentang biodata anggota. Terdiri dari dua bagian yaitu Input data anggota dan penelusuran data anggota.Bagian input berguna untuk menyimpan, mengedit, mengupdate, menambah data dan mencetak data anggota per anggota. Bagian penelusuran data anggota berfungsi untuk mencari, menghapus, dan menampilkan data anggota
5.1.3.1 Input Data Anggota

Keterangan :
1. Button Tambah berfungsi untuk menambah data anggota baru.
2. Button Simpan berfungsi untuk menyimpan data anggota yang telah diisi.
3. Button Edit berfungsi untuk mengedit data anggota.
4. Button Update berfungsi untuk menyimpan data anggota yang telah diedit.
5. Button reset berfungsi untuk membatalkan pengisian data anggota.
6. Button Cetak berfungsi untuk mencetak data peranggota.
7. Button Keluar berfungsi untuk keluar dari form siswa ke form utama.

5.1.3.2 Penelusuran Data Anggota

Keterangan :
1. Button Hapus berfungsi untuk menghapus data nggota
2. Button Tampilkan berfungsi untuk menampilkan data anggota ke bagian input data anggota untuk diedit.
3. Edit Nama atau Edit No Anggota berfungsi untuk mencari data yang telah isimpan berdasarkan Nama Anggota atau No Anggota.
4. Button Keluar berfungsi untuk keluar dari bagian penelusuran data anggota ke bagian input data anggota.
    
5.1.4 Form Buku

Form buku prosedurenya sama dengan form anggota jadi penulis tidak menjelaskannya lebih lanjut.
5.1.4.1 Input Data Buku
5.1.4.2 Penelusuran Data Buku

5.1.5 Form Peminjaman

Form Peminjaman berfungsi untuk melakukan proses transaksi peminjaman buku.
Keterangan :
1. Proses peminjaman dilakukan dengan  mengisi No Anggota, Kode Buku dan Tanggal Peminjaman.
2. Button Pinjam digunakan untuk menyimpan data buku yang akan dipinjam.
3. Button Reset  digunakan untuk membatalkan proses transaksi peminjaman.
4. Button cetak beguna untuk mecetak data transaksi peminjaman yang sedang terjadi.
5. Button keluar berfungsi untuk keluar dari Form Peminjaman ke Form utama.
5.1.6 Form Pengembalian

Form Pengembalian berfungsi untuk melakukan proses transaksi pengembalian buku.

Keterangan :
1.Edit No Anggota berfungsi untuk memasukkan No Anggota yang sedang meninjam.
2.Button data pinjam berfungsi untuk menampilkan data  yang dipinjam oleh anggota
3.Button kembali berfungsi untuk menghapus data buku yang telah kembalikan
4.Button reset berfungsi untuk membatalkan proses transaksi pengembalian buku
5.Kotak informasi keterlambatan berfungsi untuk mengetahui keterlambatan dan jumlah denda yang harus dibayar jika pengembalian buku melebihi batas waktu peminjaman.
6.Lama Terlambat menunjukkan jumlah keterlambatan pengembalian buku.
7.Jumlah buku menunjukkan berapa banyaknya buku yang sedang di pinjam.
8.Denda perbuku adalah denda perbuku yang harus dibayar.
9.Jumlah Denda adalah jumlah keseluruhan denda yang harus dibayar.







5.1.7 Form Tentang Program

Form tantang program berisi tentang gambaran secara umum mengenai program aplikasi ini.

5.1.8 Form Cetak Anggota

Form cetak anggota berfungsi untuk mencetak anggota. Proses pencetakan ada dua yaitu cetak semua data anggota dan cetak data peranggota.

5.1.9 Form Cetak Buku

Form cetak buku berfungsi untuk mencetak buku. Proses pencetakan ada dua yaitu cetak semua data buku dan cetak data buku.

5.1.10 Form Cetak Kartu Anggota

Form cetak kartu anggota berfungsi untuk mencetak katu anggota.




5.1.11 Laporan Data Anggota


5.1.12 Laporan Data per Anggota

5.1.13 Laporan Data Buku


5.1.14 Laporan Data per Buku

5.1.15 Laporan Peminjaman


5.1.13 Laporan Peminjaman per Anggota


5.1.14 Cetak Kartu Anggota
LAMPIRAN Daftar Rencana Bukti Belajar (Evidence Of Learning)
Judul Proyek        : Pembuatan Program Pelaporan Hasil Belajar Siswa Dengan Borland Delphi 7
Produk                  : Program Pelaporan Transkrip Nilai Program
No
Kompetensi/
Subkompetensi
Kriteria Kinerja
Aspek (P/K/S)
Indikator
Bukti Belajar
Kriteria Bukti Belajar
1
2
3
4
5
6
7
B.
Menginstalasi Software





B.1.
Mempersiapkan instalasi software Aplikasi
Media paket instalasi software sudah dipasang dan siap diakses
P
Dapat meyiapkan software aplikasi sesuai dengan kebutuhan
Software telah dipilih sesuai dengan kebutuhan
Software OS, Data base, aplikasi program telah diidentifikasi dan dipilih
B.2.
Melaksanakan instalasi software sesuai dengan installation manual
Proses instalasi sesuai installation manual sudah dilaksanakan
S, K
Dapat menginstalasi software aplikasi sesuai dengan SOP
Software aplikasi sudah terinstal dan siap dioperasikan
Software OS, Data base dan aplikasi program telah diinstal dan siap dioperasikan
O.
Software Aplikasi Basis Data





O.1.
Mempersiapkan software aplikasi basis data
User manual software aplikasi basis data sudah disediakan dan difahami
S, P
Dapat mempersiapkan software aplikasi basis data
Kebutuhan software aplikasi basis data telah diidentifikasi
Penggunaan software SQL atau oracle atau access atau basis data yang lainnya telah diidentifikasi sesuai kebutuhan software aplikasi basis data
1
2
3
4
5
6
7

O.2.
Menjalankan software aplikasi basis data
Semua fitur software aplikasi basis data dijalankan sesuai dengan kewenangan dalam SOP dan user manual
S, K
Dapat menjalankan software aplikasi basis data sesuai dengan kewenangan dalam SOP dan user manual
Software aplikasi dengan bahasa pemograman terstruktur dan basis data dapat dioperasikan dengan benar
Software aplikasi basis data (PHP, ASP, Delphi, dll) telah dikoneksikan dengan basis data (SQL, Access, dll) yang digunakan sehingga dapat dioperasikan dengan baik

O.3.
Mengisi log sheet atau report sheet
Log sheet / report sheet diisi sesuai dengan SOP yang berlaku
P, K
Dapat mengisi log sheet atau report sheet sesuai dengan SOP yang berlaku
Log sheet / report sheet telah terisi dengan lengkap
Log sheet / report sheet diisi sesuai dengan kebutuhan project work yang dibuat

S.
Melakukan Pengkodean






S.1.
Memahami prosedur pengkodean program
Prosedur pengkodean program dapat dijelaskan sesuai dengan standar pengkodean program
S, P
Dapat menjelaskan prosedur pengkodean program sesuai dengan standar pengkodean program
Konsep algoritma pemograman pada software aplikasi dapat difungsikan
Konsep normalisasi dan standarisasi data serta program berorientasi object dari project dapat dijelaskan

S.2.
Mempersiapkan pengkodean program
·   Perlengkapan kerja diidentifikasi sesuai dengan kebutuhan .

·   Tersedianya diagram alir
S, K
·   Dapat mengidentifikasi perlengkapan pengkodean program
·   Dapat membuat diagram alir
·   Software aplikasi yang sesuai dengan software yang dibuat telah diidentifikasi
·   Diagram alir telah dibuat
Visual modelling (UML, DFD Level, Diagram block) serta activity diagram / flow chart telah dibuat















1
2
3
4
5
6
7
S.3.
Melakukan pengkodean program
Pengkodean program dilakukan sesuai dengan prosedur program secara mandiri
S, P, K
Dapat membuat pengkodean program sesuai SOP
Software aplikasi dengan bahasa pemograman berorientasi objek telah dibuat
Koding program telah dibuat dengan layout text source code yang baik dan penggunaan komponen source code yang efisien
S.4.
Mengisi check list pengkodean program 
Check list terisi dengan pengkodean yang di tetapkan
S, K
Dapat mengisi check list pengkodean yang ditetapkan
Hasil pemograman dapat dioperasikan dengan baik
Hasil koding program dapat dioperasikan
T.
Mengoperasikan Bahasa Pemograman





T.1.
Memahami dasar-dasar pemograman
Konsep dasar teknologi web dijelaskan sesuai dengan SOP
S, P
Dapat menjelaskan konsep dasar teknologi web sesuai dengan SOP
Fungsi algoritma pemograman berbasis web dapat diidentifikasikan
Semua fitur software bahasa pemrograman Data base berbasis web yang meliputi layout form, link, model Data base, form, relation dan query telah dibuat


1
2
3
4
5
6
7
T.2.
Membuat program dengan bahasa pemograman
·   Semua Fitur software bahasa pemograman berbasis web dijalankan sesuai dengan kewenangan SOP dan user manual
·   Software aplikasi bahasa pemograman berbasis web ditutup tanpa error
S, P, K
·   Dapat menjalankan semua fitur software bahasa pemograman berbasis web sesuai dengan kewenangan SOP dan User Manual

·   Dapat mengakhiri aplikasi bahawa pemograman berbasis web tanpa error
·   Semua Fitur software bahasa pemograman berbasis web yang telah dibuat siap di upload



·   Software aplikasi bahasa pemograman berbasis web dapat beroperasi dengan benar
Software aplikasi bahasa pemograman berbasis web (program Bantu animasi, program bantu banner, script, program aplikasi client server dan protocol client server Data base) dapat dijalankan dengan baik.
T.3.
Mengisi check list hasil pengujian
Check list terisi sesuai dengan langkah-langkah program yang telah ditentukan
P, K
Dapat menguji program berbasis web
Hasil pemograman, basis data, dan bahasa pemograman berbasis web dapat launching.
Chec list hasil pengujian diisi berdasar uji performance yang meliputi akurasi terhadap kesalahan entry data dan delay waktu akses.
Catatan :  Disusun berdasarkan bimbingan guru. Kolom 2, 3, 4 dan 6 diambil dari dokumen KS, kolom 6 dari kesepakatan peserta uji dengan pembimbing

























Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)