Cara Mudah Memahami Fungsi Concate di SQL Studi Kasus Menggabungkan Data Alamat di Tabel Supplier

Walau kelihatannya mudah, penggabungan teks atau string di MySQL sering menimbulkan kebingungan. Hal ini disebabkan karena MySQL harus menggunakan function sedangkan pada beberapa produk database lain cukup menggunakan operator plus (+) atau ampersand (&).Function-function yang digunakan untuk menggabungkan teks di MySQL adalah concat  Secara umum, penggunaan Concat adalah Concat(string₁, string₂,..,string_n). untuk memperjelas penggunaannya ikuti tutorial dibawah ini studi kasus menggabungkan data alamat pada data supplier.

Langkahnya adalah sebagai berikut:

1.       Pastikan telah membuat Tabel Supplier dan Telah Meinginput Datanya, struktur tabel supplier seperti  terlihat pada gambar dibawah ini

TABEL SUPPLIER

2.       Selanjutnya Buka SQL Editor disini saya menggunakan Heidy SQL

3.       Selanjutnya pada tab Query Masukan Syntak SQL untuk menampilkan data supplier Seperti berikut :  select * from Tsupplier

4.       Pada gambar diatas belum digunakan fungsi concate, untuk menggabungkan alamat1, alamat2,dan alamat3 gunakan syntak sql seperti berikut

select kodesup, supplier,attn_sup,concat(alamat,alamat2,alamat3) as Alamat, notel from tsupplier

OUTPUT PENGGUNAAN CONCAT SQL

5.       Selesai, Selamat Mencoba

Padepokan IT Course

IT Training Center & Solution

Cara Mudah Mengatur Bandwith Management di Mikrotik Dengan Tujuan Membuat Limited Download dan Unlimited Browsing

Ketika kita menggunakan internet pasti pernah mengalami koneksi sangat lelet sekali padahal bandwidth yang didapat dari ISP lumayan besar. Tapi kenapa buka email aja sampai lelet atau bahkan browsing tidak pernah konek alias situs yang kita akses gak pernak kebuka. Kejadian ini disebabkan karena bandwidth termakan habis oleh client yang melakukan download menggnakan Download Manager seperti IDM. Maka teknik yang digunakan adalah dengan cara Limited Download dan Unlimited Browsing

Limited Download dan Unlimited Browsing adalah salah satu teknik manajemen Bandwidth yang efektif untuk membagi bandwidth secara adil. Karena, jika bandwidth download tidak dibatasi, maka akan menggangu kecepatan internet pengguna lain dalam satu jaringan. Akibatnya, jika ada beberapa pengguna yang melakukan download apalagi menggunakan IDM, maka pengguna lain yang cuma browsing tidak kebagian bandwidth. Cara mengatasinya adalah dengan membuat Bandwith manajemen di mikrotik dan sekaligus menerapkan aturan PCQ untuk Paket download. Berikut Langkah-langkahnya:

1.  Asumsi anda telah mengerti bagaimana membuat Bandwidth manajemen di mikrotik menggunakan SimpleQueue atau queue Tree. Anda bisa lihat tutorialnya disini.

2.       Buat daftar extensi file yang masuk filter download di Layer 7 protocol. Silakan copy dan paste script berikut ke Terminal Mikrotik kemudian tekan enter. Jika ekstensi file nya dirasa kurang banyak silakan ditambahkan sendiri

Menu	IP – Firewall – Layer 7 Protocol
Metode	Paste Via Terminal
Script	/ip firewall layer7-protocol add comment="" name=limitdownload regexp="^.*get.+\\.(exe|rar|zip|7z|cab|asf|mov|wmv\  |mpg|mpeg|mkv|avi|flv|pdf|wav|rm|mp3|mp4|ram| rmvb|dat|daa|iso|nrg|bin|vcd|\ mp2|3gp|mpe|qt|raw|wma|ogg|doc|deb|tar|bzip| gzip|gzip2|0[0-9][0-9]).*\$"

3.       Buat Firewall Mangle untuk menandai paket yang mau dilimit. Silakan copy paste juga script berikut ini ke Terminal dan tekan enter. Kita cukup menggunakan 1 Mangle saja

Menu	IP – Firewall – Mangle
Metode	Paste Via Terminal
Script	/ip firewall mangle add action=mark-packet chain=forward comment=limitdownload disabled=no \ layer7-protocol=limitdownload new-packet-mark=paket-donlot passthrough=no protocol=tcp

4.       Selanjutnya Cek Settingan di Layer 7 dan Mangle apakah settingan sudah diterapkan seperti terlihat pada gambar dibawah ini

5.      Selanjutnya buat limit bandwidth nya dengan Queue. 

Queue Type : Masuk ke Queue --> Queue Types --> add

- Beri nama limit dl

- Kind : pcq

- Rate : 64k (silakan sesuaikan dengan keinginan berapa max speed download nya)

jika diisi 64k, maksudnya membatasi kecepatan download 64 kbps dibagi 8 --> 8 KB/s

jika ingin lebih tinggi bisa saja diisi 256k sehingga throughput : 256/8 = 32 KB/s

NB : ingat 1 byte = 8 bit

Silakan diisi sesuai keinginan anda.

- Setingan lainnya biarkan saja, lihat gambar berikut ini :

  

6.       Selanjutnya Buat Settingan di Queue Tree

Queue Tree : masuk ke Queue --> Queue Tree --> add

- Beri nama : Limit Download

- Parent : global Out Jika Menggunakan Versi 5, jika menggunakan versi 6 Pilih Global

- Packet Marks : paket-download

- Queue Type : limit dl

- Max Limit : 64k (Sesuaikan dengan kebutuhan anda)

7.       Kemudian Lakukan Ujicoba dengan mendownload file dengan extensi mp3 atau mp4 gunakan IDM

Selamat Mencoba

Sumber Refrensi

Cara Mudah Membuat Fungsi Simpan dan Update data di Delphi Studi kasus Input Data Supplier

Untuk Menyimpan atau mengupdate data di Delphi cukup dengan satu buah tombol simpan saja, dengan cara kita buat variable di tombol tambah. Jadi logikanya begini ketika form aktif kemudian kita klik tombol tambah. Maka variable akan dikirim dengan statuis 1 misalnya. Sedangkan untuk mengupdate data kita kirim variable dengan status 0 yang akan di eksekusi ketika Grid di DoubleKlik. Maka untuk itu kita harus mendeklarasikan variable status di variable global yang nilainya 0 dan 1. Untuk lebih jelasnya ikuti tutorial selengkapnya.



Asumsi anda telah membuat tabel supplier di database dan telah menghubungkan Aplikasi dengan database dengan komponen Zquery (Zeos)

1.       Desain Form Master Supplier seperti berikut  

2.       Kemudian Buat Variabel Status di Variabel Global

3.       Selanjutnya Pada tombol simpan dan Grid Supplier lakukan coding seperti berikut

procedure TFsupplier.bt_tambahClick(Sender: TObject);

begin

  sts := 1;

  panel_Fbarang.visible := true;

  aktif;

  GRID_SUP.Enabled := false;

end;

procedure TFsupplier.GRID_SUPDblClick(Sender: TObject);

begin

sts := 0;

panel_Fbarang.visible := true;

aktif;

tampildata;

GRID_SUP.Enabled := false;

end;

4.       Selanjutnya di tombol Simpan Codingnya seperti berikut

Komponen	Button Simpan
Event	On Click
Coding BEGIN   //Simpan Data    if sts=1 then      Begin          with dm.qr do          begin           close;           sql.Clear;           sql.Add('insert into tsupplier(kodesup,supplier,attn_sup,alamat, ');           sql.Add('alamat2,alamat3,notel,fax,email,status,jenis)');           sql.Add(' values (:ks,:ns,:attn,:alamat,:alamat2,:alamat3,:notel,:fax,:email,:sts,:jenis)');           ParamByName('ks').AsString:=ed_ks.Text;           ParamByName('ns').AsString:=ed_ns.Text;           ParamByName('attn').AsString:=ed_attn.Text;           ParamByName('alamat').AsString:=ed_alamat1.Text;           ParamByName('alamat2').AsString:=ed_alamat2.Text;           ParamByName('alamat3').AsString:=ed_alamat3.Text;           ParamByName('notel').AsString:=ed_telp.Text;           ParamByName('notel').AsString:=ed_fax.Text;           ParamByName('fax').AsString:=ed_fax.Text;           ParamByName('email').AsString:=ed_email.Text;           ParamByName('sts').AsString:=cmb_status.Text;           ParamByName('jenis').AsInteger:=cmb_js.ItemIndex;           ExecSQL;           ShowMessage('Simpan Data Berhasil');           close;          end;     END;  if sts=0 then    begin    //update data      with dm.qr do      begin       close;       sql.Clear;         sql.Add('update tsupplier set kodesup=:ks, supplier=:ns,attn_sup=:attn,alamat=:alamat,');         sql.Add('alamat2=:alamat2,alamat3=:alamat3,notel=:notel,fax=:fax,email=:email,');         sql.Add('status=:sts,jenis=:jenis ');         sql.Add('where kodesup="'+ed_ks.Text+'"');         ParamByName('ks').AsString := ed_ks.Text;         ParamByName('ns').AsString := ed_ns.Text;         ParamByName('attn').asstring := ed_attn.text ;         ParamByName('alamat').AsString := ed_alamat1.Text;         ParamByName('alamat2').AsString := ed_alamat2.Text;         ParamByName('alamat3').AsString := ed_alamat3.Text;         ParamByName('notel').Asstring := ed_telp.Text;         ParamByName('notel').AsString:=ed_fax.Text;         ParamByName('sts').Asstring := cmb_status.Text;         ParamByName('jenis').AsInteger := cmb_js.ItemIndex;         ExecSQL;         ShowMessage('Edit Data Berhasil');         close;       end ;     end;  qr_supplier.Refresh; END; end;

5.       Selesai, dan Lakukan Uji coba

Selamat Mencoba

Padepokan IT Course

IT. Training Center & Solution