Cara Mengkoneksikan Database MySQL Ke Delphi

Cara Membuat Database

Pertama-tama buat dahulu database pada MySQL menggunakan phpMyAdmin. Agar lebih mudah kita menggunakan XAMPP yang bisa didownload :https://www.apachefriends.org/download.html

Setelah selesai didownload dan di install, jalankan Web Server Apache dan aplikasi database MySQL. Kedua aplikasi ini dijalankan dari jendela XAMPP Control Panel

Setelah itu indikator menjadi warna hijau pada background kedua modul tersebut. kemudian Untuk Menjalankan PhpMyadmin, Buka Browser Anda Kemudian Ketikan alamat berikut: localhost/phpmyadmin

Selanjutnya tampilan halaman awal phpMyAdmin. Untuk membuat database baru, klik New pada bagian kiri atas halaman, seperti gambar dibawah ini.

Selanjutnya di bagian database ini, masukkan nama database yang ingin dibuat di kolom “Create database”.

Sesudah memasukan nama database,  dikolom isian selanjutnya ialah “Collation”. Collation adalah tatacara atau aturan penyusunan huruf, angka dan karakter dalam tabel database. kita dapat membiarkan pilihan ‘default’ yang ada: Collation, atau memilih utf8_general_ci.

Sesudah database berhasil dibuat, kita akan membuat Tabel-Tabel sesuai Kebutuhan kita. Pada program ini kita akan membuat DATA KELUARGA. Untuk membuat table, tentukan “Name” untuk nama table dan “Number of columns:” disini kita akan membuat 4 kolom yang nantinya akan diisikan dengan “Nomor Keluarga”,”Kepala Keluarga”, “Alamat”, “Anggota Keluarga”.

Kemudian pastikan Type yang nantinya akan di input sudah benar dan sesuai dengan keinginan kita, jika sudah tekan “Save”.

Koneksi Delphi Dengan MySQL

Pertama-tama buatlah 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;

Selanjutna buat form baru untuk menampilkan database nya seperti gambar dibawah ini, tambahkan TZConnection, DBGrid,ZQuery, Datasource1, dan Button1 atur icon sesuai keinginan kita.

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

kemudian jika berhasil maka tampilan akan seperti gambar dibawah ini:

Membuat Laporan

tambahkan TRvProject, TRvDataSetConnection1, TDataSetProvider, TClientDataSet, TRvRenderPDF, TRvRenderTEXT, TRvRenderHTML, TRvRenderRTF, dan atur icon sesuai kebutuhan.

Pada Object Inspector Properties DataSetProvide

DataSet : ZQuery1

properties Object Inspector ClientDataSet

ProviderName : DataSetProvider1

Active : True

 pada properties Object Inspector RvDataSetConnection1

DataSet : ClientDataSet1

Sesudah semua component di seting seperti yang di atas setelah itu doubleclick pada component Rvproject yang tadi di masukkan ke dalam form, maka akan muncul halaman seperti gambar dibawah ini.

Setelah muncul halaman Ravereport kemudian klik Icon View Data Object yang berada pada bagian toolbar di atas.

Kemudian pilih Direct Data View, setelah itu 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.

field-field apa saja yang akan kita pilih, tapi kita di sini akan memilih semua field jadi tinggal klik button ALL >> kemudian klik NEXT, maka akan muncul halaman Arrange Fields in the order you wish them printed pada halaman ini kita bisa mengatur field apa saja yang akan di tampilkan pertama >> NEXT >> kemudian akan muncul Report Layout Printout sesuaikan dengan laporan yang akan kita buat, selanjutnya 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 >> Propertis >> Projectfile kemudian panggil rvproject yang disimpan tadi.

Setelah selesai memanggil Rvproject kemudian double klik pada button preview dan masukan syntax berikut ini Rvproject1.Execute;