Membuat Program Aplikasi Database Mahasiswa Dengan Bahasa Pemrograman Delphi 7

Bahasa Pemrograman lain yang dapat kita gunakan dalam membuat suatu program aplikasi yaitu dengan menggunakan Bahasa Pemrograman Delphi 7.

Berikut ini contoh pembuatan program aplikasi untuk menginput data mahasiswa ke dalam Database Mahasiswa dengan menggunakan Bahasa pemrograman Delphi 7. Untuk databasenya kita akan menggunakan Ms. Access 2007.

Langkah-langkahnya sebagai berikut :

1. Buka program aplikasi Delphi 7

2. Buat Tampilan program pada Form 1 seperti berikut ini.

3. Klik 2x pada masing-masing Button dan ComboBox kemudian masukkan perintah atau script sebagai berikut :

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

IF COMBOBOX1.Text='DMI' THEN EDIT3.Text:='D3 MANAJEMEN INFORMASI';

IF COMBOBOX1.Text='STI' THEN EDIT3.Text:='S1 TEKNIK INFORMATIKA';

IF COMBOBOX1.Text='SSI' THEN EDIT3.Text:='S1 SISTEM INFORMASI';

end;

procedure TForm1.Button1Click(Sender: TObject);

VAR

msql:string;

begin

adoconnection1.Connected:=true;

msql:='insert into biodata(NIM_MHS,NM_MHS,KODE,JURUSAN)VALUES("'+EDIT1.Text+'","'+EDIT2.Text+'","'+combobox1.Text+'","'+EDIT3.Text+'")';

ADOCOMMAND1.CommandText:=msql;

adocommand1.Execute;

edit1.Text:='';

edit2.Text:='';

combobox1.Text:='';

edit3.Text:='';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

EDIT1.Text:='';

EDIT2.Text:='';

EDIT3.Text:='';

EDIT4.Text:='';

COMBOBOX1.Text:='';

EDIT1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

VAR

data:string;

begin

adodataset1.Active:=false;

adoconnection1.Connected:=true;

data:='select*from biodata Where NIM_MHS ="'+EDIT4.Text+'"';

ADODATASET1.CommandText:=data;

adodataset1.Active:=true;

if not adodataset1.Recordset.EOF then

begin

edit2.Text:=adodataset1.Fields[1].AsString;

COMBOBOX1.Text:=adodataset1.Fields[2].AsString;

edit3.Text:=adodataset1.Fields[3].AsString;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

APPLICATION.Terminate;

end;

4. Koneksikan Delphi 7 dengan Database Ms. Acccess 2007. Pastikan database sudah dibuat, field dan tabel sudah sesuai dengan program yang dibuat. Simpan database di lokasi yang sama dengan file Project Delphi.

5. Jalankan program dengan mengklik icon Run atau menekan tombol F9.

6. Lalu akan muncul tampilann se[erti berikut.

7. Cobalah untuk mengisi data mahasiswa sesuai dengan kolom yang ada. Kemudian klik tombol SIMPAN DATA untuk menyimpan data ke database.

8. Klik tombol INPUT DATA untuk menginput data mahasiswa baru.

9. Untuk mencari data mahasiswa yang telah disimpan ke database, ketikkan NIM mahasiswa pada kolom PENCARIAN, kemudian klik tombol CARI DATA.

10. Maka akan muncul tampilan sebagai berikut.

11. Dengan demikian program sudah berjalan sesuai dengan yang seharusnya dan terkoneksi dengan baik ke database.

Selamat mengerjakan. Semoga dapat membantu..