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;
Diposkan oleh dragon on Minggu, 09 Oktober 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) pilihTool → 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;
