Tambah, Edit, Simpan, Hapus

Pada pemrograman delphi untuk koneksi dapat dilakukkan bermacam-macam cara seperti menggunakan ADO, ODBC, dll. Disini kita akan membahas tentang script yang biasa digunakan untuk tambah, edit, hapus, dan simpan menggunkan TQuery.

Tambah Data

Query2.SQL.Clear;
Query2.SQL.Text:='INSERT INTO tbNama (nama,alamat) values('''+edNama.text+''','''+edAlamat.text+''')';
Query2.ExecSQL;
edNama.Text:='';
edAlamat.Text:='';

Refresh(Query1);

Edit data

Edit3.Text:=Query1.fieldbyname('Nama').AsString;
Edit4.Text:=Query1.fieldbyname('Alamat').AsString;
btSimpan.Enabled:=true;
btEdit.Enabled:=false;

Hapus data

id := query1.fieldbyname('ID').AsString;
query2.SQL.Clear;
Query2.SQL.Add('DELETE FROM tbNama WHERE ID ='+id+'');
Query2.ExecSQL;

Refresh(Query1);

Simpan data

id := query1.fieldbyname('ID').AsString;

query1.SQL.Clear;
Query1.SQL.add('UPDATE tbNama SET Nama='''+Edit3.Text+''',Alamat='''+Edit4.Text+''' WHERE ID='+id+'');
Query1.ExecSQL;

edit3.Text:='';
edit4.Text:='';

refresh(query1);
btEdit.Enabled:=true;
btSimpan.Enabled:=false;

Selamat mencoba semoga bermanfaat..... ^-^. Chayooooo.....