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

Diposting oleh di Tidak ada komentar:

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
     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
Diposting oleh di Tidak ada komentar:

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
Diposting oleh di Tidak ada komentar:

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
Diposting oleh di Tidak ada komentar:

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
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)