CARA MEMBUAT PROSES SIMPAN MENGGUNAKAN DELPHI 7

Oleh peistar

Saturday 18 June 2016

Bagikan :

Tweet

Dalam pemrograman kita membutuhkan proses simpan yang mana pada proses ini bertujuan untuk menyimpan kedalam database, untuk itu kali ini saya akan memberikan tutorial membuat proses simpan dengan menggunakan Bahasa Pemrograman Delphi 7 dengan lebih mudah. Sebelum kita membuat proses ini hal yang harus kita lakukan terlebih dahulu adalah mengkoneksikan database, bagi saudara – saudara yang belum mengkoneksikan Delphi kedatabase silahkan menuju link berikut ini :  TUTORIAL KONEKSI DATABASE MS. ACCESS DENGAN DELPHI 7.

Untuk mempersingkat waktu kita langsung saja pada materi yaitu cara membuat proses Simpan menggunakan delphi 7. Adapun langkah – langkah pengerjaanya sebagai berikut.

- Langkah Pertama : Desain Form Input Data Barang seperti gambar dibawah ini.

- Langkah Kedua : Tambahkan 3 (tiga) Componen pada Form Input Data Barang seperti gambar dibawah ini.

 

  

Katerangan :

Componen yang Pertama ADOConnection1 digunakan untuk koneksikan database ke Delphi.

Componen yang ke Dua ADOTable1 digunakan untuk memanggil koneksi.

Componen yang ke DataSource1 digunakan untuk menampilkan data dari tabel.

- Langkah Ketiga : Copy dan Pastekan coding dibawah ini kedalam area Proses Simpan dengan cara klik 2 pada button simpan.

Coding Program Proses Simpan :

ADOTable1.Append;

ADOTable1.FieldByName('Kd_Barang').AsString:=Edit1.Text;

ADOTable1.FieldByName('Nama_Barang').AsString:=Edit2.Text;

ADOTable1.FieldByName('Satuan').AsString:=Edit3.Text;

ADOTable1.FieldByName('Harga_Beli').AsString:=Edit4.Text;

ADOTable1.FieldByName('Harga_Jual').AsString:=Edit5.Text;

ADOTable1.Post;

edit1.Text :='';

edit2.Text :='';

edit3.Text :='';

edit4.Text :='';

edit5.Text :='';

Keterangan : Pastikan saudara menyesuaikan nama Field yang ada ditabel.

- Langkah Keempat : Untuk menampilkan data yang telah disimpan klik DBGrid1 satu kali kemudian panggil DataSource1 yang telah kita setting tadi. 

- Langkah Kelima : Untuk menampilkan data ke area Edit1, Edit2, Edit3, Edit4, dan Edit5 saudara dapat mengklik 1 (satu) kali pada DBGrid1, kemudian pilih Properties => Events => klik 2 (dua) kali pada area OnDblClick => masukan Coding Program dibawah ini kedalam area kerja procedure TForm2.DBGrid2DblClick(Sender: TObject);

Coding Program Tampil Data :

Edit1.Text:=ADOTable1.Fields[0].AsString;

Edit2.Text:=ADOTable1.Fields[1].AsString;

Edit3.Text:=ADOTable1.Fields[2].AsString;

Edit4.Text:=ADOTable1.Fields[3].AsString;

Edit5.Text:=ADOTable1.Fields[4].AsString;

Keterangan : Untuk memanggil data saudara bisa mengklik salah satu data yang ada pada DBGrid1.

Selamat mencoba semoga sukses...!!!

Baca Juga Link Dibawah ini :

• MEMBUAT DATABASE DENGAN MICROSOFT ACCESS 2007 LEBIH MUDAH.
• TUTORIAL KONEKSI DATABASE MS. ACCESS DENGAN DELPHI 7.
• CARA MEMBUAT MENU UTAMA SEDERHANA DENGAN MENGGUNAKAN DELPHI 7.

Tag : Pemrograman Delphi 7