TUTORIAL
PEMBUATAN DATA BASE MENGUNAKAN DELPHI
Tutorial ini dibuat
berdasarka pelajaran algo dan pemograman lanjutan pada tanggal 1 mei 2013.
Tutorial ini menunjukan pembuatan database dengan mengunakan 1 data base.
Berikut ini adalah
cara-cara dalam pembuatan data base dengan mengunakan delphi
1.
Buka program delphi
2.
Buat desain data base yaitu mengunakan
adoconnection pada paled
3.
Kemudian gunakan adotable masih pada
paled ado
4.
Kemudian gunakan data surce pada paled
data acces
5.
Kemudian gunakan dbgrid pada paled data
control
Hasilnya
adalah
6.
Kemudian mengunakan panel pada paled
standard dengan caption di kosongkan
7.
Kemudian mengunakan 4 lebel
·
Label1,ubah pada caption menjadi tanggal
·
Label2,ubah pada caption menjadi jam
·
Label3,ubah pada caption menjadi tempat
·
Label4,ubah pada caption menjadi
keteranagan
8.
Kemudian
mengunakan 4 buah edit
9.
Dan mengunakan button1 pada paled
standard dengan menganti caption menjadi simpan
Sehingga
didapatkan desain seperti dibawah ini (didalam kotak warna merah)
10.
Kemudian mengunakan dbnavigator pada
paled data contorl
11.
Kemudian buat panel2 pada paled standard
dan caption dikosongkan
Dan
di dalam panel tersebut mengunakan 1 label pencarian dengan mengubah
caption menjadi pencarian dan 1 edit
dan 1 button cari
Maka hasil disain yang
sudah jadi adalah seperti ini
Sebelum kita melanjutkan
pembuatan data base maka kita harus membuat dahulu data base dengan mengunakan
microsoft access
Buka microsoft access
Kemudian pilih blank
destop data base
Kemudian simpan data
base dengan mengunakan type microsoft access database(2002-2003 format).
Diharuskan mengunakan format 2002-2003.
Kemudian buat tabel no,
tanggal, jam, kegiatan, tempat
Kemudian simpan tebel
dengan nama coba1
Kemudian klik icon view
maka akan tampil seperti ini
Kemudian rubah data
type dengan text dan selanjutnya rubah field size seperti berikut
Filed
name
|
Filed
size
|
No
|
2
|
tanggal
|
12
|
Jam
|
8
|
kegiatan
|
30
|
tempat
|
50
|
Setelah selesai
pembuatan data base menggunakan dmicrosoft access maka kita kembali ke program
delphi yang kita buat tadi
Selanjutnya kita akan
mengkoneksikan program delhi ini dengan data base, caranya adalah sebagai
berikut:
1.
Klik pada adoconection
Ø
kemudian klik pada conectionstring
Ø Maka
akan muncul seperti gambar dibawah ini
Ø
kemudian klik build
kemudian klik build
Ø
Maka pada select or enter a database name kita pilih data base yang kita buat tadi dengan microsoft access. Kemudian kita test connection
Maka pada select or enter a database name kita pilih data base yang kita buat tadi dengan microsoft access. Kemudian kita test connection
Ø Jika
test connection succeeded kemudian klil ok
Ø
Kemudian pada login prompt dirubah menjadi flse.
Kemudian pada login prompt dirubah menjadi flse.
2.
Setelah itu kita klik pada adotable
Ø
Pada connection kita pilih adoconnection1
Pada connection kita pilih adoconnection1
Ø
Kemudian pada tablename kita ganti dengan nama data base yang kita buat tadi dengan mengunakan microsoft access tadi.
Kemudian pada tablename kita ganti dengan nama data base yang kita buat tadi dengan mengunakan microsoft access tadi.
Ø
Kemudian pada active kita rubah menjadi true
Kemudian pada active kita rubah menjadi true
3.
Kemudian klik pada data source
Ø
ubah dataset menjadi adotable1
ubah dataset menjadi adotable1
4.
Setelah itu kita klik dbgrid
Ø
Dan ubah datasource menjadi datasource1
Dan ubah datasource menjadi datasource1
5.
Setelah itu klik dbnavigator
Ø
Kemudian datasource diganti dengan datasource1
Kemudian datasource diganti dengan datasource1
6.
Selanjutnya double click pada button
simpan dan tuliskan sintag di bawah ini
procedure
TForm1.Button1Click(Sender: TObject);
begin
adotable1.Insert ;
adotable1['NO']:=adotable1.recordcount
+1;
adotable1['tanggal']:=edit1.text;
adotable1['jam']
:=edit2.text;
adotable1['kegiatan']
:=edit4.text;
adotable1['tempat']:=edit3.text;
adotable1.Next;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit1.SetFocus ;
end;
7.
kemudian double click pada button cari
dan tulis sintag seperti di bawah ini
procedure
TForm1.Button2Click(Sender: TObject);
begin
with adotable1 do
with adotable1 do
begin
filtered:=false;
filter:='[KEGIATAN]=' + quotedstr(edit5.Text);
filtered:=false;
filter:='[KEGIATAN]=' + quotedstr(edit5.Text);
filtered:=true;
end;
end;
end;
end;
maka program sudah bisa
di jalankan dan sudah terkoneksi dengan data base. Untuk menjalanka program
yaitu dengan menekan tombol F9 atau pada menu run atau dengan tombol toolbar.
Maka bentuk progran yang
jalan adalah seperti dibawah ini
Fungsi button cari :
Dan jika menggunakan
button cari maka tulis kegiatan apa yang
akan di cari, namun jika ingin mencari dengan tanggal maupun yang lainya kita
tinggal rubah program pada button cari, rubah kegiatan dengan apa yang ingin
kita cari.