Contoh Program Menggunakan String Grid pada Delphi 7 | Delphi 7 Stringgrid

Pemrograman delphi memang menarik untuk dipelajari, semakin kita banyak membuat projek maka akan semakin banyak pula pengalaman dan fungsi scrip yang kita ketahu, sekarang saya akan membagi info mengenai penggunaan fungsi string grid dengan delphi 7.

buatlah form seperti yang ada dibawah ini :

lalu klik 2x di bagian form kosong dan ketikkan script di bawah ini :

procedure TForm3.FormCreate(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;

sg.RowCount:=1;
sg.ColCount:=7;

sg.Cells[0,0]:='No';
sg.Cells[1,0]:='Kode';
sg.Cells[2,0]:='Nama';
sg.Cells[3,0]:='Satuan';
sg.Cells[4,0]:='Harga';
sg.Cells[5,0]:='Jumlah';
sg.Cells[6,0]:='Total';

sg.ColWidths[0]:=30;
sg.ColWidths[1]:=60;
sg.ColWidths[2]:=100;
sg.ColWidths[3]:=80;
sg.ColWidths[4]:=80;
sg.ColWidths[5]:=80;
sg.ColWidths[6]:=80;
end;

fungsi script yang kita masukkan tadi :
sg.RowCount:=1;    --> gunanya adah untuk memberikan jumlah baris.
sg.ColCount:=7;     --> gunanya adalah untuk memberikan jumlah kolom.


sg.Cells[0,0]:='No';      ----> gunanya adalah untuk memberikan judul pada cel pertama dengan nama "No"
sg.Cells[1,0]:='Kode';   ----> gunanya adalah untuk memberikan judul pada cel kedua dengan nama "Kode"
sg.Cells[2,0]:='Nama';   ----> gunanya adalah untuk memberikan judul pada cel ketiga dengan nama "Nama"
sg.Cells[3,0]:='Satuan';   ----> gunanya adalah untuk memberikan judul pada cel Ketiga dengan nama "Satuan"
sg.Cells[4,0]:='Harga';    ----> gunanya adalah untuk memberikan judul pada cel Keempatdengan nama "Harga"
sg.Cells[5,0]:='Jumlah';   ----> gunanya adalah untuk memberikan judul pada cel Kelima dengan nama "Jumlah"
sg.Cells[6,0]:='Total';   ----> gunanya adalah untuk memberikan judul pada cel Keenam dengan nama "Total".


fungsi dibawah ini kegunaannya adalah untuk mengatur lebar kolom
sg.ColWidths[0]:=30;



selanjtnya script untuk tombol proses :

var i, gt, total : integer;
begin
total := strtoint(edit4.Text) * strtoint(edit5.Text);

sg.RowCount:=sg.RowCount +1;

sg.Cells[1,sg.RowCount -1]:=edit1.Text;
sg.Cells[2,sg.RowCount -1]:=edit2.Text;
sg.Cells[3,sg.RowCount -1]:=edit3.Text;
sg.Cells[4,sg.RowCount -1]:=edit4.Text;
sg.Cells[5,sg.RowCount -1]:=edit5.Text;
sg.Cells[6,sg.RowCount -1]:=inttostr(total);

gt := 0;
for i := 1 to sg.RowCount -1 do
    begin
    sg.Cells[0,i] := inttostr(i);
    gt := gt + strtoint(sg.Cells[6,i]);
    end;
edit6.Text := inttostr(gt);

edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit1.SetFocus;
end;

Demikianlah contoh penggunaan Stringgrid Delphi 7..utuk mempermudah teman - teman mempelajari project silahkan download contoh programnya disini.