Input Data Mahasiswa Menggunakan Program Delphi

BORLAND DELPHI

Borland delphi merupakan suatu bahasa pemrograman yang memberikan berbagai fasilitas pembuatan aplikasi Visual. Untuk mengenal lebih lanjut tentang pembuatan sebuah program aplikasi, didalam blog ini akan dapat dilihat contoh pembuatan sebuah project Input Data Mahasiswa.

Yang Dibuat Oleh;

Nama : Muhamad Firmarudin

NIM : 40809029

E-mail : firman_anyar@yahoo.com

Jurusan : Teknik Informatika

Kampus : STMIK-YPAT Purwakarta

Semester : VII ( Thn 2009 )

Mata kuliah : Borland Delphi

Dosen : Dince Sri Hardini, Skom

E-mail Dosen : srihar70@yahoo.co.id

TABEL

Cara membuat tabel

1. masuk ke delphi pilih Tool → database dekstop → ( sebelumnya kita akan buat folder atau tempat atau untuk menyimpan database tersebut) pilih Tool → Alias Manager → klik New lalu isi database alias → Browse ( Simpan database tsb ) → ok → yes

2. file → new → table → pilih jenis filenya contoh : Paradox 7 → ok → isi tabelnya → selesai LALU DI save → ok.

FORM

Cara membuat Formnya yaitu ;

1. Buat tampilan form seperti di bawah ini dengan menggunakan komponen- komponen yang tertera.

Nama Komponen	Properti	Nilai
Label1	Caption	Form input data Mahasiswa
Label2	Caption	Nama
Label3	Caption	Nim
Label4	Caption	Tempat dan Tanggal Lahir
Label5	Caption	Jurusan
Label6	Caption	Alamat
Label7	Caption	Hasil Input Data Mahasiswa
Edit1	Name	Nama
Edit2	Name	Nim
Edit3	Name	tmplhr
DateTimePicker1	Name	tgllhr
Edit5	Name	Jurusan
Edit6	Name	Alamat
Button1	Caption	Tambah
Button2	Caption	Hapus
Button3	Caption	Keluar
DBGrid1	-	-

2. Untuk memberikan hubungan dengan database yang di buat tadi, tambahkan komponen ADOConnection dari Tab ADO ke form. Selanjutnya klik tombol ‘...’ pada properti ConnectionString di Object Inspector.

3. Selanjutnya akan muncul kotak dialog Form1.ADOConnection ConnectionString, Pada kondisi default akan terpilih Use ConnectionString, Lalu Klik tombol Build.

4. Kotak dialog yang selanjutnya akan muncul Data Link Properties, disini a

nda harus memilih provider yang sesuai dengan database anda. Pada contoh ini penulis menggunakan database MS Access, maka provider yang dipilih adalah Microsoft Jet 4.0 OLE DB provider. Kemudian klik tombol next.

5. Selanjutnya adalah menentukan lokasi file database yang akan dihubungkan, jika lokasi file database berada dalam satu folder dengan proyek delphi, maka pada kotak isian Select Or Enter a database name, hanya cukup menuliskan nama file database lengkap dengan ekstensinya, lalu klik OK. Dan Klik OK lagi.

6. Untuk mengakses tabel-tabel yangterdapat dalam database kita bisa menggunakan komponen ADOQuery untuk mengakses tabel dalam database. Caranya tambahkan komponen ADOQuery dari Tab ADO ke form. Lalu atur properti Connetion menjadi ADOConnection, masukkan tulisan ‘select * from Mahasiswa’ pada properti SQL, lalu ubah properti active menjadi True.

7. Untuk menampilkan isi dari tabel pada ADOQuery1 ke DBGrid1, kita memerlukan sebuah komponen DataSource dari Tab Data Access ke form. Lalu atur properti DataSet menjadi ADOQuery1.

8. Untuk menghubungkan DataSource1 ke DBGrid1, atur properti DataSouerce pada DBGrid1 menjadi DataSoerce1. Setelah itu maka isi dari tabel Mahasiswa akan ditampilkan dalam DBGrid1.

Program

Untuk membuat sourcecode programnya dapat dilihat di bawah ini ;

1. Pada Button Tambah di klik dua kali, lalu ketik sourcecode ini yang berguna untuk menambahkan data atau menyimpan data yang baru ke dalam database.

// Menambah data Mahasiswa

procedure TForm1.Button1Click(Sender: TObject);

begin

try

adoquery1.Insert;

adoquery1.FieldByName('Nama').AsString:=Edit1.Text;

adoquery1.FieldByName('Nim').AsString:=Edit2.Text;

adoquery1.FieldByName('tmplhr').AsString:=Edit3.Text;

adoquery1.FieldByName('tgllhr').AsDateTime:=DateTimePicker1.DateTime;

adoquery1.FieldByName('Jurusan').AsString:=Edit5.Text;

adoquery1.FieldByName('Alamat').AsString:=Edit6.Text;

adoquery1.Post;

except

adoquery1.Cancel;

showmessage(' Salah Input ');

end;

end;

2. Pada Button Hapus di klik dua kali, lalu ketik sourcecode ini yang berguna untuk menghapus data pada form input data mahasiswa.

// Menghapus data Form Input Form data Mahasiswa

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text:=' ';

Edit2.Text:=' ';

Edit3.Text:=' ';

Edit5.Text:=' ';

Edit6.Text:=' ';

end;

3. Pada Button Keluar di klik dua kali, lalu ketik sourcecode ini yang berguna untuk Keluar dari program data input mahasiswa.

// Keluar dari Program

procedure TForm1.Button3Click(Sender: TObject);

begin

application.Terminate;

end;