VIDEO TUTORIAL MIKROTIK ++225 VIDEO + MODUL TRAINING + SCRIPT

Jadwal Training Mikrotik Bulan ini 12,13,14 Oktober (Basic-Mahir) 3 Hari

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

IT TRAINING CENTER CONTACT : 0812 1451 8859 / 081 1219 8859

Cara Mudah Menyimpan Data Radio Button Di Delphi Ke Database MySQL


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


Share

Artikel Lainnya :



No comments:

Post a Comment

Training Bulan ini

Padepokan IT Course

Lokasi Training
1. Komp Graha Bukit Raya 1 G3/16 Bandung Barat
2. Jl. Ciuyah No.45 RT.05/RW.10 Bandung Barat

Telp : 081 1219 8859 (Telkomsel)
W.A : 081214518859 (WhatsApp)
Website : www.padepokanit.com
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution