*!* dian s 2005 especially 4 u 
*!* wanita berhak atas tubuh dia sendiri - djenar maesa ayu
*!* powered by vfp8
LOCAL odForm as Form

odForm=CREATEOBJECT('dianFORM')
odForm.Show(1)
RETURN

DEFINE CLASS dianFORM as Form
autocenter=.t.
height=400
width=700
Caption="DS 2005 ketika anda tidur kami sedang koding :) "

ADD OBJECT label1 as label WITH ;
Top = 10, ;
Left = 50, ;
Autosize=.t.,;
Caption ="Agama :"

ADD OBJECT combro1 as combobox WITH ;
Top = 10, ;
Left = 100, ;
Width=200,;
Controlsource="tbl_i.agama",;
Rowsourcetype=3,;
Rowsource="select deskripsi,kode from tbl_r into curs curCucur order by kode",;
BoundColumn=2
**kalo bikin di form jgn lupa di destroy event ni combro eh combo di kasih use in curCUCUR

ADD OBJECT keluar AS commandbutton WITH ;
Top = 360, ;
Left = 500, ;
Height = 30, ;
Width = 80, ;
Caption = "\<Close"

PROCEDURE load
SET TALK off
SET STATUS ON
SET CONFIRM OFF
SET SAFETY OFF 
CLEAR
CREATE TABLE t_induk FREE (agama c(5)) 			
INSERT INTO t_induk (agama) VALUES ("001")
CREATE TABLE t_refer FREE (kode c(5), deskripsi c(10))
INSERT INTO t_refer (kode,deskripsi) VALUES ("001","ISLAM")
INSERT INTO t_refer (kode,deskripsi) VALUES ("002","KRISTEN")
INSERT INTO t_refer (kode,deskripsi) VALUES ("003","BUDHA")
CLOSE ALL

SELECT 0			&& dynamic memory alocation
USE t_induk ALIAS tbl_i

SELECT 0
USE t_refer ALIAS tbl_r
ENDPROC

PROCEDURE keluar.Click
**programmer yg sopan selalu cek dg validasi2 yg mencukupi
IF USED('tbl_i')
	USE IN tbl_i
ENDIF
IF USED('tbl_r')
	USE IN tbl_r
ENDIF
Thisform.release
ENDPROC
ENDDEFINE