单个的PRG文件可以直接调用的。
活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
******************************************************************** * 功能:获取编号 * 参数:tcTable [color=#808080]- 表名[/color] * tcField [color=#808080]- 字段名[/color] * 返回:获取编号失败时,返回 [color=#0000FF]NULL;否则,返回新编号[/color] ******************************************************************** LPARAMETERS tcTable,tcField LOCAL nSelect,vNewid nSelect = SELECT() && 保存工作区 vNewid = NULL && 指定编号初值 IF !USED('AutoNumber') && 打开编号表 USE AutoNumber IN 0 ENDIF SELECT AutoNumber && 定位记录 LOCATE FOR ALLT(表) == ALLT(tcTable) AND ALLT(字段) == ALLT(tcField) IF FOUND() AND RLOCK() && 锁定表防止其他用户同时取编号 vNewid = 值 && 取编号值 REPLACE 值 WITH 值 + 1 && 编号累加 1 UNLOCK && 解锁,此时其他用户可以获取编号 IF 类型 = 'C' && 对于字符型编号作进一步处理 vNewid = PADL(vNewid,长度,'0') ENDIF ENDIF SELECT (nSelect) && 恢复工作区 RETURN vNewid && 返回编号值第三步:调用函数获取编号
[此贴子已经被作者于2016-1-13 10:32编辑过]