OpenEdge动态时间表

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并将其更改的记录保存回数据库变得更容易。

要创建一个类似于db表的动态TT（在高级），请获取表的缓冲区句柄，然后使用b-handle:buffer-field（字段号）:name遍历它以获取字段列表，然后使用add fields from在TT中基于db表创建字段。

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

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

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

这个知识库还将为您提供一些关于如何构建类似数据库表的动态TT的想法。http://knowledgebase.progress.com/articles/Article/000045189?q=how+to+create+dynamic+temp table&l＝en_US&c=产品组%3OpenEdge&type=文章__kav&fs=搜索&pn=1

Answer 2

我为动态临时表使用了两个不同的参数，一个用于输入，另一个用于输出。剩下的我自己想明白了。谢谢你们的帮助！