Materiały do nauki VFP   Leave a comment

Na początku strona learningvisualfoxpro.com gdzie są odnośniki do stron Andy Kramka. Dużo jest autorów na webloglogs.foxcite.com.

Świetna strona na temat obsługi utf-8 w vfp – Using Unicode in Visual FoxPro Web and Desktop Applications. Do tego służą funkcje konwersji –STRCONV(x, 5) do Unicode i STRCONV(x, 10) do UTTF-8. Wyjaśniono, że UTF-8 to sposób zakodowania Unicode (jedna z form)

Programowanie obiektowe:

DEFINE CLASS FoxData AS SESSION OlePublic

cAppStartPath = „”

FUNCTION INIT
THIS.cAppStartPath = ADDBS( JustPath(Application.ServerName) )
SET PATH TO ( THIS.cAppStartpath )
ENDFUNC

FUNCTION GetRecord(lnPk)
LOCAL loCustomer

SELECT * FROM tt_Cust WHERE pk = lnPk ;
         INTO CURSOR TCustomer
        
IF _TALLY < 1
   RETURN NULL
ENDIF   

SCATTER NAME loCustomer MEMO
RETURN loCustomer
ENDFUNC

ENDDEFINE

Wywołanie korzystające z typów dynamicznych:

int pk = 0;
int.TryParse(Request.QueryString[„id”],out pk);

// Create Fox COM Object with Com Callable Wrapper
FoxData foxData = new FoxData();

dynamic foxRecord = foxData.GetRecord(pk);

string company = foxRecord.Company;
DateTime entered = foxRecord.Entered;

Tworzenie obiektów:

*** Create a Customer Object Instance (factory method)
loCustomer = GetCustomer()

loCustomer.Name = „Rick Strahl”
loCustomer.Company = „West Wind Technologies”
loCustomer.creditLimit = 9999999999.99

loCustomer.Address.StreetAddress = „32 Kaiea Place”
loCustomer.Address.Phone = „808 579-8342”
loCustomer.Address.Email = „rickstrahl@hotmail.com”

*** Pass Fox Object and echo back values
? loNet.PassRecordObject(loObject)  
RETURN

FUNCTION GetCustomer
LOCAL loCustomer, loAddress

   loCustomer = CREATEOBJECT(„EMPTY”)
   ADDPROPERTY(loCustomer,”Name”,””)
   ADDPROPERTY(loCustomer,”Company”,””)
   ADDPROPERTY(loCUstomer,”CreditLimit”,0.00)
   ADDPROPERTY(loCustomer,”Entered”,DATETIME())

   loAddress = CREATEOBJECT(„Empty”)
   ADDPROPERTY(loAddress,”StreetAddress”,””)
   ADDPROPERTY(loAddress,”Phone”,””)
   ADDPROPERTY(loAddress,”Email”,””)

   ADDPROPERTY(loCustomer,”Address”,loAddress)

RETURN loCustomer
ENDFUNC

Posted 17 Listopad 2010 by marekwmsdn in Bez kategorii

Skomentuj

Wprowadź swoje dane lub kliknij jedną z tych ikon, aby się zalogować:

Logo WordPress.com

Komentujesz korzystając z konta WordPress.com. Log Out / Zmień )

Zdjęcie z Twittera

Komentujesz korzystając z konta Twitter. Log Out / Zmień )

Facebook photo

Komentujesz korzystając z konta Facebook. Log Out / Zmień )

Google+ photo

Komentujesz korzystając z konta Google+. Log Out / Zmień )

Connecting to %s

%d bloggers like this: