Buat Crud Dengan Fieldbyname, Fieldlist & Fieldvalues Di Delphi7

Buat Crud Dengan Fieldbyname, Fieldlist & Fieldvalues Di Delphi7
 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

Melanjutkan tutorial sebelumnya wacana Cara Menghubungkan MySQL ke Delphi 7, kali ini kita akan berguru pada penggunaan FieldByName, FieldList dan FieldValue di Delphi 7.

Tutorial FieldByName, FieldList & FieldValues Delphi7


1. Pastikan nyalakan MySQL kalian dengan Xampp atau lainnya menyerupai Mampp.
2. Buka dan Jalankan Projek yang kita buat sebelumnya, buka Data Module lalu.., 

 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

3. pilih File - Use Unit(ALT+F11).
 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

3. Buat komponen RadioGrup dan dibagian Properties - Items - tuliskan tiga pilihan tersebut.
 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

4. Beralih ke aba-aba program(Gunakan tombol F12 untuk berpindah form ke aba-aba jadwal & sebaliknya). Buatlah 3 procedure dibagian Public, kemudian arahkan kursor ke ;(semicolon) pada FieldByName1 dan tekan CTRL + SHIFT + C, maka
 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

5. Akan secara otomatis terbuatlah 1 procedure FieldByName1, kemudian silahkan ketik aba-aba di bawah ini..!
 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7
Lakukan cara yang sama untuk menciptakan Procedure FieldList dan FieldValues 😊 

6. Kode jadwal untuk Procedure FieldList :
with DataModule1.ZQ_Mahasiswa do     begin       Append; // membuka jalur koneksi       FieldList[0].AsString := edt_npm.text;       FieldList[1].AsString := edt_nama.text;       FieldList[2].AsString := edt_alamat.text;       FieldList[3].AsDateTime := edt_tanggal.Date;       Post;   // store data ke database     ShowMessage('Data berhasil disimpan dengan FieldList');     end;

7. Kode jadwal untuk Procedure FieldValues :
with DataModule1.ZQ_Mahasiswa do     begin       Append; // membuka jalur koneksi       FieldValues['npm'] := edt_npm.text;       FieldValues['nama'] := edt_nama.text;       FieldValues['alamat'] := edt_alamat.text;       FieldValues['tglLahir'] := edt_tanggal.Date;       Post;   // store data ke database     ShowMessage('Data berhasil disimpan dengan FieldValue');     end;

#Penjelasan fungsi FieldByName, FieldList & FieldValues

  • FieldByName adalah suatu Field yang sanggup diakses menurut nama Kolom yang ada pada Database anda. Jadi, kalian harus ingat nama-nama Field yang kalian gunakan 😜 mposs hehe.. Selain itu, kalian juga harus ingat Masing-masing tipe datanya dalam properti As. Nasib banget cekaceka XD
  • FieldValues penggunaannya hampir sama dengan FieldByName, tapi TANPA properti As.
  • FieldList paling simpel digunakan, alasannya ialah sanggup diakses sesuai no.kolom pada Database anda.
  • Tambahan, properti As dipakai pada ketika membaca/mengubah nilai suatu Field/Kolom.

8. Beralih kembali ke Form(tekan F12 lagi), Double Click pada Tombol Tambah dan ketik aba-aba jadwal di bawah ini..
if PilihMetode.ItemIndex = 0 then     FieldByName1   else if PilihMetode.ItemIndex = 1 then     FieldList2   else if PilihMetode.ItemIndex = 2 then     FieldValue3   else     ShowMessage('Jangan ngeGAS, isi duluu kwkwwk :v');

9. Maka, ketika anda masukkan Data dan klik Tombol Tambah, maka akan muncul pesan Peringatan 😋 makanya, pilih dulu Metode Field nya wkwkwk.

10. Jika sudah dicentang, misalkan pakai FieldList, kemudian klik Tombol Tambah maka Data berhasil tersimpan.

11. Untuk aba-aba jadwal tombol HAPUS :
With DataModule1.ZQ_Mahasiswa do     begin       delete;       ShowMessage('Data telah dihapus');     end;

12. Untuk aba-aba jadwal tombol Reset : 
edt_npm.Clear;   edt_nama.Clear;   edt_alamat.Clear;   PilihMetode.ItemIndex := -1;   edt_npm.SetFocus;

13. Untuk aba-aba jadwal tombol Keluar :
Application.Terminate;


14. Untuk aba-aba jadwal tombol Edit/Ubah :
with DataModule1.ZQ_Mahasiswa do begin       Edit; // ubah bab ini aja       FieldByName('npm').AsString := edt_npm.text;       FieldByName('nama').AsString := edt_nama.text;       FieldByName('alamat').AsString := edt_alamat.text;       FieldByName('tglLahir').AsDateTime := edt_tanggal.Date;       Post;   // store data ke database       ShowMessage('Data berhasil di UBAH');     end;

15. Untuk kodingan Edit/Ubah belum selesai disitu, klik DbGrid - Event - klik Ganda pada OnDblClick, maka akan muncul aba-aba jadwal untuk Procedure DBGrid1.

Silahkan ketik aba-aba jadwal menyerupai pada gambar di bawah ini!
 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

16. Untuk mencoba mengedit Data, berikut langkahnya :
  • klik Ganda pada DBGrid, maka data yang dipilih akan muncul di Tedit.
  • Ubah datanya, dan klik Tombol UBAH. Maka, data berhasil di ubah 😎 mantep
 Melanjutkan tutorial sebelumnya wacana  Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

#KATA PENUTUP

Itulah tutorial singkat wacana penggunaan FieldByName, FieldList dan FieldValues serta apa itu properti As di Aplikasi CRUD Delphi 7.

Kurang jelas? Tanyakan & diskusikan 😅 agar sanggup dijawab kwkwkw.. Sampai jumpa di tutorial Delphi berikutnya.

Referensi : Fairuzelsaid CRUD Delphi7 Koding

Belum ada Komentar untuk "Buat Crud Dengan Fieldbyname, Fieldlist & Fieldvalues Di Delphi7"

Posting Komentar

Catatan Untuk Para Jejaker
  • Mohon Tinggalkan jejak sesuai dengan judul artikel.
  • Tidak diperbolehkan untuk mempromosikan barang atau berjualan.
  • Dilarang mencantumkan link aktif di komentar.
  • Komentar dengan link aktif akan otomatis dihapus
  • *Berkomentarlah dengan baik, Kepribadian Anda tercemin saat berkomentar.

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel