關鍵字是由用戶輸入的,即任意數量的關鍵字,它可以是一個或多個關鍵字。我把一個填充字段作爲輸入並搜索所有的關鍵字匹配數據庫記錄的手段,我將顯示在瀏覽...但該記錄必須滿足用戶輸入的所有關鍵字,如果不滿意意味着它會顯示單個關鍵字結果。三江源先生-------我寫的代碼是進度4gl:如何檢索滿足用戶填寫的所有關鍵字的數據庫記錄
::::ASSIGN ENTRYcount = (NUM-ENTRIES(hi:SCREEN-VALUE)).
REPEAT pos = 1 TO ENTRYcount :
ASSIGN keywordi = ENTRY(pos,trim(hi:SCREEN-VALUE)).
FOR EACH db1.vehicles WHERE vehicles.ad-num MATCHES keywordi OR string(vehicles.sl-num) MATCHES keywordi
OR vehicles.product-id MATCHES keywordi OR vehicles.product-name MATCHES keywordi OR
string(vehicles.amount) MATCHES keywordi NO-LOCK:
FOR EACH db2.service WHERE db2.service.ad-num = db1.vehicles.ad-num NO-LOCK:
/* IF vcount EQ 0 AND scount LT 1 THEN */
/* DO: */
FIND ttservice WHERE ttservice.service-num = service.service-num NO-LOCK NO-ERROR .
IF AVAILABLE ttservice THEN
DO:
END.
ELSE
DO:
CREATE ttservice .
ASSIGN ttservice.ad-num = vehicles.ad-num
ttservice.sl-num = vehicles.sl-num
ttservice.sl-id = service.sl-num
ttservice.product-id = vehicles.product-id
ttservice.service-num = service.service-num
ttservice.product-name =vehicles.product-name
ttservice.purchase-amt = vehicles.amount
ttservice.service-amt = service.service-amt NO-ERROR .
END.
END.