Membuat Combo Box Delphi7

Tulisan ini saya akan sedikit menuliskan tentang delphi 7, tulisan ini hanya sebagai catatan kuliah saya saja tapi siapa tahu ini juga bisa berguna buat sobat
Dan tulisan saya tentang Delphi 7 ini saya ingin menuliskan tentang cara membuat combobox di Delphi 7, langkah awalnya saya buat dulu form di Delphi 7 dan untuk form nya saya buat kira-kira seperti ini

Setelah pembuatan form selesai kemudian saya sesuaikan properties formnya, dan properties untuk form diatas saya buat menjadi seperti ini

Object	Name	Caption
Label1	Label1	TOKO MAJU TERUS PANTANG MUNDUR
Label2	Label2	KODE BARANG
Label3	Label3	NAMA BARANG
Label4	Label4	HARGA
Label4	Label4	JUMLAH BELI
Label4	Label4	TOTAL
Group Box1	Group Box1	TOMBOL
Combo Box1	Ckode	--Kode Barang--
Edit1	Enmbrg	Kosongkan
Edit2	Ehrg	Kosongkan
Edit3	Ejmlbeli	Kosongkan
Edit4	Etotal	Kosongkan
Button1	Bhitung	Hitung
Button2	Bulang	Ulang
Button3	Bkeluar	Keluar

Setlah selesai dengan pembuatan form dan telah menyesuaikan form dengan properties seperti diatas kemudian saya buat source codenya.
Untuk source kodenya kira-kira saya buat seperti berikut

Peintah Untuk Logika jika kode dipilih maka akan muncul nama barang dan harga
procedure TForm1.CkodeClick(Sender: TObject);
begin
if ckode.Text='A001' then
begin
enmbrg.Text:='Kopi Cap Kapal Selam';
ehrg.Text:='1000';
end

else if ckode.Text='A002' then
begin
enmbrg.Text:='Biskuit Spesial';
ehrg.Text:='5000';
end

else if ckode.Text='A003' then
begin
enmbrg.Text:='Gasolin super';
ehrg.Text:='1500';
end

else if ckode.Text='A004' then
begin
enmbrg.Text:='Roko cap Jarum Suntik';
ehrg.Text:='10000';
end

else if ckode.Text='A005' then
begin
enmbrg.Text:='Roko cap Gudang Peluru';
ehrg.Text:='15000';
end

else
begin
enmbrg.Text:='';
ehrg.Text:='';
 end
end;


untuk kode hitung
procedure TForm1.bhitungClick(Sender: TObject);
var
harga,jumbel,total:real;
begin
harga:=strtofloat(ehrg.Text);
jumbel:=strtofloat(ejmlbeli.Text);
total:=harga*jumbel;
etotal.Text:=floattostr(total);
end;

Kode untuk ulang
procedure TForm1.bulangClick(Sender: TObject);
begin
ckode.Text:='--Kode Barang--';
enmbrg.Text:='';
ehrg.Text:='';
ejmlbeli.Text:='';
etotal.Text:='';
end;

Perintah untuk keluar
procedure TForm1.bkeluarClick(Sender: TObject);
begin
if (application.MessageBox('anda mau keluar?','fajar345.com',mb_yesno)) =idyes then
close;
end;
end.


Menambahkan Item Pada ComboBox
procedure TForm1.FormCreate(Sender: TObject);
begin
ckode.Items.Add('A001');
ckode.Items.Add('A002');
ckode.Items.Add('A003');
ckode.Items.Add('A004');
ckode.Items.Add('A005');
end;

Itulah contoh membuat combobox menggunakan Delphi 7 semoga bermanfaat.

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!