Question

我正在创建一个访问具有许多表的数据库的应用程序。为了使编码更容易和更短，我打算制作一个程序来动态获取/设置数据或执行特定数据操作的过程。

到目前为止，我已经有了一些东西，但我现在已经陷入困境了。

到目前为止我所做的是确保我可以动态构建一个临时表，其模式与我想从中检索数据的数据库表相同。然后我查询记录并将其添加到动态临时表中。然后将此临时表作为输出参数传递。

我现在要做的是，当用户更改记录时，动态保存该记录。因此，我必须动态查询表并找到用户想要更改的记录。实际上与检索记录相同。但保存所做的更改需要我通过输入动态临时表。这是怎么做到的？

正常的行动方式是这样的： - 通过传递表名和密钥获取记录。然后将记录输出到输出参数。 - 通过将动态临时表作为输入参数，然后将更改从正确的记录保存到正确的记录来更新记录。第二部分是我失败的地方。

此处提供的代码仅执行第一部分，但第二部分应包含在此代码中。

代码：

DEF VAR G-TableBuf              AS HANDLE NO-UNDO.
DEF VAR G-TableBuf-Handle       AS HANDLE NO-UNDO.
DEF VAR G-Query                 AS HANDLE NO-UNDO.
DEF VAR G-Table-FirNr           AS INT    NO-UNDO.
DEF VAR G-Qstring               AS CHAR   NO-UNDO.
DEF VAR G-Heeft-FirNr           AS LOG    NO-UNDO.
DEF VAR G-TempTable             AS HANDLE NO-UNDO.
DEF VAR G-tt-Buffer             AS HANDLE NO-UNDO.
DEF VAR G-MatchZone             AS CHAR   NO-UNDO.
DEF VAR G-prime-field           AS CHAR   NO-UNDO.
DEF VAR G-Zones-Buffer          AS HANDLE NO-UNDO.

{lib/def_tt_ds_Errors.i}

DEF INPUT PARAMETER p_iFirnr    AS INT  NO-UNDO.
DEF INPUT PARAMETER p_iApplNr   AS INT  NO-UNDO.
DEF INPUT PARAMETER p_cUsrCd    AS CHAR NO-UNDO.
DEF INPUT PARAMETER p_cAction   AS CHAR NO-UNDO.
DEF INPUT PARAMETER p_cKeyCd    AS CHAR NO-UNDO. /* Record key */
DEF INPUT PARAMETER p_cTable    AS CHAR NO-UNDO. /* Table name */

DEF INPUT-OUTPUT PARAMETER TABLE-HANDLE hTT. /* INPUT-OUTPUT dynamic temp-table */
DEF OUTPUT PARAMETER DATASET            FOR dsErrors.

    RUN FindRecord.

    RETURN.        

PROCEDURE FindRecord :
/*------------------------------------------------------------------------------------------------*/
/*------------------------------------------------------------------------------------------------*/
DEF VAR i AS INT NO-UNDO.

    CREATE TEMP-TABLE G-TempTable.
    CREATE BUFFER     G-TableBuf FOR TABLE p_cTable.
    CREATE QUERY      G-Query.

    ASSIGN G-Table-FirNr  = Get-Fir (p_cTable)
           G-MatchZone    = "kolom,Waarde"
           G-heeft-firnr  = FALSE
           G-Zones-Buffer = BUFFER zones:HANDLE
           G-TableBuf-Handle = G-TableBuf:HANDLE.

    /* SCHEMA BUILDING CODE GOES HERE */

    G-TempTable:TEMP-TABLE-PREPARE("tt" + p_cTable).

    G-tt-Buffer = G-TempTable:DEFAULT-BUFFER-HANDLE.
    G-tt-Buffer:EMPTY-TEMP-TABLE().

    hTT = G-TempTable.

    G-Qstring = "FOR EACH " + p_cTable.

    G-Query:SET-BUFFERS(G-TableBuf).
    G-Query:QUERY-PREPARE(G-Qstring).
    G-Query:QUERY-OPEN().
    G-Query:GET-NEXT().   

    REPEAT:
        IF G-query:QUERY-OFF-END THEN
            LEAVE.

        G-tt-Buffer:BUFFER-CREATE.
        G-tt-Buffer:BUFFER-COPY (G-TableBuf-Handle). 

        G-Query:GET-NEXT(). 
    END.

END PROCEDURE.

提前致谢！

Answer 1

您需要研究ProDataset功能，它将加载TT并将更改后的记录更容易地保存回数据库 lot 。

要像db表一样创建动态TT（在高级别），获取表的缓冲区句柄，然后使用b-handle：buffer-field（field-number）：name来获取字段列表，然后使用add-fields-from基于db表在TT中创建字段。

完成后，使用Prodataset“FILL”功能将数据加载到其中，然后将PDS传递回调用程序以供其使用。

当您准备好保存数据时，使用PDS功能（保存行更改）将更改的记录保存回数据库。

加载和保存TT记录的过程主要记录在Prodatset文档集中。我强烈推荐11.3文档，因为它们比以前版本的PDS文档有了很大的改进。

此KB还将为您提供有关如何构建动态TT（如db表）的一些想法。 http://knowledgebase.progress.com/articles/Article/000045189?q=how+to+create+dynamic+temp-table&l=en_US&c=Product_Group%3AOpenEdge&type=Article__kav&fs=Search&pn=1

Answer 2

我为动态临时表使用了2个不同的参数，一个用于输入，一个用于输出。其余的我弄清楚了自己。谢谢你的帮助！

OpenEdge Dynamic TempTable

2 个答案: