Arsip: Gmana Menampilkan Data di ListView Dengan koneksi ADO

 
user image
more 11 years ago

fongers

dear master delphi gmana ya menapilkan kolom kolom dalam data base acces ke listview mohon pencerahan para master2
user image
more 11 years ago

elva_ivana

saya co-pas script ini di help nya delphi ...

procedure TForm1.FormCreate(Sender: TObject);
Const
Names: array[0..5, 0..1] of ShortString = (
('Rubble', 'Barney'),
('Michael', 'Johnson'),
('Bunny', 'Bugs'),
('Silver', 'HiHo'),
('Simpson', 'Bart'),
('Squirrel', 'Rockey')
);
var
I: integer;
NewColumn: TListColumn;
ListItem: TListItem;
ListView: TListView;
begin
ListView := TListView.Create(Self);
with ListView do
begin
Parent := Self;
Align := alClient;
ViewStyle := vsReport;
NewColumn := Columns.Add;
NewColumn.Caption := 'Last';
NewColumn := Columns.Add;
NewColumn.Caption := 'First';
for I := 0 to High(Names) do
begin
ListItem := Items.Add;
ListItem.Caption := Names[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;
end;
end;
tinggal di modif dikit (biar ada usahanya) ... :D
user image
more 11 years ago

fongers

wah mudeng aq ada yang to The point dak ??
user image
more 11 years ago

cyber_hecker

@fongers: wah mudeng aq ada yang to The point dak ??
indonesia bangeeet...
user image
more 11 years ago

fongers

gmana ne koq ndak ada ? bingung :cry: :cry: :cry: :cry: :cry:
user image
more 11 years ago

DelphiExpert

lha itu udah dikasih @elva_ivana contoh load data ke TListView. Apalagi masalahnya? Paham penggunaan TDataset ngga'? (ADO Table / Query turunan dari TDataset). Kalau belum paham, pahami dulu cari fetch data dan browse (while not dset.eof) data. Setelah itu kombinasikan dng contoh yg dikasih @elva_ivana
user image
more 11 years ago

DelphiExpert

jangan lupa, baca dan pahami footer text dibawah ini :mrgreen:
user image
more 11 years ago

Tiwul

for i:=0 to DM.ADOQuerySelect.RecordCount do begin ListView1.Items.Add; ListView1.Items[i].Caption:= DM.ADOQuerySelect.fieldbyname('kd_produk').AsString; ListView1.Items[i].SubItems.Add(DM.ADOQuerySelect.fieldbyname('nm_produk').AsString); ListView1.Items[i].SubItems.Add(inttostr(totpesan)); ListView1.Items[i].SubItems.Add(IntToStr(totproduk)); end; oyi .....
user image
more 11 years ago

fongers

thanks mas tiwul klo kyak gni baru saya ngerti
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com