LANGKAH-LANGKAH MEMBUAT PROGRAM DATA PELANGGAN MENGGUNAKAN DELPHI

Mula-mula kita buat dulu databasenya pada xampp

1. Aktifkan xamppnya terlebih dahulu

2. Buka mozilla firefox lal u ketikkan http://localhost  klik phpmyadmin

                                     
3. Buat databasenya klik database,buat nama databasenya exp : pelanggan lalu klik Create

                       

4. Apabila trlah selesai klik databasenya kemudian buat nama tabelnya exp : tb_pelanggan, jumlah kolom klik kirim

5.  Inputkan seperti gambar di bawah ini: setelah itu klik Save,database telah selesai di buat.

6. Buka delphi dan buat data module; klik file , pilih new, pilih other, pilih delphi project, pilihdata module seperti gambar di bawah ini

                           
Kemudian muncul seperti ini:

Tambahkan ADOConnections, 2 ADOQuery dan DataSource,

                               

Lakukan perubahan properties pada masing-masing objek seperti 

No	Komponen	Properties	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

Akan tampil seperti ini :

Tambah form : Pilih new-form seperti gambar di bawah ini:

Lalu buat form seperti ini:

Lakukan koneksi seperti berikut ini: control panel => Klik administrative tools=> Klik data sources (odbc)=> Klik MYSQL ODBC 5.1  driver => Klik add => cari MySQL5.1

Koneksi

Setelah itu klik koneksi pada unit2 => connectionstring => build => pilih provider for               ODBC driver => next

        

                   

                     

Query

             

              

Tampil

    

DS

            

9. Kemudian isi script-script nya seperti di bawah ini :

private   { Private declarations }   procedure tampildata;   procedure bersih ;   procedure mati;   procedure hidup; public   { Public declarations } end; var Form1: TForm1;

10. Lengkapi procedure dibawah iplementation dengan mengetikan :

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; procedure tform1.mati; begin   btnsmpn.Enabled:= true;   btnedit.Enabled:= False;   btnhapus.Enabled:= False; end; procedure tform1.hidup; begin btnsmpn.Enabled:= False; btnedit.Enabled := true; btnhapus.Enabled:= true; end;

11. Kembali ke form, pilih event on show klik double pada event  kemudian isikan script  seperti  ini:

Kemudian isikan seperti gambar ini :

Apabila sudah benar maka sewaktu di run kan akan tampil seperti ini:

Kemudian isi syntax untuk setiap buttonnya

        Pada button Edit :

    procedure TForm1.btneditClick(Sender: TObject); begin   if MessageDlg ('Apakah Yaki 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;

        Pada button Simpan :

          procedure TForm1.brnsimpanClick(Sender: TObject);
          begin
          if Length(Edit1.Text) < 3 then
          begin
             MessageDlg('Sorry, kode nya diisi minimal 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;

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;

 Button Keluar :

procedure TForm1.btnkluarClick(Sender: TObject);
begin
if MessageDlg ('Yakin akan keluar ?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
  Close;
end;
end;

Kemudian run kan dan isikan data pelanggan seperti :

Masukkan data pada TEdit yang sudah dibuat tadi seprti contoh dibawan ini saya menambahkan data dengan kd_pelanggan : kd_01,Nama_pelanggan : Iqbal,Alamat : Jl.Srikandi,No_hp : 08526594** Kemudian klik simpan maka seperti pada gambar dibawah ini ->>

                                 

Untuk edit masukan kd_pelanggan yang sudah diketik tadi seprti gambar dibawah ini ->>

                                  

                                  

Begitu juga pada button hapus masukan kd_pelanggan,masukan kd_pelanggan yang sudah diketikkan tadi,seperti pada gambar dibawah ini :

                                  

Kemudian klik tombol keluar, maka akan seperti gambar di bawah ini:

Terima kasih sudah mengikuti tutorial dari saya, beri komentar agar saya dapat menginstropeksi diri untuk melakukan yang terbaik pada postingan saya berikutnya.