books code samples
If you do not find what you're looking for, you can use more accurate words.
نماذج التعليمات البرمجية (Info)
لغة الفوكس برو يحتوي على أوامر مماثلة تماما لغات البرمجة الأخرى مثل الأساسية. وتشمل حلقات القيام به، إذا، في حين، لأنه آخر الأوامر في استخدام يسهل فهمها من قبل أي شخص على دراية بلغات البرمجة الأخرى. أوامر تتخذ شكل "أمر" نهاية الأمر "" بعض العينات بناء الجملة الأساسية
FOR i=1 to 10 x = x + 6.5 ENDFOR IF i=25 i = i + 1 ELSE i = i + 3 ENDIF x=1 DO WHILE x < 50 x= x + 1 ENDDO
اللغة كما تلاعب واسعة النطاق قاعدة البيانات والأوامر الفهرسة. "تعليمات" فهرس الأوامر في VFP 9 ديها عدة مئات من الأوامر والمهام الموصوفة. الأمثلة إظهار رمز أدناه كيفية إنشاء الجداول وفهرسة، ولكن VFP والطاولة والشاشات منشئ قاعدة البيانات التي إنشاء الجداول والفهارس من دون كتابة التعليمات البرمجية.
على سبيل المثال مرحبال العالم:
MESSAGEBOX("Hello World")
كائن
loForm = CREATEOBJECT("HiForm") loForm.Show(1) DEFINE CLASS HiForm AS Form AutoCenter =.T. Caption = "Hello, World" ADD OBJECT lblHi as Label WITH ; Caption = "Hello, World!" ENDDEFINE
loMine = CREATEOBJECT("MyClass") ? loMine.cProp1 && This will work. (Double-ampersand marks an end-of-line comment) ? loMine.cProp2 && Program Error: Property CPROP2 is not found. ? loMine.MyMethod1() && This will work. ? loMine.MyMethod2() && Program Error: Property MYMETHOD2 is not found. DEFINE CLASS MyClass AS Custom cProp1 = "My Property" && This is a public property HIDDEN cProp2 && This is a private (hidden) property PROCEDURE Init() && Class constructor This.cProp2 = "This is a hidden property." ENDPROC PROCEDURE MyMethod1() * This is a public method, calling a hidden method that returns * the value of a hidden property. RETURN This.MyMethod2() ENDPROC HIDDEN PROCEDURE MyMethod2() && This is a private (hidden) method RETURN This.cProp2 ENDPROC ENDDEFINE
معالجة البيانات
&& Create a table CREATE TABLE randData (iData I) && Populate with random data using xBase and SQL DML commands FOR i = 1 TO 50 APPEND BLANK REPLACE iData WITH (RAND() * 100) INSERT INTO randData (iData) VALUES (RAND() * 100) ENDFOR && Place a structural index on the data INDEX ON iData TAG iData CLOSE ALL && Display ordered data using xBase-style commands USE randData SET ORDER TO iData GO TOP LIST NEXT 10 && First 10 GO BOTTOM SKIP -10 LIST REST && Last 10 CLOSE ALL && Browse ordered data using SQL DML commands SELECT * ; FROM randData ; ORDER BY iData DESCENDING
دبك الوصول باستخدام مزود العبور
&& Connect to an ODBC data source LOCAL nHnd nHnd = SQLCONNECT ("ODBCDSN", "user", "pwd") && Execute a SQL command LOCAL nResult nResult = SQLEXEC (nHnd, "USE master") IF nResult < 0 MESSAGEBOX ("MASTER database does not exist!") RETURN ENDIF && Retrieve data from the remote server and stores it in && a local data cursor nResult = SQLEXEC (nHnd, "SELECT * FROM authors", "QAUTHORS") && Update a record in a remote table using parameters PRIVATE cAuthorID, cAuthorName cAuthorID = "1001" cAuthorName = "New name" nResult = SQLEXEC (nHnd, "UPDATE authors SET auth_name = ?cAuthorName WHERE auth_id = ?cAuthorID") && Close the connection SQLDISCONNECT(nHnd)
