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

Memahami Penggunaan Fungsi Params dan ParamByName di Delphi Studi kasus Update Data Supplier


Fungsi Params dan ParamByname merupakan Syntak delphi yang biasanya digunakan untuk insert atau update data ke database melalui front end Aplikasi. Berikut contoh perbedaan kedua sintak tersebut dimana Syntak Params digunakan dengan menggunakan parameter dan memanggilnya dengan menyebutkan urutan index, Sedangkan Syntak ParambyName sama menggunakan parameter tetapi nanti pemanggilannya menyebutkan kembali nama parameter tersebut.  untuk lebih jelasnya lihat perbedaan kedua syntak tersebut untuk mengupdate data Supplier.

Syntak Penggunaan Params
                                                         
           Begin
              close;
              sql.Clear;
              sql.Add('update tsupplier set nama_supplier=:a0,alamat1=:a1, ');
              sql.Add('alamat2=:a2,kota=:a3,contact_person=:a4,telp=:a5 ');
              sql.Add('where id_supplier = "'+ed_isupp.text+'"' );
              Params[0].AsString :=  ed_ns.Text;
              Params[1].AsString :=  ed_alamat.Text;
              Params[2].AsString :=  ed_alamat2.Text;
              Params[3].AsString :=  ed_kota.Text;
              Params[4].AsString :=  ed_cp.Text;
              Params[5].AsString :=  ed_telp.Text;
              ExecSQL;
              ShowMessage('Data Berhasil di Update');
              close;
              QSupplier.Refresh;
           end;

Keterangan :
·         Syntak diatas berfungsi untuk mengupdate data di tabel supplier dengan memasukan parameter dimana a0, a1,a2,a3, dan a5 adalah parameter.
·         Params[0] adalah urutan index dari parameter

Untuk melihat perbedaannya jika menggunakan parambyname lihat script dibawah ini
Syntak Penggunaan ParamByName
                                                         
           Begin
              close;
              sql.Clear;
              sql.Add('update tsupplier set nama_supplier=:ns,alamat1=:alm1, ');
              sql.Add('alamat2=:alm2,kota=:kota,contact_person=:cp,telp=:telp ');
              sql.Add('where id_supplier = "'+ed_isupp.text+'"' );
              ParamByName(‘ns’).AsString :=  ed_ns.Text;
              ParamByName (‘alm1’).AsString :=  ed_alamat.Text;
              ParamByName (‘alm2’).AsString :=  ed_alamat2.Text;
              ParamByName (‘kota’).AsString :=  ed_kota.Text;
              ParamByName (‘cp’).AsString :=  ed_cp.Text;
              ParamByName (‘telp’).AsString :=  ed_telp.Text;
              ExecSQL;
              ShowMessage('Data Berhasil di Update');
              close;
              QSupplier.Refresh;
           end;

Keterangan :
·         ns merupakan nama parameter
·         ParamByname(‘ns’) berfungsi memanggil nama parameter yang telah di definisikan

OUTPUT APLIKASI

OUTPUT RUN APLIKASI UPDATE DATA SUPPLIER

SALAM PADEPOKAN IT COURSES
IT Tutorial, IT Training, & IT Solution


Share

Artikel Lainnya :



2 comments:

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