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...*_^

Beli Sekarang :

Chat WhatsApp SMS 082111111111 Call 082111111111