Cara Menggunakan StringGrid di Delphi
9:24 PM · DAnish FathurRahman · 0 comments
Assalamu'alaikum, wr.wb
Contoh Program StringGrid Pada Bahasa Delphi - Sebelum membahas tentang tutorial membuat program lengkap di Delphi, sebaiknya saya akan menjelaskan beberapa komponen yang akan kita digunakan pada form program khususnya pada form transaksi. Karena inti proses dari sebuah program ada pada form ini. Sehingga saya lebih suka membuat form transaksi terlebih dahulu, sedangkan untuk input data master biasanya saya lakukan secara manual terlebih dahulu. Mungkin secara teori umum kalau dilihat dari sudut estetika dalam membuat program hal ini kurang bagus, tapi boleh dong saya berpendapat lain, hehe.
Salah satu komponen Delphi yang akan kita pakai adalah StringGrid. Apa itu StringGrid? Bagaimana cara menambahkan StringGrid di Delphi? Apakah perbedaan StringGrid dan DBGrid?. StringGrid adalah komponen Delphi yang digunakan untuk menyajikan data dalam bentuk lajur atau grid. Untuk menambahkan komponen ini pilih stringgrid pada tab Additional. Perbedaan DBGrid dan StringGrid adalah, dengan StringGrid kita akan lebih hemat memori karena setelah data ditampilkan koneksi ke databasenya langsung tertutup, sedanggan DBGrid koneksi data selalu terbuka sehingga akan menguras resource RAM. Namun saya kira dengan komputer canggih zaman sekarang hal itu agak terasa konyol kalau diperdebatkan.
Stringgrid banyak digunakan untuk membantu input data dengan ID yang sama, misalkan dalam program penjualan barang, maka kemungkinan besar satu pelanggan akan membeli lebih dari satu barang. Dengan Stringgrid kita akan terbantu untuk melakukan proses perhitungan sehingga mendapatkan total harga tanpa perlu reinput data pelanggan yang sama dari awal.
Contoh penggunaan Stringgrid di Delphi
Studi kasusnya saya ambil dari form transaksi order website. Disini kita hanya fokus Bagaimana menampilkan data ke StringGrid dan melakukan proses perhitungan. Untuk source kode lengkapnya akan saya bagikan ketika kita akan bahas form transaksi tersebut di artikel khusus (sabar bro)
www.abdusatri.comYang akan kita masukan dalam stringgrid adalah domain, harga web dan total harga yang diambil dari harga web ditambah harga hosting. Sebenarnya EditText pada total di Form diatas tidak diperlukan, hanya saja saya memakainya untuk proses penyimpanan ke database, karena saya belum berhasil menerapkan penyimpanan langsung dari stringgridnya, disini disini saya hanya memanfaatkan stringgrid untuk proses penjumlahan harga dari order website. Jika ada perubahan lagi nanti akan saya update di blog mungil ini.
1. Desain formnya seperti pada bagian kanan atas yaitu : Domain, jenis website, nama hosting, harga website, harga hosting, total harga, total pembelian atau order dan command atau tombol proses. Tambahkan komponen stringgrid dari tab additional, ganti stringgrid1 pada name object inspector menjadi sg sehingga memudahkan kita nantinya dalam penulisan coding.
Baca juga Cara Koneksi Database Acces Dengan Delphi
2. Copykan sript dibawah ini sesuai dengan postnya masing-masing. Untuk mengisi list comboboxnya silahkan tambahkan pada items tsringsnya. Rekan bisa baca disini cara menambah item pada combobox delphi.
Untuk combobox jenis website :
procedure TForm5.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text='Toko Online' then
edit7.text:='3000000';
if combobox1.Text='Website Gnews' then
edit7.text:='2000000';
if combobox1.Text='Blog Adsense ' then
edit7.text:='500000';
if combobox1.Text='Blog Affiliate' then
edit7.text:='400000';
if combobox1.Text='Blog Personal' then
edit7.text:='200000';
end;
Coding Untuk Combobox Nama hosting :
procedure TForm5.ComboBox2Change(Sender: TObject);
begin
if combobox2.Text='Hosgator' then
edit8.text:='300000';
if combobox2.Text='Namecheap' then
edit8.text:='250000';
if combobox2.Text='IDwebhost' then
edit8.text:='250000';
if combobox2.Text='Niaga Hoster' then
edit8.text:='200000';
if combobox2.Text='Digital Ocean' then
edit8.text:='235000';
end;
Coding command hitung :
procedure TForm5.Button1Click(Sender: TObject);
var jasa,hosting,total:integer;
begin
jasa:=strtoint(edit7.Text);
hosting:=strtoint(edit8.Text);
total:=jasa + hosting;
edit12.Text:=inttostr(total);
end;
Coding tombol proses :
procedure TForm5.Button3Click(Sender: TObject);
var i,total: integer;
begin
sg.RowCount := sg.RowCount +1;
sg.Cells [1,sg.RowCount -1]:=edit6.Text;
sg.Cells [2,sg.RowCount -1]:=edit7.Text;
sg.Cells [3,sg.RowCount -1]:=edit8.Text;
sg.Cells [4,sg.RowCount -1]:=inttostr (strtoint(edit7.Text) + strtoint(edit8.Text));
total :=0;
for i := 1 to sg.RowCount -1 do
begin
sg.Cells[0,i] := inttostr(i);
total := total + strtoint (sg.Cells[4,i]);
end;
edit9.Text := inttostr(total);
end;
Coding untuk membuat tampilan tabel ketika form dijalankan :
sg.rowcount :=1;
sg.colcount :=5;
sg.cells [0,0] :='No';
sg.cells [1,0] :='Domain';
sg.cells [2,0] :='Harga Web';
sg.cells [3,0] :='Harga Hosting';
sg.cells [4,0] :='Jumlah';
sg.ColWidths [0]:=30;
sg.colwidths [1]:=150;
sg.colwidths [2]:=90;
sg.colwidths [3]:=90;
sg.colwidths [4]:=90;
Demikian contoh program Delphi memakai component StringGrid. Komponen lain yang akan kita pakai adalah DBLookupCombobox, yang juga akan diterapkan pada form transaksi, karena terjadi error ketika mendefenisikan dua buah Tedit dalam menampilkan data yaitu data pada Tedit untuk menampilkan data clien dan Tedit kode transaksi untuk menampilkan data secara keseluruhan dalam melakukan perubahan yang diperlukan. Baiklah pemirsa dimanapun anda berada, saya akan kembali setelah pesan-pesan berikut ini.
Buat Koneksi ke database (MS Acces), proses koneksi memanfaatkan event onCreate pada Form Utama
Buat procedure untuk mengatur lebar kolom pada string grid dan judul kolomnya
Buat procedure untuk mengambil data dari dalam database
Buat procedure untuk menampilkan data yang telah diambil pada langkah ke-4 kedalam stringgrid.
Double klik pada tombol ‘Tampilkan Barang’ untuk menjalankan pada saat even onCLik, ketik script diantara Begin dan end pada potongan script dibawah ini !
