saya ada sedikit review dari scriptnya mas Nando. Script tersebut
sudah benar, namun menurut saya itu akan membebani kerja server
database (sekaligus juga membebani jaringan - meskipun tidak akan
menjadi over) karena setiap kali mengganti pilihan pada dropdown akan
selalu melakukan query.
Mungkin trik ini bisa diterapkan :
- buat dddw_proses(tabular) terdiri 2 kolom (kd_proses dan nama)
- isi script pada event itemchange sbb :
datawindowchild dwc
integer li_find
string ls_nm
if dwo.name = 'kd_proses' then
this.getchild('kd_proses',dwc)
li_find=dwc.find("kd_proses='"+data+"'",1,dwc.rowcount())
ls_nm=dwc.getitemstring(li_find,'nama')
this.setitem(row,'nama',ls_nm)
end if
Selamat mempelajari,
Mifmex
> ----- Original Message -----
> From: "Nando Gurning" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Thursday, May 11, 2006 11:38 AM
> Subject: Re: [indopb] tanya
>
>
> > kl menurut saya lebih baik anda menggunakan event
> > itemchange kl menggunakan dropdowndatawindow
> >
> > contoh kasus
> > ---------------
> > db : MSSQL 2000
> > PB ver 8.0
> > buat tabel contoh :proses
> > ---------------------
> > if exists (select * from dbo.sysobjects where id =
> > object_id(N'[dbo].[proses]') and OBJECTPROPERTY(id,
> > N'IsUserTable') = 1)
> > drop table [dbo].[proses]
> > GO
> >
> > CREATE TABLE [dbo].[proses] (
> > [kd_proses] [varchar] (5) COLLATE
> > SQL_Latin1_General_CP1_CI_AS NOT NULL ,
> > [nama] [varchar] (30) COLLATE
> > SQL_Latin1_General_CP1_CI_AS NULL
> > ) ON [PRIMARY]
> > GO
> >
> > dan isi data dummy/contoh:
> > kd_proses | nama
> > 01A PROSES SATU
> > 02B PROSES DUA
> > 03B PROSES LAINNYA
> >
> > LALU BUAT dddw_proses(tabular)
> >
> > dan buat form dw_proses
> >
> > proses: [DropDownDataWindow]-dddw_proses
> > nama: [field nama]
> >
> > lalu pada event itemchanged copikan script ini:
> >
> > string ls_nm
> >
> > if dwo.name = 'kd_proses' then
> > select nama into :ls_nm
> > from proses
> > where kd_proses=:data
> > using sqlca;
> > this.setitem(row,'nama',ls_nm)
> > end if
> >
> >
> >
> > semoga bisa membantu
> >
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Protect your PC from spy ware with award winning anti spy technology. It's free.
http://us.click.yahoo.com/97bhrC/LGxNAA/yQLSAA/NhFolB/TM
--------------------------------------------------------------------~->
-----------------------------------------------
IndoPB - Indonesia PB User Group
Learn PB6 by download FasTrack to PB6 at :
http://groups.yahoo.com/group/indopb/files/Belajarpb6/
To Unsubscribe,send a blank message to: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indopb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
