*!* 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 ="Nama :"

ADD OBJECT label2 as label WITH ;
Top = 30, ;
Left = 50, ;
Autosize=.t.,;
Caption ="Loe perlu gue ada :)",;
Fontsize=36,;
FontBold=.t.

ADD OBJECT label3 as label WITH ;
Top = 100, ;
Left = 50, ;
Autosize=.t.,;
Caption ="Inti sebenarnya di penulisan SELECT ...",;
Fontsize=24,;
FontBold=.t.,;
ForeColor=RGB(255,0,0)

ADD OBJECT combro1 as combobox WITH ;
Top = 10, ;
Left = 100, ;
Width=150,;
Controlsource="tbl_i.kode",;
Rowsourcetype=3,;
Rowsource="select a.kode,b.nama from tbl_r a,tbl_i b where a.kode=b.kode into curs curCucur order by a.kode",;
BoundColumn=1,;
ColumnCount=2

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 (kode c(5),nama c(20)) 			
INSERT INTO t_induk (kode,nama) VALUES ("001","Badu")
INSERT INTO t_induk (kode,nama) VALUES ("002","Budi")
INSERT INTO t_induk (kode,nama) VALUES ("003","Ali Topan")
INSERT INTO t_induk (kode,nama) VALUES ("004","Tsuminah")
CREATE TABLE t_refer FREE (kode c(5), deskripsi c(10))
INSERT INTO t_refer (kode,deskripsi) VALUES ("002","Makan Baso")
INSERT INTO t_refer (kode,deskripsi) VALUES ("004","Lagi Mengamuk")
INSERT INTO t_refer (kode,deskripsi) VALUES ("003","Turun Jalan")
CLOSE ALL

SELECT 0			
USE t_induk ALIAS tbl_i

SELECT 0
USE t_refer ALIAS tbl_r
ENDPROC

PROCEDURE keluar.Click
IF USED('tbl_i')
	USE IN tbl_i
ENDIF
IF USED('tbl_r')
	USE IN tbl_r
ENDIF
Thisform.release
ENDPROC

PROCEDURE combro1.destroy
IF USED('curCUCUR')
	USE IN curCUCUR
ENDIF 
ENDPROC

ENDDEFINE