require "phi" ; include Phi
require "rdb" ; include RDB

form = Form.new
grid = DBGrid.new form
grid.align = AL_CLIENT
dataset = RDB::Table.new(nil,"c:/program files/common files/borland shared/data/biolife.db").open

grid.data_source = DataSource.new dataset

dataset.before_post   = proc{ dataset.cancel ; abort }

form.show
mainloop
