data mahasiswa menggunakan delphi dn paradox 7

Posted by dragon on Sunday, 9 October 2011

type='html'>
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;

{ 0 comments... read them below or add one }

Post a Comment