Arsip: Tanya StringGrid

more 14 years ago
ranum
Saya mau bertanya tentag StringGrid, begini masalahnya :
Ada StringGrid1, StringGrid2 dan StringGrid3.
StringGrid 1 dan StringGrid 2 fieldnya sama misalnya sebagai berikut:
StringGrid1
----------------------------
KdBrg Klasifikasi Jumlah
1 Susu 25
2 Beras 22
3 Mie Instant 20
----------------------------
StringGrid1
----------------------------
KdBrg Klasifikasi Jumlah
1 Susu 25
2 Beras 22
3 Mie Instant 20
----------------------------
Kemudian saya ingin menkombinasikan item Klasifikasi di StringGrid1 dan StringGrid2. yang kemudian akan ditaruh di StringGrid3.
jadi pada baris1 StringGrid1 dikombinasikan dengan baris2 StringGrid2 terus baris2 StringGrid1 dikombinasikan dengan baris3 StringGrid3 dst.
Sehingga StringGrid3 isinya nanti akan seperti ini
StringGrid3
-------------------------------
Kombinasi urutan Klasifikasi
2 1 Susu
2 2 Beras
2 1 Susu
2 2 MieInstant
2 1 Beras
2 2 MieInstant
3 1 Susu
3 2 Beras
3 3 Mie Instant
-------------------------------------------
Ada Yang bisa membantu ????

more 14 years ago
ranum
Aku coba buat codingnya seperti ini, nggak ada error seh cuman di StringGrid3-nya nga keisi filed dari StringGrid1 dan StringGrid2 .. kenapa yak ???
procedure TItemsetGeneratorForm.ButtonProsesClick(Sender: TObject);
var
i,baris,kolom : integer;
begin
with DataModule1.ADOConnection1 do
begin
StringGrid3.RowCount := DataModule1.ADOQuery1.RecordCount+1;
for i := 0 to DataModule1.ADOQuery1.RecordCount -1 do
begin
StringGrid4.Cells[0,0] := StringGrid1.Cells[baris,kolom]+StringGrid.Cells[baris,kolom];
DataModule1.ADOQuery1.Next;
end;
end;
end;
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- ginana koneksi ke DB pake file INI?
by putukaca in Tip n Trik Pemrograman more 15 years ago - Merubah kata 'Start' Button window XP ke sesuatu
by wati in Tip n Trik Pemrograman more 16 years ago - Bagaimana ngeprint 1/2 HVS ?
by userdelphi in Lain-lain more 14 years ago - Gimana Memo/Rich Edit ?
by armanefendi in Tip n Trik Pemrograman more 15 years ago - artikel
by _aa_ in Network, Files, I/O & System more 17 years ago - Quick report to excell
by nananana in Reporting more 14 years ago - (OOT---Jauhhhhh banget) Hati-hati bila beli barang di Glodog
by w11 in OOT more 12 years ago - Hargai Karya Orang Lain
by doels in Kritik & Saran more 16 years ago - tanya untuk aplikasi base data
by Handoyo in FireBird more 16 years ago - [Ask] Delphi - VoIP
by bapz in Network, Files, I/O & System more 13 years ago