Home » Archives for 2013

Download Vidio Dari YouTube Dengan Mudah

Posted by Gg Tuesday 29 October 2013 0 comments
Ok sobat, mungkin sebagian dari teman" ada yang merasakan kesulitan dalam hal mendownload vidio dari youtube.
Ada tips mudah yang mungkin teman" bisa coba.

  1. Pilih vidio yang akan didownload.
  2. Copy alamat you tubenya.
  3. Lalu paste pada link berikut  http://en.savefrom.net/#url=https%3A%2F%2Fwww.youtube.com%2Fwatch%3Fv%3DuLm1oLAJBlg
  4. lalu pilih jenis Vidionya seperti 3gp, FLV, MP4, dan lain-lain
Selamat mencoba........

Mengcopy atau Menduplikat Tabel yang Sama ke Tabel yang Baru Pada MySql

Posted by Gg Saturday 10 August 2013 0 comments
Mungkin dari sebagian teman saat menggunakan database MySql berkeinginan untuk membuat tabel baru yang sama struktur dan recordnya dengan tabel yang ada.

Hal ini sebenarnya bisa dilakungan dengan Query, untuk penulisan querynya sebagai berikut :
 
   CREATE TABLE kry LIKE karyawan;
 INSERT kry SELECT * FROM karyawan;

Penjelasan pada query diatas adalah buatlah tabel "kry" yang sama strukturnya dengan  tabel "karyawan".

Namun apabila teman hendak membuat tabel yang sama akan tetapi beda databasenya, maka penulisan querya sebagai berikut :

     CREATE TABLE kry LIKE db_penjualan;
  INSERT kry SELECT * FROM db_penjualan.karyawan;  

Penjelasan diatas adalah buatlah tabel "kry" yang sama strukturnya dengan tabel "karyawan" ada di database "db_penjualan" (db_penjualan.karyawan)

Mencari Port Yang Terbuka

Posted by Gg Tuesday 21 May 2013 0 comments
Untuk bisa masuk kedalam suatu rumah tentunya kita harus melewati sebuah pintu.

Begitu pula untuk masuk kedalam suatu system harus melaui suatu pintu.

Port ibarat sebuah pintu, dan jika anda hendak masuk maka harus membuka pintu tersebut terlebih dahulu.

Untuk mengetahui atau melihat apakah suatu port terbuka atau tertutup sangatlah mudah. tetapi pada kali ini saya akan memberikan cara manual untuk mengetahui apakah suatu port tersebut terbuka atau tidak. Pada cara manual ini saya menggunakan cara manual yaitu menggunakan program telnet.

 Telnet adalah sebuah program emulasi terminal. Dengan program telnet, anda bisa melakukan koneksi ke suatu layanan atau services. caranya, ketikkan saja telnet  [nomor port].

Sebagai contoh anda ingin mengetahui apakah suatu komputer menjalankan web server atau tidak -dengan asumsi web server menggunakan port defaultnya yaitu 80- anda bisa mengetikkan telnet www.nuansailmu.tk 80
setelah diketikkan lalu enter. Jika anda melihat layar hitam sama sekali, itu artinya port tersebut terbuka. namun jika anda mendapatkan pesan time out atau could not open connectiona to the host, on port 8, maka port tersebut tidak terbuka....

Ok semoga bermanfaat....


Membuat User Profile

Posted by Gg Tuesday 5 March 2013 0 comments
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 |

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

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




Fungsi Lower & Upper

Posted by Gg Monday 4 March 2013 0 comments
Fungsi Lower dan Upper sama seperti Lower dan Upper pada Microsoft Word. Fungsi Lower berfungsi untuk merubah huruf menjadi hurup kecil, sedangkan fungsi Upper adalah merubah huruf besar (kapital).


  • Jalankan Microsoft Excel, dan buatlah tabel seperti gambar dibawah ini.
  • Pada cell C4 ketikkan fungsi =Lower(B4) dan pada cell D4 ketikkan fungsi =UPPER(B4) lalu Tekan Enter.
  • Copy kedua Fungsi tersebut ke dalam cell-cell yang masih kosong, sehingga seperti gambar dibawah ini.
Selamat Mencoba...

Fungsi LEN Pada Excel

Posted by Gg 0 comments
Fungsi LEN digunakan untuk menghitung jumlah hurup dalam suatu kata pada cell. Bentuk Umum pada fungsi LEN adalah =LEN(text).

  • Bukalah Aplikasi Office, Microsoft Excel. Setelah buat tabel seperti gambar dibawah ini.
  • Pada cel C4 ketikan fungsi berikut =LEN(B4) lalu tekan Enter. B4 menunjukkan cel yang berisi kata mobil.
  • Copy fungsi tersebut kepada cel-cel dibawahnya.
Selamat Mencoba



Fungsi MID pada Excel

Posted by Gg 0 comments
MID adalah fungsi untuk mengambil huruf pada pertengahan kata. Formula fungsi MID adalah =MID(text; start_num; num_chars).


  • Buka Aplikasi Office Microsoft Excel, lalu buatlah Table seperti gambar dibawah ini.
  • Pada Cell C4 ketikkan =MID(B4;2;3) lalu tekan Enter. Maka fungsi tersebut akan mengambil huruf-huruf dari cell B4 yaitu Mobil, mulai mengambil dari huruf ke dua sebanyak 3 huruf.
Coba anda isi cell berikutnya dengan menggunakan fungsi MID sehingga seperti gambar dibawah ini.
Selamat mencoba....



Fungsi Right pada Excel

Posted by Gg 0 comments
Setelah sebelumnya kita mempelajari Fungsi Left, sekarang kita akan mencoba dengan fungsi Right. Fungsi Right hampir sama dengan Fungsi Left hanya saja kalu Fungsi Left adalah mengambil beberapa huruf dari kiri, tetapi Fungsi Right adalah mengambil beberapa huruf dari kanan.

Kita langsung coba...

  • Jalankan Aplikasi Office Excel, lalu buatlah tabel berikut.
  • Pada Cell C4 ketikkan =RIGHT(B4;3) lalu klik Enter. maka fungsi ini akan mengambil 3 huruf dari kanan pada kata Mobil
Berikan pula fungsi pada column-column yang masih kosong dengan mengambil jumlah huruf yang berbeda-beda sehingga seperti gambar dibawah ini.

Selamat Mencoba...

Fungsi Left Pada Excel

Posted by Gg 0 comments
Kali ini kita akan mempelajari tentang salah satu fungsi yang disediakan oleh program aplikasi office Microsoft Excel yaitu tentang Fungsi Left.

Fungsi dari Fungsi Left yaitu digunakan untuk mengabil beberapa huruf dari suatu susunan kata. Sebagai contoh kita sering bertemu dengan bermacam-macam kode, misalkan CO_021113. pada kode tersebut bisa bermakna CO -> Computer dan 011113 adalah tanggal.

Agar dapat memudahkan pemahaman kita langsung kepada Microsoft Excel.

  • Jalankan Aplikasi Office Microsoft Excel, lalu buatlah data seperti gambar dibawah ini.

  • Pada cell C4 atau column Fungsi Left Sebelah kanan kata Mobil kita ketikkan fungsi =LEFT(B4;3)  setelah itu tekan Enter
Fungsi =LEFT(B4;3), berarti kita mengambil huruf dari kiri pada cell B4 yaitu Mobil, dan mengambil 3 huruf menjadi Mob. 

Coba anda ketikkan kembali fungsi left pada column selanjutnya dengan jumlah huruf yang berbeda-beda seperti gambar dibawah ini.


Selamat mencoba...

Fungsi CountIf pada Microsoft Excel

Posted by Gg 0 comments
Pertemuan kali ini kita akan mencoba menghitung daftar hadir dan gaji karyawan pada perusahaan XXX dengan menggunakan Fungsi CountIf pada Microsoft  Excel.


  • Bukalah Program Aplikasi Office, Microsoft Excel lalu buatlah tabel hadir dan gaji karyawan seperti gambar dibawah ini.
Atau anda dapat mendownloadnya di sini
  • Pada data diatas, kita nyatakan tanda X adalah tanda bahwa karyawan tersebut hadir, dan tanda " - " adalah tanda bahwa karyawan tersebut tidak masuk.
  • Kita akan menggunakan fungsi Countif untuk menghitung jumlah hadir karyawan pada perusahaan XXX.
  • Aktifkan mouse pada colomn I5 lalu ketikkan fungsi  =COUNTIF(C5:H5,"X") lalu tekan Enter 
Setelah tekan enter maka secara otomatis akan terlihat hasilnya yaitu 4. ini menandakan bahwa karyawan Haryadi hadir selama seminggu 4 hari.
Selanjutnya anda bisa melakukan hal yang sama untuk menghitung gaji karyawan lain. tetapi perlu diperhatikan letak cell nya. pada contoh diatas kita menghitung hadir karyawan yang bernama Haryadi dengan fungsi =COUNTIF(C5:H5,"X"). tetapi untuk menghitung jumlah hadir karyawan Budi menggunakan fungsi  =COUNTIF(C6:H6,"X"). terdapat perbedaan pada setiap karyawan yaitu terletak pada cellnya.
Jumlah karyawan diatas hanya sepuluh orang, bayangkan jika jumlah karyawannya ratusan orang. tentu akan membuat kita kewalah dalam menghitungnya.  


Untuk mempermudah, anda dapat mengcopy fungsi tersebut. caranya

  • Aktifkan cell I5.
  • Pada Cell I5 terdapat tanda kotak pada pojok kanan bawah cell. tarik kotak tersebut dengan menggunakan mouse ke bawah sampai akhir data.
Maka secara otomatis semua jumlah kehadiran dijumlah.

Pada tahap selanjutnya kita akan menghitung jumlah gaji setiap karyawan dengan ketentuan perhari dibayar 20.000 rupiah.
  • Aktifkan cell J5 untuk menghitung gaji haryadi. Ketikkan =I5*C15 (cell I5 menunjukkan cell jumlah hadir karyawan dan C15 menunjukkan ketentuan bayar, jadi rumusnya kehadiran dikali gaji perhari )
  • Jika fungsi telah diketik maka tekan enter. maka hasilnya pun akan terlihat. Setelah anda copy rumus tersebut ke bawah dengan menarik tanda kotak pojok kanan  bawah pada cell J5, sama seperti pada point sebelumnya.
Namun setelah dicopy ternyata hasilnya adalah nul/kosong....
Mengapa demikian, untuk mengeceknya silahkan anda aktifkan salah satu cell dari column jumlah Gaji. Sebagai contoh kita aktifkan di cell J9 yaitu pada nama karyawati Nani. Lalu anda cek fungsinya/rumusnya apakah sesuai tidak.
Setelah dicek ternyata Fingsi/Rumus tidak menempati yang semestinya. terlihat cell C19 yang seharusnya terletak pada C15. Dan ternyata setelah Fungsi tersebut di Copy atau ditarik kebawah maka C15 juga ikut kebawah. Untuk menghindari hal tersebut maka C15 perlu dikonci agar ketika dicopy tidak ikut kebawa. Caranya adalah :
  • Hapus semua hasil jumlah gaji kecuali jumlah gaji karyawan pertama (Haryadi)
  • Aktifkan cell J5 maka akan terlihat fungsinya adalah =I5*C15. 
  • Blok C15 Lalu tekan F4 pada keyboard sehingga bentuk fungsinya menjadi =I5*$C$15
  • Setelah itu copy rumus tersebut kebawah
Maka hasilnya pun akan terlihat...
Nah agar lebih ingat, tugas untuk anda adalah coba hitung jumlah karnyawan yang absen dengan menggunakan fungsi CountIF....

Selamat Mencoba.... :)





Memberi Pengaturan Ruler dan TrackBar

Posted by Gg Friday 15 February 2013 0 comments
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

Posted by Gg 0 comments
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

Posted by Gg 0 comments
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

Posted by Gg Thursday 14 February 2013 0 comments
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....














.

Copyright © Blog G21. All rights reserved.

Super SEO created by Blogger Tuts From Jom Kenal Islam