Program Delphi dengan Database MySQL

Membuat Database

Pertama kita buat dahulu database pada MySQL menggunakan phpMyAdmin. Agar lebih mudah kita menggunakan XAMPP yang bisa didownload disini.

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

Setelah indikator menjadi warna hijau pada background kedua modul tersebut, buka web browser dan ketik alamat: localhost/phpmyadmin pada address bar dan tekan Enter.

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



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

Setelah memberi nama database, kolom isian selanjutnya adalah “Collation”. Collation adalah tatacara 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 “Nomor Keluarga”,”Kepala Keluarga”, “Alamat”, “Anggota Keluarga”

Sesuaikan table anda dengan data yang ingin anda input, pastikan Type nya benar, jika sudah tekan “Save”referensi tipe data pada MySQL


Koneksi Delphi Dengan MySQL

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.

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 >> 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;