Do not let any software impress you!

Only let it convince your intellect.
Slider img 1
Do not look for a business paradise!

It is a waste of time.
Slider img 2
Only yourself can push you uphill.

There is no easy road to prizes.
Slider img 3
Productivity is the name of the game.

And you have to conquer it.
Slider img 4
As long as you understand it,

you will start to build your know-how.
Slider img 5
We can help with that.

We have the tools and the method.
Slider img 6

How to fill in unbound fields in a Form



It is easy to fill in a form with unbound fields (not linked to field names) by using the following technique at the starting of the form. An example follows:

proc Form_Start()

       ....
      {is possible to use not only table selection but also views of the database}
       start_sql “*“ “KOSMOS“
         SELECT * FROM VIEW_NAME WHERE (...)
       end_sql
       q = QueryByName()
       call TExecute(q)
       val1 = TGetFld(q,“FIELD1“) {....get values}
       ........
       edit1 = GetEditBox(“EDIT1“) {...get ids of edit boxes}
       .....
       str = strcat(“VAL=“,val1)       {...construct the setting string}
       .....
       call SetEditBox(edit1,str)       {....update the edit boxes}
      .....

end