如何使数据库访问快速进展 4gl

Question

我必须快速访问包含唯一索引 mstr_nbr 的大量数据的数据库，如何才能快速访问。 其中第一个 mstr 占用 0ms 并获取下一个 mstr 大部分时间需要 0 毫秒，但有时需要 1 毫秒 意味着每个 mstr 运行 180000 次运行 12000 次运行需要 1 毫秒，这会增加时间，如果串行循环每次增加 12000 毫秒秒也不会增加，这是一个 webspeed 生成的网页，我怎样才能让它快速......任何人都可以帮助

            DEFINE QUERY Mstr FOR mstr scrolling.
            OPEN QUERY Mstr FOR EACH mstr no-lock 
                        where (Mstr_status = "close" or Mstr_status = "closed").
            FOR EACH serial
                WHERE (serial_pallet = f_pallet AND serial_f_chr11 <> "BOX") 
                       or (serial_key begins f_pallet)
                    NO-LOCK    BREAK BY serial_pallet by serial_parent by serial__chr11 QUERY-TUNING(LOOKAHEAD CACHE-SIZE 32768 DEBUG EXTENDED):
                GET FIRST Mstr.
                define variable roID as rowid no-undo.
                roID = rowid(mstr).
                DO WHILE NOT QUERY-OFF-END('Mstr'):
                    for each det fields(detnbr detmodel detlot detqty) no-lock
                    where (detnbr = mstr_nbr) and (detmodel = serial_parent and detlot = serial__chr11):
                        tinspected = tinspected + detqty.
                    end. /* for each */
                    GET NEXT Mstr.
                END.
                reposition mstr to rowid roID.
            end.

mstr 表的索引

index-name     field-name

badgenew       1 badgenew      Active    
datenew        1 datenew       Active    
nbridx         1 nbr           Unique Primary Active                   
pallet         1 pallet        Active    
proddesc       1 proddesc      Active    
prodline       1 prodline      Active    
status         1 status        Active    
type           1 type          Active

表序列的索引：

 actual_prod_day    1 dte04         2 serial_chr01 Active
 actual_prod_line   1 serial_pallet 2 serial_dte04 3 serial_chr01 4 serial_line Active
 pallet_prod        1 serial_pallet 2 serial_dte04 Active
 pallet_prod_line   1 serial_pallet 2 serial_dte04 3 serial_line Active
 
 serial_chr01       1 serial_chr01 Active
 serial_chr05       1 serial_chr05 Active
 serial_chr06       1 serial_chr06 Active
 serial_chr11       1 serial_chr11 Active
 serial_chr14       1 serial_chr14 Active
 serial_dte04       1 serial_dte04 Active
 serial_int01       1 serial_int01 Active
 
 serial_line        1 serial_line Active
 
 serial_pallet      1 serial_pallet Active
 
 serial_parent      1 serial_parent Active
 
 serial_serial__key 1 serial_serial__key 2 serial_parent Unique Primary Active

serial_pallet serial_key和serial_c11都是字符数据类型

表 det 的索引：

detidx      1   detnbr 2    detpallet 3 detprodline 4   detbox 5    detlot 6 detshift Unique Primary Active  
detlot      1   detlot Active    
detmodel    1   detmodel Active  
detnbr      1   detnbr Active    
detpallet   1   detpallet Active     
detprodline 1   detprodline Active

Answer 1

鉴于我们所知道的，这就是我的编码方式：

define temp-table tt_mstr
  field mstr_nbr as integer                /* or whatever the proper data type is */
  index mstr_nbr-idx is primary unique     /* I am assuming mstr_nbr is unique    */
.

for each mstr no-lock
   where mstr.mstr_status = "close"
      or mstr.mstr_status = "closed":

  create tt_mstr.
  tt_mstr.mstr_nbr = mstr.mstr_nbr.  
      
end.

for each serial no-lock
   where ( serial_pallet = f_pallet and serial_f_chr11 <> "box" )       /* <> "box" is going to perform poorly, there may be better ways to do this     */
      or ( serial_key begins f_pallet ):

         /* break by serial_pallet by serial_parent by serial__chr11: ** this sort of pointless, you're just adding up "tinspected", the order and the break groups have no impact */  
  
  for each det fields( detnbr detmodel detlot detqty ) no-lock
     where detmodel = serial_parent and detlot = serial__chr11:

    find tt_mstr where tt_mstr.mstr_nbr = detnbr no-error.       
      if available tt_mstr then
        tinspected = tinspected + detqty.               
    
  end.
  
end.

使用临时表可避免在每次迭代“串行”表时重新获取所有“关闭”和“关闭”记录。

也许缺少一些上下文，但滚动查询和重新定位行似乎毫无意义。

“串行”记录的选择看起来效率不高，但我需要知道哪些索引可用以及 serial_pallet serial_key 和 serial_c11 中的数据是什么样的。如果只有几个离散值，可能会有更好的写法。

您在每个字段 serial_pallet、serial_f_chr11 和 serial_key 上都有单个组件索引。所以那里没有太多帮助。

这是推测，但如果serial_f_chr11 中离散值的数量很小，您可能最好使用一系列相等匹配和OR。假设有效值为 BOX、JAR、BAG 和 LOOSE。在这种情况下，而不是：

where ( serial_pallet = f_pallet and serial_f_chr11 <> "box" )
   or ( serial_key begins f_pallet )

你可以写：

where ( serial_pallet = f_pallet and serial_f_chr11 = "jar" )
   or ( serial_pallet = f_pallet and serial_f_chr11 = "bag" )
   or ( serial_pallet = f_pallet and serial_f_chr11 = "loose" )
   or ( serial_key begins f_pallet )

如果您在 serial_pallet + serial_f_chr11 上有一个复合索引，那就更好了。

如果离散的有效 serial_f_chr11 值的数量较大，或者可能会添加新值，那么最好将它们添加到临时表并加入其中。

另一个选项是，与其遍历所有主记录以查找匹配的详细信息，不如先选择与连续出版物匹配的详细信息。然后找到适当的主记录。这消除了整个循环层。但这取决于“det”表中的正确索引。您必须有一个以 serial_parent 和 detlot 作为前导组件的索引。

如果 mstr_nbr 与“nbr”不是同一个字段（如您的索引列表中所示），那么您需要构建 TT 并在 mstr_nbr 上添加一个索引。但是，如果 nbr 实际上与 mstr_nbr 相同，则可以跳过 TT，直接查询数据库表，效率很高。