Membuat Window Entry Data
Postingan : | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 |
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...
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. Untuk mengetahui caranya, agan coba ikuti tutorial selanjutnya Klik disini....
Sekian semoga bermanfaat... :)
h
0 comments:
Post a Comment