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;
1 komentar:
min, kok punya saya buat aliasnya gk bisa ya ?
Posting Komentar