Delphi : Menginputkan Data ke Dalam Tabel

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.!!??