Tutorial CRUD Dengan Delphi 7 Koneksi MYSQL

Gambar diatas merupakan hasil dari tutorial dibawah ini

Baiklah sekarang saya akan membuat tutorial CRUD apa itu CRUD ?? hehee...CRUD itu adalah singkatan dari CREATE , READ , UPDATE dan DELETE udah tau yahh...  :D

Tutorial ini adalah sambungan dari Mengkoneksikan Delphi 7 ke MYSQL Dengan Zeoslib

1.nah silakan kawan - kawan design tampilan FORM nya seperti dibawah ini :

2.Gambar diatas saya menambahkan component LABEL , EDIT dan BUTTON silakan sesuaikan yah tampilan nya.. serapih mungkin biar enak dilihat nya ... :p

3.Jika sudah kawan kawan sekarang klik 2 kali pada BUTTON -> TAMBAH dan ketik koding dibawah ini : 

procedure TForm1.Button1Click(Sender: TObject);

begin

     barang.Append;

     Edit1.Enabled:=True;

     Edit2.Enabled:=True;

     Edit3.Enabled:=True;

     Edit4.Enabled:=True;

     Edit1.SetFocus;

end;

4.Lalu klik 2 kali pada BUTTON -> BATAL  dan  ketik koding dibawah ini :

procedure TForm1.Button5Click(Sender: TObject);
begin
     Edit1.Clear;
     Edit2.Clear;
     Edit3.Clear;
     Edit4.Clear;
     Edit1.Enabled:=False;
     Edit2.Enabled:=False;
     Edit3.Enabled:=False;
     Edit4.Enabled:=False;
     barang.Cancel;
end;

5.Lalu klik 2 kali pada BUTTON -> SIMPAN dan ketik koding dibawah ini :

procedure TForm1.Button4Click(Sender: TObject);
begin
     if Edit1.Text = '' then
        begin
             ShowMessage('Kode Barang Masih Kosong');
             Exit;
        end
        else
            begin
                   barangkdbrg.Value    :=Edit1.Text;
                   barangnamabrg.Value  :=Edit2.Text;
                   barangjenisbrg.Value :=Edit3.Text;
                   barangqty.Value      :=StrToInt(Edit4.Text);
                   barang.Post;
                   ShowMessage('Data Tersimpan');

                   Edit1.Clear;
                   Edit2.Clear;
                   Edit3.Clear;
                   Edit4.Clear;

                   Edit1.Enabled:=False;
                   Edit2.Enabled:=False;
                   Edit3.Enabled:=False;
                   Edit4.Enabled:=False;
            end;

6.Lalu klik 2 kali pada BUTTON -> GANTI dan ketik koding dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
     Edit1.Enabled:=True;
     Edit2.Enabled:=True;
     Edit3.Enabled:=True;
     Edit4.Enabled:=True;

     Edit1.Text   :=barangkdbrg.Value;
     Edit2.Text   :=barangnamabrg.Value;
     Edit3.Text   :=barangjenisbrg.Value;
     Edit4.Text   :=IntToStr(barangqty.Value);

     barang.Edit;

   
end;

7..Lalu klik 2 kali pada BUTTON -> HAPUS dan ketik koding dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);
begin
        barang.delete;
       Showmessage('Data Terhapus');
end;


OK..!! beres ... :D nah sekarang pencet F9 untuk menjalankan aplikasinya .. :D


Create : Abednego,S.T