Delphi – Penggunaan Komponen StringGrid

Pengertian StringGrid

StringgridStringGrid merupakan komponen visual Delphi yang digunakan menyajikan data dalam bentuk lajur atau Grid. Dimana data sajikan dalam bentuk kolom dan baris. Dalam penggunaanya sering digunakan untuk penyajian data dalam bentuk perulangan, array, maupun bersumber dari  basis data.

Properti Pada StringGrid

Beberapa properti yang sering digunakan dalan komponen StringGrid diantaranya:

ColCount

Properti Colcount digunakan untuk menentukan jumlah kolom pada StringGrid

RowCount

Properti RowCount  digunakan untuk menentukan jumlah baris  pada StringGrid

FixedCols

Properti FixedCols menyataka jumlah kolom tetap (kolom judul) yang berada dikolom paling kiri dari tabel. Kolom tersebut tidak akan tergulung jika pengguna melakukan scrolling secara horispntal.

FixedRows

Properti FixedRows menyatakan jumlah baris tetap (baris judul) yang berada dikolom paling atas dari tabel. Baris tersebut tidak akan tergulung jika pengguna melakukan scrolling secara vertikal.

Cells [kolom,baris]

Properti Cells [kolom,baris]  menyatakan konten  sel pada alamat [kolom, baris]. Melalui properti Cell dapat diakses data-data pada masing-masing cell. Tipe datanya berupa string sehingga data-data non string harus dikonversi dulu sebelum dimasukkan ke dalam properti ini.

Contoh Program

Buat lah program konversi kurs dollar terhadap rupiah dengan input berupa harga per dollar dalam rupiah. Selalnjutnya dilakukan prosesi perhitungan konversi dari 1 sd 100 dollar dalam bentuk lajur.

Contoh tampilan

Tampilan Stringrid

Tampilan Stringrid

Desain Form

Desain Form seperti tampilan berikut ini:

Latihan - Stringgrid

Form Stringgrid

Pengaturan Properti

Atur properti StringGrid1 sebagai berikut:

  • FixedCols: 0
  • ColCount: 2
  • RoowCount:101

Kode Program

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
stringgrid1.Cells[0,0] := 'Dollar';
stringgrid1.Cells[1,0] := 'Rupiah';

for i:=1 to 100 do
stringgrid1.Cells[0,i] := inttostr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var hargadollar :longint;
rupiah: longint;
i: integer;
begin
hargadollar:= strtoint(edit1.Text);
for i:=1 to 100 do
begin
rupiah:=i*hargadollar;
stringgrid1.Cells[1,i]:=inttostr(rupiah);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to 100 do
stringgrid1.Cells[1,i] := '';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

Tugas StringGrid

Buatlah program membuat lajur harga foto kopi untuk jenis foto kopi 70 gram, 80 gram dan Buram. Adapun tampilannya sebagai berikut:

Tugas StringGrid

 

Mouse Votre

 

Tuliskan komentar anda

Komentar

Tinggalkan Balasan