PERANCANGAN SISTEM INFORMASI
D
I
S
U
S
U
N
OLEH:
ANI ARYANTI 1723003
DERA RAHAYU M 1723007
ELNI MONIKA 1723013
RINDA YURISKA 1723029
SELVY KHARISMA 1723031
KELAS : MI A REGULAR A
DOSEN PENGAMPU : HENDRAYUDI M.KOM
AMIK AKMI BATURAJA
TAHUN 2019
KATA PENGANTAR
Dengan menyebut nama Allah SWT yang Maha Pengasih lagi Maha Panyayang, Kita panjatkan puja dan puji syukur atas kehadirat-Nya, yang telah melimpahkan rahmat, hidayah, dan inayah-Nya kepada kita semua, sehingga kami dapat menyelesaikan makalah Perancangan Sistem Informasi ini tentang “Penyewaan Lapangan Futsal Redansa”
Makalah yang bertema tentang Sistem Informasi Penyewaan Lapangan Futsal Redansa ini telah kami susun dengan semaksimal mungkin.
Makalah yang bertema tentang Sistem Informasi Penyewaan Lapangan Futsal Redansa ini telah kami susun dengan semaksimal mungkin.
Terlepas dari semua itu, kami menyadari sepenuhnya bahwa masih ada kekurangan baik dari segi susunan kalimat maupun tata bahasanya. Oleh karena itu kami menerima segala saran dan kritik dari pembaca agar saya dapat memperbaiki untuk yang akan datang.
Akhir kata kami berharap semoga makalah ini dapat bermanfaat bagi pembaca dan termotivasi dalam membuat sistem informasi seperti ini.
Akhir kata kami berharap semoga makalah ini dapat bermanfaat bagi pembaca dan termotivasi dalam membuat sistem informasi seperti ini.
Baturaja, Maret 2019
Penyusun
BAB I
PEMBAHASAN
1. PERANCANGAN VALIDASI PENGGUNA (LOGIN)
1) Buka aplikasi Delphi xe2 pada computer anda
2) klik menu file, pilih new, lalu klik VCL forms application
3) Lalu klik tool palette pada samping kanan bawah lembar kerja, disana terdapat Search kemudian ketikan Tlabel, Tedit, dan Tbutton sebanyak yang di perlukan untuk membuat Form Validasi pengguna
4) Setelah itu klik Label1 pada form, dan ubah caption Label1 pada properties di samping kiri bawah dengan caption USERNAME
5) Klik Label2 pada Form, dan ubah caption Label2 pada properties di samping kiri bawah dengan caption PASSWORD
6) Klik button1 pada Form, dan ubah caption Button1 pada properties di samping kiri bawah dengan caption LOGIN
7) Klik Button2 pada Form, dan ubah caption Button2 pada properties di samping kiri bawah dengan caption CANCEL
8) Untuk mengilangkan teks pada Edit1, Klik edit1 pada Form, dan hapus Text Edit1 pada properties di samping kiri bawah. Cara selanjutnya dipakai juga untuk mengilangkan pada text Edit2.
9) Untuk membuat password tersembunyi, klik edit2 lalu pilih PasswordChar di properties dan ganti Passwordchar nya dengan symbol *
Cara memasukkan coding pada form Validasi pengguna:
1) Double Klik Button yang ingin di beri coding pada Form
1) Kemudian masukkan coding seperti di bawah ini:
Berikut coding Button Login pada form 1:
procedure TForm1.Button1Click(Sender: TObject);
begin
if ((edit1.Text='penyewaan lapangan') and (edit2.Text='123')) then
begin
showmessage ('selamat anda berhasil masuk ke aplikasi penyewaan lapangan redansa');
form2.show;
end
else showmessage ('maaf, anda salah memasukkan username atau password');
end;
end.
Berikut coding Button Cancel pada form 1:
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
Cara memasukkan Image pada form 1:
- Klik share pada tool palette ketikkan Timage kemudian double klik Timage
- Pada properties pilih picture kemudian pilih gambar yang akan dimasukkan lalu ok
1. PERANCANGAN MENU UTAMA
1) Lalu klik tool palette pada samping kanan bawah lembar kerja, disana terdapat Search kemudian ketikan TMainmenu, lalu double klik pada TMainmenu maka akan muncul kotak dialog tempat pengisian menu.
2) Untuk penulisan isi menu klik Properties, pilih caption dan isi dengan INPUT
3) Klik pada kotak bawah input di form2. Di isi lagi dengan INPUT TABEL LAPANGAN, INPUT TABEL PELANGGAN, dan Input Data lain nya Seperti gambar di bawah ini:
Hasil menu utama
1) Lalu isi menu di samping Input dengan nama Keluar.
Untuk memasukan coding input data lapangan double klik input data lapang pada
main menu masukan coding seperti dibawah ini:
procedure TForm2.ABELLAPANGAN1Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm2.KELUAR1Click(Sender: TObject);
begin
application.Terminate;
end;
end.
Untuk memasukan coding keluar double klik pada main menu, dan masukan coding seperti dibawah ini:
procedure Tform2.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
1. PERANCANGAN FORM INPUT
· PERANCANGAN FORM INPUT DATA LAPANGAN
Langkah-langkah nya sebagai berikut:
1. Klik TADOTable dan akan masuk ke form, lalu pilih connecting string di properties
2. Pilih Build untuk membangun koneksi pada Use Connection String
3. Pilih Microsoft Jet 4.0 OLE DB Provider
4. Pilih database jasa pengiriman pada folder yang anda simpan
5. Lalu pilih test connection, maka akan muncul Test Connection Succeded dan OKE
6. Klik OKE.
7. Pilih TableName dengan TLAPANGAN pada Properties
8. Pilih True pada Active di Properties
9. Pada form lapangan, klik kanan ADOTable1, Pilih Field Editor
10. Klik kanan lagi pada field editor ,pilih add all fields
11. Untuk menge-blok field pada field editor, klik kanan lagi, lalu pilih select all
1. Setelah itu tarik fields ke form
2. Atur field ke form dengan rapi dan berurutan
3. Lalu klik tool palette pada samping kanan bawah lembar kerja, disana terdapat Search kemudian ketikan Tbutton, dan Tbutton sebanyak yang di perlukan untuk membuat button di Form input data lapangan
4. Klik button1 pada Form, dan ubah caption Button1 pada properties di samping kiri bawah dengan caption INPUT.
5. Kemudian double klik pada button INPUT lalu isi coding nya
procedure Tform3.Button1Click(Sender: TObject);
begin
ADOTable1.insert;
end;
1. Klik button2 pada Form, dan ubah caption Button2 pada properties di samping kiri bawah dengan caption SIMPAN. Kemudian double klik pada button SIMPAN lalu isi codingnya seperti dibawah ini :
procedure Tform3.Button2Click(Sender: TObject);
begin
ADOTable1.post;
ADOTable1.refresh;
end;
2. Klik button3 pada Form, dan ubah caption Button3 pada properties di samping kiri bawah dengan caption EDIT. Kemudian double klik pada button EDIT lalu isi codingnya seperti dibawah ini :
procedure Tform3.Button3Click(Sender: TObject);
begin
ADOTable1.edit;
end;
3. Klik button4 pada Form, dan ubah caption Button4 pada properties di samping kiri bawah dengan caption HAPUS. Kemudian double klik pada button HAPUS lalu isi codingnya seperti dibawah ini :
procedure Tform3.Button4Click(Sender: TObject);
begin
ADOTable1.delete;
end;
4. Klik button5 pada Form, dan ubah caption Button5 pada properties di samping kiri bawah dengan caption KELUAR. Kemudian double klik pada button KELUAR lalu isi codingnya seperti dibawah ini :
procedure Tform3.Button5Click(Sender: TObject);
begin
application.Terminate;
end;
5. Klik button6 pada Form, dan ubah caption Button6 pada properties di samping kiri bawah dengan caption BACK. Kemudian double klik pada button BACK lalu isi codingnya seperti dibawah ini :
procedure Tform3.Button6Click(Sender: TObject);
begin
form2.show;
form3.Visible:=false;
end;
Cara membuat Tabel Grid di form yaitu :
- Masukkan TDBGrid pada tool palette
- Isi data source pada properties
Seperti gambar di bawah ini
· PERANCANGAN FORM INPUT DATA PELANGGAN
Langkahnya :
1. Klik TADOTable dan akan masuk ke form, lalu pilih connecting string di properties
2. Pilih Build untuk membangun koneksi pada Use Connection String
3. Pilih Microsoft Jet 4.0 OLE DB Provider
4. Pilih database jasa pengiriman pada folder yang anda simpan
5. Lalu pilih test connection, maka akan muncul Test Connection Succeded dan OKE
6. Klik OKE.
7. Pilih TableName dengan TPELANGGAN pada Properties
1. Pilih True pada Active di Properties
2. Pada form pengirim ,klik kanan ADOTable1, Pilih Field Editor
3. Klik kanan lagi pada field editor ,pilih add all fields
4. Untuk mengeblok field pada field editor, klik kanan lagi ,lalu pilih select all
5. Setelah itu tarik fields ke form
6. Atur field ke form dengan rapi dan berurutan
7. Lalu klik tool palette pada samping kanan bawah lembar kerja, disana terdapat Search kemudian ketikan TButton dan Tbutton sebanyak yang di perlukan untuk membuat button di Form input data pelanggan
8. Klik button1 pada Form, dan ubah caption Button1 pada properties di samping kiri bawah dengan caption INPUT. Kemudian double klik pada button INPUT lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button1Click(Sender: TObject);
begin
ADOTable1.insert;
end;
9. Klik button2 pada Form, dan ubah caption Button2 pada properties di samping kiri bawah dengan caption SIMPAN. Kemudian double klik pada button SIMPAN lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button2Click(Sender: TObject);
begin
ADOTable1.post;
ADOTable1.refresh;
end;
10. Klik button3 pada Form, dan ubah caption Button3 pada properties di samping kiri bawah dengan caption EDIT. Kemudian double klik pada button EDIT lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button3Click(Sender: TObject);
begin
ADOTable1.edit;
end;
11. Klik button4 pada Form, dan ubah caption Button4 pada properties di samping kiri bawah dengan caption HAPUS. Kemudian double klik pada button HAPUS lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button4Click(Sender: TObject);
begin
ADOTable1.delete;
end;
12. Klik button5 pada Form, dan ubah caption Button5 pada properties di samping kiri bawah dengan caption KELUAR. Kemudian double klik pada button KELUAR lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button5Click(Sender: TObject);
begin
application.Terminate;
end;
13. Klik button6 pada Form, dan ubah caption Button6 pada properties di samping kiri bawah dengan caption BACK. Kemudian double klik pada button KELUAR lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button6Click(Sender: TObject);
begin
form2.show;
form3.Visible:=false;
end;
1. Cara membuat Tabel Gid di form yaitu :
- Masukkan TDBGrid pada tool palette
- Isi data source pada properties
· PERANCANGAN FORM INPUT DATA TARIF
Langkahnya :
1.Klik TADOTable dan akan masuk ke form, lalu pilih connecting string di properties
2.Pilih Build untuk membangun koneksi pada Use Connection String
3.Pilih Microsoft Jet 4.0 OLE DB Provider
4.Pilih database jasa pengiriman pada folder yang anda simpan
5.Lalu pilih test connection, maka akan muncul Test Connection Succeded dan OKE
6.Klik OKE.
7.Pilih TableName dengan TTARIF pada Properties
8.Pilih True pada Active di Properties
9.Pada form lapangan, klik kanan ADOTable1, Pilih Field Editor
10.Klik kanan lagi pada field editor ,pilih add all fields
11.Untuk menge-blok field pada field editor, klik kanan lagi, lalu pilih select all
12. Setelah itu tarik fields ke form
13.Atur field ke form dengan rapi dan berurutan
14.Lalu klik tool palette pada samping kanan bawah lembar kerja, disana terdapat Search kemudian ketikan TButton dan Tbutton sebanyak yang di perlukan untuk membuat button di Form input data pembayaran
15.Klik button1 pada Form, dan ubah caption Button1 pada properties di samping kiri bawah dengan caption INPUT. Kemudian double klik pada button INPUT lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button1Click(Sender: TObject);
begin
ADOTable1.insert;
end;
16.Klik button2 pada Form, dan ubah caption Button2 pada properties di samping kiri bawah dengan caption SIMPAN. Kemudian double klik pada button SIMPAN lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button2Click(Sender: TObject);
begin
ADOTable1.post;
ADOTable1.refresh;
end;
17.Klik button3 pada Form, dan ubah caption Button3 pada properties di samping kiri bawah dengan caption EDIT. Kemudian double klik pada button EDIT lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button3Click(Sender: TObject);
begin
ADOTable1.edit;
end;
18.Klik button4 pada Form, dan ubah caption Button4 pada properties di samping kiri bawah dengan caption HAPUS. Kemudian double klik pada button HAPUS lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button4Click(Sender: TObject);
begin
ADOTable1.delete;
end;
19.Klik button5 pada Form, dan ubah caption Button5 pada properties di samping kiri bawah dengan caption KELUAR. Kemudian double klik pada button KELUAR lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button5Click(Sender: TObject);
begin
application.Terminate;
end;
20.Klik button6 pada Form, dan ubah caption Button6 pada properties di samping kiri bawah dengan caption BACK. Kemudian double klik pada button KELUAR lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button6Click(Sender: TObject);
begin
form2.show;
form3.Visible:=false;
end;
21.Cara membuat Tabel Gid di form yaitu :
- Masukkan TDBGrid pada tool palette
- Isi data source pada properties
· PERANCANGAN FORM INPUT DATA PEMBAYARAN
Langkahnya :
1.Klik TADOTable dan akan masuk ke form, lalu pilih connecting string di properties
2.Pilih Build untuk membangun koneksi pada Use Connection String
3.Pilih Microsoft Jet 4.0 OLE DB Provider
4.Pilih database jasa pengiriman pada folder yang anda simpan
5.Lalu pilih test connection, maka akan muncul Test Connection Succeded dan OKE
6.Klik OKE.
7.Pilih TableName dengan TPEMBAYARAN pada Properties
8.Pilih True pada Active di Properties
9.Pada form lapangan, klik kanan ADOTable1, Pilih Field Editor
10.Klik kanan lagi pada field editor ,pilih add all fields
11.Untuk menge-blok field pada field editor, klik kanan lagi, lalu pilih select all
13.Atur field ke form dengan rapi dan berurutan
14.Lalu klik tool palette pada samping kanan bawah lembar kerja, disana terdapat Search kemudian ketikan TButton dan Tbutton sebanyak yang di perlukan untuk membuat button di Form input data pembayaran
15.Klik button1 pada Form, dan ubah caption Button1 pada properties di samping kiri bawah dengan caption INPUT. Kemudian double klik pada button INPUT lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button1Click(Sender: TObject);
begin
ADOTable1.insert;
end;
16.Klik button2 pada Form, dan ubah caption Button2 pada properties di samping kiri bawah dengan caption SIMPAN. Kemudian double klik pada button SIMPAN lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button2Click(Sender: TObject);
begin
ADOTable1.post;
ADOTable1.refresh;
end;
17.Klik button3 pada Form, dan ubah caption Button3 pada properties di samping kiri bawah dengan caption EDIT. Kemudian double klik pada button EDIT lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button3Click(Sender: TObject);
begin
ADOTable1.edit;
end;
18.Klik button4 pada Form, dan ubah caption Button4 pada properties di samping kiri bawah dengan caption HAPUS. Kemudian double klik pada button HAPUS lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button4Click(Sender: TObject);
begin
ADOTable1.delete;
end;
19.Klik button5 pada Form, dan ubah caption Button5 pada properties di samping kiri bawah dengan caption KELUAR. Kemudian double klik pada button KELUAR lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button5Click(Sender: TObject);
begin
application.Terminate;
end;
20.Klik button6 pada Form, dan ubah caption Button6 pada properties di samping kiri bawah dengan caption BACK. Kemudian double klik pada button KELUAR lalu isi kodingnya seperti dibawah ini :
procedure Tform3.Button6Click(Sender: TObject);
begin
form2.show;
form3.Visible:=false;
end;
21.Cara membuat Tabel Gid di form yaitu :
- Masukkan TDBGrid pada tool palette
- Isi data source pada properties
PERANCANGAN DATABASE
Langkah-langkahnya seperti dibawah ini :
1. Buka terlebih dahulu Microsoft Access 2007 pada laptop anda
2. Kemudian, pilih Blank Document
3. Tuliskan DBPenyewaan pada File Name
4. Klik icon folder disamping file name, lalu pilih drive yang kamu inginkan untuk penyimpanan database
5. Jika file name telah seperti DBPenyewaan.acdb, klik Create
6. Maka akan tertampil table1, Klik kanan pada Table1 Pilih DesignView
7. Maka kita terlebuh dahulu harus mengganti nama tabel dengan Tlapangan , klik Save
8. Maka akan tertampil halaman DesignView
9. Isi tabel lapangan seperti dibawah ini :
TLAPANGAN
FIELD NAME
|
DATA TYPE
|
FIELD SIZE
|
ID_LAPANGAN
|
TEXT
|
5
|
NAMA_LAPANGAN
|
TEXT
|
15
|
LUAS_LAPANGAN
|
TEXT
|
10
|
10. Jika telah selesai mengisi Field pada Tlapangan , klik save
11. Lalu pilih menu Create, dan klik Table
12. Maka akan tertampil table baru, Klik kanan pada Table baru dan Pilih DesignView
13. Maka kita terlebih dahulu harus mengganti nama tabel dengan Tpelanggan, klik Save
14. Maka akan tertampil halaman DesignView
15. Isi tabel pelanggan seperti dibawah ini :
TPELANGGAN
FIELD NAME
|
DATA TYPE
|
FIELD SIZE
|
ID_PELANGGAN
|
TEXT
|
5
|
NAMA_PELANGGAN
|
TEXT
|
20
|
ALAMAT
|
TEXT
|
25
|
TELPON
|
TEXT
|
15
|
TANGGAL_DAFTAR
|
DATE/TIME
|
-
|
16. Jika telah selesai mengisi Field pada Tpelanggan, klik save
17. Lalu pilih menu Create, dan klik Table
18. Maka akan tertampil table baru, Klik kanan pada Table baru dan Pilih DesignView
19. Maka kita terlebih dahulu harus mengganti nama tabel dengan Ttarif, klik Save
20. Maka akan tertampil halaman DesignView
21. Isi tabel tarif seperti dibawah ini :
TTARIF
FIELD NAME
|
DATA TYPE
|
FIELD SIZE
|
ID_TARIF
|
TEXT
|
5
|
MULAI
|
TEXT
|
5
|
SELESAI
|
TEXT
|
5
|
PERJAM
|
CURRENCY
|
-
|
TOTAL
|
CURRENCY
|
-
|
22. Jika telah selesai mengisi Field pada Ttarif, klik save
23. Lalu pilih menu Create, dan klik Table
24. Maka akan tertampil table baru, Klik kanan pada Table baru dan Pilih DesignView
25. Maka kita terlebih dahulu harus mengganti nama tabel dengan Tpembayaran, klik Save
26. Maka akan tertampil halaman DesignView
27. Isi tabel pembayaran seperti dibawah ini :
TPEMBAYARAN
FIELD NAME
|
DATA TYPE
|
FIELD SIZE
|
ID_SEWA
|
TEXT
|
5
|
TANGGAL_BOOKING
|
DATE/TIME
|
-
|
BIAYA_SEWA
|
CURRENCY
|
-
|
UANG_MUKA
|
CURRENCY
|
-
|
LAMA_MAIN
|
TEXT
|
5
|
TOTAL
|
CURRENCY
|
-
|
HASIL DARI PERANCANGAN DATABASE
http://rindayuris.blogspot.com
http://elnimonika.blogspot.com
http://dutdutpink.blogspot.com
http://aniaryanti12.blogspot.com
0 komentar:
Posting Komentar