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.., 

3. pilih File - Use Unit(ALT+F11).

3. Buat komponen RadioGrup dan dibagian Properties - Items - tuliskan tiga pilihan tersebut.

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

5. Akan secara otomatis terbuatlah 1 procedure FieldByName1, kemudian silahkan ketik aba-aba di bawah ini..!

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!

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

#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

• Share
• Share