Menambahkan data pada TreeView delphi dari database mysql
![Image](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjucu0j-ff-f4lxBRnYlssB023NfGTIrQ3wh05LLLlCF5Ayzv0pxB_HvdIIL3fHucZHTIsFyww1ZhvzHafRV9qRVnzCtYOBuITyrd2Jkn5s6we1wR1OlpyUygwafY__rD6S81SmWCag2FEn/s320/interface63.jpg)
Siapkan dua tabel seperti gambar di atas Di delphi tambahkan button dan treeview isi button delphi dengan : procedure TF_penjualan_order.Button1Click(Sender: TObject); var CurrentDeptID, RecordDeptID: Integer; RootNode, DeptNode: TTreeNode; begin CurrentDeptID := 0; TreeView1.Items.Clear; RootNode := TreeView1.Items.Add(nil, 'Nama Barang'); DeptNode := nil; ZQuery1.SQL.Text := 'SELECT a.id_kategori, a.kategori, b.nama FROM kategori a INNER JOIN barang b ON (a.id_kategori=b.id_kategori) ORDER BY b.id_kategori, a.id_kategori'; ZQuery1.Open; try ZQuery1.First; while not ZQuery1.Eof do begin RecordDeptID := ZQuery1.FieldByName('id_kategori').AsInteger; if (DeptNode = nil) or (RecordDeptID <> CurrentDeptID) then begin DeptNode := TreeView1....