Menginputkan Data Kedalam Tabel
Kali Ini kita akan belajar, bagai mana caranya memeasukan data yang kita tulis keform “Tabel” Tentunya di dalam Program Delphi..
Ok.. Kita lAngsung coba ya..
- Lagkah Pertama Buka Borlan Delphi Anda.
- Lalu BUat Form baru
- Cari di ribbon Menu Additional seperti gambar di bawah
- Terus cari StringGrid … Lihat Gambar
- Lalu Letakan Tabel Di form Anda, Dan Ubah Propeties – Name nya menjadi Tabel1
- Dan tambahkan Komponen Label, EditText, dll terserah anda yang ingin Membuat, disini saya hanya mencontohkan dengan Komponen Label dan EditText saja.. COba lihat Gambar di bawah..
- Oh ia Hampir terlupa …Tambahkan Sebuah Button Input , dimana Button ini berfungsi untuk memproses data yang akan di inputkan Ke table..
- Dan syntax yang Kita tuliskan Untuk proses.. adalah sbb…
procedure TForm1.Button1Click(Sender: TObject);
begin
tabel1.Cells[0,0] :='No';
tabel1.Cells[1,0] :='Nama';
tabel1.Cells[2,0] :='Umur';
tabel1.Cells[3,0] :='Status';
tabel1.Cells[4,0] :='Pekerjaan';
Tabel1.Cells[0, tabel1.RowCount-1]:= IntToStr(tabel1.RowCount -1);
tabel1.Cells[1,tabel1.RowCount -1]:= edit1.Text;
tabel1.Cells[2,tabel1.RowCount -1]:= edit2.Text;
tabel1.Cells[3,tabel1.RowCount -1]:= edit3.text;
tabel1.cells[4,tabel1.RowCount -1]:= edit4.Text;
tabel1.RowCount := tabel1.RowCount +1;
end;
- Dan Hasil RUN nya maka sperti Ini
Jika kita ingin Mengedit Tampilan awal Tabel… Maka Edit lah di Properties , seperti gambar yang sebelum RUN tampilan awal table hanya ada 2 baris table saja…
Maka yg perlu kita mainkan adalah Rowcount nya yaitu di Properties – Rowcount, biasanya pengaturan awal Rowcount nya adalah 5 dan seperti gambar diatas Rowcount nya saya ubah menjadi 2…
Selesai deh.... Gampang Kan.!!??