CRUD SQLite Unidac

procedure TFCrudSQLite.BtnSimpanClick(Sender: TObject);
begin
  if cn.Connected = True then begin
    with Q_Temp do begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO tb_barang ');
      SQL.Add('VALUES ("'+EdKode.Text+'", "'+EdNama.Text+'")');
      ExecSQL;
    end;
    bersih;
    tampil;
    Awal;
  end;
end;

procedure TFCrudSQLite.BtnUbahClick(Sender: TObject);
begin
  if cn.Connected = True then begin
    with Q_Temp do begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE tb_barang SET ');
      SQL.Add('namabarang="'+EdNama.Text+'" ');
      SQL.Add('WHERE kodebarang="'+EdKode.Text+'"');
      ExecSQL;
    end;
    bersih;
    tampil;
    Awal;
  end;
end;

procedure TFCrudSQLite.BtnHapusClick(Sender: TObject);
begin
  if cn.Connected = True then begin
    with Q_Temp do begin
      Close;
      SQL.Clear;
      SQL.Add('DELETE FROM tb_barang ');
      SQL.Add('WHERE kodebarang="'+EdKode.Text+'"');
      ExecSQL;
    end;
    bersih;
    tampil;
    Awal;
  end;
end;

procedure TFCrudSQLite.BtnBatalClick(Sender: TObject);
begin
  if cn.Connected = True then begin
    Awal;
    bersih;
    tampil;
  end;
end;