Szukaj…


Wprowadzenie

Przykłady będą oparte na kopii bazy danych demonstracyjnych Sports 2000 dostarczonej z instalacją programu Progress.

Podczas pracy z zapytaniami w toku musisz:

DEFINE zapytanie i ustaw, przeciwko którym buforom (tabelom) i polom działa.

OPEN zapytanie za pomocą określonej klauzuli WHERE która określa sposób pobierania rekordów. Prawdopodobnie także sortowanie ( BY / BREAK BY )

GET rzeczywiste dane - może to być FIRST , NEXT , PREV (dla poprzedniego) lub LAST pasujący rekord.

Składnia

  • DEFINE QUERY nazwa-zapytania dla nazwy-bufora. // Ogólna definicja zapytania dla jednego bufora
  • DEFINE QUERY nazwa-zapytania dla nazwa-bufora1, nazwa-bufora2. // Łączenie dwóch buforów
  • OKREŚL ZAPYTANIE nazwa-zapytania DLA POLA-nazwa-bufora (pole1 pole2). // Tylko retreive field1 i field2
  • DEFINE QUERY nazwa-zapytania DLA nazwy-bufora Z WYJĄTKIEM (pole 3). // Odzyskaj wszystkie pola oprócz pola3.

Podstawowe zapytanie

/* Define a query named q1 for the Customer table */
DEFINE QUERY q1 FOR Customer.
/* Open the query for all Customer records where the state is "tx" */
OPEN QUERY q1 FOR EACH Customer WHERE Customer.state ='TX'.                                                                                                                                                                               
/* Get the first result of query q1 */
GET FIRST q1.                                                                                                                                                                                                                   

/* Repeat as long as query q1 has a result */
DO WHILE NOT QUERY-OFF-END('q1'):          
    /* Display Customer.Name in a frame called frame1 with 10 rows */
    DISPLAY Customer.Name WITH FRAME frame1 10 DOWN.
    /* Move down the target line where to display the next record */
    DOWN WITH FRAME frame1.
    /* Get the next result of query q1 */
    GET NEXT q1.
END.
/* Display how many results query q1 had. */
DISPLAY NUM-RESULTS('q1') LABEL "Number of records".

/* Close the query */
CLOSE QUERY q1.                                              

Dane wyjściowe (trzeci ekran w GUI systemu Windows):

wprowadź opis zdjęcia tutaj

Zapytanie o wiele tabel

To zapytanie połączy trzy tabele: Klient, Zamówienie i Linia zamówienia.

Zastosowanie instrukcji OF jak w childtable OF parenttable zakłada, że indeksy są konstruowane w określony sposób. Tak jest w przypadku bazy danych sports2000.

DEFINE QUERY q1 FOR Customer, Order, Orderline.

OPEN QUERY q1 FOR EACH Customer WHERE Customer.state = 'TX'
    , EACH Order OF customer WHERE order.custnum < 1000
    , EACH orderline OF order.

GET FIRST q1.
DO WHILE NOT QUERY-OFF-END('q1'):
    DISPLAY Customer.Name Order.OrderNum OrderLine.LineNum 
        WITH FRAME frameA 20 DOWN.
    DOWN WITH FRAME frameA.
    GET NEXT q1.
END.

CLOSE QUERY q1.

Wynik: w graficznym interfejsie użytkownika Windows:

wprowadź opis zdjęcia tutaj

Przenoszenie trucizny za pomocą zapytania przy użyciu następnego, pierwszego, poprzedniego i ostatniego

DEFINE QUERY q1 FOR Customer.

OPEN QUERY q1 FOR EACH Customer.

GET FIRST q1.

loop:
REPEAT:
    IF AVAILABLE Customer THEN DO:
        DISPLAY Customer.NAME CustNum WITH FRAME frClient TITLE "Client data".
        
        DISPLAY
            "(P)revious" SKIP 
            "(N)ext" SKIP
            "(F)irst" SKIP
            "(L)ast" SKIP
            "(Q)uit" SKIP
            WITH FRAME frInstr
                TITLE "Instructions".
    END.
    
    READKEY.

    IF LASTKEY = ASC("q") THEN LEAVE loop.
    ELSE IF LASTKEY = ASC("n") THEN
        GET NEXT q1.
    ELSE IF LASTKEY = ASC("p") THEN
        GET PREV q1.
    ELSE IF LASTKEY = ASC("l") THEN
        GET LAST q1.
    ELSE IF LASTKEY = ASC("f") THEN
        GET FIRST q1.

END.

MESSAGE "Bye" VIEW-AS ALERT-BOX.


Modified text is an extract of the original Stack Overflow Documentation
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow