Penggabungan dua form dan penggunaan component combobox,
group box, dan memo….
Untuk mngisi jenis
kelamin dan status menggunkan combobox
Untuk combobo kita akan mengisi dengan dua pilihan contoh di
jenis kelamin nanti ada duapilihan laki-laki dan perempuan. Caranya klick dulu
pada comboxnya lalu di object inpector pilih…
Text kita hapus biar kosong
Items kita masukan laki-laki dan perempuan
Pilik ok…. Hal tersebut sama juga untuk combobos di status
kita isi kawin dan belum kawin
Lanjut kita bikin form2 seperti ini….
komponen yang di pakai pada form 2 label, memo, dan button…
ok kita masuk ke form datu lagi…
kita kenalkan dulu form2 ke form 1 cara seperti di modul
sebelumnya…
setelah itu kita input di button1 (pendaftaran)
di form 1 seperti ini…
Kodingnya
=== >
procedure
TForm1.btn1Click(Sender: TObject);
begin
Form2.mmo1.Text
:= '//Nama Lengkap : ' + edt1.Text + ' //Alamat Lengkap : ' + edt2.Text + '
//Jenis Kelamin : ' + cbb1.Text + ' //Status : ' + cbb2.Text ;
Form2.Show ;
Form1.Hide ;
end;
Bisa kita artikan :
Form2.mmo1.Text
:=
(kita memanggil memo yang di form2)
'//Nama Lengkap : ' (itu
koding untuk menampilkan tulisan Nama lengkap : , di dalam Delphi (' ) adalah
adalah sebuah tanda kurung yang merupanan pernyataan untuk menandakan sebuah
tulisan yang tanpa arti dalam bahasa pemograman dan akan di dimunculkn seperti
yang ada dalam kurung tersebut.
+ edt1.Text
+ artinya penyambung
edt1.Text pernyataan atau tulisan yang di input pada edit1
mungkin bisa saya jabarkan seperti itu ada salahnya minta
maaf hahahaha…
kurang paham bisa komen…
ok kita lanjutkan ke form2…
tulis koding di button1 (keluar) seperti ini…
procedure
TForm2.btn1Click(Sender: TObject);
begin
Application.Terminate
;
end;
Application.Terminate artinya applikasi di hentika (keluar).
Langsung
kita jalankan saja tekan f9…
Dan hasilnya….
Mungkin itu saja pada artikel ini….
Ada pertanyaan silahkan komen……
Tidak ada komentar:
Posting Komentar