Memakai TDBNavigator untuk Memanipulasi Database Access

 Buatlah form dengan obyek-obyek seperti gambar dibawah ini. Form ini terdiri dari 2 TDBEdit, 1 TDBNavigator, 1 TADOTable, 1 TDataSource, dan 1 TADOConnection.

TADOConnection digunakan untuk berhubungan langsung dengan database. Dalam artikel ini, saya mengasumsikan database yang digunakan bernama Beli.Mdb. Bertipe Access, dan terletak satu folder dengan file executable. Sehingga untuk menghubungi database dengan TADOConnection, saya menuliskan kode berikut pada property ConnectionString sebagai berikut:

with ADOConnection1 do begin
       Close;
       ConnectionString :=
       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
       ExtractFilePath(Application.ExeName) +
       'beli.mdb;Persist Security Info=False;' +
       'Jet OLEDB:Database Password=123';
       LoginPrompt := false;
       Open;
end;

LoginPrompt dibuat false agar saat aplikasi dijalankan, kotak login tidak ditampilkan seperti ini:

TDataSource akan diperlukan oleh TDBNavigator dan TADOTable dalam melakukan operasinya. Sebelum dapat dipakai, kita menghubungkan TDataSource dengan TADOTable melalui property DataSet.

DataSource1.DataSet := ADOTable1;
 
TADOTable digunakan untuk menghubungi salah satu tabel pada database Beli.Mdb, sehingga perlu dihubungkan dengan TADOConnection dan kita memberitahukan nama tabel yang akan diakses oleh TAdoTable 
  
ADOTable1.TableName := 'DaftarBarang';
ADOTable1.Connection := ADOConnection1;
ADOTable1.Open;

Kita menggunakan TDBEdit untuk memasukkan, mengubah, dan menampilkan data. TDBEdit harus dihubungkan dengan TDataSource. Karena TDBEdit berhubungan langsung dengan field database, maka kita harus memberitahukan TDBEdit mengenal field mana yang akan diwakilinya.


DBEdit1.DataSource := DataSource1;
DBEdit1.DataField := 'KodeBarang';

DBEdit2.DataSource := DataSource1;
DBEdit2.DataField := 'Barang';

Dan yang terakhir. Kita membutuhkan TDBNavigator untuk melakukan manipulasi data. Aksi yang dapat dilakukan TDBNavigator adalah mulai dari menambah, mengubah, menampilkan 


DBNavigator1.DataSource := DataSource1;

Kode program selengkapnya: 

 unit UnitNavigator; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, DB, ADODB, Mask; type TForm1 = class(TForm) DBNavigator1: TDBNavigator; DataSource1: TDataSource; DBEdit1: TDBEdit; DBEdit2: TDBEdit; Label1: TLabel; ADOTable1: TADOTable; Label2: TLabel; ADOConnection1: TADOConnection; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with ADOConnection1 do begin Close; ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(Application.ExeName) + 'beli.mdb;Persist Security Info=False;' + 'Jet OLEDB:Database Password=123'; LoginPrompt := false; Open; end; ADOTable1.TableName := 'DaftarBarang'; ADOTable1.Connection := ADOConnection1; ADOTable1.Open; DataSource1.DataSet := ADOTable1; DBEdit1.DataSource := DataSource1; DBEdit1.DataField := 'KodeBarang'; DBEdit2.DataSource := DataSource1; DBEdit2.DataField := 'Barang'; DBNavigator1.DataSource := DataSource1; end; end.

Memakai TDBNavigator untuk Memanipulasi Database Access 2015-07-22T20:39:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer