sql - 如何在 Microsoft Visual FoxPro 9 中执行自定义函数？

Question

使用 Microsoft Visual FoxPro 9，我在 Main 的存储过程内有一个自定义函数“newid()”:

function newId
parameter thisdbf
regional keynm, newkey, cOldSelect, lDone
keynm=padr(upper(thisdbf),50)
cOldSelect=alias()
lDone=.f.
do while not lDone
    select keyvalue from main!idkeys where keyname=keynm into array akey
    if _tally=0
        insert into main!idkeys (keyname) value (keynm)
        loop
    endif
    newkey=akey+1
    update main!idkeys set keyvalue=newkey where keyname=keynm and keyvalue=akey
    if _tally=1
        lDone=.t.
    endif
enddo
if not empty(cOldSelect)
    select &cOldSelect
else
    select 0
endif
return newkey

此函数用于为添加到数据库的记录生成新的 ID。

它被称为默认值:

我想调用这个 newid() 函数并检索它的返回值。执行SELECT newid("TABLENAME")时，抛出错误:

Invalid subscript reference

如何在 Visual FoxPro 9 中调用 newid() 函数并返回 newkey？

Answer 1

作为 Stefan Wuebbe said 的补充,

您实际上在 previous question here 中找到了答案您忘记更新了。

从您之前的问题来看，据我所知，您有 T-SQL 背景。而在 T-SQL(以及一般的 SQL)中，有:

Select < anyVariableOrFunction >

返回单列、单行结果，在 VFP 'select' 中，这样有另一个含义:

Select < aliasName >

aliasName 是工作区的别名(或者可以是工作区的编号)，用于更改“当前工作区”。当它用在像 FoxPro(和 dBase)这样的 xBase 语言中时，如果我没记错的话，这些语言还没有满足 ANSI-SQL 的要求。无论如何，VFP 中有两个 Select，这个和 SELECT——SQL 肯定需要 FROM 子句。

不过，VFP 可以通过使用 = 运算符直接访问变量和函数调用。

SELECT newid("TABLENAME")

在 T-SQL 中，将是(您只是显示结果):

? newid("TABLENAME")

要将其存储在变量中，您可以执行以下操作:

local lnId
lnId = newid("TABLENAME")
* do something with m.lnId
* Note the m. prefix, it is a built-in alias for memory variables

说了所有这些之后，按照您的代码。

看起来它是由一位非常老的 FoxPro 程序员编写的，我必须承认这是我一生中第一次看到有人在 VFP 中使用“REGIONAL”关键字。我知道它是从 FoxPro 2.x 开始的，但直到现在我还没有看到有人使用它:)无论如何，该代码在多用户环境中似乎不够健壮，您可能想要更改它。 VFP 附带了一个 NewId 示例代码，下面是我在许多地方使用过的稍加修改的版本，并被证明是可靠的:

Function NewID
    Lparameters tcAlias,tnCount
    Local lcAlias, lnOldArea, lcOldReprocess, lcTable, lnTagNo, lnNewValue, lnLastValue, lcOldSetDeleted
    lnOldArea = Select()
    lnOldReprocess = Set('REPROCESS')
    * Uppercase Alias name
    lcAlias = Upper(Iif(Parameters() = 0, Alias(), tcAlias))
    * Lock reprocess - try once
    Set Reprocess To 1
    If !Used("IDS")
        Use ids In 0
    Endif
    * If no entry yet create
    If !Seek(lcAlias, "Ids", "tablename")
        Insert Into ids (tablename, NextID) Values (lcAlias,0)
    Endif
    * Lock, increment id, unlock, return nextid value
    Do While !Rlock('ids')
        * Delay before next lock trial
        lnStart = Seconds()
        Do While Seconds()-lnStart < 0.01
        Enddo
    Enddo

    lnLastValue = ids.NextID
    lnNewValue  = m.lnLastValue + Evl(m.tnCount,1)

    *Try to query primary key tag for lcAlias
    lcTable = Iif( Used(lcAlias),Dbf(lcAlias), Iif(File(lcAlias+'.dbf'),lcAlias,''))
    lcTable = Evl(m.lcTable,m.lcAlias)
    If !Empty(lcTable)
        Use (lcTable) In 0 Again Alias '_GetPKKey_'
        For m.lnTagNo=1 To Tagcount('','_GetPKKey_')
            If Primary(m.lnTagNo,'_GetPKKey_')
                m.lcOldSetDeleted = Set("Deleted")
                Set Deleted Off

                Select '_GetPKKey_'
                Set Order To Tag (Tag(m.lnTagNo,'_GetPKKey_')) ;
                    In '_GetPKKey_' Descending
                Locate
                lnLastValue = Max(m.lnLastValue, Evaluate(Key(m.lnTagNo,'_GetPKKey_')))
                lnNewValue = m.lnLastValue + Evl(m.tnCount,1)

                If Upper(m.lcOldSetDeleted) == 'ON'
                    Set Deleted On
                Endif
                Exit
            Endif

        Endfor
        Use In '_GetPKKey_'
        Select ids
    Endif

    * Increment
    Replace ids.NextID With m.lnNewValue In 'ids'
    Unlock In 'ids'
    Select (lnOldArea)
    Set Reprocess To lnOldReprocess
    Return ids.NextID
Endfunc

注意:如果您使用此功能，正如我从代码中看到的那样，您需要将“id table”名称更改为 idkeys，将字段名称更改为 keyname、keyvalue:

ids => idKeys
tablename => keyName
nextId => keyValue

或者在您的数据库中使用以下代码创建一个新表:

CREATE TABLE ids (TableName c(50), NextId i)
INDEX on TableName TAG TableName