Membuat User Profile

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

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

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

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

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

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

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





.