MasteringVFP/2/6/1

==== Procedure ====
程序,我們可以將常用的指令集合到一起~這樣就不必再剪貼那麼多程式碼了~

例如:
<pre>
use customers
go top
locate for cust_id=="A"
if found()
  && do something
endif
use in customers

use customers
go top
locate for cust_id=="B"
if found()
  && do something
endif
use in customers
</pre>

我們就可以化簡為:
<pre>
do findCustomer with "A"
do findCustomer with "B"

procedure findCustomer
  lparameters lc_id
  use customers
  go top
  locate for cust_id==lc_id
  if found()
    && do something
  endif
  use in customers
endproc
</pre>

這樣不是簡單許多嗎??
一般來說, Procedure 是不會傳回值的,但 VFP 的 Procedure 比較特別,它可以傳回值也可以不傳回值.
[http://www.hg-fix.com/ 数据恢复]
[http://www.hg-fix.com/ 硬盘数据恢复]
[http://www.hg-fix.com/ 磁带数据恢复]
[http://www.hg-fix.com/ raid数据恢复]
[http://www.hg-fix.com/ 磁盘阵列数据恢复]
[http://www.hg-fix.com/diskrecover.htm 数据恢复]
[http://www.hg-fix.com/taperecover.htm 数据恢复]
[http://www.hg-fix.com/raidrecover.htm 数据恢复]
[http://www.hg-fix.com/ 数据修复]
[http://www.hg-fix.com/ 硬盘数据修复]
[http://www.hg-fix.com/ 磁带数据修复]
[http://www.hg-fix.com/ raid数据修复]
[http://www.hg-fix.com/diskrecover.htm 数据修复]
[http://www.hg-fix.com/raidrecover.htm 数据修复]
[http://www.hg-fix.com/taperecover.htm 数据修复]
[http://www.hg-fix.com/ 磁盘阵列数据修复]