Radio
Button adalah suatu tombol yang digunakan untuk mengambil salah
satu pilihan dari banyak pilihan yang tersedia. Pada tutorial ini akan dibahas
bagaimana menyimpan data di delphi dimana data yang akan disimpan menggunakan
komponen Radio Button. Studi kasusnya
adalah membuat input data mahasiswa.
LANGKAHNYA ADALAH SEBAGAI BERIKUT:
1.
Desain Form Seperti dibawah ini
 |
| DESAIN FORM INPUT DATA MAHASISWA |
2.
Selanjutnya Buat Coding seperti terlihat pada
gambar dibawah ini
Nama Komponen
|
Button Simpan
|
Event
|
On Click
|
Coding
|
Begin
with dm.qr do
begin
close;
sql.Clear;
sql.Add('insert into
tmahasiswa(nim, nama, kode_jk,jurusan, prog_study,tanggal_lahir,alamat)');
sql.Add('values(:nim,:nama,:kjk,:jur,:ps,:tl,:alamat)');
ParamByName('nim').AsString := ed_nim.Text;
ParamByName('nama').AsString := ed_nama.Text;
ParamByName('kjk').AsInteger := cb_jk.ItemIndex+1;
ParamByName('tl').AsDate
:= dt_tgllahir.Date;
ParamByName('jur').AsString := cb_jurusan.Text;
if rb_d1.Checked = true then
ParamByName('ps').AsString :=
rb_d1.Caption;
if rb_d3.Checked = true then
ParamByName('ps').AsString :=
rb_d3.Caption
else
ParamByName('ps').AsString := rb_s1.Caption;
ParamByName('alamat').AsString := ed_alamat.Text;
ExecSQL;
Close;
showmessage('Data
Berhasil Disimpan');
end;
clear;
Qmahasiswa.Refresh;
grid_mahasiswa.Refresh;
end;
|
Keterangan
|
Pada perintah yang di beri warna hijau menjelaskan bahwa jika salah
satu komponen di pilih maka data akan disimpan sesuai radio button yang
dipilih
|
3.
Jalankan Program dan Coba Simpan Data
4.
Selanjutnya untuk Menghilangkan Checked Radio
Button anda bisa gunakan perintah
rb_d1.Checked
:= false;
rb_d3.Checked := false;
rb_s1.Checked := false;
Coding
diatas dibuat Pada Prosedure lain Misal Procedure Clear;
Demikian Tutorial Singkat bagaimana cara coding untuk
menyimpan data komponen radio button di delphi.
Selamat Mencoba
PADEPOKAN IT COURSE
IT Tutorial, Training Center, & IT Solution
No comments:
Post a Comment