MEMBUAT TABEL
PELANGGAN MENGGUNAKAN PROGRAM DELPHI
Pastikan anda memiliki 3 progam berikut :
1.Delphi (silahkan gunakan versi 2007 atau 2010)
2.XAMPP (atau aplikasi sejenis lain nya)
3.ODBC Conector (atau aplikasi sejenis lain nya)
Pertama-tama buka XAMPP Control Panel Aplication lalu ikuti petunjuk dari gambar berikut
Lalu buka Mozilla Firefox lalu tulis http://localhost/phpmyadmin/ seperti gambar berikut
Buat Database baru seperti gambar berikut
Buat Tabel dengan nama Pelanggan
Tampilan pembuatan tabel pelanggan
Tampilan Table yang telah di buat
Kemudian buka Control Panel yang bisa di temukan di menu Start pilih Administrative Tools,
"jika kesulitan menemukan Administrative Tools ubah pengaturan view nya dari Category ke Lage/Small Icon"
Lalu pilih Data Source(ODBC)
Setelah muncul Form seperti gambar berikut pilih add
Pilih MySQL ODBC .... Driver tekan Finish
Akan muncul Form pengaturan MySQL Connector
pastikan semua data yang bertanda merah telah di isi
Tekan Test, Jika koneksi ber hasil akan muncul pesan berikut
Kemudian rancang sebuah form baru (data module) sebagai penghubung
antara Form Pelanggan dengan DataBase,
antara Form Pelanggan dengan DataBase,
pilih file-new- other -Delphi projects- VclForm Aplication-Ok ,seperti
gambar berikut ini
Kemudian desain Form nya dengan 1 Adoconnection, 2 Adoquery, dan 1 Datasource
Tampilan Form nya
Form di atas akan tersambung dengan Database yang telah di buat dan untuk mempermudah kerja lakukan setting properties
pada masing-masing objek seperti berikut
No
|
komponen
|
properties
|
value
|
1
|
Data module
|
name
|
DM
|
2
|
Adoconnection1
|
name
|
koneksi
|
Login prompt
|
false
|
||
3
|
Adoquery1
|
name
|
tampil
|
connection
|
koneksi
|
||
active
|
false
|
||
4
|
Adoquery2
|
name
|
query
|
connection
|
koneksi
|
||
active
|
false
|
||
5
|
Data source
|
name
|
DS
|
dataset
|
tampil
|
Set properties conection string pada koneksi
seperti gambar
Lalu tekan Build
Pilih Microsoft OLE DB Provider for ODBC Drivers seperti gambar berikut
Lalu tekan Next >> dan berpindah ke Connection,
pilih nama data base yang telah di buat sebelum nya
Lalu tekan "Test Conection" untuk memastikan apakah benar-benar sudah terkoneksi
jika koneksi berhasil maka akan timbul pesan berikut
Tekan OK
Tampilan properties conection string yang telah terkoneksi
Lalu lakukan cara yang sama untuk menambahkan form baru seperti cara membuat form baru yang tertera di atas
Desain form Pelanggan seperti Berikut
Buat skrip code seperti berikut
//skrip untuk menampilkan data
procedure Tform3.TampilData;
begin
with DM.tampil do
begin
sql.clear;
Sql.add('select * from Pelanggan');
active := false;
active :=true;
end;
end;
//skrip untuk menghapus data
procedure TForm3.BersihData;
begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
Edit4.clear;
end;
//Skrip untuk menonaktifkan dan mengaktifkan button
procedure Tform3.tombolmati ;
begin
button1.enabled:= true;
button2.enabled:= false;
button3.enabled:= false;
end;
procedure Tform3.tombolhidup ;
begin
button1.enabled:= false;
button2.enabled:= true;
button3.enabled:= true;
end;
//skrip untuk pesan peringatan
procedure TForm3.Button1Click(Sender: TObject);
begin
if length(edit1.Text)<>5 then
begin
messagedlg('maaf, kode pelanggan harus 5 karakter !',mtwarning,mbokcancel,0);
Edit1.Setfocus;
exit;
end;
//skrip untuk menyimpan data
if messagedlg('Simpan Data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with Dm.Query do
begin
sql.clear;
sql.Add('insert into Pelanggan (Kd_pelanggan,Nm_pelanggan,alamat,no_hp)');
sql.Add('values ("'+edit1.text+'","'+edit2.Text+'","'+edit3.text+'","'+edit4.text+'")');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data Tersimpan');
edit1.SetFocus ;
end;
end;
//skrip untuk mengedit data yang ada
procedure TForm3.Button2Click(Sender: TObject);
begin
if messagedlg('Ubah data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with DM.query do
begin
sql.clear;
sql.add('update Pelanggan set nm_pelanggan="'+edit2.Text+'",alamat="'+edit3.Text+'",');
sql.Add('no_hp="'+edit4.Text+'" where kd_pelanggan="'+edit1.text+'"');
execsql;
end;
tampildata;
bersihdata;
tombolmati;
showmessage('data telah berhasil disimpan');
edit1.SetFocus;
end;
end;
//Skrip untuk menghapus data
procedure TForm3.Button3Click(Sender: TObject);
begin
if messagedlg('Apakah anda yakin akan menghapus Data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
with Dm.Query do
begin
sql.clear;
sql.add('delete from Pelanggan where Kd_pelanggan = "'+edit1.Text+'"');
execsql;
end;
Tampildata;
bersihdata;
tombolmati;
showmessage('data berhasil Dihapus');
edit1.setfocus
end;
end;
//Skrip untuk Exit
procedure TForm3.Button4Click(Sender: TObject);
begin
if messagedlg('Tutup Form ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then
CLOSE;
end;
//Skrip untuk pencarian melalui kd_barang
procedure TForm3.Edit1Change(Sender: TObject);
begin
if edit1.text<>'' then
begin
with Dm.Query do
begin
sql.Clear ;
sql.add('select * from Pelanggan where Kd_pelanggan = "'+edit1.Text +'"');
open;
if not eof then
begin
edit2.text :=FieldValues['Nm_pelanggan'];
edit3.text :=FieldValues['Alamat'];
edit4.text :=FieldValues['No_hp'];
tombolhidup;
end
else
begin
edit2.clear;
edit3.clear;
edit4.clear;
tombolmati;
end;
end;
end;
end;
procedure TForm3.FormShow(Sender: TObject);
begin
tampildata;
bersihdata;
tombolmati;
end;
end.
Setelah selesai membuat scrip jalankan program dengan menekan tobol run seperti
atau dengan menekan Tombol Fungsi (F9),
Tampilan data yang sedang di jalankan
Tampilan form data yang sudah di isi
====SELAMAT MENCOBA====
