FiveTech Software tech support forums

... * * TSysList * * Clase TSysList que contiene informacion del sistema. * ***/ CLASS TSysList DATA PathApp, Cargo METHOD New() CONSTRUCTOR ENDCLASS /*--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ...

... ( \fwh\source\classes\datarow.prg ) This calss reads values of a record/row of dbf/recset/xbrowse and enables access of the data as object data. constructor: oRec := TDataRow():New( <cAlias|oRs|oBrw|aPromptVal>, [cFieldList], [lBlank] ) Examples: USE CUSTOMER oRec := TDataRow():New( "customer", ...

Implementando el constructor de queries:

... asize ascan begin button buttonbar brush break case class classdata close color colors checkbox create character column centered commit copy constructor date do data dblclick declare deleted default delete design device dialog define dbcloseall dbskip dbclosearea dbsetorder dbseek dbrelation ...

... // CLASS TBookMark DATA cAlias DATA aBuffer DATA aFld DATA oDb DATA nRecno DATA cnIndex METHOD New() CONSTRUCTOR METHOD Set() END CLASS // ------------------------------------------------------------------- // METHOD New( oDataBase ) CLASS TBookMark ...

... lOemAnsi DATA lTenChars AS LOGICAL INIT .t. DATA aFldNames AS Array DATA oBookMark AS OBJECT DATA lBlank AS LOGICAL INIT .f. METHOD New( cAlias ) CONSTRUCTOR METHOD Activate() METHOD AddIndex( cFile, cTag ) INLINE ( ::nArea )->( OrdListAdd( cFile, cTag ) ) MESSAGE AnsiToOem METHOD _AnsiToOem() ...

... only. #define adCmdTableDirect 512 class tSQLite data oConn // Conexion con la BBDD data lError init .f. data nError init 0 method new(cDatabase) constructor method Query(cSQL) method Execute(cSQL) method GetValue(oRs,cItem) method end() method SQliteGetType(nType) method SQLiteColumnsProperties(cTable) ...

... "Fivewin.ch" Class TStock export: data xTabla data Registro data Codigo data Detalle data Marca data Existencia data Costo Method New // constructor Method Carga // carga un registro Method Nuevo // inicializa variables Method Blanco // abre un registro en blanco Method Graba Method End() ...

... DATA cBuffer // buffer del puerto. DATA nError // numero de error provocado. DATA nDelay // tiempo de retardo de emisor. // metodos METHOD New() CONSTRUCTOR // metodo constructor METHOD ClosePort() // cierra el puerto METHOD WritePort() // escribir en el puerto METHOD ReadPort() // leer puerto ...

Comenzada la implementación de la lista de funciones en el constructor de expresiones: http://img191.imageshack.us/img191/8821/capturetfl.png #include "FiveWin.ch"#include "xbrowse.ch"#ifdef __XHARBOUR__   #define hb_CurDrive() ...

Implementando la creación de índices y el constructor de expresiones: http://img27.imageshack.us/img27/2139/capturezfm.png #include "FiveWin.ch"#include "xbrowse.ch"#ifdef __XHARBOUR__   #define hb_CurDrive() ...

... RETURN .t. // CLASS WEBSERVICE /* Classe WebService */ CLASS TdWebService DATA hOpen DATA sbuffer HIDDEN DATA xDLL HIDDEN METHOD New(buffersize) CONSTRUCTOR METHOD OpenWS(url) METHOD End() ENDCLASS ***************************** METHOD New(conexion,buffersize) CLASS TdWebService DEFAULT buffersize:=3200 ...

... CLASS CustomBrowse FROM TXBrowse DATA oWnd DATA oBrow DATA aFormat DATA lArray METHOD New( oWnd ) CONSTRUCTOR METHOD KeyDown() METHOD SetFormat( aFormat ) ENDCLASS //------------------------------------------------------------------------------ METHOD ...

... #include "xbrowse.ch" CLASS CustomBrowse FROM TXBrowse DATA oWnd DATA oBrow DATA aFormat DATA lArray METHOD New( oWnd ) CONSTRUCTOR METHOD KeyDown() METHOD SetFormat( aFormat ) ENDCLASS //------------------------------------------------------------------------------ METHOD ...

... SIZE nXSize, nYSize PIXEL OF oDlg UPDATE ; && Ancho * Alto .... ACTIVATE DIALOG oDlg ; && METHOD New ( oDlg, nV1, nV2, nH1, nH2 ) CONSTRUCTOR ON INIT ( oScrDlg := TScrDlg():New( oDlg, 001, 065, 001, 070 ),; oDlg:SetSize ( GetSysMetrics ( 0 ) - nXSize ,; GetSysMetrics ( 1 ) - nYSize ...