Belajar tentang Komputer: Maret 2015

Kamis, 12 Maret 2015

Membuat User Profile

Data merupakan sekumpulan fakta yang akan diproses menjadi sebuah informasi, dan tentunya data yang diberikan harus sesuai dan benar.

Oleh karena itu, dalam mengentry data haruslah tepat dan benar, tidak boleh ada seseorang yang tidak berhak mengentry data yang salah. Dengan adanya kejadian tersebut, maka perlu keamanan program. Salah satu dari keamanan program adalah dengan adanya Menu Login. Dengan adanya menu login maka tidak sembarangan orang dapat mengakses program.

Sebelum membuat Menu Login kita perlu membuat User Profile, yaitu orang-orang yang berhak dan dapat mengakses program.

Ok kita langsung saja..

Buat Table baru Dengan nama User Profile pada SQL Server caranya :

Buka Program SQL Server Enterprise Manager lalu pilih menu Tools dan pilih SQL Query Analyzer. Pastikan DataBase yang terkoneksi adalah "Sekolah"
Setelah jendela SQL Query Analyzer terbuka, ketikkan sintak berikut :

Create table user_profile (

Nama_Lengkap varchar (25),

UserId varchar(10),

Password varchar (10)

);

Setelah sintak selesai klik Execute Query atau bisa menekan F5

Apabila sudah muncul informasi "The Command (s) completed succerssfully", berarti database sudah berhasil

Tahap selanjutnya adalah membuat Data Window pada powerbuilder. sama seperti membuat Data Window Siswa.

Buka Program Aplikasi Sekolah yang sebelumnya telah kita buat.
Kelik menu File -> New -> DataWindow -> Freeform -> Ok.
Pilih SQl Select -> Klik Next -> pilih tabel user_profile -> lalu Open
Select All seluruh Item lalu Return. Klik Next hinga Finish
Atur tampilan seperti gambar dibawah ini

Jika selesai selanjutnya adalah pemberian Action Control

Letakkan 4 buah tombol Button dibawahnya.

Berikan Action pada masing-masing tombol dengan cara klik button pertama ( << ) lalu pada General properties (sebelah kanan) pada Action pilih PageFirst(6)

Lakukan hal yg sama untuk Tombol selanjutnya

Tombol < Action PagePrior(5)

Tombol > Action PageNext(4)

Tombol >> Action PageLast(7)

Letakkan pula Create a Computer Field pada tengah-tengah tombol action.

Setelah diletakkan maka akan muncul Modify Expression lalu ketikkan sintak seperti terlihat digambar lalu klik OK.

Simpan dengan nama dw_userid.

Tahap selanjutnya adalah membuat tampilan Window untuk dw_userid.

Klik File pada menu, lalu pilih New.
Pilih PB Object -> lalu pilih window -> OK.
Tarik Drag dw_userid kedalam Window
Berikan tombol-tombol seperti Add, Cancel, Save, Edit, Delete Close.

Berikan nama masing-masing tombol pada general properties seperti pada latihan ke-8sebelumnya.

Tombol Add name cb_add

Tombol Cancel name cb_cancel

Tombol Save name cb_save

Tombol Edit name cb_edit

Tombol Delete name cb_delete

Tombol Close name cb_close

Untuk pemberian sintak hampir sama dengan w_siswa
Tombol Add

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

Tombol Cancel

dw_1.retrieve(gs_siswa)

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

Tombol Save

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

else

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

end if

Tombol Edit

dw_1.object.datawindow.readonly='no'

dw_1.setfocus()

dw_1.setcolumn(1)

cb_add.enabled=false

cb_cancel.enabled=true

cb_save.enabled=true

cb_edit.enabled=false

cb_delete.enabled=false

Tombol Delete

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

else

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

end if

Tombol Close

close(w_userid)

Selanjutnya pemberian sintak pada Event Open. Caranya double klik pada window_userid (selain pada dw_1)
Setelah event open terbuka ketikkan sintak berikut

dw_1.settransobject(sqlca)

dw_1.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

Agar window userid dapat diakses perlu ditambahkan satu menu pada m_menu. Double klik pada m_menu pada window tree. Tambahkan menu Tools yang terdiri dari submenu User Profile dan Change Password

Double Klik pada menu User Profile lalu isikan sintak seperti gambar diatas.
Jika sudah selesai save dan jalankan
Klik menu Tools -> User Profile
Coba agan klik Tombol Add lalu isi data yang sesuai
Jika sudah selesai Klik Tombol Save

Apabila agan ada kendala seperti Formnya tidak bisa di isi, maka cek pada dw_userid, Klik Tab Order maka isi nilainya dengan 10, 20, 30 seperti terlihat pada gambar dibawah. jika sudah selesai klik kembali Tab Order lalu save.

Jika ketika saat pengisian lalu klik tombol Save, muncul pesan Update data window maka stop program lalu buka dw_userid.

Pada menu Row pilih Update Properties, maka sesuaikan dengan gambar dibawah ini. Setelah itu klik OK

Coba agan jalankan kembali.

Pilih menu tools lalu pilih User Profile.

Tekan Tombol Save....

Selamat Mencoba Gan....

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

Memberi Pengaturan Ruler dan TrackBar

Masih dalam pengaturan Window Data Laporan Siswa. Dan pada kali ini kita akan memberikan pengaturan Ruler dan TrackBar. Agar mudah dalam pemahaman kita mulai saja gan.

Seperti biasa, buka dahulu aplikasi program yang telah kita buat sebelumnya
Double klik w_lap_siswa untuk membuka window laporan siswa.
Tambahkan Komponen CheckBox dan letakkan di samping kanan DropDownListBox zoom (ddlb_1)
Berinama komponen tersebut dengan nama Ruler.
Double klik komponen tersebut lalu tuliskan sintak berikut :

if dw_1.describe('datawindow.print.preview')='yes' then

if this.checked then

dw_1.object.datawindow.print.preview.rulers='yes'

else

dw_1.object.datawindow.print.preview.rulers='no'

end if

Save dan jalankan. Klik laporan -> Data Siswa. pilih page setup lalu check list pada ruler....

Selanjutnya kita akan menambahkan komponen TrackBar. Fungsi komponen tersebut hampir sama dengan zoom. kita langsung mulai saja gan.

Stop Program aplikasi yang sedang berjalan tadi.
Tambahkan Komponen HTrackBar Control. lalu tempatkan dibawah Size Text memanjang ke Ruler.
Double klik komponen HTrackBar tersebut, lalu tuliskan sintak berikut.

dw_1.Object.DataWindow.Zoom = scrollpos

dw_1.Title = "Zoom is " + String ( this.position ) + "%"

Simpan dan jalankan program aplikasi. Pilih PageSetup lalu geser kekanan dan kekiri Control TrackBar tersebut

Ok gan, sampai sini dulu....

Salam sukses.....

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

Pengaturan Zoom dan Text Size

Setelah pertemuan sebelumnya kita membuat pengaturan PageSetup, kali ini kita juga akan memberikan pengaturan Zoom, Text Size dan Rule pada Laporan Data Siswa.

Sebelum kita muali, pastikan aplikasi pada latihan sebelumnya telah terbuka dan siap dioperasikan.

Double klik pada w_lap_siswa untuk membuka window laporan siswa.
Pilih Komponen Create StaticText Control dan letakkan dibawah dw_1 (dw_lap_siswa) lalu ketikkan Zoom.
Lakukan hal yang sama, pilih StaticText Control letakkan dibawah Zoom dan ketikkan Size Text.
Tambahkan Komponen DropDownListBox Control dan letakkan di samping Text Zoom.
Pada Properties DropDownListBox pilih item isikan dengan nilai 50, 60, 70, 80, 90, 100, 120, 130, 140.

Lakukan hal yang sama pada Size Text namu pada Properties Item isikan dengan nilai 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20

Double klik pada DropDownListBox Zoom (ddlb_1) lalu ketikkan sintak berikut.

dw_1.object.datawindow.print.preview='yes'

integer li_zoom

li_zoom = integer(This.text)

dw_1.Object.DataWindow.Print.Preview.Zoom = li_zoom

Double klik pada DropDownListBox Size Text (ddlb_2) lalu ketikkan sintak berikut.

dw_1.Object.DataWindow.Zoom = ddlb_2.text

dw_1.Title = "Zoom is " + String ( this.text ) + "%"

Setelah selesai, jalankan dan coba di Zoom.

Terdapat sedikit kesulitan dalam memilih ukuran berapa yang akan kita pilih. untuk memudahkan pemilihan maka perlu kita tambahkan ScrollBar secara vertikal. Caranya adalah

Hentikan Aplikasi program yang sedang berjalan.
Klik DropDownListBox zoom (ddlb_1), lalu pada properties checklist tulisan VScrollBar

Lakukan hal yang pada Size Text (ddlb_2), setelah itu jalankan...

Ok gan, salam sukses....

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

Memberi Pengaturan PageSetup

Setelah sebelumnya kita membuat laporan data siswa. pada kali ini kita akan mencoba memberikan pengaturan Pagesetup pada w_laporan tersebut.

Buka Aplikasi yang telah kita buat sebelumnya.
Pastikan w_lap_siswa yang terbuka. jika belum terbuka double klik pada w_lap_siswa untuk membukanya.
Tambahkan Komponen GroupBox dan berinama PageSetup
Tambahkan 3 buah Komponen RadioButton Control dan letakkan dalam GroupBox berinama masing-masing Default, Portrait, Landscape pada setiap RadioButton.

Tahap selanjutnya adalah pemberian sintak.

Double klik pada RadioButton Default, dan ketikkan sintak berikut.

if dw_1.describe('datawindow.print.preview')='yes' then

dw_1.Object.DataWindow.Print.orientation = 0

dw_1.Modify(' datawindow.paper.orientation = 0')

end if

dw_1.object.datawindow.print.preview='yes'

Double klik pada RadioButton Portrait, dan ketikkan sintak berikut.

if dw_1.describe('datawindow.print.preview')='yes' then

dw_1.Object.DataWindow.Print.orientation = 2

dw_1.Modify(' datawindow.paper.orientation = 2')

end if

dw_1.object.datawindow.print.preview='yes'

Double klik pada RadioButton Landscape, ketikkan sintak berikut.

if dw_1.describe('datawindow.print.preview')='yes' then

dw_1.Object.DataWindow.Print.orientation = 1

dw_1.Modify(' datawindow.paper.orientation = 1')

end if

dw_1.object.datawindow.print.preview='yes'

Jika selesai save dan jalankan. coba agan buka Laporan siswa dan coba check radio Button tersebut.

Default

Portrait

Landscape

Ok salam Sukses....

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

Membuat Laporan Data Siswa

Kali ini kita akan mencoba membuat laporan dari data siswa yang dientrykan pada Window Siswa(w_siswa) sebelumnya.

Laporan data siswa kita akan menggunakan data window tabular, kita mulai saja gan.

Buka aplikasi yang telah agan buat sebelumnya. dan ingat tutorian ini berlanjut.
Setelah terbuka Klik File -> New -> DataWindow -> Tabular -> OK -> SQL Select -> pada Select Tables pilih table Siswa lalu Open.
Setelah Table Siswa terbuka seleksi semua colums lalu Return data tersebut.

Setelah Return Klik Next -> Finish. Hiasi tabel tersebut seperti gambar dibawah ini.

Gunakan Toolbar dibawah ini untuk menghiasnya seperti memberi warna pada tulisan dan background , memberi kotak dan lain-lain.

Pada column tanggal rubah formatnya menjadi Edit Mask, pilih mm/dd/yyyy pada Properties Edit seperti pada latihan 9.
Tarik Header dan nama Column ke bawah untuk memberi judul pada laporan.

Gunakan Componen Text Object dan Picture Object untuk memberi judul seperti gambar dibawah ini.
Simapn dengan nama dw_lap_siswa

Selanjutnya kita akan membuat window untuk meletakkan dw_lap_siswa yang telah kita buat tadi sehingga akan muncul saat program dijalankan.

Klik New pada File, lalu pilih Window pada PBObject. Klik OK

Berinama Form tersebut dengan Laporan Data Siswa pada properties

Klik tarik atau Drag dw_lap_siswa kepada window. Dan atur posisi sehingga pas dengan window

Setelah selesai beri tombol Save As, Print, Print Setup, dan Tutup dibawah dw_1 (dw_lap_siswa)

Double Klik pada window (selain pada dw_1, dan tombol) beri sintak berikut :

dw_1.settransobject(sqlca)

dw_1.retrieve()

Sintak diatas untuk mengkoneksikan dengan database SQL Server

Double Klik pada tombol Save As dan beri Sintak berikut : dw_1.saveas()
Double Klik pada tombol Print dan beri sintak berikut : dw_1.print()
Double Klik pada tombol Print Setup dan beri sintak berikut : printsetup()
Double Klik pada tombol Tutup dan berisintak berikut : close (w_lap_siswa).
Simpan window tersebut dengan nama w_lap_siswa.

Selanjutnya, kita akan memanggil w_lap_siswa melalui menu utama.

Klik m_menu pada window tree sebelah kanan.
lalu double klik pada &Data Siswa, lalu beri sintak Open (w_lap_Siswa) pada bagian bawahnya seperti gambar berikut.

Setelah selesai save dan jalankan. Pilih Laporan -> Data Siswa pada menu. maka tampil seperti berikut :

Ada sedikit kekurangan gan, apabila kita klik salah satu data, maka data tersebut bisa kira edit, oleh karena itu kita akan menonaktifkan edit pada data tersebut. sama halnya seperti latihan sebelumbya.

Hentikan program yang sedang berjalan tersebut.
Double klik pada dw_lap_siswa. klik tab Order beri nilai 0 pada masing-masing kolumns data tersebut, dan jika selelsai klik kembali tab Order untuk menutup nilai tersebut.

Save dan jalankan kembali. pilih Laporan -> Data Siswa pada menu.

Ok gan sampai sini dulu, lain kali kita akan mencoba memberi pengaturan seperti Pagesetup, pemberian Ruler dan lain-lain pada latihan selanjutnya...

Salam Sukses....

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