Program Delphi Entry data pelanggan

Posted by : ma_dea.blogger Jumat, 29 Maret 2013

assalamualaikum wr,wb..............pada posting kali ini saya akan memberikan sebuah tutorial program entry data pelanggan yang berbasis mysql dan menggunakan bahasa delphi 2007 bagi pengguna pemula delphi 2007 dan mysql harap di pelajari dulu dasar pemogramanya, dan untuk keperluan pembelajaran saya sarankan untuk tidak copas,,,, namun diketik ulang biar rekan-rekan sekalian juga mengerti alur program ini....

pertama kita jalankan aplikasi delphi 2007

kemdudian buat form nya dengan cara

komponen unuk desain from

No	Komponen	Properties	Value
1	Label1	Caption	Kode Pelanggan
2	Label2	Caption	Nama Pelanggan
3	Label3	Caption	Alamat
4	Label4	Caption	No Telp/Hp
5	Label5	Caption	Entry Data Pelanggan
6	Edit1	--	--
7	Edit2	--	--
8	Edit3	--	--
9	Edit4	--	--
10	Button1	Caption	Simpan
11	Button2	Caption	Edit
12	Button3	Caption	Hapus
13	Button4	Caption	Keluar
14	DBGrid	Data Source	DM.DS
		Data Set	Query1

desain form

setelah itu tambahkan data module dengan cara

komponen untuk form data module

No	Komponen	Properties	Value
1	Data Module	Name	DM
2	ADOConnection1	Name	Koneksi
		Login Prompt	False
3	ADOQuery1	Name	Query1
		Connection	Koneksi
		Active	False
4	ADOQuery2	Name	Query2
		Connection	Koneksi
	Active	False
5	Data Source	Name	DS
		Data Set	Query1

desain module nya seperti berikut

kemudian untuk koneksi pilih conectionsting dan pelih pencarian nya, kemudian ikuti seperti pada gambar

setelah selesai mendesain data module kita kembali ke unik16 dan masuk ke kodingnya dan panggil data modul dengan menambahkan sintak "unit17"(karena data module berada pad unit17) sepertidibawah ini

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, unit17  ;

kemudian tambahkan juga prosodur tombolhapus,tombolhidup,bersihkandata,tampil data didalam sub private, seperti berikut

  private
  { Private declarations }
 procedure TampilData ;// untuk menampilkan data
 procedure BersihData ;// untuk membersihkan texbox
 procedure TombolMati ;// untuk mematikan tombol
 procedure TombolHidup ;// untuk menghidupkan tombol

setelah selesai mendisain form nya,kita kembali ke desain form uint16 pertama klik double pada button simpan terlebih da kita

procedure TForm16.Button1Click(Sender: TObject);
begin
if Length (Edit1 .Text )<>5 then
begin
  MessageDlg('maaf,kode barang harus 5 karakter',mtWarning ,[mbOK,mbCancel],0 ) ;
  exit;
end;
with dm.query   do
  begin
  sql.Clear ;
  sql.Add('insert into pelanggan(kd_pelanggan,nm_pelanggan,alamat,no_telepon)');
  sql.add('values("'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'","'+Edit4.Text+'")');
  ExecSQL ;
  end;
  tampilData ;
  BersihData  ;
  tombolMati ;
  ShowMessage('data telah berhasil disimpan');
  Edit1 .SetFocus ;
end;

setelah selesai mendisain form nya, pertama klik double pada button simpan

procedure TForm16.Button1Click(Sender: TObject);
begin
if Length (Edit1 .Text )<>5 then
begin
  MessageDlg('maaf,kode barang harus 5 karakter',mtWarning ,[mbOK,mbCancel],0 ) ;
  exit;
end;
with dm.query   do
  begin
  sql.Clear ;
  sql.Add('insert into pelanggan(kd_pelanggan,nm_pelanggan,alamat,no_telepon)');
  sql.add('values("'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'","'+Edit4.Text+'")');
  ExecSQL ;
  end;
  tampilData ;
  BersihData  ;
  tombolMati ;
  ShowMessage('data telah berhasil disimpan');
  Edit1 .SetFocus ;
end;

kemudian, seblum kita membuat tombol edit terlebih dahulu kita membuat metode pencarian data pada database,dengan metode ini kita dapat mensilek data sehingga data yang kita silek dapat di edit,dengan cara mengetikakan sintak berikut pada edit1

procedure TForm16.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_telepon'];
      tombolHidup ;
      end
      else
      begin
        edit2.Clear ;
        edit3.Clear ;
        edit4.Clear ;
        tombolMati ;
      end;
   end;
end;
end;

setelah sintak pecarian selesai.. baru kita membuat tobol edit nya klik double pada tombol edit

procedure TForm16.Button2Click(Sender: TObject);
begin
if MessageDlg ('apakah anda yakin untuk meng edit?',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_telepon="'+Edit4.Text +'"where kd_pelanggan="'+edit1.text+'"');
  ExecSQL ;
  end;
  tampilData ;
  BersihData  ;
  tombolMati ;
  ShowMessage('data telah berhasil disimpan');
  Edit1 .SetFocus ;
  end;
end;

kemudian pada tombol hapus ketikkan sintak berikut

procedure TForm16.Button3Click(Sender: TObject);
begin
if MessageDlg ('apakah anda yakin untuk meng edit?',mtConfirmation ,[mbYes,mbNo ],0)=mrYes then
begin
  with dm.query do
  begin
  sql.Clear ;
  sql.add('delete from where="'+Edit1.Text +'"');

  ExecSQL ;
  end;
  tampilData ;
  BersihData  ;
  tombolMati ;
  ShowMessage('data telah berhasil disimpan');
  Edit1.SetFocus ;
end;
end;

setelah selesai mendisain form nya, pertama klik double pada button simpan

procedure TForm16.Button1Click(Sender: TObject);
begin
if Length (Edit1 .Text )<>5 then
begin
  MessageDlg('maaf,kode barang harus 5 karakter',mtWarning ,[mbOK,mbCancel],0 ) ;
  exit;
end;
with dm.query   do
  begin
  sql.Clear ;
  sql.Add('insert into pelanggan(kd_pelanggan,nm_pelanggan,alamat,no_telepon)');
  sql.add('values("'+Edit1.Text+'","'+Edit2.Text+'","'+Edit3.Text+'","'+Edit4.Text+'")');
  ExecSQL ;
  end;
  tampilData ;
  BersihData  ;
  tombolMati ;
  ShowMessage('data telah berhasil disimpan');
  Edit1 .SetFocus ;
end;