progress-4gl
Zapytania
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):
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:
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.