if file('bold_text.dbf')
// drop table bold_text
endif
if not file('bold_text.dbf')
create table bold_text (id autoinc,fname character(5),lname character(5), salary numeric(10,2))
use bold_text
generate 10
scan
if recn()%2 = 0
replace salary with recno()*100
else
replace salary with recno()*150
endif
endscan
use
endif
** END HEADER -- do not remove this line
//
// Generated on 2019-09-06
//
parameter bModal
local f
f = new bold_textForm()
if (bModal)
f.mdi = false // ensure not MDI
f.readModal()
else
f.open()
endif
class bold_textForm of FORM
with (this)
height = 16.0
left = 24.4286
top = 0.9091
width = 67.7143
text = ""
endwith
this.BOLD_TEXT1 = new QUERY(this)
// this.BOLD_TEXT1.parent = this
with (this.BOLD_TEXT1)
left = 6.0
width = 8.0
height = 1.0
sql = 'select * from "bold_text.DBF"'
active = true
endwith
with (this.BOLD_TEXT1.rowset)
onNavigate = class::ROWSET_ONNAVIGATE
endwith
this.GRID1 = new GRID(this)
with (this.GRID1)
dataLink = form.bold_text1.rowset
height = 7.0
left = 4.0
top = 2.5
width = 56.0
endwith
this.ENTRYFIELD1 = new ENTRYFIELD(this)
with (this.ENTRYFIELD1)
dataLink = form.bold_text1.rowset.fields["fname"]
height = 1.0
left = 23.0
top = 11.5
width = 8.0
endwith
this.ENTRYFIELD2 = new ENTRYFIELD(this)
with (this.ENTRYFIELD2)
dataLink = form.bold_text1.rowset.fields["lname"]
height = 1.0
left = 32.0
top = 11.5
width = 8.0
endwith
this.rowset = this.bold_text1.rowset
function rowset_onNavigate(type, nRows)
if this.fields['salary'].value >= 1000
this.parent.parent.entryfield2.fontbold := true
else
this.parent.parent.entryfield2.fontbold := false
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