CLASS Information needed?

[Horizon]

Hi,

I try to learn how to write class. I examined the TDatabase class. I just want to find out the which method is done this.

FWH Example : dbf01.prg
Line 73:

Code: Select all  Expand view

  REDEFINE GET oDbf:First ID ID_NAME OF oDlg UPDATE ;
      MESSAGE "Please type here the first name of the customer"

                                              // We directly use the Fields
                                              // name, but we are working on
                                              // a buffer ! This is perfect
                                              // for Network management

We use the fields directly oDbf:<Fieldname>. How? Which method is used to do this?

Thanks,

[Antonio Linares]

Hakan,

We use the Classes ON ERROR feature:

Code: Select all  Expand view

   #ifdef __HARBOUR__
      ERROR HANDLER OnError( uParam1 )
   #else
      ERROR HANDLER OnError( cMsg, nError )
   #endif
 

...

Code: Select all  Expand view

#ifdef __HARBOUR__
   METHOD OnError( uParam1 ) CLASS TDataBase
      local cMsg   := __GetMessage()
      local nError := If( SubStr( cMsg, 1, 1 ) == "_", 1005, 1004 )
#else
   METHOD OnError( cMsg, nError ) CLASS TDataBase
      local uParam1 := GetParam( 1, 1 )
#endif
 

[Horizon]

Thanks Antonio,

I have looked at the TDatabase class several times. I could not imagine it in ERROR HANDLER.

[James Bott]

Hakan,

Have you read the articles I wrote on writing classes that are on my website?

http://www.gointellitech.com

James

[Horizon]

Yes, James.

Your webpage about classes is my first learning stage.

Thank you again.