tycx.prg

包括了6个VFP程序设计实例

***************************************************
* 程序名: TYCX.PRG
* 功  能: 通用万能查询UDF
* 格  式: DO TYCX WITH "库名","工作区号或别名",.F.(或.T.,.F.:表示不修改查询字段;T:表示修改查询字段)
*         =TYCX("库名","工作区号或别名",.F.(或.T.,.F.:表示不修改查询字段;T:表示修改查询字段))
* 返  回: CXTJ   UDF函数生成的查询表达式
* 作  者: 梁秀林    2000年元月22日
***************************************************
para TYCXK,KBM,OK
public TJ_FIELD,TJ_BJH,TJ_Z,CXTJ,TJ_LJH,TJ_ZD,TJ_Z1,INDEXFIELD
STORE "" TO TJ_FIELD,TJ_BJH,TJ_Z,CXTJ,TJ_ZD,TJ_Z1
STORE 4 TO TJ_LJH
IF NOT USED("CXSTRU")
   SELE 0
   USE CXSTRU.SYS ALIAS CXSTRU EXCL
ENDIF
IF USED(KBM)
   SELE (KBM)
   ELSE
     SELE 0
     USE &TYCXK ALIAS &KBM
ENDIF
IF OK
   COPY TO CXK STRU EXTE
   SELE CXSTRU
   ZAP
   APPE FROM CXK
   REPL TABLE_NAME WITH FIELD_NAME ALL
   ERASE CXK.DBF
   DO FORM CXXG
ENDIF
SELE CXSTRU
PACK
USE
DO FORM TYCX
SELE (KBM)
*SET ORDER TO 排序号
*SET FILTER TO &CXTJ
*BROW
*CLOSE INDEXES
*IF FILE("TYCX.CDX")
*   ERASE TYCX.CDX
*ENDIF
*CLOSE DATA
RETURN