home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jan94 / cjfig08b.gif

< prev

next >

Graphics Interchange Format  |  1995-09-26  |  40KB  |  496x377  |  8-bit (256 colors)

Labels: text | screenshot | display | software
OCR: TEST :: #Button5 :: pushButton* method pushButton(var eventInfo Event) var nyQuery String tc TCursor endVar queryTables["DiveCust.db"] = "DiveCust.db" if not m_MakeQryStruct("Query.db", 1, 1) then msgStop("Problem", "Cannot create query.db") endIf if not tc.open("Query.db") then msgStop("Problem","Cannot open Query.db") return else tc.edit() tc.locate("Field name","NAME") tc."Row 1" = "Check" tc.locate("Field name","CITY") tc."Row 1" - "Check" tc.endEdit( ) endIf n_BuildQry("Query.db",":PRIV : Answer .db", nyQuery, 1,1) if not executeQBEString(myQuery) then error Show( ) endIf endmethod Fdi Line: 29 Col: 1

---