Category: Visual FoxPro

其實他根本就是一個 wrapper
把 .net 的 code 給包裝起來
看起來的確變的很類似 vfp
但實際上宣告變數以及語法仍然遵循 c# 或 vb.net
而非原來的 vfp
不過文件上說的沒錯
他提供了絕大部分的 vfp 函數
可是~
存取資料時
仍然要使用 sqlconnect
而不是 use
也因此沒有索引的功能
但有提供索引搜尋跟切換索引的功能
只是這些東西仍然依存於 .net dataview 元件的能力
換言之
如果要細調其執行效能
恐怕仍然需要了解 .net ado.net
source code 很有幫助,並不是很困難
建議也下載回去看
對上手 .net 有相當的助益

限制:
以6.0而言,似乎一定要用 ado 來開啟
範例:
OConn = CREATEOBJECT(“ADODB.Connection”)
OConn.ConnectionString = “provider=vfpoledb.1;;
data source=.\testdbc.dbc”
OConn.Open
語法:
Provider = VFPOLEDB
Data Source=cPath
Specifies the path to the Visual FoxPro database or folder containing free tables. For example, d:\vfp7\samples\data\testdata.dbc
Mode=cMode
Specifies one of the following: Read, ReadWrite, Share Deny None (default), Share Deny Read, Share Deny Write, Share Exclusive (inclusive of the previous two modes).
可以丟如下指令
The Visual FoxPro OLE DB Provider supports the native Visual FoxPro language syntax for the following commands:
CREATE TABLE – SQL Command
Creates a table having the specified fields.
DELETE – SQL Command
Marks records for deletion.
DROP TABLE Command
Removes a table from the database specified with the data source and deletes it from disk.
INSERT – SQL Command
Appends a record to the end of a table that contains the specified field values.
SELECT – SQL Command
Retrieves data from one or more tables.
UPDATE – SQL Command
Updates records in a table with new values.
The Visual FoxPro Language Reference contains detailed information about the following supported commands:
ALTER TABLE – SQL Command
Programmatically modifies the structure of a table.
CREATE TABLE – SQL Command
Creates a table having the specified fields.
Using Data Definition Language (DDL)
You cannot include DDL in the following places:
In a batch SQL statement that requires a transaction
Following a previously executed statement that required a transaction if not in auto-commit mode and if your application has not yet called SQLTransact.
For example, if you want to create a temporary table, you should create the table before you begin the statement requiring a transaction. If you include the CREATE TABLE statement in a batch SQL statement that requires a transaction, the provider returns an error message.
DELETE – SQL Command
Marks records for deletion.
DELETE TAG Command
Removes a tag or tags from a compound index (.cdx) file.
DROP TABLE Command
Removes a table from the database specified with the data source and deletes it from disk.
INDEX Command
Creates an index file to display and access table records in a logical order.
INSERT – SQL Command
Appends a record to the end of a table that contains the specified field values.
SELECT – SQL Command
Retrieves data from one or more tables.
The Visual FoxPro OLE DB Provider supports the native Visual FoxPro language syntax for this command.
SET ANSI Command
Determines how comparisons between strings of different lengths are made with the = operator in Visual FoxPro SQL commands.
SET BLOCKSIZE Command
Specifies how disk space is allocated for the storage of memo fields.
SET COLLATE Command
Specifies a collation sequence for character fields in subsequent indexing and sorting operations.
SET DELETED Command
Specifies whether records marked for deletion are processed and whether they are available for use in other commands.
SET EXACT Command
Specifies the rules for comparing two strings of different lengths.
SET EXCLUSIVE Command
Specifies whether table files are opened for exclusive or shared use on a network.
SET NULL Command
Determines how null values are supported by the ALTER TABLE – SQL, CREATE TABLE – SQL, and INSERT – SQL commands.
SET PATH Command
Specifies a path for file searches.
Provider Remarks
If you issue SET PATH in a stored procedure, it will be ignored by the following functions and commands: SELECT, INSERT, UPDATE, DELETE, and CREATE TABLE
If you issue SET PATH in a stored procedure and do not subsequently set the path back to its original state, other connections to the database will use the new path (because SET PATH is not scoped to data sessions).
If you want to create, select, or update tables in a directory other than that specified by the data source, specify the full path of the file with your command.
SET REPROCESS Command
Specifies how many times or for how long to lock a file or record after an unsuccessful locking attempt.
SET UNIQUE Command
Specifies whether records with duplicate index key values are maintained in an index file.
UPDATE – SQL Command
Updates records in a table with new values.

前言
建立Web Service
建立Web Service Client 端程式
使用其他語言建立的 Web Service
與資料庫結合
結論
參考資料
前言
VFP 這項產品一直被謠傳微軟將不再支援，但在今年六月，微軟將VFP7自Visual Studio.NET中獨立出來銷售，總算是打破了這個謠言。此外，也為這項產品添加了不少功能，比如 Intellisense、對COM的更完整支援、SOAP與Web Service 等等。這裡就為各位解說新增的SOAP與Web Service功能。
SOAP 與 Web Service 這兩個名詞，相信我不用再多做解釋了，大家在這一陣子的耳濡目染之下，應該都大致了解，在此就不再贅述。如果想了解的人請參考前幾期RUN!PC李維老師的文章，有詳細的解說。

建立Web Service
首先讓我們來製作 Web Service，稍後，再來撰寫如何使用 Web Service 的 Client 端程式。
要使用VFP7製作Web Service之前，請先在[Internet 服務管理員]中，新增一個虛擬目錄，在此，我們先命名為 WebServices。
接下來得製作一個COM元件，在這裡我們就以一個簡單的相加函數來作為一個範例。
請先建立一個新專案，名稱叫做MyWebService，在Project Manager(專案管理員)中，切換到 Program頁籤，點選 ”New”，將下列這段程式碼貼到裡面去，然後存檔為 prog1.prg。

DEFINE CLASS MyCalculator AS session OLEPUBLIC
Name = "MyCalculator"
PROCEDURE doAdd
Parameters A , B
Return A+B
ENDPROC
ENDDEFINE

這一段程式碼只是將傳入的兩個參數做一個簡單的相加而已。
接著就要進行編譯的工作了，點選”Build”，建立的型態選為”Single-threaded COM Server(dll)”，按下 ”確定” 來建立一個dll型態的COM伺服器。

建立完成後，你會發現VFP7為你產生了一個mywebservice.dll，並已經為你註冊到電腦中了，讓我們驗證一下VFP7是否已經編譯成功，請在命令列中依序輸入：

obj=createobject(“MyWebService.MyCalculator”)
? obj.doAdd(100,100)

如果成功的話，你應該會看到VFP7回應了 200 這個答案，表示COM伺服器已經建立成功。
VFP7提供了一個方便的精靈，讓你可以直接在VFP7的整合環境中建立 Web Service，而不需要另外去執行 SOAP toolkit 來製作。
請你在Project Manager中，以滑鼠右鍵點選叫出快捷選單，選擇Builder。此時，會出現一個選擇精靈的對話方盒(如圖)，選擇Web Services Publisher，並按下確定。

接著會出現Web Services Publisher這個對話盒(如圖)，我們按下 “…” 按鈕，去搜尋我們剛剛建立的MyWebService.MyCalculator COM伺服器。找到並確定之後，再按下”Advanced”，讓我們看看可以再多做些什麼設定。
在 Advanced 設定中，我們可以指定

1. WSDL 產出的位置。
2. SOAP Listener型態。
3. IntelliSense的Script名稱。
4. 告訴VFP7在Project Build之後，是否自動產出相關的 Web Service 檔案。
5. 產出的WSDL檔案是否要以UTF-16 Unicode作為預設編碼。
   
   
   
   

在確定所有設定無誤之後，按下 Generate，Web Service Publish精靈就會利用SOAP toolkit為我們在指定的位置產出Web Service的相關檔案。

Web Service Client 程式
那麼，我們要如何使用這個 Web Service 呢?
讓我們寫一個簡單的 form 來呼叫
請開一個新檔案，類型選為Form (表單)，在表單裡面放置一個按鈕(如下圖)，在按鈕的OnClick事件內放置如下的程式碼：

x = CREATEOBJECT("MSSOAP.SoapClient")
x.MSSoapInit("http://ellery/webservices/MyCalculator.WSDL", , "MyCalculatorSoapPort")
=messagebox( str( x.doAdd( 100,100 ) ) )

執行這個表單，在click按鈕之後，你會發現你並沒有辦法呼叫!!是VFP7的bug嗎??
首先,因為soap物件會利用 wsdl 檔案做 Initialization 的動作，所以我檢查了一下產出的 wsdl：

…略…
<message name='MyCalculator.doAdd'>
</message>
<message name='MyCalculator.doAddResponse'>
<part name='Result' type='xsd:anyType'/>
</message>
…略…

在這裡 SOAP toolkit wizard 並沒有為我們的 COM 元件產生參數的宣告。
產出的 WSDL 碼應該是下面這樣子才對的呀.

…略…
<message name='MyCalculator.doAdd'>
<part name='A' type='xsd:int'/>
<part name='B' type='xsd:int'/>
</message>
<message name='MyCalculator.doAddResponse'>
<part name='Result' type='xsd:anyType'/>
</message>
…略…

為了這個疑惑，我將問題貼到 Microsoft Newsgroup(http://communities.microsoft.com/newsgroups/default.asp) 和 Universal Thread(http://www.universalthread.com) 網站去詢問，過了兩天，就有了結果，兩個地方給我的回答都是相同的，我們必須將PROCEDURE doAdd 的宣告修改為

PROCEDURE doAdd(A as Integer, B as Integer)

並把 parameters 敘述移除。
修改後，重新 Build、利用 Wizard 發布之後，再執行剛剛我們建立好的 client 端Form，你應該就可以看到Web Service 被起始後的結果了。

使用其他語言建立的web service
為了驗證一下，VFP也能使用其他語言或其他平台上建立的 Web Service，我們仿效李維老師於RUN!PC 90 期文章中所寫的範例，寫一個取得溫度的簡單範例。
請依照下圖來製作一個表單：

然後，在”取得溫度”按鈕的 onclick 事件中，置入下列程式碼：

LOCAL obj
obj = CREATEOBJECT("MSSOAP.SoapClient")
obj.MSSoapInit("http://www.xmethods.net/sd/2001/TemperatureService.wsdl")
thisform.text2.value=obj.getTemp(thisform.text1.value)

在執行這個表單之後，在州代號的欄位中，輸入 07060，再按下 “取得溫度” 按鈕，下面的當地氣溫欄位便顯示出氣溫，表示可以正確的呼叫!


與資料庫結合
VFP為了因應 XML 的流行，在這個版本中添加了與XML 相關的三個函數：CURSORTOXML()、XMLTOCURSOR()、XMLUPDATEGRAM()，正好可以用來在 Web Services 中傳遞資料。
請在Project Manager中，新增一個程式檔(program)，然後將下列的程式碼加入，並命名為 prog2.prg：

DEFINE CLASS tastrade AS session OLEPUBLIC
Name = "tastrade"
PROCEDURE getAllEmployee()
LOCAL handle as Integer
LOCAL lc_xml as String
handle=SQLSTRINGCONNECT("Driver=Microsoft Visual FoxPro Driver;” + ;
“UID=;PWD=;” + ;
“SourceDB=C:\WebService\Data\testdata.dbc;” + ;
“SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;” + ;
“Collate=Machine;Null=Yes;Deleted=Yes;")
=SQLEXEC(handle, ;
"select emp_id, last_name, first_name, title from employee order by emp_id", ;
"employees")
=sqldisconnect(handle)
CursorToXML("employees", "lc_xml")
RETURN lc_xml
ENDPROC
PROCEDURE updateEmployee( c_request as string )
LOCAL handle
LOCAL o_xmlDom, o_nodelist1, o_nodelist2, o_nodeEmployee, o_node
LOCAL strWhere as String , strSet as String , strSql as String
LOCAL ll_cycle as Boolean , ln_ret as Integer
c_request=STRTRAN( c_request, 'encoding="Windows-1252" ', "" )
o_xmlDom=CreateObject("Microsoft.XMLDOM")
o_xmlDom.async="false"
o_xmlDom.loadXML(c_request)
* parse xml and combine update-sql syntax
IF o_xmlDom.hasChildNodes()
ELSE
RETURN
ENDIF
* create connection
handle=SQLSTRINGCONNECT("Driver=Microsoft Visual FoxPro Driver;” + ;
“UID=;PWD=;” + ;
“SourceDB=C:\WebService\Data\testdata.dbc;” + ;
“SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;” + ;
“Collate=Machine;Null=Yes;Deleted=Yes;")
strWhere=""
strSet=""
l_cycle=.F.
for each o_nodelist1 in o_xmlDom.documentElement.childNodes
FOR EACH o_nodelist2 IN o_nodelist1.childNodes
* initialize variables
if o_nodelist2.nodeName="updg:before"
FOR EACH o_nodeEmployee IN o_nodelist2.childNodes
FOR EACH o_node IN o_nodeEmployee.childNodes
IF o_Node.nodeName="emp_id"
strWhere=strWhere+o_Node.nodeName+"="+"'" + ;
TRANSFORM(o_Node.text,"@J 999999") + "' and "
ELSE
strWhere=strWhere+o_Node.nodeName+"="+"'" + ;
o_Node.text + "' and "
ENDIF
NEXT
NEXT
ENDIF
IF o_nodelist2.nodeName="updg:after"
IF NOT o_nodelist2.hasChildNodes()
ELSE
FOR EACH o_nodeEmployee IN o_nodelist2.childNodes
FOR EACH o_node IN o_nodeEmployee.childNodes
IF o_Node.nodeName="emp_id"
strSet=strSet+o_Node.nodeName+"="+"'" + ;
TRANSFORM(o_Node.text,"@J 999999") + "',"
ELSE
strSet=strSet+o_Node.nodeName+"="+"'" + o_Node.text + "',"
ENDIF
NEXT
NEXT
ENDIF
l_cycle=.T.
ENDIF
IF l_cycle = .T.
* generate sql syntax
strWhere=LEFT(strWhere,LEN(strWhere)-4)
IF EMPTY(strSet)
strSql="Delete from employee where "+ strWhere
ELSE
strSet=LEFT(strSet,LEN(strSet)-1)
strSql="Update employee set " + strSet + " where " + strWhere
ENDIF
* call sqlexec() to send update-sql
* and we can update our database
ln_ret=SQLEXEC(handle,strSql)
l_cycle=.F.
strWhere=""
strSet=""
ENDIF
NEXT
NEXT
* disconnect
=sqldisconnect(handle)
ENDPROC
ENDDEFINE

這段程式碼裡面包含了一個類別，類別裡面包含了兩個方法：
getAllEmployee 利用 SPT 這組函數取得所有員工的員工編號、姓、名以及職稱，然後再利用 CURSORTOXML() 函數將 Cursor 資料轉換為 XML並傳回。
UpdateEmployee 則依據傳來的 update xml 資料作分析並更新。
再依照之前建立 Web Service 的步驟再做一次 Build COM 元件以及發布的動作。
接著，讓我們來撰寫 client 端的畫面，請依照下圖放置一個 Grid 控制項還有兩個 Button 控制項，然後同樣地，將下列的程式碼分別置放到兩個按鈕的 onclick 事件中。

在 Retrieve 按鈕的 onclick 事件中置放如下程式碼：

LOCAL x as Object , lc_xml as String
*因為在[Update]按鈕中的 xmlupdategram() 函數需要設製 buffermode 並將 multilocks 設為 True
SET MULTILOCKS ON
IF USED("employee")
thisform.grid1.RecordSource=""
USE IN employee
ENDIF
x = CREATEOBJECT("MSSOAP.SoapClient")
x.MSSoapInit("http://ellery/webservice/tastrade.WSDL")
lc_xml=x.getAllEmployee( )
XMLToCursor(lc_xml,"employee")
thisform.grid1.RecordSource="employee"
thisform.Refresh()
SELECT employee
=CURSORSETPROP("buffering",5)

在 Update 按鈕的 onclick 事件中置放：

LOCAL lc_ret
LOCAL x, lc_xml
*檢查是否已經取得資料
IF NOT USED("employee")
=MESSAGEBOX("[Retrieve] button not pressed!")
RETURN
ENDIF
*產生異動的 xml
lc_ret=XMLUPDATEGRAM("employee")
IF EMPTY(lc_ret)    &&如果沒有異動,發出警告
=MESSAGEBOX("You don't update any thing")
ENDIF
=MESSAGEBOX(lc_ret,"XMLUPDATEGRAM() generates following codes")
*將資料更新回去!
x = CREATEOBJECT("MSSOAP.SoapClient")
x.MSSoapInit("http://ellery/webservice/tastrade.WSDL")
x.updateEmployee( lc_ret )
SELECT employee

然後將這個表單命名為 form2，然後讓我們執行這個表單。
當我們按下 Retrieve 時，這個 client 端的表單就會為我們取回 Server 端的XML資料，並利用 XMLTOCURSOR() 轉換為 Cursor，以便能順利與 VFP 的控制項結合。
當按下更新的時候，我們也能利用 XMLUPDATEGRAM() 函數取得需要更新的必要資料，送回 Server 端，讓 Service 端能根據這份資料來更新資料。

結論
VFP 在7.0版之後就不再被包含在 Visual Studio.NET 之中，但是，VFP開發小組承諾會繼續為這個產品添加更多的功能以迎合使用者的需求。就我個人而言，對 VFP 仍懷有一份特殊的情感，尤其是在使用其他語言開發資料庫時，有時候仍然會忍不住有 “唉!怎麼沒有這個功能，VFP就有” 這個想法，所以我還是會繼續看相關的 VFP 資料。
不過，我感覺到微軟雖然對 VFP 的使用者作出了相當的承諾，可是，從 5.0 到 6.0 到 7.0 ，除了使用者介面與開發COM元件的支援外，其實並沒有什麼太大的改進，我想很多人也會和我有一樣的看法吧。

參考資料：
MSDN – Walkthrough: Creating Web Services with Visual FoxPro
RUN!PC 90 期
XML 網頁製作徹底研究 旗標出版

我想這個研討會對各位應該是沒有什麼關係才對~~
為了避免浪費大家的時間,我就在這裡做個簡短報告,如果有興趣摸摸看的話,再私下來找我~
首先我假設各位已經使用過 6.0 了~
7.0 與 6.0 其實差別性不大,幾個重點:
1. UI 加強,以前沒有 IntelliSense,現在有了,什麼是 IntelliSense, 簡單的說,就是像VB一樣,我隨便打個 rsCustomer. (假設rsCustomer是adodb.recordset),VB 就會很貼心的跑出一狗票方法跟屬性讓你選.
2. COM 加強,之前的版本建立 COM 物件,實際上並沒有實做出所有應有的 Interface,以及建立標準的 IDL (Interface Definition Language),所以在某些特定的情況有問題.現在除了遵循標準之外,也更加強了控制 COM 物件的能力.
3. XML 與 Web Service, 提供了三個函數來支援 XML 與 Cursor 之間的轉換,並且多了一個精靈來產生 Web Service,這個精靈實際上是應用 SOAP ToolKit 2.0 sp2 來產生 Web Service 的.
4. Database 提供 Event 以及 OLEDB Provider, 這個我認為不是很重要,因為現在用 vfp 資料庫的人越來越少了.
說完以上幾點,大概就沒什麼了,也因此,這次的研討論,前面廢話一陣之後,直接就介紹 XML 的三個函數與 Web Service 精靈,介紹的範例寫的不錯,令人能一目了然.
會畢,大家提出一些問題~有兩個問題是讓我比較印象深刻的
1.關於 Microsoft 是否繼續推廣 VFP 的問題,基本上,我覺得問的人很笨,因為上課的人並不是微軟的人,就算是,他也沒辦法回答.我個人的答案是,目前桌上型資料庫的市場已經是 VFP 跟 ACCESS 獨大了,所有的敵人都已經死光光(Paradox,dBase,Clipper…等),他根本不需要再推廣,否則等於是拿石頭砸自己的腳.
2.有個傢伙問售後服務,他說能不能主動寄發 Service Pack 給客戶,或者在購買VFP的時候,能主動附上目前最新的 Service Pack. 否則的話,光華賣的補帖服務還比微軟好,因為補帖出貨的時候,連 Service Pack 都燒進去.那幹?還用正版.聽到這裡,深深覺得售後服務的重要性.
會後,填完問卷,還領了一張資源光碟,我還沒有看,待會我會放到 Server 上去.
報告完畢.

內容:

• 建置測試環境
• 測試
• FetchAsNeeded??

建置測試環境

1. 請先利用 sql server enterprise manager去建立一個 database,叫做demo，然後利用 Query Analyzer 執行以下的sql script
   [sql]use demo
   if exists (select * from sysobjects where id = object_id(N'[dbo].[demo]’) and OBJECTPROPERTY(id, N’IsUserTable’) = 1)
   drop table [dbo].[demo]
   GO
   CREATE TABLE dbo.[demo] (
   cus_no int IDENTITY (1, 1) NOT NULL ,
   cus_name char (10) NOT NULL ,
   comment text NULL
   ) ON PRIMARY TEXTIMAGE_ON PRIMARY
   GOALTER TABLE dbo.demo WITH NOCHECK ADD
   CONSTRAINT PK_demo PRIMARY KEY NONCLUSTERED
   (
   cus_no
   ) ON PRIMARY
   GO
   [/sql]
2. 請再設定一下控制台中的ODBC
3. 設定一下 class 裡面的 demo.vcx 中的 prjhook QueryRunFile Event 中的路徑，然後在專案上面點一下滑鼠右鍵，選擇 專案資訊,接著把專案類別設為 demo.vcx，然後以後你執行程式的時候,就只要按 執行 就好了
4. 接著去變更一下 database 中的 connection

測試

以程式動態模擬 1000 筆資料寫入 sql server 資料庫中，直接利用 vfp 的 connection + remote view
硬體: cyrix 200 + 128 mb ram + 4g hd
軟體: m$ sql server 7 + ado 2.6

情況 1 :
不設 buffering，vfp 當然是每新增一筆, 就會寫一筆到 sql server 中，想當然耳,速度超慢

情況 2 :
設定 buffering 為 5，這個時候,新增就粉快了,因為新增的資料都是放到 local 端，不過 tableupdate 的時候,就超慢了

情況 3 :
設定 buffering 為 5, batchupdatecount 為 1000, prepared 為 true
第一次新增 1000 筆,tableupdate 寫入,僅僅花了二分鐘多左右，效率還算讓人滿意
在程式執行的同時,我也有利用 sql 的 profiler 去觀察，vfp的確有先產生 prepare 的指令, 再執行 insert 的動作，仔細看了一下 tableupdate 的指令說明
tableupdate 的第一個參數如果帶 1, 而且 buffering 有開啟的時候,就會只把有變動的記錄更新回去
這一點我呆會會再另外用另外一種方法來測試是否真的有這麼去tableupdate
第二次執行的時候,花了約四分鐘,這次我發現vfp有多花一些時間在requery()上,所以我把 use demo 改為 use demo nodata
果然就又回復到約二分鐘多左右了，這次我把 prepare 拿掉試試看，發現了很有趣的現象,profiler 中,仍然使用了 prepare，不知道是不是因為 odbc driver 的關係

第四次(prog2)
測試 requery() 的速度
我知道memo的大小會影響速度,所以直接先把 fetchmemo 設為 false，程式很快就run完了,我感到質疑，因此我用browse去看
我發現 vfp 會 requery() 一個程度之後,開始在background去抓資料
如果這個時候去browse,速度就變的粉慢，怎麼變快??
於是我接著把 FetchAsNeeded 設為 True, FetchSize 設為 100
重新執行, 果然速度變快很多,因為vfp只抓了 100 筆
我利用 browse 去觀察的時候,向下 page down, vfp 還會自動往下抓100筆記錄
這真是太棒了
不過我後來直接把 scroll bar 移到最下面,這個requery的時間就很久了

第五次(form1)
我寫了一個簡單的表單，寫的過程,遇到一個小問題,我在dataenvironment中拉入view,接著把view拖到表單上，產生grid的時候粉慢,這時候我建議各位先在指令列下 use demo nodata, 然後再來拖，會順利很多!!
做好的畫面如form1，畫面很簡單，右上角是我測試的重點之一,我輸入一個數值,按下”跳到”,會自動移到該筆記錄去
當我 go 100 的時候,果然vfp會自動抓下一百筆資料
另外當我點選到 memo 欄位時,vfp也會自動去抓取該欄位的memo值
(因為之前把fetchmemo設為false,所以不會抓memo值)
不過這時候又產生了另外一個問題
如果我想知道總共有多少記錄的時候要怎麼辦呢??雖然輔助說明中說requery()之後,
會把取得的記錄數目存放在_tally變數中,but似乎不是這樣,因為我取得的_tally總是與事實不符
翻遍輔助說明,看來都沒有適合的指令可以取得
只好利用 select count() 了
我把這段指令寫在 “總筆數!!” 這個按鈕上
千萬不要用 reccount() ,這會把所有資料下載下來!!

FetchAsNeeded??

第六次 (form1)
這次我們要試的是 tableupdate 是否真的只把我們有更動的資料寫回去
因此我們使用 tableupdate( 1, .T. ) 來作
可是粉奇怪,profiler 並沒有顯示任何 update 的動作
這太奇怪了~~
我搞了好久
才在 vfp 的 programmer’s guide 找到
當 fetchasneeded 設為 true 的時候,是無法做任何更新動作的!!!!
必須要先 sqlcancel 之後才能去做
最後實驗 tableupdate( 1, .T. )也順利成功
程式碼在[奇數碼更新]裡面!!
vfp 果然會只更新有變動的部分而已!!!

很久以前就知道在別的大型資料庫系統裡, Select 有 Union這個子句(clause)
但我不知道VFP有這個子句
前兩天在看VFP輔助說明的時候,才發現到,VFP也有。
那那那…這個指令有啥好處呢?
我用個範例來做說明好了,這個範例是從BBS的Database版上借下來的,有經過改寫,原本是ORACLE的範例：
首先先建立一個Database,然後建好多個 Table,其結構都相同
CREATE DATABASE DEMO
CREATE TABLE DEMO_1995 ;
(TRANS_DATE D, cTEXT C(80), ;
CHECK (TRANS_DATE>={^1995/01/01} AND TRANS_DATE={^1996/01/01} AND TRANS_DATE={^1997/01/01} AND TRANS_DATE={^1998/01/01} AND TRANS_DATE={^1999/01/01} AND TRANS_DATE={^1998/01/01} AND TRANS_DATE<{^1999/07/01}
或者 你也可以不需要建DEMO這個View
你也可以直接用
SELECT * FROM DEMO_1995 ;
UNION ALL ;
SELECT * FROM DEMO_1996 ;
UNION ALL ;
SELECT * FROM DEMO_1997 ;
UNION ALL ;
SELECT * FROM DEMO_1998 ;
UNION ALL ;
SELECT * FROM DEMO_1999
這個時候 也許你會問,這有啥好處呢?? 看來是沒有啊 請注意…
相信各位都曾經有過這種迷惘-以年度區分(或其他)的資料檔到底是要分開呢?還是要放在一起?
假設你選擇了分開,那麼在作整合查詢的時候,就會相當的麻煩。
通常只能先建立一個暫存資料檔,然後依序將零星的資料匯入之後,再對此一暫存資料檔作查詢。
使用了union all,就可以不需要那麼麻煩了。

XML是一種在網路上用來描述與傳遞的標準語言,就跟 HTML 是用來建立並顯示網頁的標準語言一樣.
XML使用標籤和屬性來界定資料,並且完整的保留資料原有的解釋讓應用程式去閱讀.
為了盡可能的要讓你更容易的利用XML來實作資料交換,VFP提供如下的新函數和功能:
CURSORTOXML( ) 將一個Cursor轉換成XML.
XMLUPDATEGRAM( ) 從一個有被變更過的工作區或cursor建立一個XML更新語法.
XMLTOCURSOR( ) 將XML資料轉換成Cursor或資料表格.
以上轉譯自 VFP7 提供的輔助說明.
以下就簡單介紹用法,但詳細用法,仍請參照輔助說明.
CursorToXML()
直接把工作區的資料轉換為一個xml檔案
舉例來說
CursorToXML(“LABELS”, “myXMLFile.xml”, 1, 512, 0, ;
“mySchema.xsd”, “http://www.microsoft.com/mySchema.xsd”)
這一行就是說把 LABELS 這個工作區的資料,轉換為 myXMLFile.xml
1 的意思就是Element-centric XML ,轉換為以元素為主的XML.
512 是表示第二個參數是一個檔案
0 則是設定編碼原則
“mySchema.xsd” 則是轉出後的規則檔
“http://www.microsoft.com/mySchema.xsd” 則是表示規則要參照 www.microsoft.com 上的 mySchema.xsd
XMLTOCursor()
就是把xml檔案轉換為一個工作區,注意:目前工作區若有開啟檔案,將會被關閉!
XMLToCursor(“myXMLFile.xml”,”LABELS”)
XMLUpdateGram()
這是一個很有用的函數,使用前,你必須先把目前的buffering開啟
它主要是把目前工作區有被變更過的資料轉變為 xml
只有變更過的才會喔~
於是可以聯想到,資料在Client被處理完,可以只把有被變更過的傳回Server
大大減低網路的負荷,並且提昇速度喔
之後就可以利用 xmltocursor() 函數來處理

本文轉譯自VFP7光碟片 \technical articles\vfpws.doc

McAlister Merchant
Microsoft Corporation
Created: March 2001
Revised: March 2001
Applies To: Microsoft Visual Foxpro

總覽

Web Services 可以在任何地方被使用.你可以自己建立他們,或者你可以在他們被公佈的地方存取他們.
你可以使用VFP去建立 Web Services, 而且如果你在IntelliSense中註冊他們,VFP使得你能近乎自動化地存取他們變的可能.
你也可以使用VFP存取利用其他語言建立的 Web Services.

內容

介紹
Web Services
Establishing a Virtual Directory (建立一個虛擬目錄)
Creating a Project (建立專案)
Creating a COM Server (建立一個COM伺服器)
Creating and Publishing a Web Service (建立並發布一個 Web Service)
Registering a Web Service (註冊一個 Web Service)
Using a Web Service (使用一個 Web Service)
更多資訊
譯註

 

介紹

使用VFP建立 Web Services 是一個複雜的過程,因為牽涉到使用IIS, VFP COM伺服器和SOAP.
你使用IIS去建立一個虛擬目錄來參照到你的Service擺放在硬碟上的位置.
IIS可以利用MS NT4 Option Pack, MS W2k Professional或MS W2K Server來安裝.(在Option Pack中,IIS是其中的一部份,在W2K
Pro中可以利用新增/移除來安裝,W2K Server則是安裝時會自動一併安裝).譯註1.
然後你可以使用專案管理員去建立或編譯COM物件.當COM物件被建立了,你可以使用VFP Web Services精靈把他們公佈到你的虛擬目錄中.
你可以利用VFP的IntelliSense管理員去註冊 Web Services,所以Web Service的佈置和程式碼中必要呼叫的常式能迅速被執行.
這篇文章引領你為現存的COM伺服器建立Web Serveice並且準備Web Service以使用的這個複雜過程.
你能從一個COM伺服器建立一個簡單的Web Service,讓任何人都能從HTTP協定上存取.
這個 Web Service 提供一個關於目前目錄和有多少檔案在目錄中的簡單報告.

Web Services

Web Services延展了你自己的COM伺服器的可存取能力,能夠使得其他開發者能透過瀏覽器來存取.
Web Services提供機能並且能跨平台和在異質連接中存取資料.
你可以從Web Service存在的地方建立並使用Web Services去提供或者獲得功能.(譯註2)
大部分Web Service重要的觀點是Web Services使用HTTP協定和SOAP代理人,因此功能可以在跨越防火牆之後,仍然有效.
因為HTTP和SOAP是不管平台的,所以Web Services也是不管平台的.在某些案件,這仍能在COM失效的時候提供功能.
要發布一個 Web Service, 你必須在IIS中建立一個虛擬目錄,然後建立或複製一個COM伺服器,從而產生一個Web Service到你的虛擬目錄中.

 

Establishing a Virtual Directory(建立一個虛擬目錄)

你必須建立或識別一個目錄以存放你的 Web Services.
儘管你可以使用一個已存在的目錄,你仍可能想要在你硬碟上建立一個不一樣的地方存放這些檔案以方便管理你的Web Service檔案.
去建立一個虛擬目錄,譯註3
1.在VFP主要目錄下(\Program Files\Microsofft Visual FoxPro 7)建立一個資料夾,並命名為 Web Services.
2.在控制台裡的系統管理工具資料夾中,雙擊Internet服務管理員.
3.Internet服務管理員視窗打開,在左邊會顯示一個樹狀目錄,他顯示了你的硬碟.展開節點,以便能看到子資料夾.
4.在樹狀目錄中選擇預設的Web站台.
5.從右擊選單中,選擇"新增",然後點選"虛擬目錄".這會開啟"虛擬目錄新增精靈".
6.遵循精靈的指示進行,選擇虛擬目錄的時候,指定到步驟一所建立的 Web Services 資料夾.
你已經建立了一個虛擬目錄,參照到你的Web Services資料夾,之後你將會在這裡存放你建立的所有Web Services檔案.

 

Creating a Project (建立一個專案)

專案管理員在VFP中是十分基礎的應用程式建立工具.
在VFP專案中,你可以組合各式各項的文件,資料,類別,程式碼和其他類型的檔案等.
一個專案提供了你可能想要含括到一個伺服器中的所有元件,並且容納,以便編輯.
在這個範例中,你使用專案去編譯你的 Web Services
去建立一個專案,譯註4
1.在File(檔案)選單中,選擇 New(開新檔案)
2.在New(開新檔案)的對話盒中選擇 Project(專案),並點選 New File(開新檔案).
3.在 Create(建立)對話盒中,選擇你之前建立的 Web Services 資料夾,並且取名為 myWServ1.
4.點選 Save(存檔)
現在你已經在 Web Services 資料夾中建立了你的專案.這使得當你完成加入元件後可以在正確的資料夾中自動的儲存並編譯.

 

Creating a COM Server(建立一個COM伺服器)

因為,一個Web Service是一個.dll或.exe的檔案,你必須使用一個COM伺服器來當作你Web Service的基礎.
一個COM伺服器在VFP來說是一個有.dll或.exe副檔名,裡面包含從一個利用OLEPUBLIC識別字所建立的類別.
當一個物件被指定為OLEPUBLIC時,表示可以被Automation客戶端存取.當你從.dll檔案發布Web Service時,一個新的.wsdl檔案將會被產生.
.wsdl檔案有必要的XML源碼,他描述在.dll檔中的類別和參照實際在Web Service背後出力的.dll檔案.
從這個COM伺服器範例中,你將建立一個custom類別,他簡單回報了一些非常簡單的訊息.
在這個過程中,你將要寫一個程式來建立一個包含兩個方法的類別,並且編譯這個專案成一個COM伺服器和一個已發布的Web Service.
去建立一個簡單的類別,譯註5
1.在File(檔案)選單中,選擇New(新增).
2.在New(開新檔案)對話盒中,選擇Project(專案),並點選New file(開新檔案).這會開啟Project Manager(專案管理員).
3.在Project Manager(專案管理員)的All(所有)頁籤中,將Code(程式)展開,選擇Programs(程式碼),然後選擇New(開新檔案).
4.將下列的程式碼複製到程式碼編輯視窗中.
*– returns curdir() and number of JPEG files

DEFINE CLASS showem AS session OLEPUBLIC

Name = "showem"

PROCEDURE justshow
howmany=ADIR(afilArry,"*.jpg")
IF howmany <1
fileNm="no"
ELSE
fileNm=ALLTRIM(STR(howmany))
ENDIF

X = "about " + CURDIR() + " … "
Y = "There are " + fileNm + " JPEG files here."
RETURN x + y
ENDPROC
ENDDEFINE

這個程式定義了一個類別 showem,他有一個方法 justshow
5.關閉編輯視窗,並在Save As(另存新檔)對話盒中,將程式命名為myWServ1,並點選存檔.
6.確定 myServ1 設定為主程式.(如果他被設定為主程式,他將會以粗體呈現).如果沒有,在Project Manager(專案管理員)中,以滑鼠右鍵點選myWServ1並在快捷選單中選擇Set
Main(設為主程式).

 

去編譯這個COM伺服器

1.在Project Manager(專案管理員)中,選擇 Build (建立)
2.選擇 Single-threaded COM Server
3.選擇 Ok, 並接受名稱為 myWServ1
VFP將會編譯這個myWServ1檔案為一個COM伺服器,之後你就可以將這個COM伺服器轉為Web Service.

 

Creating and Publishing a Web Service(建立並發布一個Web Service)

必要地加入一個元件並且編譯COM伺服器,才能將你的COM伺服器轉為Web Service, 當成一個 Web Service發布.譯註6
在你指定完這些設定,VFP會建立必要的XML和SOAP檔案以將你的伺服器轉為一個 Web Service,註冊你的新 Web Service,並發布到你的虛擬目錄中.
去編譯和發佈一個Web Service
1.在你完成前一個步驟,並且編譯好COM伺服器myWServ1.dll,以滑鼠右鍵點選Project Manager(專案管理員),並從快捷選單中選擇Builder.
2.在Wizard Selection(精靈選擇)對話盒中,選擇Web Services Publisher,然後按下 Ok.
3.在VFP Web Services Publisher對話盒中,使用 Ellipsis 按鈕去找到 myWServ1, 然後選擇你想要從伺服器中註冊的類別.在這個你建立的COM伺服器中,myWServ1,你只有一個類別
showem
Note 點選 Advance(進階)按鈕以確定Web Services Publisher對話盒參照到正確的檔案是一個不錯的主意,特別是如果你建立了相似名稱的伺服器或者服務在不同資料夾的時候.如果正確的檔案沒有被顯示在下拉清單中,使用
Ellipsis 按鈕(…)去找到正確的檔案.
IntelliSense scripts 欄位下方顯示了你(和SOAP toolkit)將找到的名稱.在Advance Web Services Publisher對話盒中確認了資訊之後,點選Ok
譯註7.
4.點選Generate(產生)按鈕
在VFP產生Web Service檔案後, Web Services Publishing Results對話盒會出現,顯示包含COM伺服器,.wsdl檔案,ISAPI或ASP
listener和IntelliSense路徑名稱和編輯結果的清單.
到了這裡,你已經建立和發布你的Web Service.任何存取到你早先所建立的這個虛擬目錄,就能使用HTTP去存取你剛剛建立的Web Service.
要使用這個Web Service,你必須撰寫SOAP用戶端,一個listener(傾聽者)和瀏覽器的程式碼並且必須利用好幾個協定的層級和過程.
在VFP裡面,只要藉著在IntelliSense管理者中註冊Web Service就能簡化許多.

 

Registering a Web Service(註冊一個Web Service)

你可以在IntelliSense管理者中註冊Web Services(你所建立的或被其他人建立的).
當你做完,IntelliSense在你存取一個已註冊的Web Service時會提供了支援的程式碼.

去註冊一個Web Service
1.在 Tools(工具)選單,選擇IntelliSense Manager.
2.在IntelliSense Manager的Types頁籤,按下Web Services按鈕以註冊你新的Web Services(你的新類別也將會出現在Types清單中)
現在,當你加入一個強制型別的變數到你的VFP程式碼中時,IntelliSense將會提供你的Web Services如同一個非必要的選擇.
譯註8

 

Using a Web Service(使用一個Web Service)

使用Web Service就跟你想要一個應用程式的任何COM伺服器把功能公開出來給另一個應用程式或程式一樣.
舉例來說,你可以建立一個呼叫範例Web Service, myWServ1,的VFP程式.
在一個VFP程式中,宣告一個強制型別的變數,如同下列的程式碼一樣,藉著從IntelliSense下拉選單中可以參照到你的Web Service, myServ1.
LOCAL x AS myWServ1
VFP IntelliSense使用這個Web Service已註冊的資訊,去完成下列的程式碼:
x = CREATEOBJECT("MSSOAP.SoapClient")
x.MSSoapInit("http://TheVirtualDisk/web services/myWServ1.WSDL", ,
" myWServ1SoapPort")
然後,你可以像以前呼叫COM物件或類別的方法一樣去呼叫,就像下列的程式碼一樣:
? x.justshow()
譯註9
你可以加入相似的程式碼到VFP程式或應用程式中,去存取你自己的或其他Web Services.

 

更多資訊

要取得更多關於Web Services的資訊,請看VFP輔助說明中的 "Web Services Overview".
要取得更多關於COM伺服器的資訊,請看VFP輔助說明中的 "Creating Automation Servers".

Text for description meta tag:VFP使得從COM伺服器建立Web Services變的可能.

KeyWords(關鍵字):VFP Web Services, creating; VFP, creating Web Services;VFP, Web
Services.

 

譯註

譯註1:此句翻譯的不好,本來只有一句,但我切成兩句.
譯註2:此句也翻譯的不好.意思有到了.
譯註3:這邊的步驟,我都照做一次,並將原有的英文W2k上的字眼換成中文w2k上的字眼.
譯註4:因為我的VFP7是英文版的,所以我使用英文的字,不用中文的
譯註5:如果你前面有建立專案的話,就不需要再建立了,直接從步驟三開始吧.
譯註6:這句翻的非常不好,附上原文: To add the components necessary to turn your COM server into
a Web Service, you must compile the COM server as a Web Service.
譯註7:此處務必要自己玩過一遍,盡量多按一按,因為這邊寫的不是很清楚.
譯註8:如果你之前為虛擬目錄取名為 "Web Services" 時,會出現錯誤,因為他不允許名稱中間有空白!!
譯註9:這段程式碼讓我花了一些時間去測試,不過錯誤原因在於我自己在建立並發布Web Services的時候,選擇了以ASP的方式產生,後來改為ISAPI的方式產生就ok了.

本章翻譯自 foxhelp.chm Behavior Changes since the Previous Version.
很多可能翻譯的與原文不同,但是大意是一樣的.
從前一版到現在的行為改變
這個章節描述了這一版和前版VFP行為較為不同的地方,這些改變可能會影響到已經存在的程式碼.
._Screen 和 _VFP 這兩個物件的屬性已經經過調整,使得這兩個物件的屬性比較容易區分._VFP就是協調整個VFP應用程式的視窗(包含選單和狀態列)._Screen就是負責協調目前整個桌面區域(比如使用?指令時,會有輸出結果的視窗)
.為了效率,CreateObject()函數不再為一個動態已被建立的Name屬性的值加入連續號碼.這會應用到在prg檔案中的沒有明確定義Name屬性或基本類別的類別定義.(似乎影響不大)
.因為支援 IntelliSense 和 COM Server 型態(舉例來說 Local cName as string), 利用空白字元隔開的變數宣告(如 local x y z)將不再被允許.宣告變數的時候必須以 , 隔開(如 local x,y,z ).
.Session類別現在在為一個OLEPUBLIC的子類別產生Type Library的時候隱藏了固有的屬性,方法和事件. 另外,當利用session物件使用一個私有的data session時,SET TALK,SET EXCLUSIVE,SET SAFETY預設設定為 off.
.Version函數傳回的格式改變了. Build number現在移到最後面去了.如果你有使用AGETFILEVERSION函數的話,這也可能影響到.
.某些 Home([n]) 傳回的數值被改變了.這些變化只會影響到目前安裝的 Visual Studio. Samples和Graphics資料夾現在移到VFP的根目錄下.
.儲存檔案的新預設位置為了要和Windows 2000 Logo Guide相容的關係,已經被改變了.你可以從選項對話方盒(檔案位置頁籤)查看(或改變)位置. 譯註1.
.選單檔案(MNX)的格式已經被改變,以便能容納新的圖形支援.
.資料庫檔案(DBC)的格式在”DBC事件”啟動的時候將會被改變.
.命令列視窗現在會自動把內容保存起來.內容存放在 _command.prg 中.
.資源檔(如 FOXUSER )現在是開啟為分享模式,所以你可以執行好幾個VFP的個體,且使用同一個資源檔.在前一個版本,你可以在選項對話方盒中去設定.
.VFP執行時期函式庫(舉例,VFP7T.DLL)不在安裝在 Windows\system 目錄下.此外,其他語言的資源檔現在將和英文的產品一同安裝.譯註2.
.當屬性視窗設定為Dockable的時候,將會一直開啟著,即使目前的form/class designer(表單/類別設計)已經關閉.
.舊版FoxBASE+所支援的FOXGRAPH,FOXVIEW,FOXGEN,FOXCODE,CENTRAL和ASSIST已經不再被支援.
.Windows檔案總管在開啟已經的VFP檔案格式的時候,現在會喚起一個新的VFP個體來開啟檔案.此外,程式檔(PRG)和查詢檔(QRY)同時支援”Open”和”Run”選項.程式檔現在的預設動作為”Open”取代了前版本的”Run”.
.Class/Form Designer(類別/表單設計)畫面顯示的格子(如果有設定要顯示格線)現在以實際的像素來顯示,取代前一版本使用Fox2x的設定.譯註3.
.Grid欄位標頭現在允許顯示鍵盤快捷鍵.這僅僅只有顯示而已,所以開發者如果要處理快捷鍵的動作,必須要寫程式來處理.
.#includes 的搜尋路徑已經延展為PRGs(程式檔), SCXs(畫面檔)和VCXs(類別檔).
.使用SET EVENTTRACKING指令產生出來的事件追蹤歷史檔的格式現在包含了一個Timestamp的欄位.
._DBLCLICK系統變數不再為控制項控制incremental搜尋,如listbox. 現在這被一個新的系統變數_INCSEEK來處理.
.一個起始的應用程式(舉例,vfp7strt.app)不再和VFP發布出去.
.ASCAN()函數的 nStartPos 參數如果傳入為0的數值的話,將只產生一個錯誤. 如果傳入一個比陣列個數要多的數值,也將傳回0.
.在前版本,當呼叫Create Table … name LongTable Name 時,我們可以利用 _ 來取代空白.當在Table Designer(表單設計)時將不會發生.在這個版本,這個功能被保留起來了,以與Table Designe的行為相同.
從前版本至今具特色的改變
接下來這些前一版本VFP的特點已經被移除了:
.文法檢查不再包含在此產品中.
.安裝精靈不再包含在此產品中. 一個以Microsoft Installer為基礎的發布工具將被提供. 細節部分請參考 Destributing Applications 這章.
.Graph不再包含,因為他本來是跟著之前的安裝精靈一併發布的.
.執行 ActiveDoc 的選單項目不再被包含在此產品中,但是仍然有效並且可以利用Do來呼叫.
.好幾個MSDN的選單項目已經從輔助說明選單中移除.此產品的線上文件已經改變為一個獨立的輔助說明檔,他和MSDN Library一樣好.此外,”Microsoft on the Web”子選單已經被一個單獨的”Visual FoxPro on the Web”項目所取代.
.Calendar, Outline 和 FoxHWnd ActiveX控制項不再和此產品一起銷售.
.VFP ODBC 驅動程式不再和此產品一起銷售.你仍然可以從VFP網站來取得.但VFP OLEDB Provider是一個存取遠端VFP資料更好的解決方案.
譯註1:可是我並沒有發現有任何改變,我使用的環境是 Windows 2000+VFP7.我想他指的是不是 set default 呢??
譯註2:的確,現在多安裝了VFP7CHT.DLL,VFP7KOR.DLL等這些資源檔.
譯註3:簡單的說,單位已經改變了.

摘要:對於 Internet Transfer Control 元件的一個聯想

內容:

安裝說明
發想
參考

下載本文章的範例程式: ASP端 Client端
(均為自動解壓縮檔)

安裝說明

請將下載下來的 ASPCODE.EXE 解壓縮,放到 WEB Server 的某個資料夾 上, 然後在 IIS 中開啟一個虛擬目錄,對應到此資料夾.

而 INETCTRL.EXE 解壓縮後就放在 client 端執行,只是可能要改一下程式!!你需要在 Query Customer Informat 那個按鈕的click事件中作修正.
請原諒我沒有作詳細的說明,主要是因為程式中已經有說明了.

另外需要注意的是,WEB Server 必須要安裝 ADO 2.5
以上版本,另外要有裝 IE5.0以上版本, client 端的需求也是一樣!!

發想

某天,我在 Microsoft Newsgroup上看到一個Inetctrl 元件的應用範例
以前都沒想到可以用這個 Active X元件
挺有趣的
所以就動手寫了一個小程式,配合 ASP 做了一個有趣的應用
ASP 負責在 WEB Server 上 抓資料,並產生 XML
VFP 程式利用 Inetctrl 元件對 ASP 送指令,並取得 XML, 再轉換為 Recordset
於是就可以用啦!!
但是修改後的資料要怎麼送回去呢??
我在 post 的按鈕裡面已經寫了一部份了
到底在 ASP 程式還要作怎樣的配合才能把資料送回去?!

 

參考

Active Server Pages 3.0 深度探索(國外出版社Wrox,國內則是由碁峰翻譯後發行)

---

® 2001ellery寫的!!引用時,請加註出處!!謝謝~