Membuat Program

1. Tambahkan tabel pada database anda, dengan field seperti berikut ini:

Nama Tabel : pelanggan
Primary Key: kdpelanggan

Field	Type	Size
Kd_Pelanggan	Char	5
Nm_Pelanggan	Varchar	35
Alamat	Varchar	100
No_hp	Varchar	15

2. Desain Form seperti gambar di bawah ini:

Masuk ke tab Code, selanjutnya lengkapi bagian “implementation” seperti di bawah ini:

implementation

uses unit2;

Kemudian deklarasikan 4 buah procedure pada private seperti di bawah ini:

private

    { Private declarations }

    procedure tampildata;

    procedure bersihdata;

    procedure tombolmati;

    procedure tombolhidup;

Lengkapi procedure diatas dengan mengetikkan perintah seperti berikut ini pada Implementasi:

procedure tform1.tampildata;

begin

with DM.tampil do

begin

  sql.Clear;

  sql.Add('select *from pelanggan');

  active := false;

  active := true;

end;

end;

procedure tform1.bersihdata;

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.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;

Kembali ke Form, pilih event OnShow lalu double click pada event tersebut dan lengkapi perintah seperti berikut ini:

procedure TForm1.FormShow(Sender: TObject);

begin

tampildata;

bersihdata;

tombolmati;

end;

Selanjutnya double click pada edit1, tamabahkan code berikut ini:

procedure TForm1.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[noHP'];
              tombolhidup;
            end
            else
              begin
                edit2.Clear;
                edit3.Clear;
                edit4.Clear;
                tombolmati;
              end;
        end;
    end;
end;

Double klik Button Simpan,lengkapi sorce code berikut ini:

procedure TForm1.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;

if MessageDlg ('apakah anda yakin akan menyimpan data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then

begin

  with DM.query do

  begin

    sql.Clear;

    sql.Add('insert into pelanggan (kdpelanggan,nmpelanggan,alamat,noHP)');

    sql.Add('values ("'+edit1.Text+'","'+edit2.text+'","'+edit3.text+'","'+edit4.text+'")');

    execSQL;

  end;

  tampildata;

  bersihdata;

  tombolmati;

  showmessage('data telah berhasil disimpan');

  edit1.SetFocus;

end;

end;

Double klik Button Edit,lengkapi sorce code berikut ini:

procedure TForm1.Button2Click(Sender: TObject);

begin

if MessageDlg ('apakah anda yakin akan mengubah data ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then

begin

  with DM.query do

  begin

    sql.Clear;

    sql.Add('update pelanggan set nmpelanggan="'+edit2.Text+'",alamat="'+edit3.Text+'",');

    sql.Add('noHP="'+edit4.Text+'" where kdpelanggan="'+edit1.Text+'"');

    execSQL;

  end;

  tampildata;

  bersihdata;

  tombolmati;

  showmessage('data telah berhasil disimpan');

  edit1.SetFocus;

  end;

end;

Double klik Button Hapus,lengkapi sorce code berikut ini:

procedure TForm1.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 kdpelanggan="'+edit1.Text+'"');

    execSQL;

  end;

  tampildata;

  bersihdata;

  tombolmati;

  showmessage('data telah berhasil dihapus');

  edit1.SetFocus;

end;

end;

Double klik Button Keluar,lengkapi sorce code berikut ini:

procedure TForm1.Button4Click(Sender: TObject);

begin

if MessageDlg ('apakah anda yakin akan menutup form ini ?',mtconfirmation,[mbyes,mbno],0)=mryes then

close;

end;

end.