modul delphi

***************

Modul delphi I

***************

i_hendyplus@yahoo.com

www.hendykrisnanto.wordpress.com

Konsep database

• Database adalah kumpulan informasi yang disimpan dalam bentuk tabel. Biasanya Database  terdiri dari lebih satu tabel atau file.
• Kolom dalam sebuah tabel disebut field
• Kumpulan dari field-field yang sejenis disebut record

Contoh :

Tabel 1.1 contoh tabel

• Dari tabel diatasa dapat disimppulkan terdapat sebuah tabel yang memiliki informasi sbb:
• Sebuah tabel dangan 3field : NIM, NAMA, ALAMAT
• Yang berisi 3 record(baris)
• Pembahasan lebih lanjut tentang database telah di diterangkan dalam matakuliah struktur basis data
• Dalam paraktikum kali ini akan membahas tentang pembuatan database paradox dalam delphi serta menghubungkan database yang telah dibuat dengan form
• Tujuannya adalah agar database dapat dimanipulasi melalui form

Membuat database

• Buka sebuh project baru delphi, kemudian
• Pilih menu tool – -> database desktop

Gambar 1.1 memulai membuat database

• Selanjutnya akan nampak tampilan untuk membangun database dan tabel
• Pililih menu file- -> new- ->tabel- ->ok
• Berikutnya akan muncul sebuah jendela baru untuk merancang database
• Isi field dengan struktur sbb

Gambar 1.2 rancangan database

• Save as dalam sebuah folder yang sama untuk menyimpan project dengan nama Tbmhs
• Selanjutnya tutup window rancangan tabel dan kembali ke window utama delphi
• Rancang form sbb :

Gambar 1.3 rancangan form

• ket

1 – -> pada toolbox pilih tab BDE – ->pilih object Tabel

Gambar 1.4 object tabel

2– > Data Access– > Data source

3 — > data control– > data grid

Penting–simpan project tersebih dahulu sebelum melanjutkan langkah berikut ini

• atur property sbb

KOMPONEN	PROPERTI	SETTING
Form1	Caption	data mahasiswa
	Name	Formmahasiswa
UNTUK LABEL BOLEH DINAMAI, BOLEH TIDAK. TETAPI UNTUK CAPTIONNYA SESUAI DENGAN RANCANGAN FORM
Edit1	Name	edNim
Edit2	Name	edNama
Edit3	Name	Edalamat
Edit4	Name	edcari
Groupbox1	Caption	PENCARIAN
UNTUK SEMUA EDIT DI ATAS PROPERTIES TEXT DIKOSONGKAN
Table1	Name TableName Active	Tblmahasisw tbmhs.DB (dipilih True
DataSource1	DataSet	Tblmahasiswa (dipilih)
	Name	Dsmahasiswa
DBGrid1	DataSource	Dsmahasiswa(dipilih)
	Name	DBGrid1
Button1	Name	btSimpan
	Caption	&simpan
Button2	Name	btBatal
	Caption	&batal
Button3	Name	btHapus
	Caption	&hapus
Button4	Name	Btedit
	Caption	&edit
Button5	Name	BtCari
	Caption	&cari
Button5	Name	BtKeluar
	Caption	&keluar

Tabel 1.2 setting property form

• isi sintaks sbb sesuai dengan object

ket : ketik yang dicetak tebal

procedure TForm1.btbatalClick(Sender: TObject);

begin

ednim.Text:=’ ‘;

ednama.Text:=’ ‘;

edalamat.Text:=’ ‘;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

btbatal.Click;

end;

procedure TForm1.btkeluarClick(Sender: TObject);

begin

close;

end;

procedure TForm1.btsimpanClick(Sender: TObject);

begin

tblmahasiswa.Append ;

tblmahasiswa['nim']:=ednim.Text;

tblmahasiswa['nama']:=ednama.Text;

tblmahasiswa['alamat']:=edalamat.Text;

tblmahasiswa.Post;

tblmahasiswa.Active:=false;

tblmahasiswa.Active:=true;

showmessage(‘data telah tersimpan’);

btbatal.Click;

ednim.SetFocus;

end;

procedure TForm1.EDCARIExit(Sender: TObject);

begin

IF TBLMaHaSiswa.Locate(‘NIM’,EDCARI.Text,[LOCASEINSENSITIVE]) THEN

BEGIN

EDNIM.Text :=TBLMahasiswa['NIM'];

EDNAMA.Text:=TBLMahasiswa['NAMA'];

EDALAMAT.Text:=TBLMahasiswa['ALAMAT'];

end

else

showmessage(‘data tidak ditemukan’);

edcari.Text:=”;

end;

procedure TForm1.bteditClick(Sender: TObject);

begin

TBLmahasiswa.Edit;

TBLmahasiswa['NIM']:=EDNIM.Text;

TBLmahasiswa['NAMA']:=EDNAMA.Text;

TBLmahasiswa['ALAMAT']:=EDALAMAT.Text;

TBLmahasiswa.Post;

TBLmahasiswa.Active:=FALSE;

TBLmahasiswa.Active:=TRUE;

SHOWMESSAGE(‘DATA TELAH DIUBAH’);

BTBATAL.Click;

EDNIM.SetFocus;

end;

procedure TForm1.bthapusClick(Sender: TObject);

begin

if tblmahasiswa.Eof=false then

begin

tblmahasiswa.Delete;

tblmahasiswa.Active:=false;

tblmahasiswa.Active:=true;

SHOWMESSAGE(‘DATA TELAH DIHAPUS’);

BTBATAL.Click;

EDNIM.SetFocus;

end

end;