Membuat Database dengan Delphi 7

Kali ini saya akan memposting tentang caara pembuatan database melalui aplikasi delphi.

Proses Pembuatan Program

Buat database dengan Ms Access dengan nama “bismillah.mdb”

Kenpa bismillah? Karena kita harus memuai segala hal yang baik-baik dengan membaca bismillah. J

Namun pada dasarnya database saya berisi tentang data skripsi mahasiswa.

 Langsung ke TKP ya…

1.       Buka Ms Access

2.       Pilih file -> new -> blank database

3.       Kemudian buat table baru dengan field-field berikut :

No	Nama Field	Data Type	Properties	Value
1.	Nama Mahasiswa	Text	Field Size	50
2.	NIM	Text	Field Size	8
3.	Jurusan	Text	Field Size	20
4.	Kelas	Text	Field Size	5
5.	Nama Pembimbing	Text	Field Size	25
6.	Judul Skripsi	Text	Field Size	50

4.      Diperoleh hasil akhir sebuah table dengan nama”bismillah.mdb” dengan tampilan sebagai berikut : 

Buat program interface (antarmuka) database Ms Access dengan Delphi 7.0. 1. Buka Delphi 7.0 kemudian masukkan komponen sebagai berikut:

No	Komponen	Properti	Nilai
1.	Label 1	Caption	Data Judul Skripsi Mahasiswa Teknik Informatika 2012
2.	GroupBox1	Caption	Input Data
3.	Label1	Caption	Nama Mahasiswa
4.	Label2	Caption	NIM
5.	Label 3	Caption	Jurusan
6.	Label4	Caption	Kelas
7.	Label5	Caption	Nama Pembimbing Skripsi
8.	Label6	Caption	Judul Skripsi
9.	Edit1	Text	-
10.	Edit2	Text	-
11	Edit3	Text	-
12.	Edit4	Text	-
13.	Edit5	Text	-
14.	Edit6	Text	-
15.	Button1	Caption	Simpan
16.	Button2	Caption	Batal
17.	ADOConnection1 Dari component palate “ADO”	Connection String	Lihat padacatatan bawah.*
		Connected	True
		Login Prompt	False
18.	ADOTable1 Dari component palate “ADO”	Connection	ADOConnection1
		Table Name	Proyek Akhir
		Active	True
19.	DataSource1 Dari component palate “Data Access”	Data Set	ADOTable1
20.	DBGrid1 Dari component palate “Data Access	Data Source	DataSource1
21.	DBNavigator Dari component palate “Data Access”	Data Source	Data Source1

*Catatan :

            Property Connection String dibuat dengan cara sebagai berikut:

1.      Klik pada property Connection String pada Object Inspector, sehingga muncul kotak dialog sebagai berikut :

2.      Klik tombol Build, akan muncul kotak dialog Data Link Properties, pilih Microsoft Jet 4.0 OLE DB Provider, lalu klik Next

3.      Klik tombol Build, akan muncul kotak dialog sebagai berikut :

4.      Klik pada tombol yang ada titik-titik tiga di sebelah kanan, select or enter a database name. Kemudian pilih database bismillah.mdb yang telah dibuat sebelumnya. Selanjutnya, klik tombol Test Connection, jika terjadi koneksi antara program yang akan dibuat dengan Database Microsoft Access yang telah dibuat maka akan muncul kotak dialog sebagai berikut:

Tampilan akhir program yang dibuat adalah sebagai berikut ;

Double Click pada Button dengan caption “Batal”

Masukkan Source Code sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

edit4.Text:='';

edit5.Text:='';

edit6.Text:='';

end;

Double Click pada Button dengan caption “Simpan”

Masukkan Source Code sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

Adotable1.Open;

AdoTable1.Append;

ADOTable1.FieldByName('Nama Mahasiswa').AsString:=edit1.Text;

ADOTable1.FieldByName('NIM').AsString:=edit2.Text;

ADOTable1.FieldByName('Jurusan').AsString:=edit3.Text;

ADOTable1.FieldByName('Kelas').AsString:=edit4.Text;

ADOTable1.FieldByName('Nama Pembimbing Skripsi').AsString:=edit5.Text;

ADOTable1.FieldByName('Judul Skripsi').AsString:=edit6.Text;

ADOTable1.Post ;

end;

Selanjutanya Run program yang telah dibuat atau dengan klik F9 pada keyboard.
 

Nah, sudah tampil kan hasil nya?

Oke,, sekarang kita akan mulai lagi dengan membuat aplikasi untuk masuk ke form 2.

Pertama, pilih menu file-> new-> form

Kemudian tambahkan beberapa komponen seperti berikut :

1.      Label

2.      Edit

3.      Button

Sesuaikan dengan kebutuhan anda. Isikan beberapa biodata anda dengan menggunakan komponen-komponen tersebut.

Kemudian pada property komponen Button ganti dengan “Back”

Nah, kalo udah selesai sekaraang kita mulai coding biar dari form satu bisa masuk ke form2

Pertama, balik ke Form1. Kemudian tambahkan komponen Button dan pada properties Caption ganti dengan “Admin”. Hal ini dimakasudkan anda memosisikan diri anda sebagai admin.

Kemudian, klik button Admin dua kali kemudian masukkan kode berikut :

procedure TForm1.Button3Click(Sender: TObject);

begin

Form2.Show;;

end;

end.

Setelah selesai balik lagi ke Form2. Pada Button Back masukkan kode berikut :

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Show;;

end;

end.

Kemudian tinggal klik Run, dan akan muncul hasil nya.

Agar lebih menarik tambahkan foto anda untuk background Form2 dengan cara tambahkan komponen Image.

Selamat Mencoba J

Selamat Mencoba.

Program yang telah dibuat tadi bisa didownload disini