I-BEGO

Indonesian Best Generation

Skip to content

[Share] Sample Program Gambas With MySQL

Forum diskusi pemrograman desktop lain.
Post a reply

[Share] Sample Program Gambas With MySQL

Postby ekaperintis » 25 Apr 2010, 02:02

//---------------------------------------------------------------------------------------/
Nama Program : Sample Input Data
Create : Eka Riana :D
Pukul : 24.00 WIB (-|
Sifat : GPL
//--------------------------------------------------------------------------------------/
Semoga Kehidupan Saling Kasih Menggema di Bumi Persada Indonesia Tercinta. Amiin.

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.
Image
Post ekaperintis telah mendapat 4 kopi dari:
AgoesTri, mbahlawoe, pujanggabageur, vberror13
User avatar
ekaperintis
Sersan Satu
Sersan Satu
 
Posts: 2088
Joined: 17 Mar 2010, 14:27
Location: Parungpanjang-Bogor
Memberi kopi: 82 cangkir
Mendapat kopi: 154 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby irzan2010 » 25 Apr 2010, 13:27

mantab om.. tengkyu buat tutornya :D
wah tapi sayang, saya lagi ga install linux. dulu sih ada, sekarang uda kehapus.
irzan2010
Kopral Satu
Kopral Satu
 
Posts: 1000
Joined: 12 Mar 2010, 12:58
Location: Surabaya
Memberi kopi: 24 cangkir
Mendapat kopi: 31 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby ekaperintis » 25 Apr 2010, 19:20

irzan2010 wrote:mantab om.. tengkyu buat tutornya :D
wah tapi sayang, saya lagi ga install linux. dulu sih ada, sekarang uda kehapus.


Dinstall lagi aja om, biar kita belajar bereng,,, :D
Image
User avatar
ekaperintis
Sersan Satu
Sersan Satu
 
Posts: 2088
Joined: 17 Mar 2010, 14:27
Location: Parungpanjang-Bogor
Memberi kopi: 82 cangkir
Mendapat kopi: 154 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby irzan2010 » 25 Apr 2010, 23:56

Insya Allah om kalo ada waktu dan free space akan saya "hidupkan" lagi slackware saya dan install gambas :D
irzan2010
Kopral Satu
Kopral Satu
 
Posts: 1000
Joined: 12 Mar 2010, 12:58
Location: Surabaya
Memberi kopi: 24 cangkir
Mendapat kopi: 31 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby mbahlawoe » 27 Apr 2010, 00:09

irzan2010 wrote:mantab om.. tengkyu buat tutornya :D
wah tapi sayang, saya lagi ga install linux. dulu sih ada, sekarang uda kehapus.


[OOT] Kata Flack : Nunggu CLR (Common Language Runtime) .NET versi Linux di release dulu aja....

BTW....Gambas nya om dosen perintis oke juga..... :-bd => ~o)
Salam Mimpi
User avatar
mbahlawoe
C# Moderator
C# Moderator
 
Posts: 1377
Joined: 14 Mar 2010, 00:18
Location: Solo - Jawa Tengah
Memberi kopi: 61 cangkir
Mendapat kopi: 163 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby irzan2010 » 27 Apr 2010, 07:25

@mbahlawoe : apa pake Mono aja mbah? :D
irzan2010
Kopral Satu
Kopral Satu
 
Posts: 1000
Joined: 12 Mar 2010, 12:58
Location: Surabaya
Memberi kopi: 24 cangkir
Mendapat kopi: 31 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby k4m4r82 » 27 Apr 2010, 07:36

Manteb om :-bd
Ditunggu kelanjutan sample lainnya :D
User avatar
k4m4r82
Java Moderator
Java Moderator
 
Posts: 1092
Joined: 14 Mar 2010, 12:40
Location: Utara Fak. Teknik UGM tepatnya di daerah Pogung
Memberi kopi: 33 cangkir
Mendapat kopi: 123 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby ekaperintis » 27 Apr 2010, 13:28

mbahlawoe wrote:[OOT] Kata Flack : Nunggu CLR (Common Language Runtime) .NET versi Linux di release dulu aja....

Salam Mimpi


kapan mbah releasenya :D


BTW....Gambas nya om dosen perintis oke juga..... :-bd => ~o)


Ampun om,,, ane bukan dosen,,,, tolong diralat yah,,,, plisss belum cukup umur ma kemampuan .... ^:)^ ^:)^

k4m4r82 wrote:Manteb om :-bd
Ditunggu kelanjutan sample lainnya :D


Oke, nanti ane tambahkan sample untuk ubah, hapus data yah....
Image
User avatar
ekaperintis
Sersan Satu
Sersan Satu
 
Posts: 2088
Joined: 17 Mar 2010, 14:27
Location: Parungpanjang-Bogor
Memberi kopi: 82 cangkir
Mendapat kopi: 154 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby ekaperintis » 03 May 2010, 18:20

Janji = Hutang,,,,
Mohon maaf sebelumnya, jadi terlalu lama nih tertunda, 3 hari yang lalu kena penyakit orang miskin (diare), di tambah router ma modem kena petir,,, padahal tuh internetnya ane gratiskan untuk sekitar,,, wah2 jadi kemana-mana nih, oke langsung aja,,, :D

Berikut dibawah ini kelanjutan dari Sample Program Gambas dengan Db MySQL :
1. Desain Interface
    - Pada form yang sudah ada, tambahkan 1 Command dan 1 Timer, dilanjutkan dengan

2. Setting Properties
    - Object Command1 di ubah properties namenya menjadi CmdUbah, dan Properties Text-nya menjadi "&Ubah"
    - Object timer diubah properties Delay-nya menjadi 100 dan properties Enabled-nya menjadi FALSE, sehingga desain interfacenya akan terlihat seperti dibawah ini :
    Image

3. Coding Program
    - Pada Command Ubah
Code: Select all
PUBLIC SUB CmdUbah_Click()
  IF CmdUbah.Caption = "&Ubah" THEN
    CmdUbah.Caption = "&Simpan"
    CmdKeluar.Caption = "&Batal"
    CmdTambah.Enabled = FALSE
    TextHidup
    'TxtKode.Enabled = FALSE
    TxtKODE.SetFocus
  ELSE
    UbahData
    CmdUbah.Caption = "&Ubah"
    CmdTambah.Caption = "&Tambah"
    CmdKeluar.Caption = "&Keluar"
    TextKosong
    textmati
    CmdTambah.Enabled = TRUE
  ENDIF
END


    - Pada Timer
Code: Select all
PUBLIC SUB Timer1_Timer()
  ME.Height = ME.Height + 10
  Tengah
  IF ME.Height >= 220 THEN Timer1.Enabled = FALSE
END


    - Buat Prosedur Tengah dan UbahDATA
Code: Select all
SUB UbahData()
  STRSQL = "Update tbl_barang set nm_brg='" & TxtNama.Text & "', hrg_satuan = '" & TxtSatuan.Text & "', jumlah='" & TxtJumlah.Text & "' where kd_brg='" & TxtKode.Text & "'"
  MyConn.Exec(STRSQL)
END

PRIVATE SUB Tengah()
  ME.Center 
END


    -Pada Form Show
Code: Select all
PUBLIC SUB Form_Show()
  TextKosong
  TextMati
  ME.Window.Center
  ME.Height = 5
  Timer1.Enabled = TRUE
END


Berikut Code Lengkapnya :
Code: Select all
' Gambas class file
PUBLIC MyConn AS NEW Connection
PUBLIC RsBarang AS Result
PUBLIC STRSQL AS String
 
PUBLIC SUB Form_Show()
  TextKosong
  TextMati
  ME.Window.Center
  ME.Height = 5
  Timer1.Enabled = TRUE
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"
    CmdUbah.Enabled = FALSE
    TextHidup
    TextKosong
    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"
      CmdUbah.Enabled = TRUE
    ENDIF
  ENDIF
END

PUBLIC SUB CmdKeluar_Click()
  IF CmdKeluar.Caption = "&Keluar" THEN
      ME.Close
  ELSE
    CmdKeluar.Caption = "&Keluar"
    CmdTambah.Caption = "&Tambah"
    TextKosong
    TextMati
    CmdUbah.Enabled = TRUE
    CmdTambah.Enabled = TRUE
  ENDIF
END

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

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

PRIVATE SUB TampilData()
STRSQL = "Select * From tbl_barang where kd_brg='" & TxtKode.Text & "'"
  RsBarang = MyConn.Exec(STRSQL)
  TxtNama.Text = RsBarang!nm_brg
  TxtSatuan.Text = RsBarang!hrg_satuan
  TxtJumlah.Text = RsBarang!jumlah
CATCH
     TxtNama.SetFocus
END

PRIVATE SUB CariData()
IF CmdTambah.Caption = "&Simpan" THEN
  TampilData
  CmdUbah.Enabled = TRUE
  CmdTambah.Caption = "&Tambah"
  CmdKeluar.Caption = "&Keluar"
  textmati
ELSE IF CmdUbah.Caption = "&Simpan" THEN
  TampilData
  CmdTambah.Enabled = FALSE
  TxtKode.Enabled = FALSE
  TxtNama.SetFocus
ENDIF
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()
  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

SUB UbahData()
  STRSQL = "Update tbl_barang set nm_brg='" & TxtNama.Text & "', hrg_satuan = '" & TxtSatuan.Text & "', jumlah='" & TxtJumlah.Text & "' where kd_brg='" & TxtKode.Text & "'"
  MyConn.Exec(STRSQL)
END

PRIVATE SUB Tengah()
  ME.Center 
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

PUBLIC SUB Timer1_Timer()
  ME.Height = ME.Height + 10
  Tengah
  IF ME.Height >= 220 THEN Timer1.Enabled = FALSE
END



PUBLIC SUB CmdUbah_Click()
  IF CmdUbah.Caption = "&Ubah" THEN
    CmdUbah.Caption = "&Simpan"
    CmdKeluar.Caption = "&Batal"
    CmdTambah.Enabled = FALSE
    TextHidup
    'TxtKode.Enabled = FALSE
    TxtKODE.SetFocus
  ELSE
    UbahData
    CmdUbah.Caption = "&Ubah"
    CmdTambah.Caption = "&Tambah"
    CmdKeluar.Caption = "&Keluar"
    TextKosong
    textmati
    CmdTambah.Enabled = TRUE
  ENDIF

END


4. Test dengan cara Menekan F5

Semoga bermanfaat :D
Image
Post ekaperintis telah mendapat kopi dari:
vberror13
User avatar
ekaperintis
Sersan Satu
Sersan Satu
 
Posts: 2088
Joined: 17 Mar 2010, 14:27
Location: Parungpanjang-Bogor
Memberi kopi: 82 cangkir
Mendapat kopi: 154 cangkir
Top

Re: [Share] Sample Program Gambas With MySQL

Postby mbahlawoe » 10 Jul 2010, 04:11

Bagussssssssssss........ :)
User avatar
mbahlawoe
C# Moderator
C# Moderator
 
Posts: 1377
Joined: 14 Mar 2010, 00:18
Location: Solo - Jawa Tengah
Memberi kopi: 61 cangkir
Mendapat kopi: 163 cangkir
Top
Next
Post a reply

Return to Other Desktop Development

Who is online

Users browsing this forum: No registered users and 1 guest

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group

-- SEO --