Memberi Pengaturan Ruler dan TrackBar

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 |

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


Pengaturan Zoom dan Text Size

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 |

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

Memberi Pengaturan PageSetup

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 |

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


Membuat Laporan Data Siswa

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 |


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














Memberi Nama pada Setiap Form

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 |

Pembahasan kali ini sangat simpel, dan seharusnya dibahas pada pertemuan awal. tetapi terlambat tidak apa dari pada tidak sama sekali, betul ga gan...!!! :D

- Buka Aplikasi yang telah kita buat.
- Double klik pada w_utama lalu pada propertis Title isikan dengan Form Utama..
- Double pada w_siswa lalu pada properties Title isikan dengan Form Siswa.
- Simpan dan jalankan...
Ok gan, selamat mencoba...




Memberikan Penomoran Otomatis dan Pembatasan Nomor

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 |

Pada pertemuan sebelumnya kita telah membuat w_siswa dan dapat mengentry data didalamnya. pada kali ini kita juga akan memcoba memberikan penomoran otomatis pada No_Pendaftaran.
Kita langsung z gan...

- Buka aplikasi yang telah kita buat sebelumnya.
- Double klik pada w_siswa. lalu klik pada tombol Add, tambahkan sintak, sehingga nampak seperti gambar berikut :


 Jika agan perhatikan sintak diatas, maka kita dapat memberikan batasan data yang diinput. ini merupakan trik perogrammar untuk membatasi penggunaan Aplikasi buatannya. Dan jika sang User ingin terus memakainya terus, maka user tersebut harus menghubungi siprogrammar.

Setelah selesai save dan jalankan....

Klik menu -> input -> siswa klik Add. maka nomor pun otomatis terisi.
Jika agan melihat, maka timbul satu pertanyaan, bagaimana ketika tombol Add diklik dan nomor muncul otomatis, maka cursor otomatis pada Column nama ?
Untuk jawabanya agan coba stop program lalu klik kembali tombol add, ganti sintak berikut
dw_1.setcolumn(1) 
menjadi ...
dw_1.setcolumn(2)

Save dan coba jalankan.....

Salam sukses...

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

Kali ini kita akan mencoba membuat Pencarian data siswa pada data yang telah kita Entrykan pada form siswa. Kita langsung gan...

- Buka Aplikasi yang sebelumnya kita buat.
- Double clik pada w_siswa. lalu tambahkan komponen Create GroupBox Control dan letakkan diatas dw_2 seperti gambar dibawah ini. berinama GroupBox tersebut dengan Cari Data.
- Tambahkan pula komponen Create SingleLineEdit Control dan letakkan dalam GroupBox yang tadi kita buat.
- Tambahkan pula komponen Create PictureButton Control dan letakkan didalam GroupBox
- Atur tampilan seperti gambar dibawah ini. Untuk mencari gambar pada PictureButton, agan bisa mencarinya pada Properties PictureName.

Tahap selanjutnya adalah pemberian sintak pada PicutrButton. Apabila kita mengklik SingleLineEdit, maka nama pada propertiesnya adalah Sle_1. maka sintaknya adalah sebagai berikut :

dw_2.retrieve()
dw_1.retrieve(sle_1.text)

if dw_1.getrow() = 0 then
messagebox("Pesan","Data tidak ada",information!)
dw_1.retrieve(gs_siswa)
else
gs_siswa=dw_1.getitemstring(dw_1.getrow(),"no_pendaftaran")
long ll_i
dw_2.retrieve(gs_siswa)
ll_i=dw_2.find("no_pendaftaran='"+gs_siswa+"'",1,dw_2.rowcount())
if ll_i>0 then
dw_2.scrolltorow(ll_i)
dw_2.selectrow(ll_i,true)
end if
if dw_1.getrow() = 0 then
messagebox("Pesan","Data tidak ada",information!)
end if
end if


Jika sudah coba agan jalankan. masuk kemenu -> input -> siswa. agan ketikaan data yang akan dicari dengan mengisinya dengan no_pendaftaran.
Silahkan agan coba dengan mencari data yang belum terdaftar dan klik cari. maka akan muncul pesasn bahwa data yang dicari tidak ada....

Ok gan semoga bermanfaat.....
salam sukses....

Menonaktifkan Edit Dw_Grid pada window

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 |


Trik kali ini adalah membuat data grid window tidak bisa dirubah ketika diklik. Agan coba jalankan program aplikasi yang telah dibuat sebelumnya, lalu buka data siswa. setelah program berjalan, coba klik salah satu data pada dw grid(dw_2). ketika anda ketikan suatu huruf, maka datapun berubah sesuai dengan huruf yang kita ketik.
Lalu bagaimana agar data grid tersebut tidak berubah...? Ok gan, kita mulai...
- Stop program yang sedang berjalan tadi.
- Double klik w_siswa, lalu klik kanan pada data Grid (dw_2), pilih Modify DataWindow.
- Setelah terbuka, Klik Tab Order dan beri nilai 0 pada setiap semua columnsnya seperti gambar dibawah ini.
- Setelah diberi nilai 0, klik kembali Tab Ordernya untuk menghilangkan tanda merahnya. Save dan jalankan.

Coba agan jalankan, lalu buka window siswa dengan mengklik menu -> input -> siswa. Klik salah satu data grid lalu ketikkan suatu huruf, maka data pun tidak berubah..
Sekian, semoga bermanfaat sobat.....



Singkronisasi Data Window

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 |


Pada latihan kali ini masih pada Window Entry Data Siswa. Kali ini kita akan mengsingkronkan antara dw_1 dengan dw_1 ketika program berjalan.

Seperti biasa, buka latihan sebelumnya dan jalankan. Buka Window siswa dan jika diklik salah satu nama pada data grid window siswa (dw_2), akan tetapi pada dw_1 nama yang muncul tidak sesuai dengan nama yang kita klik pada dw_2.
Bagaimana agar ketika diklik nama seseorang pada dw_2, maka nama tersebut akan muncul pada dw_1 ???
caranya :
- double klik pada w_siswa, lalu klik kanan pada dw_1 pilih Modify DataWindow untuk membuka dw_siswa.
- Lalu klik Data Source
- Setelah terbuka data source, klik Design -> Retrieval Arguments..
- Isi nama dengan No_Pendaftaran dan type dengan string. klik OK
- Isi pula argument pada column yang terdapat dibawah data source. Isi Column dengan No_Pendaftaran, Operator dengan "=", dan kilk kanan pada Column Value pilih arguments dan Vaste.
- Setelah selesai pengisian arguments, klik Return pada toolbar.
- Simpan dan jalankan..
Klik Input pada menu, lalu pilih Siswa. Klik salah satu nama pada dw_2, maka nama tersebut akan muncul pada dw_1.
Ok gan... semoga bermanfaat....








DropDownListBox dan Format Tanggal

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 |


Pada tahap kali ini kita akan sedikit memberikan Drop Down List Box dan format tanggal pada dw_siswa agar memudahkan user dalam mengentry data siswa.

- Buka projek sebelumnya yang telah dibuat.
- Double klik "dw_siswa" pada Window Tree sebelah Kiri. Klik pula Jenis Kelamin, lalu pada propertisnya pilih edit (Jika tidak ada klik tombol panah sebelah kiri) dan pada Style Type pilih DropDownListBox.
- Pada properties Isi Display dengan Laki-Laki dan Perempuan Seperti gambar dibawah ini. lalu beri checklist pada Always Show Arrow.


Jika sudah selesai, selanjutnya kita akan membuat format tanggal lahir.
- Klik Tanggal Lahir, lalu pada properties pilih edit, pada Style Type pilih EditMask, dan pada Mask pilih "mm/dd/yyyy hh:mm:ss". pada mask hapus "hh:mm:ss" sehingga tinggal "mm/dd/yyyy". Beri text disebelah Tanggal lahir. lalu disain seperti gambar berikut..

Simpan dan jalankan...
Pada Menu klik Input->siswa. Tambahkan Entry siswa dengan klik tombol Add, maka pada Jenis kelamin dan tanggal lahir dapat memudahkan user dalam mengentry data...

semoga bermanfaat...

.