Membuat Window Entry Data

Ok Gan, pada kali ini kita akan melanjutkan dengan membuat window siswa, yang mana window siswa ini akan kita akan mengentry data siswa.

Kita langsung gan, sebelumnya pastikan aplikasi sekolah telah terbuka.

-         - Setelah terbuka pastikan database terkoneksi

-          - Sebelum kita membuat window siswa, terlebih dahulu buat “Data Window”. Caranya klik “New” ->”Data - Window”->”FreeForm”

-          - Pilih SQL Select lalu Next,  pada select Tables kita pilih “Siswa”

- Setelah terbuka table siswa, “select seluruh item” lalu pilih “Return”

-          - Klik “next” lalu “Finish”

- Agan dapat menghiasnya dengan menggunakan toolbar berikut

Sehingga tampilannya seperti gambar dibawah ini

- Setelah selesai save dengan nama “dw_siswa”.

Setelah selesai selanjutnya kita akan membuatkan window untuk data window, caranya :

- Klik “New” ->  “PB Object” -. “Window”

- Setelah window terbuka, tarik dan Drag dw_siswa ke tengah window dan atur posisinya sehingga seperti gambar dibawah ini.

-         -  Agan pula dapat memberikan judul dengan mengklik  “Static Text Control”

hSetelah itu kita akan membuat “Data Grid Siswa”, Caranya :

-       - Klik “New” -> “Data Window” -> “Tabular”

-       - Klik “OK” -> “SQL Select” -> Next. Pada form select tables pilih “Siswa”.

-       - Select All lalu “Return”. Setelah itu Next-> Finish.

     - Agan atur agan hias dengan 

-         - Sehingga seperti gambar dibawah ini

-          - Setelah selesai simpan dengan nama “Dw_Grid_Siswa” dan keluar dengan mengklik tanda silang diatas toolbar.

- Drag dw_grid_siswa kedalam Window sehingga akan tampilannya seperti gambar dibawah ini.

-         -  Simpan Window tersebut dengan nama W_Siswa

-         -   Agar terdapat scroll bar vertical dan horizontal, klik dw_grid_siswa tersebut, lalu pada propertis General -   checklist pada “HScrollBar dan VScrollBar”

- Buatlah tombol dengan menggunakan “command Button” . pada propertis –general, untuk name isi -dengan “cb_add” dan pada text isi dengan “Add”.  

- Buat “tombol Cancel”, “tombol Save”, “tombol Edit”, “tombol Delete” dan “tombol Close”. Ingat name harus sesuai dengan nama tombol tersebut. sebagai contoh tombol Cancel, pada propertis “Name = cb_cancel”, Text = Cancel”. Maka tampilan yang dihasilkan seperti dibawah ini.

- Pekerjaan selanjutnya adalah pemberian sintak. Dan perlu agan perhatikan, pada w_siswa bagian atas itu disebut dw_1 sedangkan grid disebut dw_2.

OK gan tahap selanjutnya pemberian sintak.

- Double Klik pada sebarang tempat selain pada bagian "dw_1 dan Dw_2 untuk membuka Event Open. disini saya mengklik di samping dw_1.

- Setelah terbuka ivent open ketikan sintak berikut 

- Setelah selesai kembali kepada tampilan depan dengan mengklik "Layout" pada bagian bawah.

- Double Clik pula pada "dw_2", lalu pada Declare Type pilih "rowfocuschanged" lalu tuliskan sintak seperti gambar berikut.

- Masih pada Declare Type, Kemudian pilih "Clicked" tuliskan sintak berikut 

- Setelah selesai kembali ke Layout.

- Double Clik pada tombol "Add". Isikan sintak berikut

     long a

    a= dw_1.insertrow(0)

    dw_1.scrolltorow(a)

    dw_1.setfocus()

    dw_1.setcolumn(1)

    dw_1.object.datawindow.readonly='no'

    cb_add.enabled=false

    cb_cancel.enabled=true

    cb_save.enabled=true

    cb_edit.enabled=false

    cb_delete.enabled=false

- Double Clik pada tombol "Cancel. Isikan dengan sintak berikut

    dw_2.retrieve()

    dw_1.object.datawindow.readonly='yes'

    cb_add.enabled=true

    cb_cancel.enabled=false

    cb_save.enabled=false

    cb_edit.enabled=true

    cb_delete.enabled=true

- Double Clik pada tombol "Save". Isikan sintak berikut.

      if dw_1.update()=1 then

   messagebox("Pesan","Sukses .. ",Information!)

   dw_1.object.datawindow.readonly='yes'

   cb_add.enabled=true

   cb_cancel.enabled=false

   cb_save.enabled=false

   cb_edit.enabled=true

   cb_delete.enabled=true

   dw_2.retrieve()

         else

   messagebox("Pesan", "Gagal .. ",information!)

      end if

- Double Clik pada tombol "Edit". isikan sintak berikut.

       dw_1.object.datawindow.readonly='no'

       dw_1.setfocus()

       dw_1.setcolumn(2)

       cb_add.enabled=false

       cb_cancel.enabled=true

       cb_save.enabled=true

       cb_edit.enabled=false

       cb_delete.enabled=false

- Double Clik pada tombol "Delete". Isikan sintak berikut.

        long a
 

        a=messagebox("Pesan", "Yakin Data Dihapus !! ",question!,yesno!)

 

        if a = 1 then

        dw_1. deleterow(0)

        dw_1. update()

        messagebox("Pesan","Sukses .. ",information!)

        dw_1.object.datawindow.readonly='yes'

        cb_add.enabled=true

        cb_cancel.enabled=false

        cb_save.enabled=false

        cb_edit.enabled=true

        cb_delete.enabled=true

        dw_2.retrieve()

        else

        messagebox("Pesan","Gagal .. ",information!)

        end if

- Double Clik pada tombol "Close". Isikan sintak berikut

     close(parent)

Save dan tekan menu run -> Run Latihan_01 atau dengan menekan gambar  lalu pilih menu Input -> siswa. jika terbuka form siswa, maka entry data siswa sesuai hati...

Coba agan klik tombol Add selanjutnya Entry Lalu Simpan. Uji seluruh tombol dan pastikan kerjalan dengan baik.

Untuk selanjutnya dalam pengisian data siswa, mungkin terdapat sedikit kesulitan. diantaranya penulisan format tanggal. 

Sekian semoga bermanfaat... :)

Source: http://girimaulana21.blogspot.com/ and http://nuansailmu.weebly.com/power-builder.html