with AQbarang do begin
SQL.Clear;
SQL.Append(
'INSERT INTO TBarang (KdBarang, NmBarang) ' +
'VALUES (:pKdBarang, :pNmBarang)');
Parameters[0].Value := edkd.text;
Parameters[1].Value := edNmBarang.Text;
ExecSQL;
TBarang.Requery();

@nurez: hii alll... muhun bantauannya...

with AQbarang do begin
SQL.Clear;
SQL.Append(
'INSERT INTO TBarang (KdBarang, NmBarang) ' +
'VALUES (:pKdBarang, :pNmBarang)');
Parameters[0].Value := edkd.text;
Parameters[1].Value := edNmBarang.Text;
ExecSQL;
TBarang.Requery();

coba dat:='insert into tbarang (kdbarang,nmbarang) ' +' values (:param1,:param2)'; aqbaranq.sql.clear; aqbarang.sql.add(dat); aqbarang.parambyname('param1').astring:=edkd.text; aqbarang.parambuname('param2').astring:=ednmbarang.text; aqbarang.execsql; mudah mudahan bisa ngebantu cantyik............ ngga ke save..."insert into statetment.." langsung ngehank lgh...yg sebelnya.. harus restart kompie mlolo..klo ngga ngehank sih gFF.. duhh.. yg salah apanya nich..? memori ataw kapasitas HD yg sisa 1.2GB.?ataw repair D& lgg.?mohon pencerahannya.. wlp kasus lama klii :)

with AQbarang do
begin 
  SQL.Clear; 
  SQL.Add(Format('INSERT INTO TBarang(KdBarang, NmBarang) VALUES (%s, %s)',); 
  ExecSQL; 

end;

with AQbarang do begin
  SQL.Clear;
  SQL.Append(
    'INSERT INTO TBarang (KdBarang, NmBarang) ' +
    'VALUES (:pKdBarang, :pNmBarang)');
  Parameters[0].Value := edkd.text;
  Parameters[1].Value := edNmBarang.Text;
  ExecSQL;
end;
TBarang.Requery();

QL.append('SELECT * FROM TBarang WHERE id LIKE '+QuotedStr('%'+kdbrg.text+'%'))