Delphi: Perintah Dasar Pengelolaan Basis Data


Delphi:  Penggunaan berbagai metode TTable untuk pengelolaan tabel

Oleh: fairuzelsaid

Dalam Delphi dikenal berbagai perintah dasar dalam pengelolaan basis data. Pada sesi pemrograman basis data ini, akan dibahas mengenai metode-metode yang terdapat dalam komponen TTable. Diakhir sesi anda akan diberikan contoh pemrograman basis data menggunakan metode-metode pada komponen TTabel untuk pengelolaan record pada suatu tabel. Adapun metode-metode tersebut sebagai berikut:

  • Metode Append, digunakan untuk menambah record baru.
  • Metode Post, digunakan untuk mengupdate record baru atau record yang diubah
  • Metode Cancel, digunakan untuk membatalkan metode Append atau proses pengubahan data sebelum metode Post dilakukan.
  • Metode Delete, digunakan untuk menghapus record yang aktif.

Metode pada Komponene TTable untuk Menjelajahi record

Dalam basis data dikenal istilah kursor yang merupakan fasilitas yang menunjukkan record yang sedang aktif. Dalam komponen TTable dikenal beberapa metode untuk menggerakan kursor yang dapat digunakan pemakai untuk menjelajahi berbagai record dalam tabel. Adapun Perintah Dasar Pengelolaan basis Data yang berfungsi untuk menjelajahi record, sebagai berikut:

  • Metode First, digunakan untuk memindahkan pointer kerecord pertama.
  • Metode Last, digunakan untuk memindahkan pointer kerecord terakhir
  • Metode Next, digunakan untuk memindahkan pointer kerecord berikutnya
  • Metode Prior, digunakan untuk memindahkan pointer kerecord sebelumnya

Contoh Program meggunakan Perintah Dasar Pengelolaan Basis Data

  • Buatlah tabel administrator dengan struktur berikut:
Struktur Tabel Administrator

Struktur Tabel Administrator

  • Isilah data sebagai berikut:
Data Tabel Admnistrator

Data Tabel Admnistrator

  • Tentukan nama Alias database dengan nama Perpustakaan
  • Desain form sebagai berikut:
Form Input Administrator

Form Input Administrator

  • Atur properti, sebagai berikut:
Obyek Properti Pengaturan
Form Caption Administrator
Name FAdiministrator
Label1 Caption Nama Pengguna
Label2 Caption Kata Sandi
Label3 Caption Jenis Administrator
Button1 Caption &Tambah
Button2 Caption &Simpan
Button3 Captiom &Batal
Button4 Caption &Hapus
Button5 Caption T&utup
Table1 DatabaseName Perpustakaan
TableName Administrator.db
Active True
Datasource1 Dataset Table1
DBGrid1 DataSource DataSource1
DBEdit1 DataSource DataSource1
DataField NamaPengguna
DBEdit2 DataSource DataSource1
DataField KataSandi
PasswordChar *
DBCheckbox1 DataSource DataSource1
DataField SuperUser
Form Input Administrator Setelah pengaturan properti

Form Input Administrator Setelah pengaturan properti

Pengkodean:
procedure TFAdministrator.Button5Click(Sender: TObject);
begin
//menutup form
Close
end;
procedure TFAdministrator.FormCreate(Sender: TObject);
begin
//matikan tombol batal dan simpan
Button2.Enabled:=false;
Button3.Enabled:=false;
//menyembunykan kolom kedua
dbgrid1.Columns.Items[1].Visible:=false;
//mengatur lebar kolom pertama
dbgrid1.Columns.Items[0].Width:=260;
end;
procedure TFAdministrator.Button1Click(Sender: TObject);
begin
//matikan tombol navigasi
Button6.Enabled:=false;
Button7.Enabled:=false;
Button8.Enabled:=false;
Button9.Enabled:=false;
//hidupkan tombol batal dan simpan
//matikan tombol batal dan simpan
Button2.Enabled:=true;
Button3.Enabled:=true;
//matikan tombol hapus
Button4.Enabled:=false;
Table1.Append;
end;
procedure TFAdministrator.Button2Click(Sender: TObject);
begin
//hidupkan tombol navigasi
Button6.Enabled:=true;
Button7.Enabled:=true;
Button8.Enabled:=true;
Button9.Enabled:=true;
//matikan tombol batal dan simpan
Button2.Enabled:=false;
Button3.Enabled:=false;
//hidupkan tombol hapus
Button4.Enabled:=true;
Table1.Append;
Table1.Post;
end;
procedure TFAdministrator.Button3Click(Sender: TObject);
begin
//hidupkan tombol navigasi
Button6.Enabled:=true;
Button7.Enabled:=true;
Button8.Enabled:=true;
Button9.Enabled:=true;
//matikan tombol batal dan simpan
Button2.Enabled:=false;
Button3.Enabled:=false;
//hidupkan tombol hapus
Button4.Enabled:=true;
//Batal proses update
Table1.Cancel;
end;
procedure TFAdministrator.Button4Click(Sender: TObject);
begin
//kotak dialog untuk konfirmasi penghapusan
if MessageDlg ('Apakah data ini akan dihapus?', mtConfirmation,
[mbYes, mbNo],0) = mrYes then
//menghapus record aktif
Table1.Delete;
end;
procedure TFAdministrator.Button7Click(Sender: TObject);
begin
//kursor ke awal record
Table1.First;
end;
procedure TFAdministrator.Button6Click(Sender: TObject);
begin
//kursor ke record terakhir
Table1.Last;
end;
procedure TFAdministrator.Button8Click(Sender: TObject);
begin
//kursor ke record sebelumnya
Table1.Prior;
end;
procedure TFAdministrator.Button9Click(Sender: TObject);
begin
//kursor ke record berikutnya
Table1.Next;
end;

Demikian materi Pemrograman Basis Data dengan delphi. Semoga bermanfaat.

Materi Pmrograman Basis Data yang terkait:

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s