** END HEADER -- do not remove this line
//
// Generated on 2017-05-14
//
parameter bModal
local f
f = new test_change_tableForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class test_change_tableForm of FORM
with (this)
height = 25.3182
left = 33.4286
top = 7.8182
width = 66.5714
text = ""
endwith
this.DBASETUTORIAL1 = new DATABASE(this)
with (this.DBASETUTORIAL1)
left = 9.0
width = 11.0
height = 1.0
databaseName = "DBASETUTORIAL"
active = true
endwith
this.DBASESAMPLES1 = new DATABASE(this)
with (this.DBASESAMPLES1)
left = 20.0
width = 11.0
height = 1.0
databaseName = "DBASESAMPLES"
active = true
endwith
this.CUSTOMERS1 = new QUERY(this)
with (this.CUSTOMERS1)
left = 31.0
width = 9.0
height = 1.0
database = form.dbasesamples1
sql = "select * from CUSTOMERS.DBF"
active = true
endwith
this.COUNTRY1 = new QUERY(this)
with (this.COUNTRY1)
left = 3.0
width = 8.0
height = 1.0
database = form.dbasetutorial1
sql = "select * from COUNTRY.DBF"
active = true
endwith
this.PUSHBUTTON1 = new PUSHBUTTON(this)
with (this.PUSHBUTTON1)
onClick = class::PUSHBUTTON1_ONCLICK
height = 1.0909
left = 25.4286
top = 22.0
width = 15.2857
text = "Show other table"
endwith
this.GRID1 = new GRID(this)
with (this.GRID1)
dataLink = form.country1.rowset
height = 15.0
left = 8.5714
top = 4.0
width = 49.0
endwith
this.rowset = this.country1.rowset
function PUSHBUTTON1_onClick()
if form.grid1.datalink = form.country1.rowset
form.grid1.datalink = form.customers1.rowset
else
form.grid1.datalink = form.country1.rowset
endif
return
endclass
Warning: Unknown: write failed: No space left on device (28) in Unknown on line 0
Warning: Unknown: Failed to write session data (files). Please verify that the current setting of session.save_path is correct () in Unknown on line 0