Lihat Detail
Membuat Aplikasi booking lapangan futsal Delphi 7
Sebelum kita membuat project di delphi terlebih dahulu
tentunya harus membuat database menggunakan microsoft acces, teman-teman bisa
menggunakan microsoft acces versi berapa saja karena proses pembuatannya sama
saja. Buat database dengan struktur tabel seperti berikut:
Jika
sudah maka Save as database tersebut
menjadi file microsoft acces 2003, agar nantinya mempermudah dalam
mengkoneksikannya.
Ok
jika database dah siap saatnya kita mulai...*_^
-Buka
program Delphi anda, maka jendela project anda akan langsung muncul.
-Terlebih
dahulu kita akan membuat form loginnya, kira-kira seperti gambar berikut.
|
Konekkan
ado query dengan database melalui Connection string >> build >> microsoft
4.0 OLE jbprovider >>cari databese anda pada kotak Select or enter your database name
>> test connection >> kemudian OK.
-pada
properties SQL, klik 2kali pada
“Tstring” dan masukkan koding mysql berikut:
“select * from
login”
-Active ubah “false” jadi
“True”
-Kemudian
pilih Data source, pada Data set
pilih adoquery1
-Kemudian
buat form baru lagi dengan nama “Daftar booking” pilih File >> New>> form,
-masukkan ado query, datasource, DbGrid, button sepeti
gambar diatas dan edit text.
-konekkan ado query dan datasource seperti seperti langkah
sebelumnya pada form1, namun untuk SQLnya,
login diubah menjadai futsal.
“select * from futsal”
- DBGrid >>
Data source 1.
-Masukkan field
input seperti No, nama tim dll, dengan cara pilih ado query >> field
editor >> add fields >> pilih semua fieldsnya, kemudian seleksi
semua fields dan drag ke form2. Hapus edit text pada tanggal/hari dan masukkan Date Time picker, agar nantinya bisa memilih tanggal otomatis. Kemudian
tindih date time picker dengan edit text agar nantinya tanggal/harinya bisa di
simpan dan di tampilkan di DbGrid.
-Date time picker >> event >> on change >>
“edit2.Text:=DateToStr(datetimepicker1.date);”
Selanjutnya
buat report dengan New items >> report >> OK.
-double klik pada report centang Title, column header,
detail bend.
Kira-kira desainnya seperti gambar berikut.
Pada column header dan title gunakan Qrlabel, pada Detail
gunakan QRDBtext.
-konekkan ado query seperti langkah sebelumnya.
-konekkan quickreport >> data set >> adoquery
-QRDBtext >> dataset >> pilih fieldnya.
Ok form
dah jadi tinggal masukkan kodingnya:
Koding form login:
Button login:
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from
login where username=:user and password=:pass');
adoquery1.Parameters.ParamByName('user').Value:=edit1.Text;
adoquery1.Parameters.ParamByName('pass').Value:=edit2.text;
adoquery1.Open;
if adoquery1.RecordCount<=0
then
begin
messagedlg ('login gagal, please
try again', mtinformation, [mbOK],0);
edit1.SetFocus;
end else
begin
form1.Hide;
form2.show;
end;
end;
Button keluar:
close;
Koding
form booking:
Note: a= adoquery
Button tambah:
a.Append;
Button simpan:
a.FieldByName('tanggal
/hari').AsString:=edit2.Text;
a.post;
Button hapus:
a.delete;
Button edit:
a.Edit;
Button cari:
if a.Locate('No',edit1.text,[])
then
begin
dbedit1.Text:=a['no'];
dbedit2.Text:=a['nama tim'];
edit2.Text:=a['Tanggal /hari'];
dbedit4.Text:=a['jam main'];
dbedit5.Text:=a['total waktu
main'];
dbedit6.Text:=a['biaya sewa'];
end else
messageDlg('data tidak di
temukan',mtinformation,[mbOk],0)
button laporan:
quickreport1.preview;
Apliksi booking
lapangan futsal pun jadi...*_^