Cara Koneksi database pada program delphi
1. Buka localhost/phpMyadmin untuk membuat database
2. Lalu,create database “penjualan”
3. Create tabel “barang” pada database penjualan
4. Isi tabel pada field-field tersebut
5. Kemudian,buka program delphi pilih file --> New-->VCL Forms Application – Delphi for Win32
6. Setelah from terbuka klik kanan pada project1-->Add New-->Others
7. Kemudian akan muncul tampilan di bawah ini,pilih Data Module
8. Isi data module dengan ADOConnection1, ADOQuery1, ADOQuery2, DataSource1
9. Lakukan perubahan pada Properties di masing-masing objek seperti di bawah ini :
No
|
Komponen
|
Propertie
|
Value
|
1.
|
Data Module
|
Name
|
dm
|
2.
|
ADOConnection1
|
Name
|
koneksi
|
Login Prompt
|
False
| ||
3.
|
ADOQuery1
|
Name
|
query
|
Connection
|
Koneksi
| ||
Active
|
False
| ||
4.
|
ADOQuery2
|
Name
|
tampil
|
Connection
|
Koneksi
| ||
Active
|
False
| ||
5.
|
DataSource1
|
Name
|
ds
|
Dataset
|
tampil
|
10. Buatlah desain pada Form seperti tampilan di bawah :
11. Pilih DBGrid kemudian pilih--> Properties-->Datasource dengan memilih dm.ds
12. Set properties connection String pada ADOConnection(koneksi)
13. Klik Build kemudian pilih Provider-->Micsoroft OLE DB Provider for ODBC Drivers-->next
14. Untuk mengkoneksikan ke database pilih Administrative Tools-->Set up data source (ODBC)-->User DSN-->Add-->MySQL ODBC 5.1-->Finish
15. Atur connector/ODBC,isi Data Source Name-->server-->Database yang telah kita buat tadi -->Test-->jika succes maka akan muncul seperti pesan di bawah ini-->ok
16. Pada Properties pilih Connection string maka akan mucul seperti gambar di bawah ini
17. Scrip form barang:
{ Private declarations }
procedure tampildata;//menampilkan data dari table ke DBGrid
procedure bersihdata;//untuk menghapus teks pada Edit
procedure tombolmati;//menonaktifkan Button
procedure tombolhidup;//menghidupkan Button
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2; //menggunakan unit2 (datamodule) supaya terhubung dengan unit1
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Length (Edit1 .Text )<>5 then
begin
MessageDlg('maaf,kode barang harus 5 karakter!!',mtWarning ,mbOKCancel ,0);
Edit1 .SetFocus ;
Exit ;
end;
if MessageDlg ('anda yakin akan menyimpaan data ini??',mtConfirmation ,[mbYes ,mbNo ],0)=mrYes then
begin
with dm.query do
begin
SQL .Clear ;
SQL .Add('insert into barang(kd_barang,nama_barang,hrg_beli,hrg_jual,stock)');
SQL .Add('values("'+edit1.Text +'","'+edit2.Text +'","'+edit3.Text +'","'+edit4.Text +'","'+edit5.Text +'")');
ExecSQL ;
end;
tampildata ;
bersihdata ;
tombolmati ;
ShowMessage('data berhasil di simpan');
Edit1 .SetFocus ;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if MessageDlg('anda yakin akan mengubah data ini?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
with dm.query do
begin
SQL .Clear ;
SQL .Add('update barang set nama_barang ="'+Edit2 .Text +'",hrg_beli="'+edit3.Text +'",');
SQL .Add('hrg_jual="'+edit4.Text +'",stock="'+edit5.Text +'" where kd_barang="'+edit1.Text +'"') ;
ExecSQL ;
end;
tampildata ;
bersihdata ;
tombolmati ;
ShowMessage('data berhasil di simpan');
edit1.SetFocus ;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if MessageDlg ('apakah anda yakin ingin menghapus data ini?',mtConfirmation ,[mbYes,mbNo],0)=mrYes then
begin
with dm.query do
begin
SQL.Clear;
SQL.Add('delete from barang where kd_barang="'+Edit1.Text+'"');
ExecSQL;
end;
tampildata ;
bersihdata;
tombolmati;
ShowMessage('data telah berhasil di hapus');
Edit1.SetFocus;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text <>'' then
begin
with dm.query do
begin
SQL .Clear ;
SQL .Add('select*from barang where kd_barang="'+Edit1 .Text +'"') ;
Open ;
if not Eof then
begin
Edit2 .Text :=FieldValues ['nama_barang'];
Edit3 .Text :=FieldValues ['hrg_beli'];
Edit4 .Text :=FieldValues ['hrg_jual'];
Edit5 .Text :=FieldValues ['stock'];
tombolhidup;
end
else
begin
Edit2 .Clear ;
Edit3 .Clear ;
Edit4 .Clear ;
Edit5 .Clear ;
tombolmati;
end;
end;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
tampildata;
bersihdata;
tombolmati;
end;
procedure TForm1.tampildata;
begin
with dm.tampil do
begin
SQL.Clear;
SQL.Add('select*from barang');
Active:=False;
Active:=True;
end;
end;
Procedure TForm1.bersihdata;
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
end;
Procedure TForm1.tombolmati;
begin
Button1.Enabled:=True;
Button2.Enabled:=False;
Button3.Enabled:=False;
end;
Procedure TForm1.tombolhidup;
begin
Button1.Enabled:=False;
Button2.Enabled:=True;
Button3.Enabled:=True;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if MessageDlg('anda yakin ingin menutup form ini?',mtInformation,[mbYes,mbNo],0)=mrYes then
close;
end;
end.
18. Setelah from barang selesai, buat from baru yaitu from pelanggan dengan cara seperti gambar di bawah ini :
19. Kemudian,buat desain dengan tampilan di bawah ini
20. Tambahkan modul dengan cara klik kanan pada project1-->Add New-->Others
21. Akan muncul gambar seperti ini
22. Dengan scrip di bawah ini:
private
procedure tampildata;//menampilkan data dari table ke DBGrid
procedure bersihdata;//untuk menghapus teks pada Edit
procedure tombolmati;//menonaktifkan Button
procedure tombolhidup;//menghidupkan Button
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit4;
{$R *.dfm}
procedure TForm3.bersihdata;
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
end;
procedure TForm3.tampildata;
begin
with dm1.tampil do
begin
SQL.Clear;
SQL.Add('select*from pelanggan');
Active:=False;
Active:=True;
end;
end;
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;
procedure TForm3.Button1Click(Sender: TObject);
begin
if Length (Edit1 .Text )<>3 then
begin
MessageDlg('maaf,kode pelanggan harus 3 karakter!!',mtWarning ,mbOKCancel ,0);
Edit1 .SetFocus ;
Exit ;
end;
if MessageDlg ('anda yakin akan menyimpaan data ini??',mtConfirmation ,[mbYes ,mbNo ],0)=mrYes then
begin
with dm1.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 berhasil di simpan');
Edit1 .SetFocus ;
end;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
if MessageDlg ('apakah anda yakin ingin menghapus data ini?',mtConfirmation ,[mbYes,mbNo],0)=mrYes then
begin
with dm1.query do
begin
SQL.Clear;
SQL.Add('delete from pelanggan where kd_pelanggan="'+Edit1.Text+'"');
ExecSQL;
end;
tampildata ;
bersihdata;
tombolmati;
ShowMessage('data telah berhasil di hapus');
Edit1.SetFocus;
end;
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
if MessageDlg('anda yakin ingin menutup form ini?',mtInformation,[mbYes,mbNo],0)=mrYes then
close;
end;
procedure TForm3.Edit1Change(Sender: TObject);
begin
if edit1.Text <>'' then
begin
with dm1.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
begin
tampildata;
bersihdata;
tombolmati;
end;
end;
end.
23. Selanjutnya,buat form baru untuk membuat form master (kita dapat menjalankan program dengan 2 form sekaligus yaitu form barang dan form pelanggan) kemudian pilih mainmenu, Setelah di klik mainmenu munculah tampilan pada gambar di bawah ini
24. Lalu ketik di kanan pilih insert atur nama “MASTER” klik lagi dengan ketik nama “Barang” dan kemudian klik lagi dengan mengetik “Pelanggan” maka akan seperti gambar di bawah ini :
25. Jika kita akan menjalankan / memilih Form master klik pada Project pilih Option dan akan muncul tampilan seperti ini.
26. Inilah tampilan jika sudah selesai dalam membuat Form untuk menggabungkan antara Form yang satu dengan yang lainnya.
27. Hasil
0 Response to "Cara Koneksi database pada program delphi"
Post a Comment