IT lovers sekalian, pada kesempatan kali ini, saya akan menjabarkan cara membuat program delphi menggunakan module dan MySql, langkah-langkahnya sebagai berikut :
1. Aktifkan Xampp
3. Klik phpmyadmin setelah itu buat database pelanggan seperti contoh di bawah
4. Setelah itu buka program delphi buat data module
5. Untuk mempermudah pemahaman kita sebaik nya adoconection1 di rubah menjadi koneksi begitu juga dengan yang lainnya seperti gambar di bawah
6. Setelah itu lihat pada sebelah kiri masih terlihat banyak tanda tanya berarti kita harus mensetting sehingga tidak ada lagi tanda tanya tsb dengan cara berikut;
a. Dari control panel
b. Klik administrative tools
c. Klik data sources (odbc)
d. Klik MYSQL ODBC 5.1 driver ( disini saya menggunakan conector 5.1)
e. Klik add terus cari MySQL 5.1 driver
f. Finish
g. Data source name : delpi (terserah apa di isi)
h. Tcp/ip server : localhost (jika menggunakan komputer sendiri)
i. User : root
j. Data base : pelanggan ( nama database yang digunakan)
k. Klik test utk membuktikan sukses apa tidak nya jika sukses keluar kan saja.
l. Setelah itu klik koneksi untuk mensetting koneksi nya pada unit 1
- Klik database setelah itu conection string nya
- Klik build dan klik seperti gambar berikut;
Setelah itu next, pilih data source nama yang dibuat tadi seperti gambar di bawah ini, test connection
untuk memastikan kesuksesannya.
- login form di false
-connected di true
m. Klik query pada unit1
- SQL nya diisi dengan nama table database nya
- Connection : koneksi
- Active : true
n. Klik tampil pada unit1
o. Klik datasourse (ds)
-Dataset : Tampil
7.Setelah itu tambah lagi from untuk mengolah data pelanggan serta field field nya
8. Maka akan tampil seperti berikut
9.Setelah sukses database tampil ke dbgrid maka kita bisa mengisi field field nya
10. Setelah di edit
11. Setelah di hapus
Scrip button simpan
procedure TForm1.brnsimpanClick(Sender: TObject);
begin
if Length(Edit1.Text) < 3 then
begin
MessageDlg('maaf, kode nya minimal diisi 3 karakter',mtWarning,mbOKCancel,0);
Edit1.SetFocus;
Exit;
end;
if MessageDlg ( 'Apakah yakin akan menyimpan data ini?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
with DM.query do
begin
sql.Clear;
sql.add('insert into tb_pelanggan (kd_pelanggan, nm_pelanggan, alamat, no_hp)');
sql.add('values("'+ edit1 .Text +'","'+edit2 .Text +'", "'+ edit3 .Text +'","'+ edit4 .Text + ' " )');
ExecSQL;
end;
tampildata;
bersih;
mati;
ShowMessage('data sudah tersimpan');
Edit1.SetFocus;
end;
end;
Scrip button edit
procedure TForm1.btneditClick(Sender: TObject);
begin
if MessageDlg ('Apakah Yakin anda akan mengubah data ini ? ',mtConfirmation,[mbYes,mbNo],0)= mrYes then
begin
with dm.Query do
begin
SQL.Clear;
SQL.Add('update tb_pelanggan set nm_pelanggan="'+Edit2 .Text+'",alamat="'+Edit3 .Text+'",no_hp="'+Edit4 .Text+'"');
SQL.Add('where kd_pelanggan="'+Edit1 .text+'"');
ExecSQL;
tampildata ;
bersih;
mati;
ShowMessage('Selesai edit data ');
Edit1.SetFocus;
end;
end;
end;
Scrip button hapus
procedure TForm1.btnhapusClick(Sender: TObject);
begin
if MessageDlg ('Apakah data ini akan di hapus?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
with DM.query do
begin
sql.Clear;
sql.Add('delete from tb_pelanggan where kd_pelanggan = "'+ Edit1.Text +'"');
ExecSQL;
end;
tampildata;
bersih;
mati;
ShowMessage('Sukses di hapus');
Edit1.SetFocus;
end;
end;
Scrip button keluar
procedure TForm1.btnkluarClick(Sender: TObject);
begin
if MessageDlg ('Yakin akan keluar ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
Close;
end;
end;
Klik form 1 pada event diklik cari onshow : formshow ketik scrip dibawah ini
procedure TForm1.FormShow(Sender: TObject);
begin
tampildata;
bersih;
mati;
end;
procedure TForm1.tampildata;
begin
with DM.tampil do
begin
sql.Clear;
sql.Add('select * from tb_pelanggan');
Active := false;
Active := true;
end;
end;
procedure TForm1.bersih;
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
end;
Pada private ketik scrip dibawah ini
private
{ Private declarations }
procedure tampildata;
procedure bersih ;
procedure mati;
procedure hidup;
public
{ Public declarations }
end;
Scrip pada module
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
koneksi: TADOConnection;
query: TADOQuery;
tampil: TADOQuery;
DS: TDataSource;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
procedure TDM.DataModuleCreate(Sender: TObject);
begin
end;
end.
Sekian penjelasan program delphi dari saya, semoga bermanfaat untuk kita semua, Wassalam.
0 komentar:
Posting Komentar