Pemrograman dengan Database by agussunaryo86

VIEWS: 796 PAGES: 38

									                                             BAB 5
              PEMROGRAMAN DENGAN DATABASE


Delphi bisa dihubungkan dengan banyak jenis database, baik yang asli bawaan Delphi
seperti Paradox maupun yang database lain seperti dBase, Microsoft Access, SyBase,
Oracle, Microsoft SQL, MySQL, dll. Bahkan NotePad pun bisa kita gunakan sebagai
databse, tempat menyimpan data kita.



5.1 NOTEPAD

Langkah pertama kita mulai pemrograman kita menggunakan Notepad. Mengapa kita
memulai dengan Notepad ? Karena Notepad simple dan ukuran filenya relatif kecil.
Biasanya Notepad sering dipakai untuk menyimpan data seperti Software Kamus, atau
pun Software yang datanya tidak terlalu kompleks.


A. MENGECEK APAKAH FILE *.TXT ADA

Langkah pertama kita buat aplikasi untuk mengecek apakah file Notepad yang kita
butuhkan untuk menyimpan data ada atau tidak. Buat aplikasi baru, tambahkan sebuah
Button.




Double klik Button1 lalu tambahkan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
If FileExists('C:\Test.txt') then Showmessage('File bernama Test.Txt ditemukan !');
end;

Ketika dijalankan dan ditekan Button1, maka jika di drive C tidak ada file Notepad
bernama Test.Txt maka tidak akan terjadi reaksi apa-apa. Ketika di drive C ditemukan
file tersebut, maka akan muncul pesan seperti ini :




 www.belajardelphi.com --------------------------------------------------------- Halaman : 1 of 38
B. MEMBUAT FILE *.TXT MELALUI DELPHI

Untuk memudahkan User Anda, Anda bisa membuat file Notepad dengan nama tertentu
dan tersimpan di alamat yang diinginkan.
Ubahlah script pada Button1 menjadi sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
Var
  F : Textfile;
begin
If FileExists('C:\Test.txt') then Showmessage('File bernama Test.Txt ditemukan !')
else
  Begin
  AssignFile(F, 'C:\Test.txt');
  ReWrite(F);
  Closefile(F);
  Showmessage('File bernama Test.Txt selesai dibuat !')
  end;
end;

Sekarang hapus file Test.Txt yang ada di drive C tadi. Jalankan aplikasi lalu tekan
Button1. Maka muncul pesan bahwan Software Anda baru saja selesai membuat file
bernama Test.Txt di drive C.




Jika Anda keluar dan sekali lagi menjalanka aplikasi dan menekan Button1 maka keluar
pesan di drive C sudah ada file Test.Txt.


C. MENYIMPAN DATA KE TEXT FILE

Menyimpan data pada Text file ada dua cara : Menyimpan dengan menghapus data lama
(Over write) atau menambahkan data baru ke data lama.

Kita coba satu persatu. Buat aplikasi baru, gunakan komponen Button dan Memo.
Tambhakan script di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
Var
 F : Textfile;
begin
 AssignFile(F, 'C:\Test.txt');
 Append(F);
 Rewrite(F);
 Writeln(F,Memo1.text);
 Closefile(F);
end;

Jalankan aplikasi lalu tuliskan sesuatu di Memo, lalu tekan Button1.




 www.belajardelphi.com --------------------------------------------------------- Halaman : 2 of 38
Maka akan kita temukan apa yang terluis si memo1 akan tersimpan di File Test.Txt yang
ada di drive C. Jika kita ulangi maka data akan di over write atau ditimpa.

Jika kita ingin menyimpan data baru tanpa menghilangkan data lama, ubah scriptnya
menjadi seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
Var
  F : Textfile;
begin
  AssignFile(F, 'C:\Test.txt');
  Append(F);
// Rewrite(F);
  Writeln(F,Memo1.text);
  Closefile(F);
end;

Penambahan tanda // akan menyebabkan baris perintah Rewrite(F) tidak diindahkan
atau tidak dilaksanakan oleh Delphi. Jadi script di atas sama saja dengan seperti di
bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
Var
 F : Textfile;
begin
 AssignFile(F, 'C:\Test.txt');
 Append(F);
 Writeln(F,Memo1.text);
 Closefile(F);
end;


D. MENGAMBIL DATA DARI TEXT FILE

Kita langsung menuju contoh.
Buat aplikasi baru, tambahkan sebuah Memo dan sebuah Button. Double Click Button1
lalu tambahkan script seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('C:\Test.txt');
end;




 www.belajardelphi.com --------------------------------------------------------- Halaman : 3 of 38
Jalankan aplikasi lalu tekan Button1. Maka isi Test.Txt akan tertulis di Memo1 sebagai
berikut :




Jika muncul pesan error seperti di bawah, simpan dulu aplikasi Anda baru dijakankan
kembali.




Cara lain memanggil isi NotePad file adalah dengan Combobox. Buat aplikasi baru
dengan sebuah Combobox dan Button. Tambahkan script sebagai berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
Combobox1.Items.LoadFromFile('C:\Test.Txt');
end;

Jalankan aplikasi, tekan Button1.




Jika Anda ingin item pertama dari data pada Combobox langsung tampil, ubah script nya
menjadi seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
Combobox1.Items.LoadFromFile('C:\Test.Txt');
Combobox1.Text:=Combobox1.Items[0];
end;




 www.belajardelphi.com --------------------------------------------------------- Halaman : 4 of 38
5.2 MICROSOFT ACCESS 1

A. MENYIAPKAN DATA

Langkah pertama, buat file sebuah file Microsoft Access. Saya juga telah menyediakan
file ini jika Anda kesulitan untuk membuatnya.




B. MEMBUAT APLIKASI

Buka aplikasi baru lalu tambahkan beberapa komponen sbb :
   - ADOConnection          (Tab ADO)
   - ADOTable               (Tab ADO)
   - DataSource             (Tab Data Access)
   - DBGrid                 (Tab Data Controls)

Tampilannya akan seperti di bawah ini :




 www.belajardelphi.com --------------------------------------------------------- Halaman : 5 of 38
C. MENGHUBUNGKAN DATABASE

Ubah Properties LoginPrompt-nya ADOConnection1 menjadi False.




Sekarang kita hubungkan aplikasi kita dengan file Acces.             Masih di ADOConnection1,
Click tombol “…” di sebelah properties ConnectionString.




Akan muncul jendela dialog sbb :




Tekan tombol “Build…” maka akan muncul jendela Data link properties.




 www.belajardelphi.com --------------------------------------------------------- Halaman : 6 of 38
Pilih “Microsoft Jet 4.0 OLE DB Provider” pada Tab Provider.




Tekan tombol “Next>>” maka akan pergi ke Tap “Connection”. Tekan tombol “…” !




 www.belajardelphi.com --------------------------------------------------------- Halaman : 7 of 38
Maka akan dimunculkan dialog untuk memilih file Access.




Pilih file yang akan kita gunakan lalu tekan tombol “Open”.

Pada Data Link Properties tekan tombol “Test Connection”.




 www.belajardelphi.com --------------------------------------------------------- Halaman : 8 of 38
Jika file Access yang kita hubungkan dengan aplikasi kita sukses akan muncul pesan
“Test Connection Succeeded”.




Click Ok pada Microsoft Data Link. Click Ok pada Data Link Properties.

Selanjutnya set Properties Connection ADOTable1 ke ADOConnection1.




Masih di ADOTable1, set Properties Table-nya.




 www.belajardelphi.com --------------------------------------------------------- Halaman : 9 of 38
Langkah berikutnya set Properties Dataset dari DataSource1 menjadi ADOTable1.




Lalu Properties DataSource-nya DBGrid diubah menjadi DataSource1.




Nah, aplikasi kita sudah terhubung dengan file Acces. Untuk mengaktifkannya Table biar
terlihat di Delphi, set ADOTable1 Properties Active-nya menjadi True.




Jalankan aplikasi dengan menekan tombol F9. Terlihat bahwa komponen-komponen :
    - ADOConnection        Tidak terlihat
    - ADOTable             Tidak terlihat
    - DataSource           Tidak terlihat
    - DBGrid               Terlihat




www.belajardelphi.com --------------------------------------------------------- Halaman : 10 of 38
Jadi sebenarnya ada 2 macam komponen Delphi, yaitu yang terlihat saat aplikasi
dijalankan dan yang tidak terlihat saat aplikasi dijalankan.




Sekarang tutup aplikasi. Tarik DBGrid1 sesuai keinginan. Sesuaikan lebar Form1.




Sekarang Anda sudah mempunyai sebuah aplikasi yang sudah terhubung dengan
database yang ditulis di Microsoft Access.




www.belajardelphi.com --------------------------------------------------------- Halaman : 11 of 38
D. MENYIMPAN DATA

Tambahkan 4 buah Edit dan 4 buah Label. Tambahkan pula sebuah Button.




Ubah properties komponen-komponen tadi, lalu lebarkan beberapa komponen mengikuti
gambar di bawah ini.




Double Click Button1 lalu tambahkan Script di bawah ini.

procedure TForm1.Button1Click(Sender: TObject);
begin
Adotable1.Insert;
Adotable1.Edit;
Adotable1['No']:=Adotable1.RecordCount+1;
Adotable1['Tanggal']:=Edit1.Text;
Adotable1['Jam']:=Edit2.Text;
Adotable1['Kegiatan']:=Edit3.Text;



www.belajardelphi.com --------------------------------------------------------- Halaman : 12 of 38
Adotable1['Tempat']:=Edit4.Text;
Adotable1.Next;
end;

Jalankan aplikasi dengan menekan tombol F9. Isilah Edit 1 sampai Edit 4.




Tekan Button1.




Data tersimpan di table Access kita.




www.belajardelphi.com --------------------------------------------------------- Halaman : 13 of 38
Tambahkan beberapa data lagi lalu simpan dengan menekan Button1.




Sekarang kita pahami Script-nya :

Adotable1.Insert; //Menyisipkan row baru pada table
Adotable1.Edit; //Mengubah status table untuk siap diedit
Adotable1['No']:=Adotable1.RecordCount+1; //Mengisi Nomor dengan mengambil nilai
      jumlah row table sebelum data baru disimpan + 1
Adotable1['Tanggal']:=Edit1.Text; //Mengisi Tanggal dengan text-nya Edit1
Adotable1['Jam']:=Edit2.Text; //Mengisi Jam dengan text-nya Edit2
Adotable1['Kegiatan']:=Edit3.Text; //Mengisi Kegiatan dengan text-nya Edit3
Adotable1['Tempat']:=Edit4.Text; //Mengisi Tempat dengan text-nya Edit4
Adotable1.Next; //Menyimpan

Jika Anda ingin mempermudah User agar setiap kali menyimpan data, semua Edit
kosong sehingga tidak perlu menghapusnya saat mengisi data baru, tambahkan
beberapa Script lagi sehingga menjadi seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
//Menyimpan Data
Adotable1.Insert;
Adotable1.Edit;
Adotable1['No']:=Adotable1.RecordCount+1;
Adotable1['Tanggal']:=Edit1.Text;
Adotable1['Jam']:=Edit2.Text;
Adotable1['Kegiatan']:=Edit3.Text;
Adotable1['Tempat']:=Edit4.Text;
Adotable1.Next;
//Mengosongkan Form
Edit1.Text :='';
Edit2.Text :='';
Edit3.Text :='';
Edit4.Text :='';
end;




www.belajardelphi.com --------------------------------------------------------- Halaman : 14 of 38
E. DBNAVIGATOR

Tambahkan sebuah komponen DbNavigator yang ada pada Pallet Data Controls.




Ubah DataSource nya menjadi DataSource1 seperti gambar di bawah :




Jalankan aplikasi dan coba tekan tombol-tombol dari DbNavigator.        Anda bisa
menghapus data dengan menekan tombol “-“, Menambah baris dengan menekan tombol
“+”, Menuju ke baris berikutnya dengan menekan tombol anak panah, refresh data, dll.
Silahkan coba !




www.belajardelphi.com --------------------------------------------------------- Halaman : 15 of 38
F. MENCARI DATA

Setelah data tersimpan, kita pasti memerlukan tool pada aplikasi kita untuk mencari.
Tambahkan sebuah komponen Label, Edit dan Button.




Double Click Button2, lalu tambahkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
With Adotable1 do
 Begin
 Filtered := False;
 Filter := '[Kegiatan] = ' +QuotedStr(Edit5.Text);
 Filtered:=True;
 end;
end;

Jalankan aplikasi lalu tulis “Makan makan” pada Edit5, tekan Button2. Terlihat bahwa
tabel menampilkan hanya kegiatan “Makan makan” yang ditampilkan sesuai dengan
pilihan kita.

Coba Anda tulis “Makan” saja dan tekan Button2. Terlihat data pada table kosong alias
tidak ada data yang ditemukan. Jadi di sini kita harus menuliskan data secara tepat
sama, baru data akan ketemu. Cape’ deh !

Pingin yang lebih seru ? Pingin yang tidak cape’ mencarai data, saya ajarkan cara yang
lebih bagus dalam penanganan data pada pembahasan selanjutnya. Silahkan baca terus
….. semangat terus ya !




www.belajardelphi.com --------------------------------------------------------- Halaman : 16 of 38
Jika Anda ingin menampilkan berapa data yang ditemukan, tambahkan sebuah text lalu
tambahkan pula script untuk Button2 menjadi sebagai berikut.

procedure TForm1.Button2Click(Sender: TObject);
begin
With Adotable1 do
 Begin
 Filtered := False;
 Filter := '[Kegiatan] = ' +QuotedStr(Edit5.Text);
 Filtered:=True;
 end;
Label6.Caption:='Jumlah Data Ditemukan : '+IntToStr(Adotable1.RecordCount);
end;




www.belajardelphi.com --------------------------------------------------------- Halaman : 17 of 38
5.3 MICROSOFT ACCESS 2

Ada banyak cara untuk menghubungkan aplikasi kita dengan database. Kita sekarang
belajar untuk menghubungkan aplikasi Delphi dengan Microsoft Access dengan cara lain.
Kita juga akan belajar menyimpan dan mencari data dengan script yang lebih baik.
Dalam hal ini kita masih menggunakan database yang sama, file yang sama.


A. MEMBUAT APLIKASI

Buka aplikasi baru lalu tambahkan beberapa komponen sbb :
   - ADOConnection          (Tab ADO)
   - ADOCommand             (Tab ADO)
   - ADODataSet             (Tab ADO)
   - DataSource             (Tab Data Access)
   - DBGrid                 (Tab Data Controls)

Tampilannya akan seperti di bawah ini :




B. MENGHUBUNGKAN DATABASE

Sekarang saatnya menghubungkan aplikasi Anda dengan database.
Ubah Properties LoginPrompt-nya ADOConnection1 menjadi False.




www.belajardelphi.com --------------------------------------------------------- Halaman : 18 of 38
Sekarang kita hubungkan aplikasi kita dengan file Acces.            Masih di ADOConnection1,
Click tombol “…” di sebelah properties ConnectionString.




Akan muncul jendela dialog sbb :




Tekan tombol “Build…” maka akan muncul jendela Data link properties.
Pilih “Microsoft Jet 4.0 OLE DB Provider” pada Tab Provider.




www.belajardelphi.com --------------------------------------------------------- Halaman : 19 of 38
Tekan tombol “Next>>” maka akan pergi ke Tap “Connection”. Tekan tombol “…” !




Maka akan dimunculkan dialog untuk memilih file Access.




Pilih file yang akan kita gunakan lalu tekan tombol “Open”.




www.belajardelphi.com --------------------------------------------------------- Halaman : 20 of 38
Pada Data Link Properties tekan tombol “Test Connection”.




Jika file Access yang kita hubungkan dengan aplikasi kita sukses akan muncul pesan
“Test Connection Succeeded”.




Langkah berikutnya set Properties Dataset dari DataSource1 menjadi ADODataSet1.




www.belajardelphi.com --------------------------------------------------------- Halaman : 21 of 38
Set Properties Connection dari ADOCommand1 menjadi ADOConnection1.




Set Properties DataSource dari DBGrid1 menjadi DataSource1.




Set Properties Connection dari ADODataSet1 menjadi ADOConnection1.




www.belajardelphi.com --------------------------------------------------------- Halaman : 22 of 38
Click tombol “…” pada Properties CommandText dari ADODataSet1 sehingga muncul
CommandText Editor seperti gambar di bawah :




Tambahkan pada SQL Editor script berikut :

Select * from Agenda

Sehingga tampilan ScreenShot nya menjadi begini :




Click Ok.




www.belajardelphi.com --------------------------------------------------------- Halaman : 23 of 38
Set Properties Active dari ADODataSet1 menjadi True.




Maka pada DBGrid akan muncul tabel yang sudah kita buat di Microsoft Access.


C. MENYIMPAN DATA

Sedikit berbeda dengan cara pertama, kita coba menyimpan data dengan cara yang
lebih benar.
Tambahkan komponen-komponen berikut :
    - Groupbox1 dan 2
    - Label 1 ~ 5
    - Edit 1 ~ 6
    - RadioButton1 dan 2
    - Button1

Susun seperti gambar di bawah :




www.belajardelphi.com --------------------------------------------------------- Halaman : 24 of 38
Double Click Button1 lalu tambahkan script berikut ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
 AdoDataSet1.Filtered:=False;
 AdoDataSet1.Append;
 AdoDataSet1['No']:=IntToStr(AdoDataSet1.RecordCount+1);
 AdoDataSet1['Tanggal']:=Edit1.Text;
 AdoDataSet1['Jam']:=Edit2.Text;
 AdoDataSet1['Kegiatan']:=Edit3.Text;
 AdoDataSet1['Tempat']:=Edit4.Text;
 AdoDataSet1.Post;
 Showmessage('Input Data Baru ..... Sukses !');
end;

Sekarang ubah Properties komponen-komponen di sebelah kiri                     yang    baru kita
tambahkan tadi menjadi sebagai berikut :




Jalankan aplikasi Anda, cobalah untuk memasukkan dan menyimpan data baru.
Software Anda sudah bisa menyimpan data baru dan memunculkan pesan sukses ketika
data sudah tersimpan.




Anda bisa lebih meningkatkan kemampuan Software Anda dengan melakukan validasi
data, seperti data harus angka semua, data tidak boleh kosong, dan lain sebagainya.




www.belajardelphi.com --------------------------------------------------------- Halaman : 25 of 38
D. MENCARI DATA

Sekarang saatnya belajar menemukan data dengan cara yang lebih baik.                             Atur
Properties Visible dari Edit5 dan Edit6 menjadi False.




Double Click RadioButton1 lalu tambahkan script di bawah ini :

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
Edit5.Visible:=True;
Edit6.Visible:=False;
Edit5.SetFocus;
end;

Double Click RadioButton2 lalu tambahkan script di bawah ini :

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
Edit5.Visible:=False;
Edit6.Visible:=True;
Edit6.SetFocus;
end;

Jalankan aplikasi lalu tekan RadioButton1 dan 2 secara bergantian untuk mengetahui
fungsi script yang barusan kita tanam.

Sekarang Double Click Edit5, tambahkan script di bawah ini :

procedure TForm1.Edit5Change(Sender: TObject);
begin
AdoDataSet1.Active:=False;
AdoDataSet1.CommandText:='Select * from Agenda                    where    [Kegiatan]     like    '+
QuotedStr('%'+Edit5.Text+'%');
AdoDataSet1.Active:=True;
end;

Demikian juga lakukan untuk Edit6.

procedure TForm1.Edit6Change(Sender: TObject);
begin
AdoDataSet1.Active:=False;
AdoDataSet1.CommandText:='Select * from Agenda                     where    [Tempat]     like     '+
QuotedStr('%'+Edit6.Text+'%');
AdoDataSet1.Active:=True;
end;




www.belajardelphi.com --------------------------------------------------------- Halaman : 26 of 38
Sekarang ubah Properties dari komponen-komponen yang ada di sebelah kanan menjadi
sebagai berikut :




Sekarang jalankan aplikasi, misalkan kita click Kegiatan lalu kita isi “Makan makan”.




Dari ScreenShot di atas terlihat bahwa hanya dengan mengetikkan sebuah huruf “m”,
tampil semua kegiatan yang mengandung huruf “m”. Jadi terasa Software Anda lebih
peka saat mencari. Tentu ini akan memudahkan User Anda.

Coba lakukan hal yang sama untuk data Tempat !




www.belajardelphi.com --------------------------------------------------------- Halaman : 27 of 38
E. MENAMPILKAN DATA YANG DITEMUKAN

Langkah terakhir untuk menyempurnakan Software Anda, Anda harus menampilkan
jumlah data yang ditemukan. Ubah Properties dari komponen-komponen yang ada di
bagian bawah menjadi seperti terlihat di bawah ini.




Kembali lakukan Double Click Edit5 dan Edit6, lalu tambahkan script di bawah ini :
Label5.Caption:='Total Data Ditemukan : '+IntToStr(ADODataSet1.RecordCount);

Jadi script lengkap untuk Edit5 dan Edit6 menjadi seperti ini :

procedure TForm1.Edit5Change(Sender: TObject);
begin
AdoDataSet1.Active:=False;
AdoDataSet1.CommandText:='Select * from Agenda where [Kegiatan] like                            '+
QuotedStr('%'+Edit5.Text+'%');
AdoDataSet1.Active:=True;
Label5.Caption:='Total Data Ditemukan : '+IntToStr(ADODataSet1.RecordCount);
end;

procedure TForm1.Edit6Change(Sender: TObject);
begin
AdoDataSet1.Active:=False;
AdoDataSet1.CommandText:='Select * from Agenda where [Tempat] like                              '+
QuotedStr('%'+Edit6.Text+'%');
AdoDataSet1.Active:=True;
Label5.Caption:='Total Data Ditemukan : '+IntToStr(ADODataSet1.RecordCount);
end;

Jalankan kembali aplikasi Anda, lakukan sorting data, maka akan ditampilkan jumlah
data yang ditemukan.




www.belajardelphi.com --------------------------------------------------------- Halaman : 28 of 38
F. MENAMPILKAN SEMUA DATA

Bagaimana menampilkan semua data ? Tambahkan sebuah komponen Button2. Ubah
Propertiesnya sehingga terlihat seperti gambar.




Double Click Button2 lalu tambahkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit5.Visible:=False;
Edit6.Visible:=False;
RadioButton1.Checked:=False;
RadioButton2.Checked:=False;
Edit5.Text:='.';
Edit6.Text:='';
Label5.Caption:='Total Data Ditemukan : '+IntToStr(ADODataSet1.RecordCount);
end;

Jalankan kembali aplikasi Anda. Cobalah untuk melakukan input data baru, sorting data
atau mencari data, lalu coba pula untuk melihat kembali semua data setelah dilakukan
sorting. Hasilnya lebih bagus daripada pembahasan sebelumnya bukan ?


G. MENGHAPUS DATA

Tambahkan Button3.




www.belajardelphi.com --------------------------------------------------------- Halaman : 29 of 38
Double click Button3 lalu masukkan script di bawah ini :

procedure TForm1.Button3Click(Sender: TObject);
begin
AdoDataSet1.Delete;
Label5.Caption:='Total Data Ditemukan : '+IntToStr(ADODataSet1.RecordCount);
end;

Ubah caption Button3 menjadi “Delete 1 Baris”.




5.4 PARADOX


A. MENYIAPKAN DATA

Paradox adalah database asli bawaan Delphi. Kita mulai dengan mempersiapkan tabel
yang akan kita pakai dalam aplikasi kita. Untuk membuat tabel, panggil Database
Desktop melalui Delphi : Tools / Database Desktop.




www.belajardelphi.com --------------------------------------------------------- Halaman : 30 of 38
Kemudian buat tabel baru melalui File / New / Table…




Pilih “Paradox 7” lalu tekan “Ok”.




Muncullah Menu untuk membuat Structure tabel yang akan kita buat. Ini mirip dengan
saat kita membuat tabel dari Ms Access. Isikan nama Field, typenya, ukuran field dan
Key. Jika field diberi tanda “*”, artinya dia adalah sebagay Key atau dalam Ms Access
dikenal sebagai Primary Key.




Simpan tabel yang sudah kita buat di tempat yang kita inginkan.                 Tutup Database
Desktop.




www.belajardelphi.com --------------------------------------------------------- Halaman : 31 of 38
B. MEMBUAT APLIKASI

Buat aplikasi baru, tambahkan komponen-komponen berikut ini :
   - Table                 (Tab BDE)
   - DataSource            (Tab Data Access)
   - DBGrid                (Tab Data Controls)

Terlihat Form Anda akan seperti gambar di bawah ini.




C. MENGHUBUNGKAN DATABASE

Set Properties DataSet dari DataSource1 menjadi Table1.




Sekarang set Properties dari Table1. Sebelum setup Properties Table1, Anda harus
menyimpan program Anda satu tempat dengan tabel Paradox yang sudah Anda buat.
Mengapa harus disimpan dulu ? Kalau tidak disimpan nanti Anda akan mengalami
kesulitan saat harus menentukan alamat tabel.

Sekarang set Properties DataSource DbGrid1 menjadi “DataSource1”.




www.belajardelphi.com --------------------------------------------------------- Halaman : 32 of 38
Set Properties TableName Table1 menjadi “DataBarang.db”. Ini adalah nama tabel yang
kita buat dari Database Desktop tadi. Kalau aplikasi yang Anda buat belum Anda
simpan, maka tidak akan muncul nama tabel “DataBarang.db” ini.




Aktifkan tabel dengan mengubah Properties Active dari Table1 menjadi “True”.




Maka terlihat tabel aktif di DbGrid1 seperti terlihat gambar di bawah ini. Artinya aplikasi
Anda sudah terhubung dengan tabel database Paradox yang Anda buat dengan Database
Desktop tadi.




www.belajardelphi.com --------------------------------------------------------- Halaman : 33 of 38
D. MENYIMPAN DATA

Tambahkan komponen sehingga seperti terlihat di bawah.




Double click Button1 lalu tambahkan script seperti di bawah ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1['KODE BARANG']:=Edit1.Text;
Table1['NAMA BARANG']:=Edit2.Text;
Table1['HARGA']:=Edit3.Text;
Table1['QTY']:=Edit4.Text;
Table1.Post;
end;

Ganti caption komponen baru Anda sehingga terlihat seperti di bawah ini.




www.belajardelphi.com --------------------------------------------------------- Halaman : 34 of 38
Jalankan aplikasi, isi data pada Edit1 ~ 4 lalu tekan Button1 untuk menyimpan. Ulangi
beberapa kali. Ingat, jangan mengisi Kode Barang yang sama dengan data yang sudah
di masukkan sebelumnya.




E. MENCARI DATA

Tambahkan komponen-komponen baru untuk pencarian data.




Double click Edit5, lalu tambahkan script di bawah ini :

procedure TForm1.Edit5Change(Sender: TObject);
begin
Table1.FindNearest([Edit5.text]);
end;




www.belajardelphi.com --------------------------------------------------------- Halaman : 35 of 38
Ubah caption komponen yang baru Anda masukkan sehingga seperti di bawah ini.




Jalankan aplikasi lalu ketikkan sebuah Kode Barang pada Edit5. Maka terlihat aplikasi
Anda sudah bisa mencari data.


F. MEMINDAHKAN FILE

Jika Anda ingin memindahkan aplikasi dan databasenya, jangan lupa memindahkan file
index. Dalam contoh yang saya buat di atas, file-file yang harus ada ketika aplikasi
dijalankan adalah :




www.belajardelphi.com --------------------------------------------------------- Halaman : 36 of 38
5.5 TIPS

Masih ingat saat menghubungkan             Database     sehingga    muncul     tampilan    seperti
Screenshot di bawah ini ?




Jika file Access yang kita hubungkan dengan aplikasi kita sukses akan muncul pesan
“Test Connection Succeeded”.




Hal terpenting setelah Anda menyelesaikan software Anda dan ingin dipindahkan atau di
install ke PC lain, Anda dituntut harus meletakkan semua software Anda dan terutama
file database sesuai dengan saat Anda buat.

Dalam contoh di atas, terlihat database yang saya buat terletak di D dan nama filenya
Agendaku.mdb.     (Lihat lingkaran biru : “D: \Agendaku.mdb”).      Kalau Anda tidak
meletakkan semua file persis seperti saat dibuat, maka software Anda tidak akan bisa
jalan. Software Anda tidk bisa menemukan letak database nya.

Cara lain yang lebih mudah, hilangkan alamat file databasenya sehingga tinggal nama
file databasenya : “Agendaku.mdb”. Penghapusan alamat hanya boleh dilakukan jika
Anda telah mengklik “Test Connection” dan mendapatkan hasil “Test Connection
Succeeded”.




www.belajardelphi.com --------------------------------------------------------- Halaman : 37 of 38
Dengan demikian Anda bisa bebas mengcopy atau menginstall software Anda di PC lain,
tanpa terikat alamat.




www.belajardelphi.com --------------------------------------------------------- Halaman : 38 of 38

								
To top