Membuat Koneksi Powerbuilder ke Database SQLITE

Singkat saja, dalam tulisan ini saya mencoba membuat koneksi POWERBUILDER ke database SQLITE, berikut script yang ditulis didalam event open :

//===============================================
string ls_dbparm, ls_dbfile, ls_exepath, ls_file[]

ls_dbfile = 'sqlite_db_test.db3'

IF Fileexists(ls_dbfile) THEN
    // do nothing
ELSE
    IF GetFileOpenName('Select Data File',ls_dbfile, ls_file,'db3','SQLite files (*.db3),*.db3') < 1 THEN
        Messagebox('No Data File Chosen','Application will close')
        HALT CLOSE
    END IF
END IF
// SQLite connection
ls_dbparm = "ConnectString='"
// Driver installed with SQLite2009 Pro Enterprise Manager
ls_dbparm = ls_dbparm + "DRIVER=SQLite3 ODBC Driver;"
ls_dbparm = ls_dbparm + "Database=" + ls_dbfile + "'"
ls_dbparm = ls_dbparm + "UID=" + "admin" + ";PWD="
ls_dbparm = ls_dbparm +  "'"
sqlca.DbParm=ls_dbparm

sqlca.DBMS = "ODBC"

CONNECT USING SQLCA;

IF sqlca.sqlcode <> 0 then
MessageBox('Connect', 'Transaction not connect..'+sqlca.sqlerrtext,stopsign!)
Return
End IF

//============================================

Sekian dulu tulisan saya, semoga bisa membantu

Terima Kasih.

Konversi Hex Ke Binary

Kali ini saya ingin membuat beberapa FUNCTION untuk mengkonversi bilangan HEX ke dalam bentuk Binary secara sederhana

1. Buat New Function dengan function name "f_hex_to_bin"
2. Isi Return Type dengan "string"
3. Isi Argument Type dengan "string" dan Argument Name dengan "as_param_hex"
4. Tuliskan powerscript dibawah ini
5. Selamat mencoba...

integer i,li_length
string ls_param_hex,ls_hex,ls_binary,ls_huruf

ls_param_hex = trim(as_param_hex)

li_length = len(ls_param_hex)

for i = 1 to li_length

ls_huruf = Mid(ls_param_hex, i,1)

choose case ls_huruf
case '0'
ls_binary = '0000'
case '1'
ls_binary = '0001'
case '2'
ls_binary = '0010'
case '3'
ls_binary = '0011'
case '4'
ls_binary = '0100'
case '5'
ls_binary = '0101'
case '6'
ls_binary = '0110'
case '7'
ls_binary = '0111'
case '8'
ls_binary = '1000'
case '9'
ls_binary = '1001'
case 'A'
ls_binary = '1010'
case 'B'
ls_binary = '1011'
case 'C'
ls_binary = '1100'
case 'D'
ls_binary = '1101'
case 'E'
ls_binary = '1110'
case 'F'
ls_binary = '1111'
end choose

ls_hex = ls_hex + ls_binary

next

return ls_hex

Lain kali saya akan coba untuk membuat function2 yang semoga bisa bermanfaat untuk para penggemar PB.

Step by Step Instalasi TFS (Team Fundation Server) 2010 Sebagai Source Control Powerbuilder 12.5 .NET

Setelah Sekian lama saya vakum, ini saya coba membuat posting baru mengenai  Instalasi TFS 2010 sebagai sarana source control di PowerBuilder 12.5 .Net  karena source control nya tidak seperti PB Clasic.  Hal-hal yang perlu dipersiapkan adalah sebagai berikut

A. Instalasi Pada Komputer Server (Windows Server 2003 SP1)

• Download dan Install: .NET Framework 3.5 Service pack 1 
• Download dan Install: Windows Installer 4.5 Redistributable 
• Download dan Install: Windows Management Framework Core package (Windows PowerShell 2.0 and WinRM 2.0)
• Jika sudah ada Microsoft SQL Server Management Studio Express yang terinstal, maka lakukan uninstal terlebih dahulu. 
• Download dan Install: Microsoft® SQL Server® 2008 Express with Tools
• Download dan Install : Microsoft Visual Studio Team Foundation Server 2010 Trial – ISO 

B. Langkah Instalasi TFS 2010

• Karena file TFS 2010 berbentuk ISO, maka butuh software tambahan untuk membaca ISO. Kita bisa gunakan Virtual Clone Drive atau Daemon Tools. Setelah punya software itu, mount ISO-nya TFS.

• Di dalam drive “tambahan” setelah me-mount (aneh banget bahasanya) ISO, ada folder TFS-x64 dan TFS-x86. Pilih dan buka folder yang sesuai dengan mesin Anda. Saya pakai Windows 7 Ultimate x64, jadi saya buka folder TFS-x64.

• Di dalam folder tersebut, double-click file yang bernama setup.exe. Kalau ada window User Account Control, klik tombol Yes tentunya. Setelah itu akan muncul window berikut  

• Tunggu sebentar.. Setelah selesai loading, klik tombol Next. Pada halaman di bawah ini, (silahkan baca license terms terlebih dahulu kemudian) pilih I have read and accept the license terms lalu klik tombol Next.  

• Pada halaman di bawah ini, pilih komponen yang Anda ingin install. Team Foundation Server adalah komponen utama TFS. Sedangkan Team Foundation Build Service merupakan komponen tambahan yang memungkinkan kita melakukan build secara terintegrasi (pada post yang akan datang, TFS Build akan saya bahas lebih dalam). Saya memilih untuk menginstal 2 komponen tersebut sehingga saya beri tanda centang 2 pilihan Team Foundation Server dan Team Foundation Build Service, kemudian saya klik tombol Install.

• Tunggu beberapa saat.. silahkan membuat teh atau kopi untuk menemani Anda menunggu. 

• Kemudian Finish

•  Proses instalasi sudah selesai. Namun perjuangan belum berakhir. Kita harus melakukan konfigurasi terlebih dahulu agar TFS yang kita instal dapat berfungsi sesuai dengan kondisi sistem dan lingkungan kita. Dengan memastikan bahwa Anda memberi tanda centang pada pilihan Launch Team Foundation Server Configuration Tool, klik tombol Configure.

C. Konfigurasi Server TFS 2010

•  Setelah klik tombol Configure pada akhir proses instalasi TFS 2010, maka akan muncul window berikut:

• Perhatikan bahwa ada beberapa pilihan wizard, yaitu Basic, Advanced, Application-Tier Only, dan Upgrade. Pada setiap wizard, terdapat informasi tentang apa tujuan wizard tersebut. Pilih wizard yang paling cocok dengan kebutuhan Anda. Pada kasus ini, saya pilih wizard yang Basic. Setelah itu, klik tombol Start Wizard
• Akan muncul halaman Welcome pada window Team Foundation Server Basic Configuration. Pada halaman ini, klik tombol Next.

• Muncul halaman SQL Server Instance. Wizard ini tahu bahwa saya sudah punya SQL Server Express sehingga pilihan Use an existing SQL Server Instance secara otomatis sudah terpilih. Bagi Anda yang belum punya SQL Server Express, jangan khawatir, karena wizard ini akan menginstalkannya (lagi-lagi bahasa yang aneh) untuk Anda (yaitu dengan memilih pilihan Install SQL Server Express). Selanjutnya, klik tombol Next.

•  Akan muncul halaman Review. Pada halaman ini, kita diberikan informasi tentang apa saja settingan konfigurasi yang akan dilakukan oleh wizard ini. Klik tombol Next.
• Tunggu proses Readines Checks selesai..

 

•  Setelah selesai, klik tombol Next.  
• Finish

Untuk Selanjutnya kita tinggal melakukan Instalasi di Komputer Client, Adapun Hal2 yang perlu dipersiapkan adalah sebagai berikut :

A. Install Powerbuilder 12.5

B. Install Visual Studio Team Explorer (File Ini sudah Include didalam ISO TFS 2010 Trial yang kita download)

C. Download dan Install Visual Studio Team Foundation Server MSSCCI Provider

Setelah semua terinstall dengan aman maka selanjutnya kita lakukan setting source control pada Powerbuilder 12.5 .NET

• Klik Tools > Options
• pilih SourceControl > PlugIn Selection

• pilih Source Control > Environment

• pilih Source Control > Plug-In Setting.

• Sekarang Powerbuilder 12.5 .NET kita sudah menggunakan Source Control TFS 2010

Tips: Export Blob Ke Image Power Builder

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

Selanjutnya untuk meng-export kedalam file gambar dapat digunakan baris perintah berikut:

FileWritex(li_FileNum, Emp_id_pic,loops*32765) untuk PB 10.0 ke atas
FileWrite(li_FileNum, Emp_id_pic). Untuk PB 9.0 dan diakhiri dengan menutup file gambar dengan FileClose(li_FileNum)

File library / PBL dapat anda download disini. Selamat mencoba. Catatan: fungsi dalam library ini menggunakan 2 parameter yaitu sfilename bertipe string untuk namafile yang ingin kita import dan iindex bertipe integer merupakan index dari file ( bisa juga yang lain misalnya NIP atau NIM )

Sumber : http://aryodarmo.blogspot.com/2009/01/tips-export-blob-ke-image-power-builder.html

Dasar atau konsep Power Builder

Power Builder adalah sebuah development tool dengan dasar atau konsep pemrograman berorientasi objek atau Object Oriented Programming (OOP) yang memiliki karakteristik Encapsulation, Inheritance, dan Polymorphism. OOP adalah konsep yang umum dan telah di adopsi oleh banyak bahasa pemrograman modern seperti C++, Java, VBScript dan sebagainya. Teknik pemrograman pada OOP adalah bersifat modular, Berbeda dengan teknik pemrograman konvensional yang sifatnya struktural, pada OOP, sebuah modul program dipandang sebagai sebuah objek.

Encapsulation adalah karakteristik dan perilaku yang berkaitan dengan kemandirian sebuah objek. Analogi dengan makhluk hidup, sebuah objek memiliki karakteristik dan perilaku. Sebagai contoh, karakteristik yang dimiliki objek manusia adalah warna kulit, tinggi badan, berat badan, kegemaran, tingkat kecerdasan dan sebagainya. Sebagai objek yang aktif, seorang manusia berinteraksi dengan lingkungannya dengan cara beraktifitas dan merespon keadaan sekelilingnya. Dalam OOP karakteristik di istilahkan sebagai Atribut atau Properti. Perilaku diistilahkan sebagai Metode. Metode dibedakan menjadi Event dan Function.

Event adalah suatu kejadian yang dialami objek tersebut, misalnya pada contoh manusia adalah merasa lapar, sakit atau terkejut. Sedangkan Fungsi adalah tindakan yang bisa dilakukan sebuah objek, misalnya berjalan, tidur, makan dan seterusnya. Biasanya fungsi dilakukan ketika ada event yang diterima. Semua karakteristik dan perilaku tersebut dibungkus akan membentuk wujud manusia yang utuh. Properti dan Metode yang berbeda dalam keadaan terbungkus itu dikenal dengan istilah Encapsulation.

Sebuah objek adalah sebuah modul yang mandiri, artinya ia tidak memiliki ketergantungan dengan objek lain atau program utama. Dengan demikian, sebuah objek yang digunakan pada sebuah aplikasi dan dapat juga digunakan pada aplikasi lain. Agar sebuah program dapat berinterakasi dengan sebuah objek, maka kode program tersebut harus memanggil metode yang ada di dalam objek yang bersangkutan. Metode identik dengan fungsi atau event yang mengandung sebuah atau beberapa parameter. Jadi dalam hal ini sebuah program dapat mengirimkan sebuah nilai ke dalam parameter sebuah metode. Objek yang bersangkutan menerima parameter tersebut dan menjalankan aksinya. Karena kode program di dalam objek berinteraksi dengan parameter dan bukan variabel lokal atau global dari program yang memangilnya, maka objek itu mempertahankan kemandiriannya.

Istilah Inheritance memacu pada penurunan sifat sebuah objek pada objek lain. sebagai contoh, objek manusia di turunkan dari objek bernama primata karena objek ini mempunyai karakteristik yang lebih umum, yaitu makhluk hidup yang menyusui, mempunyai empat angota tubuh, bertulang belakang dan sebagainya. Istilah untuk objek turunan adalah descendent, sedangkan objek penurun atau pendahulunya adalah ancestor.

Polymorphism adalah perilaku yang berbeda-beda dari sebuah ancestor dan pada desendent-nya. Sebagai contoh kita gunakan lagi objek manusia dan kera yang masing-masing di turunkan dari objek primata yang sama. Apabila kita memanggil metode “makan”, maka kera akan mengulurkan tangannya dan memasukan makanan ke dalam mulutnya kemudian mengunyah dengan cepat-cepat. Sedangkan, jika metode yang sama di panggil dari objek manusia, maka ia akan menggerakkan tangannya untuk menyendok makanan, dan memasukkan ke dalam mulut kemudian mengunyah perlahan-lahan sambil menikmati rasanya. Jadi jelas disini bahwa kedua objek tersebut mempunyai perilaku yang berbeda untuk metode “makan”.

 Sumber : http://faisalrachmadin.wordpress.com/2008/12/30/dasar-atau-konsep-power-builder/

Mengganti huruf pertama menjadi kapital

Semisal kita mempunyai inputan data "luv piyut" dan kita ingin data inputan tersebut menjadi "Luv Piyut" maka kita bisa menggunakan fungsi WordCap() seperti tips berikut :

String ls_nama,ls_hasil

ls_nama = "luv piyut"

ls_hasil = dw_1.Describe ( "Evaluate('WordCap(~"" + ls_nama + "~")',0)")

Silahkan lihat hasilnya...:)