Juli Koding: Delphi7

Showing posts with label Delphi7. Show all posts

Buat CRUD dengan Fieldbyname, FieldList & FieldValues di Delphi7

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

Tutorial FieldByName, FieldList & FieldValues Delphi7

1. Pastikan nyalakan MySQL kalian dengan Xampp atau lainnya seperti 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.

Buat RadioGrup dan dibagian Properties - Items - isi 3 pilihannya

4. Beralih ke kode program(Gunakan tombol F12 untuk berpindah form ke kode program & sebaliknya). Buatlah 3 procedure dibagian Public, lalu arahkan kursor ke ;(semicolon) pada FieldByName1 dan tekan CTRL + SHIFT + C, maka

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

Kode perintah untuk Procedure FieldByName

Lakukan cara yang sama untuk membuat Procedure FieldList dan FieldValues 😊

6. Kode program 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 program 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 dapat diakses berdasarkan 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 gampang digunakan, karena dapat diakses sesuai no.kolom pada Database anda.
Tambahan, properti As digunakan pada saat membaca/mengubah nilai suatu Field/Kolom.

8. Beralih kembali ke Form(tekan F12 lagi), Double Click pada Tombol Tambah dan ketik kode program 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, lalu klik Tombol Tambah maka Data berhasil tersimpan.

11. Untuk kode program tombol HAPUS :

With DataModule1.ZQ_Mahasiswa do
    begin
      delete;
      ShowMessage('Data telah dihapus');
    end;

12. Untuk kode program tombol Reset :

edt_npm.Clear;
  edt_nama.Clear;
  edt_alamat.Clear;
  PilihMetode.ItemIndex := -1;
  edt_npm.SetFocus;

13. Untuk kode program tombol Keluar :

Application.Terminate;

14. Untuk kode program tombol Edit/Ubah :

with DataModule1.ZQ_Mahasiswa do
begin
      Edit; // ubah bagian 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 kode program untuk Procedure DBGrid1.

Silahkan ketik kode program seperti pada gambar di bawah ini!

klik DbGrid - Event - klik Ganda pada OnDblClick, Procedure DBGrid1

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 tentang penggunaan FieldByName, FieldList dan FieldValues serta apa itu properti As di Aplikasi CRUD Delphi 7.

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

Referensi : Fairuzelsaid

Delphi7 Koding MySQL ZeosLibrary

Cara Koneksi Database MySQL ke Delphi 7 dan buat Form CRUD

Melanjutkan tutorial sebelumnya tentang "Cara Install Library Zeos Access di Delphi 7", kali ini kita akan belajar untuk Menghubungkan/Koneksi antara Database ke Delphi 7.

Selain itu, kita juga buatkan Form untuk Aplikasi CRUD pada Delphi 7.

APA itu CRUD ?

CRUD(Create, Read, Update & Delete) berguna untuk menambahkan, menghapus ataupun mengupdate/memperbaharui data. Intinya sih gitu 👻

Tutorial Koneksi Database ke Delphi 7

Banyak komponen yang dapat digunakan untuk Menghubungkan Database MySQL kalian ke Delphi 7, tetapi..

Di tutorial ini, saya menggunakan komponen ZEOS Access, jadi jangan lupa di install dulu. Berikut langkah-langkah koneksikan Database ke Delphi 7 :

1. Pastikan kalian sudah membuat database yang ingin kalian koneksikan ke Delphi nanti.

Yang perlu diingat, ialah nama Database(db_universitas), nama Tabel(tb_mahasiswa) dan nama Kolom Primary Key(npm) yg ingin ditampilkan datanya.

2. Beralih ke Delphi 7, buatlah Projek baru dan tambahkan Komponen TLabel dan TEdit pada Form.

tambahkan Komponen TLabel dan TEdit pada Form

Karena dalam tb_mahasiswa terdapat 4 kolom, maka saya buat masing-masing 4 label dan 3 Edit.

3. Untuk menginputkan Tanggal, kalian perlu menambahkan komponen "DateTimePicker".

Gunakan pencarian, agar lebih mudah untuk menemukan komponen.

4. Selanjutnya, tambahkan DBGrid pada tab "Data Controls".

5. Terakhir, tambahkan tombol. Agar tombol yang kalian miliki ada Icon nya. Pilih button di tab "Additional".

6. Klik FILE - New - Data Module, untuk membuat Data Module baru.

7. Sekarang, SAVE ALL. Simpan semua unit dan projek, usahakan namanya disamakan agar lebih mudah dipahami.

8. Tambahkan Komponen ZConnection dan ZQuery pada tab "ZeosAccess" dan komponen DataSource lalu letakkan ke DataModule(yg baru kita buat).

Komponen ZConnection, ZQuery dan DataSource

9. Ubah masing-masing properti "Name" pada 3 Tombol tersebut :

tombol_simpan
tombol_ubah
tombol_hapus

10. Ubah nilai pada properti ZConnection sebagai berikut :

User : root
Protocol : mysql
Port : 3306
Hostname : localhost
Database : db_universitas (nama databasenya)
Kemudian klik [...] pada LibraryLocation

11. Pilih File libmySQL, silahkan Download filenya disini..

12. Masih pada komponen ZConnection, ubah properti Connected menjadi True.

13. Beralih pada komponen ZQuery(ZQ_Mahasiswa), isi Properti "SQL" dengan perintah berikut :

SELECT * FROM nama_tabel ORDER BY nama_kolom_PrimaryKey ASC;
contohnya : SELECT * FROM tb_mahasiswa ORDER BY npm ASC;

Dan isi properti Connection : ZConnection1 dan Active : True.

ZQuery(ZQ_Mahasiswa), isi Properti "SQL" dengan perintah

Arti dari Perintah tersebut ialah Menampilkan semua Data Mahasiswa dengan mengurutkan Nilai sesuai kolom NPM.

14. Ubah nilai DataSet pada komponen "DataSource"(DataMahasiswa) menjadi ZQ_Mahasiswa(ZQuery)

Ubah nilai DataSet pada komponen "DataSource"

15. Klik FILE - Use Unit - pilih Unit Module yang kalian simpan sebelumnya.

16. Pilih dbGrid kalian - pada bagian Properties, ubah DataSource nya menjadi "DataModule.DataMahasiswa".

Selesai deh, sekarang tabel DbGrid akan menampilkan semua Database kalian di Form Delphi 7..

Pada tutorial selanjutnya, saya akan menjelaskan mengenai pembuatan Aplikasi CRUD yang kita buat tadi. 😊 selamat mencoba..

Delphi7 Programming ZeosLibrary

Cara Install Zeos(DBO) di Delphi 7 untuk Windows 7 keatas

Zeos adalah salah satu komponen library Delphi yang berguna untuk mengakses Database MySQL. Pada umumnya, library Zeos tidak ada di Delphi 7.

Maka dari itu, kalian harus mengunduh/downloadnya secara GRATIS di internet. Dan khusus pada tutorial kali ini, pastikan kamu menggunakan Zeos(DBO) versi 7.1.3.a!

Tutorial Install Zeos(DBO) ke Delphi 7

Awalnya saya menggunakan Zeos(DBO) versi terakhir terupdate yaitu 7.1.4. Tapi setelah dicoba, alhasil ERROR. Muncul Pesan Error "can't load package zcomponentdesign70.bpl"

Itulah sebabnya saya wajibkan kamu untuk menggunakan versi sebelumnya, yakni 7.1.3 💁 Berikut langkah-langkah install Zeos di Delphi 7 :

1. Download ZEOS(DBO) versi 7.1.3a stable dan Extract file tersebut dalam 1 folder(Contoh nama folder : ZEOSDBO-7.1.3a-stable).

2. Lalu, pindahkan folder tersebut(ZEOSDBO-7.1.3a-stable) ke tempat instalasi delphi kalian(C:\ProgramFiles(x86)\Borland\Delphi7).

3. Buka Delphi 7 kalian, kemudian tutup semua(Klik File - Close All) projek ataupun form yang sedang aktif agar terhindar dari kerusakan/error.

Buka delphi 7 dan tutup semua(Klik File - Close All)

4. Lanjut, Open Project(CTRL + F11) dan Open file ZeosDbo.bpg di lokasi penyimpanan folder ZEOSDBO-7.1.3a-stable\project\delphi7\ZeosDbo.bpg

5. Maka akan terbuka Project Manager, klik kanan pada ZCore70.bpl - pilih Compile All From Here(Gak wajib, tapi ikuti sajalah :v)

6. Tunggu sebentar hingga proses compile berhasil, klik OK.

7. Klik kanan pada ZComponentDesign70.bpl - pilih Install.(Apabila ada Pesan Peringatan, abaikan/tutup saja).

8. Seluruh komponen Zeos DBO berhasil diinstall. Klik OK.

BACA JUGA : Menjalankan Banyak Aplikasi hanya dengan Klik Kanan!

9. Cek pada tab Delphi 7 kalian, maka akan muncul tuh Tools Zeos Access. Tapi belum selesai nih.

10. Klik Tools - Environment Options - Library - Klik tombol [...] pada bagian Library path.

11. Klik tombol [...] pada tab Directories, dan arahkan ke C:\ProgramFiles(x86)\Borland\Delphi7\ZEOSDBO-7.1.3a-stable\project\delphi7 dan klik OK.

$arahkan ke C:\ProgramFiles(x86)\Borland\Delphi7\ZEOSDBO-7.1.3a-stable\project\delphi7$

12. Lalu, klik tombol Add. Dan lakukan hal yang sama pada folder C:\ProgramFiles(x86)\Borland\Delphi7\ZEOSDBO-7.1.3a-stable\project\delphi7\build

klik tombol Add. Dan lakukan hal yang sama pada folder build

13. Kedua folder berhasil kita tambahkan, klik OK.

14. Terakhir, agar komponen Zeos DBO dapat digunakan Permanen. Klik File - Close All - maka akan muncul pesan konfirmasi untuk menyimpan. klik YES

Cara agar komponen Zeos DBO dapat digunakan Permanen.

Selamat, Zeos(DBO) Library berhasil diinstal. Sekarang kalian dapat menggunakan komponen ZEOS(DBO) di Delphi 7. Dijamin deh nggak bakal Error, soalnya sudah saya coba dong 😅

Jangan lupa untuk Follow blog JuliKoding ya 😘 atau Share saja sudah cukup kok, makasih.

Referensi : Muharir Blog