Cara Membuat Form Input Data Mahasiswa Dengan 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.
1. Buka
program aplikasi Delphi 7
2. Buat
Tampilan program pada Form 1 seperti berikut ini.
Tambahkan ADOconnections, ADOcommand dan ADOdataset pada Tab ADO, serta DataSource(DB) pada tab Data Access.
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 seperti dibawah ini :
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.
Apabila terdapat Eror, perhatikan baik-baik pesan eror tersebut, dan cobalah dengan teliti pada Coding yang di inputkan, tetap semangat dan jangan panik....hehehehehehe...
Selamat
mengerjakan. Semoga dapat membantu Rekan-rekan sekalian jika ada tugas mengenai hal ini, dan jika ada kendala bisa koment ya guys, nanti akan Capt Pirate Coba pecahkan bersama...
Sekian Postingan.Membuat Program Input Data Mahasiswa Dengan Delphi 7.
Baca Juga Post Sebulumnya tentang membuat Form Login.....