The PBers Community

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

2012-01-24T02:06:00.000-08:00

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

Membuat Aplikasi GL dengan Powerbuilder 9

2010-05-18T10:36:00.001-07:00

http://blog.re.or.id/free-download-ebook/doc/membuat_aplikasi_gl_dengan_powerbuilder_9_0_dan_sql_server_2/15114/

Tips: Export Blob Ke Image Power Builder

2010-05-18T10:30:00.000-07:00

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

2010-05-18T10:10:00.000-07:00

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/

Cara mendapatkan Nomor Serial DISK

2010-03-20T10:37:00.000-07:00

Pertama, Buat definisi dari fungsi API di global external function:

Function Boolean GetVolumeInformationA( &
ref String ls_Rootpath, &
ref String ls_volumnename, &
Ulong lul_VolumeNameSize, ref Ulong lul_VolumeSerialNumber, &
ref Ulong lul_MaximumComponentLength, &
ref Ulong lul_FileSystemFlags, &
ref String ls_FileSystemNameBuffer, &
Ulong lul_FileSystemNameSize &
) Library "Kernel32.dll"

Kedua, Buat script pemanggil dibawah ini

String ls_Rootpath, ls_volumnename
ls_Rootpath = "C:" // tentukan untuk mendapatkan nomor seri hard drive
ls_volumnename = Space(256) // mengalokasikan cukup ruang, yang sama di bawah ini

Ulong lul_VolumeNameSize
lul_VolumeNameSize = 256
Ulong lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags
lul_MaximumComponentLength = 256
String ls_FileSystemNameBuffer
ls_FileSystemNameBuffer = space(256)
Ulong lul_FileSystemNameSize
lul_FileSystemNameSize = 256

boolean lb_rtn
lb_rtn = False

lb_rtn = GetVolumeInformationA(ls_Rootpath, ls_volumnename, lul_VolumeNameSize, &
lul_VolumeSerialNumber, lul_MaximumComponentLength, lul_FileSystemFlags, &
ls_FileSystemNameBuffer, lul_FileSystemNameSize)

if lb_rtn = false then
MessageBox("Alert", "fungsi panggil gagal!")
return
end if
sle_1.text = String(lul_VolumeSerialNumber) // / / mendapatkan nomor seri harddisk

// Sumber :http://blog.zjxu.edu.cn/zyc/readblog.asp?blogid=12&id=22

Memanggil DLL VC++ dengan Powerbuilder

2010-03-20T09:57:00.000-07:00

A. Overview :
Dynamic link library (Dynamic-Link Library), disebut sebagai DLL, sebuah program berbasis Windows yang dirancang untuk komponen yang sangat penting. Dengan menggunakan DLL mempunyai banyak keuntungan:

1. Penggunaan DLL tidak untuk menyalin Program tersebut, Melainkan sebagai Fungsi Entry Point dan Interface. Apabila ada beberapa Program memanggil DLL yang sama system hanya perlu me-reload ulang DLL tersebut dimemori
2. DLL adalah sebuah program berbasis modul-modul Windows, yang tidak hanya berisi kode executable, tetapi juga dapat berisi data, berbagai sumber daya untuk memperluas penggunaan file-file library.
3. Fungsi Utama dari DLL adalah untuk mengurangi Duplikat penggunaan fungsi sehingga akan megurangi beban kerja dan sekaligus meningkatkan kinerja akses.
4. DLL memperkaya PowerScript dalam kemampuan bahasa pemrograman, Sebagai contoh: pengguna dapat menulis sistem pemrosesan gambar untuk mencari file dan disimpan dalam database, aplikasi harus menggunakan browser, tetapi dengan bahasa PowerScript tidak menyediakan fungsi untuk melakukan pekerjaan semacam itu, dalam rangka untuk memanipulasi perangkat, perlu untuk berkomunikasi dengan perangkat itu sendiri, lingkungan, lingkungan ini umumnya disediakan oleh produsen dynamic link library.
5. DLL bersifat Independen sehingga dalam lingkungan windows dimungkinkannya sebuah program memanggil fungsi DLL.

Contoh berikut menggunakan DLL untuk koneksi melalui program PowerBuilder dan VC + +.

B. Buat DLL dengan VC++
VC ++ 5,0 menggunakan MFC AppWizard dapat secara otomatis hasilkan Win32 DLL dan AppWizard MFC DLL, dimulai setelah VC, dari File | New item menu, pilih kotak NEW dialog , di Proyek tab, pilih NEW PROJECT untuk MFC AppWizard (dll), masukkan PROJECT NAME pbdll, klik tombol OK, pop-up dialog box , pilih jenis DLL: Reguler DLL menggunakan MFC DLL Share, dan kemudian klik tombol Finish. AppWizard akan secara otomatis membuat sebuah DLL yang mengandung unsur-unsur dasar dari kerangka kerja, dan kemudian kita tinggal menambahkan kode secara manual.

Buka file pbdll.cpp, tambahkan fungsi berikut:

extern "C" _declspec ( dllexport )
int PASCAL out_num(int x)
{
int y;
char msg[30];
y=x > >2;
sprintf(msg, "Hasil%o ! ", y);
::MessageBox(NULL, msg, "Pesan", MB_OK);
return 0;
}

Pernyataan di atas fungsi out_num (), masukan parameter untuk nomor integer, untuk menggeser operasi, hasil perhitungan dengan kotak dialog akan ditampilkan. Kemudian buka file pbdll.def, masukkan fungsi dalam pernyataan EKSPOR out_num, file berbunyi sebagai berikut:

LIBRARY "pbdll"
DESCRIPTION pbdll Windows Dynamic Link Library

EXPORTS
; Explicit exports can go here
out_num @ 1

Terakhir dikompilasi dynamic link library tersebut sehingga menghasilkan pbdll.dll.

C. Buat program PB untuk Memanggil DLL pbdll.dll
Dalam PowerBuilder untuk memanggil fungsi out_num () kode adalah sebagai berikut:

Function int out_num ( int irow ) LIBRARY "pbdll.dll"

int irow,retcode
irow=dw_1.rowcount()
retcode=out_num(irow)

Silahkan mencoba.
Sumber asli :http://www.goalercn.com/article/article.php?id=2974

MEMBUAT REPORT DATAWINDOW DENGAN QUERY UNION

2010-03-16T03:35:00.000-07:00

Untuk membuat report Union di datawindow ada beberapa
cara:

Cara pertama : yaitu dengan mengetikan query sql yang
menggunakan Union pada sql syntax di datawindow

Cara kedua : dengan menggunakan tools design union

berikut saya akan coba berikan langkah-langkah pembuatan
datawindow dengan cara kedua

Asumsikan kita mempunyai 2 buah tabel yang akan ditampilkan
kedalam sebuah report datawindow.

1. TABEL PELANGGAN

Kode	Nama	Alamat	Telp
P001	Mr. Yandi	Jakarta	021-55252214
P002	Mr. Azis	Jakarta	021-52541444
P003	Mr. Jony	Jakarta	021-85285142

2. TABEL SUPLIER

Kode	Nama	Alamat	Telp
S001	Tuan Agus	Jakarta	021-88888871
S002	Tuan Abdul	Jakarta	021-65258524
S003	Tuan Rahmat	Jakarta	021-78554125

Langkah-Langkah :

1. Pilih New > Tabular

2. Pilih SQLSelect

3. Pilih Table PELANGGAN

4. Pilih COMPUTE COLUMNS
5. Kemudian klik kanan pada kolom tersebut dan pilih Column
setelah itu pilih kolom pada tabel pelanggan satu persatu, tapi yang perlu diingat adalah pemberian
nama pada kolom2 tersebut dengan didahului "as"

6. Kemudian pilih Menu Design dan pilih UNION maka akan muncul dialog seperti gambar dibawah ini :

7. Pilih New
8. Pilih Tabel Supplier dan klik Open

9. Langkah selanjutnya seperti no.4 dan 5. dengan catatan penamaan "as" pada setiap kolom harus sama dengan kolom pada tabel pelanggan.

10. Selanjutnya Pilih RETURN

11. Kita bisa lihat hasil syntax query yang telah kita buat

12. Selanjutnya Datawindow sudah bisa kita gunakan.

Tombol ENTER sebagai Tombol TAB

2010-03-02T03:01:00.000-08:00

Disini kami hanya mensimulasi Tombol ENTER agar bekerja seperti Tombol TAB.

1. Buat User Event di datawindow dengan nama "ue_enter"
2. Pilih Event ID dengan pbm_dwnprocessenters
3. Ketik script dibawah ini :

Send(Handle(This),256,9,Long(0,0))
Return 1

Semoga bermanfaat.

Prinsip penamaan Variabel dalam Powerbuilder

2010-03-02T02:30:00.000-08:00

Saat memberi penamaan variable dalam Powerbuilder, Perlu diperhatikan agar tidak terjadi kesalahan dan arti dalam memberi nama pada variabel yang kita deklarasikan
Hal hal yang perlu diperhatikan adalah Lingkup, Awalan atau Prefix dan Arti dari variabel tersebut.

Syntax:

   [scope][prefix]_[name]

Scope Qualifiers

Scope	Prefix	Example
Argument	a	al_NameId
Global	g	gs_Name
Instance	i	ii_Count
Local	l	ls_Foo
Shared	s	si_Number

Standard DataType Prefixes

Data Type	Prefix	Example
Any	a	la_Raw
Blob	blb	ablb_Image
Boolean	b	lb_Exit
Character	c	lc_Name
Date	d	ld_BirthDate
DateTime	dt	ldt_Wreck
Decimal	dec	ldec_Salary
Double	db	gdb_OverTime
Integer	i	li_Count
Long	l	ll_RowCount
Real	r	sr_Illusion
String	s	ls_Bean
Time	tm	itm_MrWolf
Unsigned Integer	ui	lui_Handle
Unsigned Long	ul	gul_Ken

Standard Object DataType Prefixes

Object Type	Prefix	Example
Application	app	gapp_PBDelta
ArrayBounds	ab	lab_Bound
CheckBox	cbx	icbx_Male
ClassDefinition	cldef	lcldef_Object
ClassDefinitionObject	cldefo	lcdefo_ThatObject
CommandButton	cb	lcb_Cancel
Connection	cn	lcn_Known
ConnectionInfo	cni	lcni_ServerInfo
ConnectObject	cno	scno_ConObj
ContextInformation	cxinfo	lcxinfo_ObjContext
ContextKeyword	cxk	lcxk_TheKey
CPlusPlus	cpp	lcpp_CModule
Datastore	ds	lds_StockData
Datawindow	dw	ldw_Employee
DatawindowChild	dwc	ldwc_States
DragObject	drg	ldrg_ByTheHair
DrawObject	drw	ldrw_PaintBrush
DropDownListBox	ddlb	lddlb_States
DropDownPictureListBox	ddplb	lddplb_StatesWithFlags
dwObject	dwo	ldwo_Column
DynamicDescriptionArea	dda	ldda_Execute
DynamicStagingArea	dsa	ldsa_MyQuery
EditMask	em	lem_PhoneNo
EnumerationDefinition	enum	lenum_Cycle
EnumerationItemDefinition	enumi	ienumi_Item
Environment	env	lenv_System
Error	err	gerr_Snarl
ExtObject	exto	gexto_Outside
Function_Object	fo	lfo_Function
Graph	gr	lgr_Sales
GraphObject	gro	lgro_Line
GrAxis	grx	lgrx_Profit
GrDispAttr	grda	igrda_Value
GroupBox	gb	igb_Employee
HScrollBar	hsb	ihsb_Percent
iNet	inet	linet_Web
InternetResult	ir	lir_Page
Line	li	lli_Arrow
ListBox	lb	llb_States
ListView	lv	llv_Filenames
ListViewItem	lvi	llvi_Item
MailFileDescription	mfd	lmfd_Mail
MailMessage	mm	lmm_Mail
MailRecipient	mr	lmr_Mail
MailSession	ms	lms_Session
MDIClient	mdi	lmdi_Frame
Menu	m	lm_Menu
MenuCascade	mc	lmc_WaterFall
Message	msg	lmsg_Whisper
MultiLineEdit	mle	lmle_Text
NonVisualObject	nvo	lnvo_Invisible
OLEControl	oc	loc_Bulls
OLECustomControl	occ	locc_Dial
OLEObject	oo	loo_Ghost
OLEStorage	ostg	gostg_WordFile
OLEStream	ostm	lostm_River
OMControl	omc	iomc_Temp
OMCustomControl	omcc	lomcc_Dial
OMEmbeddedControl	omec	lomec_Micro
OMObject	omo	iomo_Bob
OMStorage	omstg	somstg_Drive
OMStream	omstm	lomstm_Mersey
Oval	ov	lov_Circle
PBtoCPPObject	pb2cpp	lpb2cpp_Quad
Picture	p	lp_Smile
PictureButton	pb	lpb_Click
PictureListBox	plb	lplb_Drives
Pipeline	pl	lpl_OilandGas
Powerobject	po	lpo_Source
ProfileCall	prc	lprc_Face
ProfileClass	prcl	lprcl_Room
ProfileLine	prl	iprl_Bob
ProfileRoutine	prr	lprr_Cat
Profiling	pr	lpr_Outline
RadioButton	rb	lrb_Male
Rectangle	rec	irec_Tum
RemoteObject	ro	iro_Employee
RichTextEdit	rte	lrte_Script
RoundRectange	rr	lrr_Lion
ScriptDefinition	sdef	lsdef_Mycode
Service	srv	lsrv_Charge
SimpleTypeDefinition	std	istd_MyType
SingleLineEdit	sle	lsle_Name
StaticText	st	lst_Prompt
Structure	str	lstr_Data
SystemFunctions	sf	lsf_Bay
Tab	tab	ltab_Strip
Timing	tmg	ltmg_Clock
TraceActivityNode	tran	ltran_Node
TraceBeginEnd	trbe	ltrbe_Start
TraceError	tre	ltre_Error
TraceFile	trf	itrf_TraceFile
TraceGarbageCollect	trgc	itrgc_Call
TraceLine	trln	strln_Rope
TraceObject	tro	ltro_Bob
TraceRoutine	trr	ltrr_Tiger
TraceSQL	trsql	ltrsql_MySQL
TraceTree	trt	ltrt_Birch
TraceTreeError	trte	ltrte_Err
TraceTreeGarbageCollect	trtgc	ltrtgc_Trash
TraceTreeLine	trtl	ltrtl_String
TraceTreeNode	trtn	ltrtn_Kilt
TraceTreeObject	trto	ltrto_Trace
TraceTreeRoutine	trtr	ltrtr_BobGrimmer
TraceTreeUser	trtu	ltrtu_User
TraceUser	tru	ltru_Blue
Transaction	tr	ltr_Trans
Transport	tp	ltp_Server
Treeview	tv	ltv_Directory
TreeviewItem	tvi	ltvi_Node
TypeDefinition	typdef	ltypdef_Details
UserObject	uo	luo_Control
VariableCardinalityDefinition	vcd	lvcd_Type
VariableDefinition	vd	lvd_Sore
VerticalScrollBar	vsb	lvsb_Amount
Window	w	w_PleaseWait
WindowObject	wo	lwo_WomanElement

Cara mendapatkan DBMS, User database melalui ODBC

2010-02-26T12:33:00.000-08:00

/*Buat external function*/
FUNCTION integer SQLGetInfo (long hconn, integer infotype, ref string infotypeptr, integer bufferlength, ref integer bufferlengthptr) LIBRARY "odbc32.dll"

/*Buat script*/
string ls_dbms, ls_database, ls_user
integer li_length

CONSTANT integer SQL_DBMS_NAME = 17
CONSTANT integer SQL_DATABASE_NAME = 16
CONSTANT integer SQL_USER_NAME = 47

long ll_dbhandle

ls_dbms = space(256)
ls_database = space(256)
ls_user = space(256)
ll_dbhandle = SQLCA.DbHandle()

SQLGetInfo(ll_dbhandle, SQL_DBMS_NAME, ls_dbms, 255, li_length)
SQLGetInfo(ll_dbhandle, SQL_DATABASE_NAME, ls_database, 255, li_length)
SQLGetInfo(ll_dbhandle, SQL_USER_NAME, ls_user, 255, li_length)

MessageBox("Current DBMS" , trim(ls_dbms))
MessageBox("Current DATABASE" , trim(ls_database))
MessageBox("Current USER" , trim(ls_user))

Mengganti huruf pertama menjadi kapital

2010-02-26T12:14:00.000-08:00

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

Menentukan lama waktu execute sebuah script

2010-02-26T11:57:00.000-08:00

Untuk menguji lama waktu yang diperlukan dalam meng-execute sebuah potongan script kita bisa menggunakan fungsi CPU()

Long ll_start,ll_waktu

ll_start = CPU()

/*
** Script yang diexecute
*/

ll_waktu = CPU() - ll_start

Menentukan Nilai RGB

2010-02-26T11:26:00.000-08:00

Program Contoh dibawah ini akan menggunakan funsi MOD untuk memisahkan warna merah, biru dan hijau

1. Buat aplikasi baru dalam Powerbuilder
2. Buat window baru
3. Tambahkan Control Commandbutton dan StaticText pada window
4. Tambahkan script berikut pada event Commandbutton Click()

Long c, gc
Integer R, G, B

C= st_1.BackColor
gc = rgb(0,1,0)
R = Mod(c, gc)
C = C / gc
G = Mod(c, gc)
C = C / gc
B = Mod(c, gc)

MessageBox ( "Nilai RGB", "Merah =" + String (R) + 'Green = "+ String (G) +" Blue = "+ String (B))

Jalankan program sampel dan klik tombol.
Sebuah pesan akan muncul yang menunjukkan nilai-nilai merah, hijau dan biru yang mewakili StaticText properti BackColor.

Membaca file lebih besar dari 32.765 bytes

2010-02-26T11:08:00.000-08:00

Fungsi FileRead terbatas dalam membaca file hanya sampai 32.765 bytes saja, hal ini bisa diatasi

blob lbl_data
blob lbl_temp
long ll_file

ll_file = Fileopen("mybigfile.txt",streammode!)

DO WHILE FileRead(ll_file,lbl_temp) > 0
lbl_data += lbl_temp
LOOP

FileClose(ll_file)

Menampilkan atau menyembunyikan Desktop dan Taskbar

2010-02-26T10:43:00.000-08:00

Beberapa aplikasi mengharuskan pengguna tidak dapat mengakses taskbar atau desktop ketika menjalankan aplikasi kita. Kami akan memblokir akses ke taskbar atau desktop dengan memanggil Windows API.

//Deklarasikan 2 Function berikut :

Function long FindWindowExA ( long hWnd, long hWndChild, ref string lpszClassName, ref string lpszWindow) library "user32"
Function long ShowWindow (long hWnd, long nCmdShow ) library "user32"

//Tambahkan script berikut :

//Konstanta untuk ShowWindow()
Constant Long SW_HIDE = 0
Constant Long SW_NORMAL = 1
Constant Long SW_SHOWMINIMIZED = 2
Constant Long SW_SHOWMAXIMIZED = 3
Constant Long SW_SHOWNOACTIVATE = 4
Constant Long SW_SHOW = 5
Constant Long SW_MINIMIZE = 6
Constant Long SW_SHOWMINNOACTIVE = 7
Constant Long SW_SHOWNA = 8
Constant Long SW_RESTORE = 9
Constant Long SW_SHOWDEFAULT = 10
--------------------------------------------------------

//Mencari nama Windows Shell
String ls_ShellViewWnd = "Progman"
String ls_ShellTaskBarWnd = "Shell_TrayWnd"
String ls_Null

// Local
Long ll_HTaskBar, ll_HDeskTop

// Hide Taskbar
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_HIDE )

// Hide Desktop
ll_HDeskTop = FindWindowExA( 0, 0, ls_ShellViewWnd, ls_Null )
ShowWindow( ll_HDeskTop, SW_HIDE )

// Tunda untuk memulihkan
MessageBox( 'Pause', 'Lihat Perbedaannya !' )

// Show Taskbar
ll_HTaskBar = FindWindowExA( 0, 0, ls_ShellTaskBarWnd, ls_Null )
ShowWindow( ll_HTaskBar, SW_SHOW )

// Show Desktop
ll_HDeskTop = FindWindowExA( 0, 0, ls_ShellViewWnd, ls_Null )
ShowWindow( ll_HDeskTop, SW_SHOW )

Membuat Function tanggal akhir bulan

2010-02-26T10:14:00.000-08:00

1. Buat argument ad_date dengan tipe Date
2. Pilih Return tipe nya dengan tipe data Date
2. Buat script berikut

int li_retdays, li_month, li_year

li_month = Month(ad_date)
li_year = year(ad_date)

IF li_month < 12 THEN
li_month ++
ELSE
li_month = 1
li_year ++
END IF

// Membuat tanggal awal
ld_newdate = date(li_year),li_month,1)

// membuat tanggal akhir
ld_previousMonthLastDay = day(relativedate(ld_newdate, -1))

Return(ld_previousMonthLastDay)

Mendeteksi Versi Powerbuilder

2010-02-26T10:02:00.000-08:00

String ls_PBver
Environment env

GetEnvironment(env)

ls_PBver = string(env.pbmajorrevision) + '.' + string(env.pbminorrevision) + '.' + string(env.pbfixesrevision)

Membuat List Printer yang terinstal dengan Listbox

2010-02-26T09:57:00.000-08:00

Dalam tips ini kita akan membuat list printer yang terinstal didalam komputer dengan menggunakan LISTBOX

STRING ls_printers[]
INT li_rtn, i, li_nbPrinters

li_rtn = RegistryKeys("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Print\Printers", ls_printers)
li_nbPrinters = UpperBound(li_printers)

FOR i = 1 TO li_nbPrinters
lb_1.addItem(ls_printers[i])
NEXT

Merubah List Datawindow ke Grid Datawindow atau sebaliknya

2010-02-26T09:22:00.000-08:00

1. Ekspor Datawindow
2. Edit datawindow yang telah kita ekspor tersebut
3. Cari "Processing ="
4. Untuk membuat DW List menjadi Grid, ubah Processing=1
5. Untuk membuat DW list menjadi normal atau non-grid, ubah Processing=0

Membuat Datawindow Secara Dinamis

2010-02-26T09:11:00.000-08:00

String ls_select,ls_where,ls_dwsyntax,ls_err

ls_select = "Select id, fname, lname, address, city, state, zip from customer"
ls_where = " where customer.fname like '" + is_cust + "%'"
ls_dwsyntax = SQLCA.SyntaxFromSQL ( ls_select, "Style(Type=grid)", ls_err )

dw_1.Create ( ls_dwsyntax, ls_err )

IF ls_err <> '' THEN
MessageBox ( "error - Syntax", ls_err )
ELSE
dw_1.SetTransObject ( SQLCA )
dw_1.Retrieve()
END IF

Ubah warna berganti-ganti baris pada datawindow

2010-02-26T08:57:00.000-08:00

Untuk baris pada datawindow memiliki penampilan kertas printer menambahkan Expresi berikut dalam Color detail band.

IF (Mod(GetRow(),2)=0, RGB(0,255,0), RGB(255,255,255))

Warna latar belakang ini tidak muncul ketika Anda mencetak laporan.
Jika Anda ingin mencetak efek ini anda harus menambahkan sebuah persegi panjang atau kolom teks kosong di belakang kolom detail dan meletakkan pernyataan di atas.

Tambahkan event Timer kontrol standar

2010-02-26T08:50:00.000-08:00

Apakah Anda tahu bahwa Anda dapat menambahkan Event Timer PowerBuilder kontrol visual?

Pertama memetakan sebuah event Timer event pbm_Timer.
Kemudian tambahkan panggilan API berikut:

Function Long SetTimer(Long hwnd, Long IdTimer, Long uTimeOut, Long tmpre) Library "user32.dll"
Function Long KillTimer(Long hwnd, Long IdEvent) Library "user32.dll"

Untuk mengontrol, gunakan perintah berikut bukan Timer ().

SetTimer(Handle(the_control), 1, 500, 0) // 500 adalah jumlah milidetik, atau setiap setengah detik
KillTimer (Handle(the_control), 1) / / Untuk Timer.

Function Center Window

2010-02-20T04:37:00.000-08:00

Membuat Tampilan window agar berada ditengah-tengah layar monitor

1. Buat Variable Global pada Declare Global Variables :

Long ScreenWidth, ScreenHeight

2. Buat Nama function misalkan dengan nama f_center

3. Pilih dengan tipe data argumen :window dan nama argumen tersebut a_window

4. pilih tipe data return : integer

5. Ketik Script Dibawah ini :

Environment le_Env
Integer li_ScreenH, li_ScreenW

GetEnvironment(le_Env)

li_ScreenH = PixelsToUnits(le_Env.ScreenHeight, YPixelsToUnits!)
li_ScreenW = PixelsToUnits(le_Env.ScreenWidth, XPixelsToUnits!)

a_window.Y = (li_ScreenH - a_window.Height) / 2
a_window.X = (li_ScreenW - a_window.Width) / 2
a_window.SetPosition(Topmost!)

return 1

6. Untuk Syntax pemanggilan function ini f_center(nama_window) pada saat event open()

7. Selamat Mencoba!!

Function Encrypt & Decrypt

2010-02-20T04:28:00.000-08:00

[function string of_encrypt(as_str)]
integer i, j
string ls_enctext = ""
CONSTANT string CRYPT_KEY = "$#@%&#%@&*"

j = len(as_str)
FOR i = 1 TO j
ls_enctext += mid(CRYPT_KEY , mod(i,10) + 1, 1)
ls_enctext += String(Char(255 - Asc(Mid(as_str, i, 1))))
NEXT

RETURN ls_enctext
======================================================
[function string of_decrypt(as_str)]
integer i, j
string ls_encchar, ls_temp, ls_unasstr = "** Encryption Error"
boolean lb_ok = true
CONSTANT string CRYPT_KEY = "$#@%&#%@&*"

j = len(as_str)

IF NOT Mod(j, 2) = 1 THEN
ls_temp = ""
FOR i = 2 TO (j + 1) STEP 2
ls_encchar = Mid(as_str, i - 1, 1)
IF mid(CRYPT_KEY, Mod(i / 2, 10) + 1, 1) <> ls_encchar THEN
lb_ok = FALSE
EXIT
END IF
ls_encchar = Mid(as_str, i, 1)
ls_temp += string(char(255 - asc(ls_encchar)))
NEXT
END IF

IF lb_ok THEN ls_unasstr = ls_temp

RETURN LS_UNASSTR
=======================================================