Insert, Edit dan Delete Mysql menggunakan Zeos di Delphi

Setelah sekian lama libur ngeblog pada kesempatan kali ini saya akan memeberi contoh intruksi dasar dan sederhana penggunaan komponen Zeos untuk Mysql di Delphi 7, yaitu insert, edit dan delete. Ok langsung saja buat tabel baru didatabase anda dalam contoh ini saya menggunakan database latihan dan tabel dengan nama anggota berisi 2 field id dan nama. Setelah pembuatan database selesai kita buka delphi 7 dengan aplikasi baru dan buat form seperti berikut

Form diatas berisikan zconection, ztable, datasource, dbgrid, 5 bitbtn, 2 tedit, dan tpanel. Kemudian konfigurasi ZConection dan ZTable sesuai konfigurasi mysql anda, yang belum mengerti cara konfigurasinya bisa lihat contohnya ditulisan sebelumnya koneksi-database-mysql-dengan-delphi-7. Setelah selesai masukkan script-script berikut:

procedure TForm1.BitBtn1Click(Sender: TObject);      //btn insert
begin
Panel1.Enabled:=True;
ZTable1.Append;         //untuk memberi intruksi insert mode ke Zeos Table
end;

procedure TForm1.BitBtn4Click(Sender: TObject);   //btn OK
begin
if (Edit1.Text<>'') or (Edit2.Text<>'') then
begin
  With ZTable1 do
    begin
    FieldByName('id').AsString:=Edit1.Text;
    FieldByName('nama').AsString:=Edit2.Text;
    Post;
    end;
  Edit1.Text:='';
  Edit2.Text:='';
  Panel1.Enabled:=False;
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);   //btn Edit
begin
Panel1.Enabled:=True;
Edit1.Text:=ZTable1.Fields[1].AsString;
Edit2.Text:=ZTable1.Fields[2].AsString;
ZTable1.Edit;         //untuk memberi intruksi Edit mode ke Zeos Table
end;

procedure TForm1.BitBtn5Click(Sender: TObject);  //btn Cancel
begin
ZTable1.CancelUpdates;
Edit1.Text:='';
Edit2.Text:='';
Panel1.Enabled:=False;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);  //btn Delete
begin
ZTable1.Delete;
end;

Jika malas mengetik atau copy paste bisa download source codenya disini. Ok selamat mencoba ya, semoga bermanfaat