Membuat Database MySQL Dengan Delphi

Membuat Database

Langkah Pertama Yang Harus Kita Lakukan Buat Terlebih Dahulu Database Pada MySQL Menggunakan PhpMyAdmin. Agar Lebih Mudah Kita Menggunakan XAMPP Yang Bisa Teman Download Disini.

Setelah Selesai Teman Download Dan Di Install, Silahkan Jalankan Web Server Apache Dan Aplikasi Database MySQL. Kedua Aplikasi Ini Dijalankan Dari Jendela XAMPP Control Panel.

Setelah Indikator Menjadi Warna Hijau Pada Latar Belakang Kedua Modul Tersebut,Kemudian Buka Web Browser Dan Ketik Alamat URL: Localhost/Phpmyadmin Pada Address Bar Dan Tekan Enter.

Selanjutnya Akan Muncul Tampilan Halaman Awal PhpMyAdmin. Untuk Membuat Database Awal, Klik New Pada Bagian Kiri Atas Halaman, Untuk Lebih Jelas Lihat Gambar Dibawah Ini :

Di Bagian Awal Database Ini, Silahkan Masukkan Nama Database Yang Ingin Teman Buat Di Kolom “Create Database”. 

Setelah Memberi Nama Database,Buat Kolom Isian Selanjutnya Adalah “Collation”. Collation Adalah Tata Cara Atau Aturan Penyusunan Huruf, Angka Dan Karakter Dalam Tabel Database. Anda Bisa Membiarkan Pilihan ‘Default’ Yang Ada: Collation, Atau Memilih Utf8_general_ci.

Setelah Database Berhasil Dibuat, Kita Akan Membuat Table, Tentukan “Name” Untuk Nama Table Dan “Number Of Columns:” Disini Saya Akan Membuat 4 Kolom Yang Nanti Akan Diisikan Dengan Masing - Masing Nama “Nomor Keluarga”,”Kepala Keluarga”, “Alamat”, “Anggota Keluarga”

Sesuaikan Table Teman Dengan Data Yang Ingin Teman Input, Pastikan Type Nya Benar, Jika Sudah Sesuai Dengan Yang Di Input Simpan Dengan Tekan “Save”.

Referensi Tipe Data Pada MySQL .

Membuat Koneksi Delphi Dengan MySQL

Langkah Awal Yaitu Buat Form Seperti Gambar Dibawah Ini :

Ket : 4 TLabel, 3TEdit, 1TComboBox, Dan 5 TButton 

//Code Untuk Menambahkan Item Pada Combobox, 
//Atau Bisa Juga Melalui Object Inspector Pada Combobox Pilih Item

Procedure TForm1.FormCreate(Sender: TObject);

Begin

  Combobox1.Items.Add ('1');

  Combobox1.Items.Add ('2');

  Combobox1.Items.Add ('3');

  Combobox1.Items.Add ('4');

  Combobox1.Items.Add ('5');

End;

//Code Input

Procedure TForm1.Button2Click(Sender: TObject);
Begin
If Edit1.Text = '' Then
Begin
   Showmessage('Nomor Keluarga Masih Kosong');
   Edit1.SetFocus;
End Else

If Edit2.Text = '' Then
Begin
   Showmessage('Kepala Keluarga Masih Kosong');
   Edit2.SetFocus;
End Else

If Edit3.Text = '' Then
Begin
   Showmessage('Alamat Masih Kosong');
   Edit2.SetFocus;
End Else

If Combobox1.Text = '' Then
Begin
   Showmessage('Anggota Keluarga Masih Kosong');
   Combobox1.SetFocus;
End Else
Begin
Form2.ZQuery1.Append;
Form2.ZQuery1.FieldByName('Nomor Keluarga').AsString:=Edit1.Text;
Form2.ZQuery1.FieldByName('Kepala Keluarga').AsString:=Edit2.Text;
Form2.ZQuery1.FieldByName('Alamat').AsString:=Edit3.Text;
Form2.ZQuery1.FieldByName('Jumlah Anggota').AsString:=Combobox1.Text;
Form2.ZQuery1.Post;
End;
End;

 //Code Edit

Procedure TForm1.Button4Click(Sender: TObject);
Begin
If Edit1.Text = '' Then
Begin
   Showmessage('Nomor Keluarga Masih Kosong');
   Edit1.SetFocus;
End Else

If Edit2.Text = '' Then
Begin
   Showmessage('Kepala Keluarga Masih Kosong');
   Edit2.SetFocus;
End Else

If Edit3.Text = '' Then
Begin
   Showmessage('Alamat Masih Kosong');
   Edit2.SetFocus;
End Else

If Combobox1.Text = '' Then
Begin
   Showmessage('Anggota Keluarga Masih Kosong');
   Combobox1.SetFocus;
End Else
Begin
Form2.ZQuery1.Edit;
Form2.ZQuery1.FieldByName('Nomor Keluarga').AsString:=Edit1.Text;
Form2.ZQuery1.FieldByName('Kepala Keluarga').AsString:=Edit2.Text;
Form2.ZQuery1.FieldByName('Alamat').AsString:=Edit3.Text;
Form2.ZQuery1.FieldByName('Jumlah Anggota').AsString:=Combobox1.Text;
Form2.ZQuery1.Post;
End;
End;

//Code Hapus

Form2.ZQuery1.Delete;

 //Code Keluar

Application.Terminate;

 //Code Ke Database

Form2.Show;

Lalu Buat Form Baru Untuk Menampilkan Database Nya Seperti Ini, Tambahkan TZConnection, DBGrid,ZQuery, Datasource1, Dan Button1 Atur Icon Sesuai Selera.

Atur Properties Object Inspector ZConnection1
Hostname : Localhost
Port : 3306
Protocol : Mysql-5
User : Root
Database : Sesuaikan Dengan Nama Database
Connected : True

 Pada ZQuery1 Properties
Connection : ZConnection1
SQL : SELECT * FROM Tbdesa
Active : True;

Pada DataSource1 Properties
Dataset : ZQuery1

Pada Dbgrid1 Properties
Datasource : Datasource1

Lalu Jika Berhasil Maka Tampilan Akan Seperti Ini:

Membuat Laporan

Tambahkan TRvProject, TRvDataSetConnection1, TDataSetProvider, TClientDataSet, TRvRenderPDF, TRvRenderTEXT, TRvRenderHTML, TRvRenderRTF, Dan Atur Icon Sesuai Selera

Pada Object Inspector Properties DataSetProvide

DataSet : ZQuery1

Properties Object Inspector ClientDataSet

ProviderName : DataSetProvider1

Active : True

 Pada Properties Object Inspector RvDataSetConnection1

DataSet : ClientDataSet1

Setelah Semua Component Di Seting Seperti Yang Di Atas Kemudian Doubleclick Pada Component Rvproject Yang Tadi Di Masukan Ke Dalam Form, Maka Akan Muncul Halaman Seperti Gambar Di Bawah Ini.

Setelah Muncul Halaman Ravereport Kemudian Klik Icon View Data Object Yang Berada Pada Bagian Toolbar Di Atas.

Lalu Pilih Direct Data View, Nanti Akan Terlihat Active Data Connections, Pilih RvDataSetConnection1 (DT) Lalu Finish

Selanjutnya Klik Tools >> Report Wizard > > Simple Table

Kemudian Akan Muncul Select Data View You Wish To Use For This Report Pada Bagian Ini Pilih Dataview 1 Kemudian Klik Next , Maka Muncul Seperti Gambar Di Bawah Ini.

Pilih Field-Field Mana Saja Yang Akan Kalian Pilih, Saya Di Sini Akan Memilih Semua Field Jadi Tinggal Klik Button ALL >> Kemudian Klik NEXT, Akan Muncul Halaman Arrange Fields In The Order You Wish Them Printed Pada Halaman Ini Kita Bisa Mengatur Field Mana Saja Yang Akan Di Tampilkan Pertama >> NEXT >> Lalu Akan Muncul Report Layout Printout Sesuaikan Dengan Laporan Yang Akan Anda Buat, Setelah Itu Klik NEXT Maka Akan Muncul  Halaman, Disiini Kita Bisa Menentukan Jenis Huruf Apa Yang Akan Kita Pakai Dan Besar,Kecilnya.

Setelah Selesai Menentukan Jenis Huruf Dan Ukurannya Klik Generate.
Kemudian Design Lah Tata Letaknya Sesuai Keinginan Anda.

Setelah Design Selesai Kemudian Save RvProject Barusan, File >> Save As, Simpan Rvproject Di Tempat Anda Menaruh Project Anda, Supaya Mudah Di Cari.
Setelah Di Save Kemudian Close Rave Report, Dan Kita Kembali Ke Delphi7.

Langkah Selanjutnya Adalah Memanggil Rvproject Yang Kita Buat Tadi.
Klik Rvproject Pada Tab Objectinspector >> Propertise >> Projectfile Kemudian Panggil Rvproject Yang Disimpan Tadi.

Setelah Selesai Memanggil Rvproject Kemudian Double Klik Pada Button Preview Dan Masukan Syntax Berikut Ini Rvproject1.Execute;