Cara Menambahkan Daftar Isian Pilihan Lewat Jendela Control Properties:ComboBox - List Entires Form LibreOffice Base

Berawal dari kebingungan saat mempelajari pembuatan properti ComboBox pada Form LibreOffice Base, saat ingin memberi/menambahkan nilai pilihan pada ComboBox, tidak tahu carannya (cuma bisa membuat satu daftar aja). Paling menyebalkan lagi belum banyak tutorial berbahasa indonesia.

Setelah terpaksa browsing di berbagai diskusi mengenai pembuatan From LibreOffice (terutama berkaitan penambahan list ComboBox), akhirnya ketemu juga dan caranya tentu (ternyata) sederhana sekali hehe..

Ok langsung ke inti..

Untuk menambahkan list/daftar pilihan ComboBox dengan menekan tombol SHIFT+ENTER saat List Entires dalam keadaan siap edit, maka posisi edit akan berganti baris yang siap diberi data pilihan baru.

Mungkin itu saja, dan semoga dapat dipahami.

Cara Menemukan Data Pada Posisi Urutan (Insert/Default) Sebelumnya Pada Mysql/MariaDB

Sangat mudah sekali jika menemukan posisi data sebelumnya yang urutannya terurut secara Increment/Decrement. Namun bagaimana jika kita ingin menemukan posisi data yang akan diambil, sedangkan acuannya berdasarkan urutan id yang tidak berurut, artinya urutan default yang berdasarkan waktu insert.

Misal sebuah data yang ID nya tidak berurut, artinya urutannya berdasarkan waktu insert.

Nama Tabel: DataNama

ID     Nama

6        Amir

2        Rudi

3         Ana

7        Hadi

4        Fuad

1        Bagio

9        Yuli

Misal, dalam aplikasi yang kita buat terdapat fitur pencarian/menampilkan data sebelum dan sesudah berdasarkan kode ID yang sudah tercantum, dan akan ditampilkan secara satu persatu sesuai urutan (apa adanya) diatas (tidak berdasarkan Increment/Decrement).

Dalam aplikasi tesebut, misalnya sudah diketahui posisi nama adalah “Hadi” (ID=7). Saat user menekan tombol Sebelumnya maka data Nama yang diharapkan adalah “Ana” (ID=3) akan tampil. Contoh query untuk menemukannya menggunakan MariaDB/MySql:

SET @a := 0;

SET @b := 0;

SELECT ID, Nama FROM

   (SELECT @a := @a+1 AS n1, ID AS ids FROM DataNama) AS pret1,

   (SELECT @b := @b+1 AS n2, ID, Nama FROM DataNama) AS pret2

WHERE n2 = (SELECT n1 WHERE ids = 7)-1;

Semoga bermanfaat.

Cara Mengetahui Posisi Nomor AUTO_INCREMENT Pada MySql/MariaDB

Kita tahu bahwa AUTO_INCREMENT digunukan untuk pemberian nomor secara otomatis secara bertambah (+1) pada kolom yang bertipe angka (INT, TINYINT, MEDIUMINT, dll) saat memasukkan data. Walaupun sejumlah data terakhir dihapus, posisi nomor AUTO_INCREMENT berikutnya akan tetap.

Berikut query cara mengetahui posisi nomor AUTO_INCREMENT yang akan digunakan berikutnya:

SELECT AUTO_INCREMENT FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_SCHEMA=’<nama database>’ AND TABLE_NAME=’<nama tabel>’;

Cara Kontrol (Key) Input/Output Karakter Pada Pemrogaman Gambas

Maksud dari judul diatas ialah cara supaya input dari keyboard ke komponen seperti TextBox, ComboBox, ButtonBox, dll bisa disaring (karakternya).

Misal programmer ingin menset supaya pengguna tidak bisa memasukkan karakter selain angka dan huruf pada suatu TextBox, artinya pengguna tidak dapat memasukkan karakter seperti $%^&)(*!~{}|\<>?.,:”;’`+=_-/. Maka contoh kodenya sebagai berikut:

Public Sub TextBox1_KeyPress()

  With key

     If .Code <> .BackSpace And .Code <> .Del And .Code <> 

    .Left  And .Code <> .Right And .Code <> .Tab And .Code <>

    .BackTab And Not .Control Then

       If Key.Text Not Like "[0-9a-zA-Z]" Then

         Stop Event  

       End If

     Endif

  End With

End

Penggunaan “With – End With” Sebagai Peringkas Penulisan Kode Pada Gambas

With digunakan untuk mewakili penggunaan object yang dipakai secara berulang, tujuannya adalah menyederhanakan penulisan kode.

Misal :

Public Sub Form_Open()

   TextBox1.Clear

   TextBox1.Text = "Anu"

   TextBox1.W = 100

   TextBox1.H = 20

   TextBox1.Enabled = True

   ‘Dan seterusnya

End

Penulisan dapat disingkat dengan:

Public Sub Form_Open()

   With TextBox1

     .Clear

     .Text = "Anu"

     .W = 100

     .H = 20

     .Enabled = True

   End With

End

Bisa juga disertakan dengan properti yang sama:

Public Sub Form_Open()

   With Koneksi.Database

     .Exec(Sql1)

     .Exec(Sql2)

     .Exec(Sql3)

     .Exec(Sql4)

     .Exec(Sql5)

   End With

End

Jadi, dengan menggunakan with kita tidak perlu menulis ulang object