OpenEuphoria

Euphoria Database Browser

• Posted by Matt Lewis <matthewwalkerlewis at yahoo.com> Aug 04, 2003
• 616 views

I've updated EDB, for those who might be interested.  (Here's a little 
overview of EDB:)  EDB is designed to be similar in use to MS Access, so 
you can create, view and edit EDS databases in a handy format.  You can 
also create EuSQL databases (enhanced EDS databases)which support SQL 
statements and automatic indexing for faster retrieval.  EDB now allows 
you to create forms to manage your data with a user friendly front-end.  
It requires Win32Lib (EDB has been developed with version 0.59.1--older 
versions might work, too).

I improved the forms a lot, plus squashed some other bugs.  I've also 
added a feature to allow you to build windows in Judiths IDE (v0.17) and 
import them as forms from the project file (why try to reinvent the 
wheel?).

EDB now 'supports' every control in the IDE (except the Table control), 
plus EuGrids, though you can't put data into a ListView yet.  

Also, if you have a form with tabitems, there's a bug in the way 
Win32Lib destroys them, so EDB might crash if you open and close a form 
with TabItems multiple times.  It's easy to fix, and should be updated 
in the next release of Win32Lib (see below for details).

http://www14.brinkster.com/matthewlewis/projects.html

Matt Lewis

How to fix the bug in destroy(): add the code between 
-- begin mwl
...and...
-- end mwl

-- NEW! v0.53a
    ------- Remove destroyed control from ...
    if parent != 0
    then
        -- parent's tabbed items.
        window_focus_order[parent] = removeItem(id, window_focus_order
                                               [parent])

        -- parent's group items.
        window_group[parent] = removeItem(id, window_group[parent])
        
        -- begin mwl 8/1/03
        if window_type[parent] = TabControl then
            for i = 1 to length(window_group[parent]) do
                window_group[window_group[parent][i]] = 
                    removeItem( id, window_group[window_group[parent] 
                       [i]] )
                window_focus_order[window_focus_order[parent][i]] = 
                    removeItem( id, window_focus_order 
                       [window_focus_order[parent][i]] )
            end for
        end if
        -- end mwl

    end if