*!* 驗證 email 信箱格式
lcExpression = "^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"
?RegExp("john@isp.com",lcExpression)
?RegExp("john@.isp.com",lcExpression)

*!* 驗證金額
lcExpression = "^(\$)?(([1-9]\d{0,2}(\,\d{3})*)|([1-9]\d*)|(0))(\.\d{2})?$"
?RegExp("$1,244,311.81",lcExpression) && Match
?RegExp("$1,24,4311.81",lcExpression) && No Match

*!* 驗證電話號碼
lcExpression = "^[2-9]\d{2}-\d{3}-\d{4}$"
?RegExp("507-562-0020",lcExpression) && Match
?RegExp("507-56-0020",lcExpression) && No Match

• A Regular Expressions library for Visual FoxPro
• Reg Exp - Visual FoxPro Wiki
• 一輩子受用的 Regular Expressions -- 兼談另類的電腦學習態度
• Programming with GNU Regex Library
• Jserv's blog: Regex Programming 資源
• Boost.Regex: Perl Regular Expression Syntax

Private Sub SysInfo1_DeviceArrival(ByVal DeviceType As Long, ByVal DeviceID As Long, ByVal DeviceName As String, ByVal DeviceData As Long)
Debug.Print "DeviceArrival"
Debug.Print "devicetype " & DeviceType
Debug.Print "DeviceID " & GetDrive(DeviceType, DeviceID)
Debug.Print "DeviceName " & DeviceName
Debug.Print "DeviceData " & DeviceData
End Sub

Private Function GetDrive(devType As Long, devID As Long) As String
Select Case devType
Case 0 To 1 ' returns null
GetDrive = devID
Exit Function
Case 3 To 4 ' returns null
GetDrive = devID
Exit Function
Case 2 ' logical drive.
' Create an array for the possible drive numbers returned by
' deviceID
Dim drives(25) ' A-Z
Dim dvNum As Long ' Possible bit values.
Dim i As Integer
dvNum = 1
drives(0) = 1
' Populate with bit values.
For i = 1 To 25
dvNum = dvNum * 2
drives(i) = dvNum
Next i
For i = 0 To 25
If drives(i) = devID Then
GetDrive = "Drive: " & Chr(i + 65)
Exit Function
End If
Next I
Case Else ' Other unexpected returns
Debug.Print devType, devID
End Select
End Function

* 主程式
LOCAL lc_sql
LOCAL lo_builder
lo_builder=CREATEOBJECT("csqlbuilder")
lo_builder.ADDCOLUMN("u_id")
lo_builder.ADDCOLUMN("u_name")
lo_builder.setTable("users")
lo_builder.addWhere("", "u_id", "=", "drury")
lo_builder.addOrderby( "u_id" )
lo_builder.addGroupby( "u_id" )
? "====="
? "select sql::"
?? lo_builder.getSelectSQL()
lo_builder.reconf()
lo_builder.addPair("u_id", "ellery")
lo_builder.addPair("u_name", "ellery")
lo_builder.setTable("users")
lo_builder.addWhere("", "u_id", "=", "drury")
? "====="
? "insert sql::" + lo_builder.getInsertSQL()
? "update sql::" + lo_builder.getUpdateSQL()
? "delete sql::" + lo_builder.getDeleteSQL()

*
* Builder pattern 類別實作
* 此類別適用環境: VFP 8.0
* 類別定義開始
*
DEFINE CLASS CSQLBuilder AS CUSTOM
  ADD OBJECT PROTECTED m_pairs AS COLLECTION
  ADD OBJECT PROTECTED m_where AS COLLECTION
  ADD OBJECT PROTECTED m_groupby AS COLLECTION
  ADD OBJECT PROTECTED m_orderby AS COLLECTION
  ADD OBJECT PROTECTED m_keys as collection
  m_table = "" && the table
  m_targettype="" && cursor, table
  m_target="" && name

  * Init
  PROCEDURE INIT
  ENDPROC

  * Destroy
  PROCEDURE DESTROY
  ENDPROC

  * Reconfigure
  PROCEDURE reconf
    * MSDN said: pass -1 will clear all items
    THIS.m_pairs.REMOVE( -1 )
    THIS.m_where.REMOVE( -1 )
    THIS.m_groupby.REMOVE( -1 )
    THIS.m_orderby.REMOVE( -1 )
    THIS.m_table = ""
    THIS.m_targettype=""
    THIS.m_target=""
  ENDPROC

  * addColumns
  PROCEDURE ADDCOLUMN( c_field AS STRING )
    THIS.m_pairs.ADD( .NULL., c_field )
  ENDPROC

  PROCEDURE addWhere( c_logical AS STRING, c_field AS STRING, c_operator AS STRING, o_value AS OBJECT )
    THIS.m_where.ADD( o_value, c_logical + c_field + c_operator )
  ENDPROC

  PROCEDURE addPair( c_field AS STRING, o_value AS OBJECT )
    THIS.m_pairs.ADD( o_value, c_field )
  ENDPROC

  PROCEDURE addGroupby( c_field AS STRING )
    THIS.m_groupby.ADD( .NULL., c_field )
  ENDPROC

  PROCEDURE addOrderby( c_field AS STRING )
    THIS.m_orderby.ADD( .NULL., c_field )
  ENDPROC

  PROCEDURE addKey( c_field as String )
    this.m_keys.add( .null., c_field )
  ENDPROC

  PROCEDURE addJoin
    * todo: this is the most hard part.
  ENDPROC

  PROCEDURE setTable( c_table AS STRING )
    THIS.m_table=c_table
  ENDPROC

  PROCEDURE setTarget( c_type AS STRING, c_target AS STRING )
    THIS.m_targettype=c_type
    THIS.m_target=c_string
  ENDPROC

  PROCEDURE getInsertSQL
    LOCAL i
    LOCAL lc_sql
    LOCAL lc_fields, lc_values, lc_type

    lc_fields=""
    lc_values=""
    lc_sql="insert into " + THIS.m_table + " "
    FOR i=1 TO THIS.m_pairs.COUNT
      lc_fields=lc_fields+THIS.m_pairs.GETKEY(i)
      IF( i+1 <= THIS.m_pairs.COUNT )
        lc_fields=lc_fields+","
      ENDIF
      lc_type=VARTYPE( THIS.m_pairs.ITEM(i) )
      DO CASE
        CASE lc_type="C"
          lc_values=lc_values+ "'" + THIS.m_pairs.ITEM(i)+ "'"
        CASE INLIST( lc_type, "N", "Y" )
          lc_values=lc_values + ALLTRIM( STR(THIS.m_pairs.ITEM(i) ) )
        CASE lc_type="D"
          lc_values=lc_values + "{^" + DTOC( THIS.m_pairs.ITEM(i) ) + "}"
        CASE lc_type="L"
          lc_values=lc_values + IIF( THIS.m_pairs.ITEM(i), ".T.", ".F." )
        CASE lc_type="X"
          lc_values=lc_values + ".null."
      ENDCASE
      IF( i+1 <= THIS.m_pairs.COUNT )
        lc_values=lc_values+","
      ENDIF
    NEXT
    lc_sql=lc_sql + "(" + lc_fields + ") values (" + lc_values + ")"
    RETURN lc_sql
  ENDPROC

  PROTECTED PROCEDURE getWhereSQL
    LOCAL lc_sql

    IF( THIS.m_where.COUNT >=1 )
      lc_sql=" where "
    ELSE
      lc_sql=""
    ENDIF
    FOR i=1 TO THIS.m_where.COUNT
      lc_type=VARTYPE( THIS.m_where.ITEM(i) )
      DO CASE
        CASE lc_type="C"
          lc_value= "'" + THIS.m_where.ITEM(i)+ "'"
        CASE INLIST( lc_type, "N", "Y" )
          lc_value= ALLTRIM( STR(THIS.m_where.ITEM(i) ) )
        CASE lc_type="D"
          lc_value="{" + DTOC( THIS.m_where.ITEM(i) ) + "}"
        CASE lc_type="L"
          lc_value=IIF( THIS.m_where.ITEM(i), ".T.", ".F." )
        CASE lc_type="X"
          lc_value=".null."
      ENDCASE
      lc_sql=lc_sql + THIS.m_where.GETKEY(i) + lc_value
      IF( i+1 <= THIS.m_where.COUNT )
        lc_sql=lc_sql+","
      ENDIF
    NEXT
    RETURN lc_sql
  ENDPROC

  PROCEDURE getOnlyKey( o_collection AS COLLECTION )
    LOCAL i
    LOCAL lc_sql

    lc_sql=""
    FOR i=1 TO o_collection.COUNT
      lc_sql=lc_sql+o_collection.GETKEY(i)
      IF( i+1 <= o_collection.COUNT )
        lc_sql=lc_sql+","
      ENDIF
    NEXT

    RETURN lc_sql
  ENDPROC

  PROCEDURE getOrderBySQL
    LOCAL lc_sql
    lc_sql=THIS.getOnlyKey( THIS.m_orderby )
    IF( EMPTY(lc_sql) )
      RETURN lc_sql
    ELSE
      RETURN " order by " + lc_sql
    ENDIF
  ENDPROC

  PROCEDURE getGroupbySQL
    LOCAL lc_sql
    lc_sql=THIS.getOnlyKey( THIS.m_groupby )
    IF( EMPTY(lc_sql) )
      RETURN lc_sql
    ELSE
      RETURN " group by " + lc_sql
    ENDIF
  ENDPROC

  PROCEDURE getSelectSQL
    LOCAL i
    LOCAL lc_sql, lc_where, lc_orderby, lc_groupby

    lc_sql="select "
    FOR i=1 TO THIS.m_pairs.COUNT
      lc_sql=lc_sql+THIS.m_pairs.GETKEY(i)
      IF( i+1 <= THIS.m_pairs.COUNT )
        lc_sql=lc_sql+","
      ENDIF
    NEXT
    lc_sql=lc_sql + " from " + THIS.m_table

    lc_where=THIS.getWhereSQL()
    lc_sql=lc_sql + lc_where

    lc_orderby=THIS.getOrderBySQL()
    lc_sql=lc_sql+lc_orderby

    lc_groupby=THIS.getGroupbySQL()
    lc_sql=lc_sql+lc_groupby

    RETURN lc_sql
  ENDPROC

  PROCEDURE getDeleteSQL
    LOCAL lc_sql
    LOCAL i
    LOCAL lc_value, lc_type, lc_where

    lc_sql="delete from " + THIS.m_table

    lc_where=THIS.getWhereSQL()
    lc_sql=lc_sql+lc_where

    RETURN lc_sql
  ENDPROC

  PROCEDURE getUpdateSQL
    LOCAL i
    LOCAL lc_sql
    LOCAL lc_fields, lc_values, lc_type, lc_where

    lc_fields=""
    lc_values=""
    lc_sql="update " + THIS.m_table + " set "
    FOR i=1 TO THIS.m_pairs.COUNT
      lc_sql=lc_sql+THIS.m_pairs.GETKEY(i)+"="
      lc_type=VARTYPE( THIS.m_pairs.ITEM(i) )
      DO CASE
        CASE lc_type="C"
          lc_sql=lc_sql + "'" + THIS.m_pairs.ITEM(i) + "'"
        CASE INLIST( lc_type, "N", "Y" )
          lc_sql=lc_sql + ALLTRIM( STR(THIS.m_pairs.ITEM(i) ) )
        CASE lc_type="D"
          lc_sql=lc_sql + "{^" + DTOC( THIS.m_pairs.ITEM(i) ) + "}"
        CASE lc_type="L"
          lc_values=lc_sql + IIF( THIS.m_pairs.ITEM(i), ".T.", ".F." )
        CASE lc_type="X"
          lc_values=lc_sql + ".null."
      ENDCASE
      IF( i+1 <= THIS.m_pairs.COUNT )
        lc_sql=lc_sql+","
      ENDIF
    NEXT

    * handle where clause.
    lc_where=THIS.getWhereSQL()
    lc_sql=lc_sql+lc_where

    RETURN lc_sql
  ENDPROC

  PROCEDURE getKeyFieldList()
    LOCAL i
    LOCAL lc_fields
    IF( THIS.m_keys.COUNT >=1 )
      lc_fields=""
    ELSE
      RETURN ""
    ENDIF
    FOR i=1 TO THIS.m_keys.COUNT
      lc_fields=lc_fields+this.m_keys.getKey(i)
      IF( i+1 <= THIS.m_keys.COUNT )
        lc_fields=lc_fields+","
      ENDIF
    NEXT
    RETURN lc_fields
  ENDPROC

  PROCEDURE getTable()
    RETURN THIS.m_table
  ENDPROC

  PROCEDURE getUpdatableFieldList()
    LOCAL i, lc_fields
    lc_fields=""
    FOR i=1 TO THIS.m_pairs.COUNT
      lc_fields=lc_fields+THIS.m_pairs.GETKEY(i)
      IF( i+1 <= THIS.m_pairs.COUNT )
        lc_fields=lc_fields+","
      ENDIF
    NEXT
    RETURN lc_fields
  ENDPROC

  PROCEDURE getUpdateNameList()
    LOCAL i, lc_fields
    lc_fields=""
    FOR i=1 TO THIS.m_pairs.COUNT
      lc_fields=lc_fields+THIS.m_pairs.GETKEY(i)+" "
      lc_fields=lc_fields+this.m_table+"."+this.m_pairs.getkey(i)
      IF( i+1 <= THIS.m_pairs.COUNT )
        lc_fields=lc_fields+","
      ENDIF
    NEXT
    RETURN lc_fields
  ENDPROC
ENDDEFINE
* 類別定義結束

DEFINE CLASS MyCalculator AS session OLEPUBLIC

Name = "MyCalculator"

PROCEDURE doAdd

                Parameters A , B

        Return A+B

ENDPROC

ENDDEFINE

obj=createobject(“MyWebService.MyCalculator”)

? obj.doAdd(100,100)

1. WSDL 產出的位置。


2. SOAP Listener型態。


3. IntelliSense的Script名稱。


4. 告訴VFP7在Project Build之後，是否自動產出相關的 Web Service 檔案。


5. 產出的WSDL檔案是否要以UTF-16 Unicode作為預設編碼。
   
   
   
   
   

x = CREATEOBJECT("MSSOAP.SoapClient")

x.MSSoapInit("http://ellery/webservices/MyCalculator.WSDL", , "MyCalculatorSoapPort")



=messagebox( str( x.doAdd( 100,100 ) ) )

…略…

  <message name='MyCalculator.doAdd'>

  </message>

  <message name='MyCalculator.doAddResponse'>

    <part name='Result' type='xsd:anyType'/>

  </message>

…略…

…略…

  <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>

…略…

PROCEDURE doAdd(A as Integer, B as Integer)

LOCAL obj

obj = CREATEOBJECT("MSSOAP.SoapClient")

obj.MSSoapInit("http://www.xmethods.net/sd/2001/TemperatureService.wsdl")

thisform.text2.value=obj.getTemp(thisform.text1.value)

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

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)

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

內容:

建置測試環境
測試
FetchAsNeeded??

點選這裡來下載本文章的範例程式

1.請先利用 sql server enterprise manager去建立一個 database,叫做demo
然後利用 Query Analyzer 執行以下的sql script
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]
GO

ALTER TABLE [dbo].[demo] WITH NOCHECK ADD
CONSTRAINT [PK_demo] PRIMARY KEY NONCLUSTERED
(
[cus_no]
) ON [PRIMARY]
GO


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() ,這會把所有資料 dl 下來!!

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

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了.

內容:

安裝說明
發想
參考

下載本文章的範例程式: 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寫的!!引用時,請加註出處!!謝謝~

*使用SPT更新表格的範例 

*作者:Arsen(Ellery)

*環境:在ODBC設定中,我設了fpm這個別名,路徑設到目錄下的foreign.dbc



Local ln_handle 



*先連接

ln_handle=sqlconnect("fpm") 



*執行查詢 

=sqlexec(ln_handle,"select emp_no,name from basic","_basic") 



*設定相關屬性:這幾個屬性必須設定,在MSDN上有詳細說明(記得多看MSDN) 

=cursorsetprop("tables","basic") &&設定欲更新的資料表格 

=cursorsetprop("sendupdates",.t.,"_basic") &&確定要進行更新 

=cursorsetprop("keyfieldlist","emp_no","_basic") &&要依據何鍵值來進行更新 =cursorsetprop("updatablefieldlist","emp_no,name","_basic") &&哪些欄位要更新 



*以下這行,比較複雜一點,空格前寫的是上一行的欄名,後面寫的是資料表格的欄名(要用alias.field這樣) =cursorsetprop("updatenamelist","emp_no basic.emp_no,name basic.name","_basic") 



Replace Next 1 alltrim(name) with alltrim(name)+"Test"



use 



*釋放連接 

=sqldisconnect(ln_handle) 

?sqldisconnect(0)

?sqlconnect("testdbc")

_sqlsele="sele * from mydbf" 

=sqlexec(1,_sqlsele ,"myview") 

?cursorsetprop("buffering",5) 

REPLACE NAME WITH "TEST"



=cursorsetprop("tables","mydbf","myview") 

=cursorsetprop("keyfieldlist","id","MYVIEW") 

=cursorsetprop("updatablefieldlist","name","MYVIEW") 

=cursorsetprop("sendupdates",.t.,"MYVIEW") 

*=cursorsetprop("updatenamelist","ID MYDBF.ID,name MYDBF.name")&&這一行指令,有興趣的人可以比較 

=cursorsetprop("updatenamelist","ID MYDBF.ID,name MYDBF.name") &&註解前和註解後有何差別



IF NOT TABLEUPDATE(.T.,.T.,"MYVIEW") 

=AERRO(MYERROR) 

CLEAR 

?MYERROR(1) 

?MESSAGE() 

ENDIF 

AA=sqlconnect("testdbc") 

IF AA>0 

=SQLSETPROP(AA,"ASYNCHRONOUS",.F.) 

=SQLSETPROP(AA,"BATCHMODE",.T.) 

=SQLEXEC(AA,"sele * from mydbf","myview") 

M.SQLDESC="UPDATE ...." &&請參考 SQL INSERT,UPDATE 語法" 

=SQLEXEC(AA,M.SQLDESC) &&把指令送到後端讓Server去執行

ENDIF 

• 將資料分組為實體，並且為它們正規化。


• 在實體之間指定關聯。


• 選擇能在實體間進行關聯並且擔保指示一致性(Referential Integrity)的外來鍵(Foreign key)。


• 辨識出關聯到資料一致性(Data Integrity)的商業規則(Business rules)。


• 將商業規則和限制(Constraint)混合到資料模型中。


• 給予狀況以決定非正規化是否恰當。

• 發展VFP元件從資料庫中存取資料。


• 規劃元件的屬性(Properite)和方法(Method)。


• 規劃類別庫。考慮的部分包含繼承、封裝、容器(containership)、委任(delegation)和多形。

• 完成原始程式碼版本控制的環境。


• 為發展分散式應用程式安裝並設定VFP。


• 完成發展環境以執行MTS(Microsoft Transaction Server)、IIS(Inter Information Server)和MSMQ(Microsoft Message Queue Server)。

• 實作方向(navigational)規劃

• 建立選單。


• 增加一個快捷選單(shortcut menu)到應用程式中。


• 增加控制項(controls)到表單(forms)中。


• 為控制項設定屬性。


• 為控制項指定程式碼以回應一個事件。


• 建立一個工具列。

• 運用控制項顯示、操作和連結資料。


• 在執行時期(runtime)新增、刪除和操作控制項。


• 使用表單集合( Forms collection)以在執行時期操作表單。


• 給予一個狀況，增加程式碼到適當的表單事件中。這些事件包含Init、Destroy、Load、Unload、QueryUnload、Activate、Deactivate。

• 設定恰當的屬性以讓使用者容易瞭解該屬性的用處。求助內容包括求助檔、HelpContextID(求助檔中作為指定訊息或文章的編號)和WhatsThisHelp。


• 為一個應用程式建立HTML Help。

• 辨識並捕捉執行時期錯誤。


• 處理行間錯誤(inline errors)。


• 提示使用者錯誤訊息。

• 建立一個實作了商業規則或邏輯的COM元件。


• 建立一個和其他COM元件溝通的COM元件。


• 為一個COM元件增加錯誤處理。


• 為了要錯誤處理和除錯，將錯誤記錄下來到一個錯誤檔中。


• 規劃並建立給MTS使用的元件。




• 讓一個COM元件支援交易處理。




• 為一個COM元件建立適合的伺服器類型(Server type)。類型有in-process、out-of-process和multithreaded。


• 使用MTS Explorer來建立和管理套件。
  
  
  
  • 將原件增加到一個MTS套件中。
  
  
  
  
• 利用使用者權限指定使用者只能限制使用某個MTS套件。


• 使用元件陳列庫去管理元件。


• 註冊和解除註冊一個COM元件。

• 使用ADO和RDS存取和操作資料。


• 使用VFP的原生資料處理和查詢能力(Query capabilities)(包含Local View)來存取和操作資料。


• 使用SQL pass-through存取和操作資料。


• 使用遠端資料集(Remote views)和本地資料集(Local views)來存取和操作資料。


• 管理資料庫交易以確保資料一致性和可復原性。


• 撰寫能取得和變更資料的SQL敘述。


• 撰寫使用連結(join)來從多個資料表格連結資料的SQL敘述。


• 撰寫能建立資料集(views)的SQL敘述。


• 使用適合的鎖定和緩衝策略。策略包括悲觀(pessimistic)、樂觀(optimistic)、列和表格。


• 建立和操作一個VFP stored procedure。


• 建立並實作VFP trigger。


• 從其他外在的資料來源匯入資料。


• 撰寫能更新及變更資料的SQL敘述。

• 以程式來建立和維護VFP的資料庫。


• 規劃、建立和實作資料庫和資料表格。包含了資料一致性(Data Integrity)、參考完整性(Referential Integrity)和正規化(Normalization)。


• 選擇並規劃一個索引策略。考慮最佳化(經由Rushmore)和索引維護。


• 建立並維護索引。考慮最佳化(經由Rushmore)、程式化的操作、視覺化的操作和索引維護。

• 決定適合的除錯技巧。


• 辨識和描述測試計劃的要素。要素包括beta的測試、回歸測試(Regression testing)、單元測試(unit testing)、整合測試(integration testing)和重點測試(stress testing)。


• 給予一個狀況，選擇適當的建立選項。(此處應是指在專案管理員裡按下建立後的一些選項)


• 在應用程式中使用條件編譯。(此處應是指#ifdef、#ifndef…等指令的應用)


• 使用除錯視窗(Debug Window)監控運算式和變數的值。
  
  
  
  • 使用即時運算視窗(Immediate window)來檢查或變更值。
  
  
  • 使用監看視窗(Watch window)來檢查或變更值。
  
  
  • 使用呼叫堆疊視窗(Call stack Window)來尋找錯誤。
  
  
  
  
• 在應用程式中使用 Asserts。


• 使用涵蓋分析工具應用程式來辨識效率瓶頸(Performance bottlenecks)和程式碼涵蓋範圍(Code coverage)。


• 使用事件追蹤來確定事件發生的順序。


• 設定中斷點以除錯應用程式。

• 使用安裝程式精靈去建立一個能安裝分散式應用程式、註冊COM元件並容許反安裝的安裝程式。


• 註冊一個實作DCOM的元件。


• 為客戶端電腦(Client computer)和伺服器端電腦(Server computer)設定DCOM。


• 為客戶端電腦設定以使用一個MTS元件，並且為客戶端電腦及伺服器端電腦設定遠端自動化(Remote automation)。


• 為一個分散式應用程式計劃並實作以軟式磁碟機或CD為基礎的散發程式。


• 為一個分散式應用程式計劃並實作以Web為基礎的散發程式。


• 為一個分散式應用程式計劃並實作以網路(Network)為基礎的散發程式。

• 為災難復原程序提出計劃並實作之。


• 修正錯誤並提早評估以預防未來的錯誤。


• 維護異常的報告。


• 為分散式應用程式散發應用程式更新。