Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

VIDEO TUTORIAL MIKROTIK VIDEO + MODUL TRAINING ORDER BISA VIA TOKOPEDIA KLIK LINK GAMBAR

VIDEO TUTORIAL MIKROTIK  VIDEO + MODUL TRAINING ORDER BISA  VIA TOKOPEDIA KLIK LINK GAMBAR
Update Video Tutorial > Lebih dari 350 Video Tutorial MIkrotik

Jadwal Training Mikrotik Running Setiap Awal dan Akhir Bulan

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
Jl. H.Gofur Komplek Graha Bukit Raya 1 Blok G3 No 16 Lantai 3, Cilame, Bandung Barat

Telp : 081214518859 (WhatsApp)
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit
Website : www.padepokanit.com

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution