单个的PRG文件可以直接调用的。
活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@
1. 将字段类型设置为 Integer(AutoInc)即可，适用于对数据值不敏感仅作为主关键字的字段，属于“一劳永逸”型。
优点：无需人工干预，系统自动递增。
缺点：数据类型只能是Integer（整型）。若启用了数据缓冲，而又放弃数据（通过TableRevert()函数）时，会出现空号
2. 在添加字段前，先统计表中该字段的最大值，再对该值加1作为新编号，属于“现学现用”型
优点：算法简单，可处理数值型和字符型字段
缺点：不适用于多用户环境。多个用户同时操作时，有可能出现重号现象。若用户一定要使用该方法，则可为该字段建立主索引或侯选索引，并在保存记录时捕获错误。还有一个缺点是，当表记录很多时，查找表的最大值会很耗费时间。
注意：统计字段的最大值时，使用 Select MAX(字段) From 表，要比 Calculate MAX(字段)好。因为前者会忽略表的过滤条件（Set Filter To），而后者受过滤条件的影响。
3. 完美型，即能自动编号，又支持数值型和字符型字段，同时，效率还很高。
第一步：建立一个表 AotoNumber 用于保存字段的当前编号
CREATE TABLE AutoNumber (表 c(20),字段 c(20),类型 c(1),长度 i,值 i)
INSERT INTO AutoNumber VALUES ('员工表','编号','C',6,1)
说明：返回数值型编号时，设“类型”为 N；返回字符型编号时，设类型为 C，且左边补零。“长度”字段仅用于字符型编号
第二步：编写一个获取编号的函数 Newid.prg，内容如下：
程序代码：********************************************************************
* 功能：获取编号
* 参数：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 && 返回编号值 第三步：调用函数获取编号cValue = Newid('员工表','编号')
IF ISNULL(cValue)
MESSAGEBOX('获取编号失败',16,'提示')
ELSE
REPLACE 编号 WITH m.cValue IN 员工表
ENDIF
[此贴子已经被作者于2016-1-13 10:32编辑过]
