Sample Program Gambas With MySQL

Sebelumnya Saya ingin menyampaikan, mohon maaf karena belum tuntasnya thread mengenai “Jaringan Tanpa Hardisk dengan Munyux`CS” disebabkan Munyux`CS sebagai mini distronya hilang entah kemana dan sekarang masih dalam tahap pencarian, oleh sebab itu sambil mencari sambil juga berbagi mengenai Gambas.Dan menindak lanjuti Thread mengenai “Install Xampp For Linux” dan “Cara Install Gambas di BlankOn”, dengan segala hormat saya mohon izin untuk berbagi sample Program Gambas dengan MySQL ini. Sebelum melanjutkan saya anggap kita sudah Install MySQL-nya di Linux dan juga Gambas Versi 2 sudah siap pakai. Berikut Langkah-langkahnya :

A. Rancangan Database dan Tabel

Code: Select all
---------------------------------------------------------------------
field                       type                        width
---------------------------------------------------------------------
kd_brg                   varchar                        7 ---->Primary Key
nm_brg                  varchar                       25
hrg_satuan             integer
jumlah                   integer
----------------------------------------------------------------------

B. Desain Interface/Rancangan Form
1. Buka Gambas, klik Application –> Programming –> Gambas2 (maka akan terlihat tampilan seperti ini)
Image
2. Pilih New Project –> Next (maka akan terlihat Project Direktory, silahkan anda buat direktory baru)–>Next Lagi (lagi-lagi akan terlihat seperti dibawah ini)
Image
Keterangan : pada text name silahkan isi dengan nama project anda, sedangkan pada title silahkan isi secara singkat aplikasi yang akan dibuat, dilanjutkan dengan meng-klik command Ok, maka akan terlihat pesan singkat seperti terlihat pada gambar di bawah ini :

Image
3. Buat Rancangan Form Seperti gambar di bawah ini :
Image
4. Silahkan Mainkan setting properties-nya (saya yakin 100% pasti bisa) :D , hingga hasilnya seperti di bawah ini :
Image
C. Create Coding Program

Code: Select all
' Gambas class file
PUBLIC MyConn AS NEW Connection
PUBLIC RsBarang AS Result
PUBLIC SUB Form_Show()
TextKosong
TextMati
ME.Window.Center
END

SUB TextKosong()
TxtKode.Text = “”
TxtNama.Text = “”
TxtSatuan.Text = “”
TxtJumlah.Text = “”
END

SUB TextMati()
TxtKode.Enabled = FALSE
TxtNama.Enabled = FALSE
TxtSatuan.Enabled = FALSE
TxtJumlah.Enabled = FALSE
END

SUB TextHidup()
TxtKode.Enabled = TRUE
TxtNama.Enabled = TRUE
TxtSatuan.Enabled = TRUE
TxtJumlah.Enabled = TRUE
END

PUBLIC SUB CmdTambah_Click()
IF CmdTambah.Caption = “&Tambah” THEN
CmdTambah.Caption = “&Simpan”
CmdKeluar.Caption = “&Batal”
TextHidup
TxtKode.SetFocus
ELSE
IF TxtKode.Text = “” OR TxtNama.Text = “” OR TxtSatuan.Text = “” OR TxtJumlah.Text = “” THEN
Message.Info(“Data Masih Ada Yang Kosong, Silahkan Lengkapi”, “Ok”)
ELSE
SimpanData
TextKosong
TextMati
CmdTambah.Caption = “&Tambah”
CmdKeluar.Caption = “&Keluar”
ENDIF
ENDIF
END

PUBLIC SUB CmdKeluar_Click()
IF CmdKeluar.Caption = “&Keluar” THEN
ME.Close
ELSE
CmdKeluar.Caption = “&Keluar”
CmdTambah.Caption = “&Tambah”
ENDIF
END

PUBLIC SUB TxtKode_KeyPress()
IF Key.code = Key.enter OR Key.code = Key.return THEN
TxtNama.SetFocus
END IF
END

PUBLIC SUB TxtNama_KeyPress()
IF Key.code = Key.enter OR Key.code = Key.return THEN
TxtSatuan.SetFocus
END IF
END

PUBLIC SUB TxtSatuan_KeyPress()
IF Key.code = Key.enter OR Key.code = Key.return THEN
TxtJumlah.SetFocus
END IF
END

PUBLIC SUB Form_Open()
Koneksi
END

SUB SimpanData()
DIM STRSQL AS String
STRSQL = “Insert Into tbl_barang (kd_brg, nm_brg, hrg_satuan, jumlah) values (‘” & TxtKode.Text & “‘,'” & TxtNama.text & “‘,'” & TxtSatuan.Text & “‘,'” & TxtJumlah.Text & “‘)”
MyConn.Exec(STRSQL)
END

PRIVATE SUB Koneksi()
WITH MyConn
.close
.Type = “mysql”
.Host = “127.0.0.1”
.Login = “root”
.Password = “”
.Name = “Penjualan”
.Open
END WITH
CATCH
Message.Warning(“Gagal Koneksi Ke Database Penjualan”, “OK”)
QUIT
END

Keterangan :
Ketika Create Coding pada command, silahkan klik kanan pada commandnya, kemudian silahkan pilih event yang akan dipilih.

8. Pilih Run untuk menjalankan program, dibawah ini hasil akhir dari proses program yang kita buat
Image
Silahkan input datanya, 1 atau 2 record, lalu coba cek di PhpMyadminnya,,,

Cukup dulu,,, mohon maaf apabila banyak kekurangan, dan semoga bermanfaat.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s