Selasa, 22 Juni 2010
di
21.30
|
Database adalah merupakan kumpulan data yang saling berhubungan yang diorganisasi sedemikian rupa agar kelak dapat dimanfaatkan kembali dengan cepat dan mudah. Dalam hal pemrograman database sudah menjadi bagian yang sangat penting dalam menyimpan data. Bermacam-macam cara yang dapat dilakukan agar database dapat ditampilkan didalam pemrograman. Salah satunya menggunakan DBGrid, Listview, ataupun komponen lainnya. Saya akan berbagi bagaimana menampilkan teks dari database yang ditampilkan ke Listview. Saya pilih listview karena mungkin DBGrid sudah umum banyak dipakai dan menurut saya tampilannya kurang begitu bagus.
Ada dua cara untuk menampilkan data di listview :
1. Melalui properties di komponennya (klik kanan listview, pilih “column editor” atau “item editor”)
2. Menggunakan code program.
Saya akan menjelaskan untuk no.2.
Berikut code programnya :
procedure TForm1.Button1Click(Sender: TObject);
var
KolomBaru:TListColumn;
ItemBaru:TListItem;
begin
ListView1.ViewStyle := vsReport;
ListView1.Columns.Add;
ListView1.Columns[0].Caption:='No';
ListView1.Columns.Add;
ListView1.Columns[1].Caption:='Judul Buku';
ListView1.Columns.Add;
ListView1.Columns[2].Caption:='Komentar';
ItemBaru:=ListView1.Items.Add;
ItemBaru.Caption:='1';
ItemBaru.SubItems.Add('Belajar Delphi');
ItemBaru.SubItems.Add('Terus coba ya');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
jmlkolom,i:integer;
begin
for i := ListView1.Items.Count - 1 downto 0 do
ListView1.Items.Delete(i);
for i := ListView1.Columns.Count - 1 downto 0 do
ListView1.Columns[i].Destroy;
end;
Prosedur pertama digunakan untuk tombol membuat data dan kolom, dan prosedur yang ke dua digunakan untuk tombol hapus data.
Nah untuk menampilkan data dari database yang ditampilkan di ListView nantikan artikel selanjutnya.
Ada dua cara untuk menampilkan data di listview :
1. Melalui properties di komponennya (klik kanan listview, pilih “column editor” atau “item editor”)
2. Menggunakan code program.
Saya akan menjelaskan untuk no.2.
Berikut code programnya :
procedure TForm1.Button1Click(Sender: TObject);
var
KolomBaru:TListColumn;
ItemBaru:TListItem;
begin
ListView1.ViewStyle := vsReport;
ListView1.Columns.Add;
ListView1.Columns[0].Caption:='No';
ListView1.Columns.Add;
ListView1.Columns[1].Caption:='Judul Buku';
ListView1.Columns.Add;
ListView1.Columns[2].Caption:='Komentar';
ItemBaru:=ListView1.Items.Add;
ItemBaru.Caption:='1';
ItemBaru.SubItems.Add('Belajar Delphi');
ItemBaru.SubItems.Add('Terus coba ya');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
jmlkolom,i:integer;
begin
for i := ListView1.Items.Count - 1 downto 0 do
ListView1.Items.Delete(i);
for i := ListView1.Columns.Count - 1 downto 0 do
ListView1.Columns[i].Destroy;
end;
Prosedur pertama digunakan untuk tombol membuat data dan kolom, dan prosedur yang ke dua digunakan untuk tombol hapus data.
Nah untuk menampilkan data dari database yang ditampilkan di ListView nantikan artikel selanjutnya.
Diposting oleh
Borland7
0 komentar:
Posting Komentar