May 2012
MTWTFSS
«Mar  
 123456
78910111213
14151617181920
21222324252627
28293031 

Tips:Keyboard ShortCut –Win Word 2003

wword_imagesPada artikel ini akan disajikan beberapa shortcut yang dapat digunakan pada saat kita bekerja menggunakan Microsoft Office Word 2003,ada beberapa kelompok shortcurt tersebut yaitu:

  • Text dan Paragraf
  • Bekerja dengan style
  • Bekerja dengan style
  • Bekerja dengan tabel
  • Bekerja dengan dokumen
  • Tombol Fungsi

Continue reading Tips:Keyboard ShortCut –Win Word 2003

Tips:Export Blob Ke Image Power Builder

Pada artikel terdahulu yang berjudul Tips:Import Image Ke Database –Power Builder telah dibahas cara untuk mengimport image file ke dalam database. Artikel kali ini akan memberi contoh bagaimana memanggil kembali blob dari dalam database dan menampilkan di pictue control maupun meng-export kembali menjadi file gambar.

Blob Emp_id_pic
SELECTBLOB Image
INTO:Emp_id_pic
FROM dba.t_image
WHERE “index image”=:iindex
USING SQLCA ;

integer li_FileNum,loops
long flen
li_FileNum = FileOpen(sfilename,StreamMode!,Write!,Shared!,Replace!)
SetPointer(HourGlass!)
flen = Len(Emp_id_pic)
IF flen >32765 THEN

IF Mod(flen,32765) = 0 THEN

loops = flen/32765

ELSE

loops = (flen/32765) + 1

END IF

ELSE

loops = 1

END IF

Continue reading Tips:Export Blob Ke Image Power Builder

Tips:Import Image Ke Database –Power Builder

Pada LogoSybaseartikel ini akan disajikan penggunaan powerscript untuk meng-import file image ke database. Penulis menggunakannya pada saat memasukkan foto dari user ke database. Yang perlu dicermati pada script berikut ini adalah penghitungan jumlah loops/perulangan yang harus dilakukan menggunakan FileRead. Secara default FileRead terbatas sampai pada 32765 bytes.

integer li_FileNum,loops,i
long flen,bytes_read
blob b,tot_b

SetPointer(HourGlass!)
flen = FileLength(sfilename)
li_FileNum = FileOpen(sfilename,StreamMode!,Read!,LockRead!)
IF flen >32765 THEN

IF Mod(flen,32765) = 0 THEN

loops = flen/32765

ELSE

loops = (flen/32765) + 1

END IF

ELSE

loops = 1

END IF

FOR i = 1 to loops

bytes_read = FileRead(li_FileNum,b)
tot_b = tot_b + b

NEXT
FileClose(li_FileNum)

Continue reading Tips:Import Image Ke Database –Power Builder

Tips:Membuat Kalender Dengan Power Builder

Pada Power Builder versi 10.0 keatasa kita dapat menggunakan MonthCalendar jika kita ingin menampilkan kelender,bagaimana jika kita inginkan kalender pada PB 10.0 kebawah? Dalam artikel ini disajikan pembuatan kalender dengan menggunakan object datawindow,dan dengan manipulasi menggunkan powerscript. Tampilan dari kalendar seperti gambar berikut ini:

Kalender_PB

Continue reading Tips:Membuat Kalender Dengan Power Builder

Tips:Fungsi Transfer Antar Tabel Power Builder

LogoSybaseAcapkali kita perlu meng-copy data dari suatu table ke table yang lain baik dalam database yang sama maupun ke database yang terpisah. Dalam power builder tersedia database object yaitu ‘data pipeline’yang dapat digunakan untuk melakukan hal tersebut.Kali ini akan disajikan sebuah fungsi yang dapat digunakan untuk hal tersebut diatas tetapi dengan metode yang berbeda,tidak menggunakan ‘data pipeline’melainkan menggunakan manipulasi data melalui object datawindow. Biasanya kita akan menggunakan fungsi built-in getitemstring untuk mengambil data dari datawindow sumber dan setitem untuk mengisikan data pada datawindow tujuan:

Contoh:
string s_nim
s_nim = dw_source.getitemstring(dw_source.getrow(),”nim”)
dw_target.setitem(ll_newrow,”nim”,s_nim)

Continue reading Tips:Fungsi Transfer Antar Tabel Power Builder