deletion.p
| 1 |
|
|---|---|
| 2 |
DEF VAR v AS INTEGER. |
| 3 |
DEF VAR c AS INTEGER INIT 0. |
| 4 |
def var i as integer. |
| 5 |
|
| 6 |
def temp-table tt field f1 as character FORMAT "x(3)" |
| 7 |
field f2 as CHARACTER FORMAT "x(6)" |
| 8 |
field f3 as CHARACTER FORMAT "x(6)" |
| 9 |
field f4 as CHARACTER FORMAT "x(6)" |
| 10 |
field f5 as CHARACTER FORMAT "x(6)" |
| 11 |
field f6 as CHARACTER FORMAT "x(6)" |
| 12 |
field f7 as CHARACTER FORMAT "x(6)" |
| 13 |
field f8 as CHARACTER FORMAT "x(6)". |
| 14 |
|
| 15 |
create tt. tt.f1 = "1". |
| 16 |
create tt. tt.f1 = "2". |
| 17 |
create tt. tt.f1 = "3". |
| 18 |
create tt. tt.f1 = "5". |
| 19 |
create tt. tt.f1 = "10". |
| 20 |
create tt. tt.f1 = "aa". |
| 21 |
create tt. tt.f1 = "ab". |
| 22 |
create tt. tt.f1 = "b". |
| 23 |
create tt. tt.f1 = "b1". |
| 24 |
create tt. tt.f1 = "b2". |
| 25 |
create tt. tt.f1 = "b3". |
| 26 |
create tt. tt.f1 = "c". |
| 27 |
|
| 28 |
OPEN QUERY q FOR EACH tt. |
| 29 |
|
| 30 |
DEFINE BROWSE brws QUERY q DISPLAY tt.f1 tt.f2 tt.f3 enable all |
| 31 |
WITH multiple TITLE "Single Browse" |
| 32 |
5 down |
| 33 |
|
| 34 |
NO-ROW-MARKERS |
| 35 |
|
| 36 |
FONT 11 |
| 37 |
|
| 38 |
. |
| 39 |
DEFINE FRAME MyFrame v brws AT ROW 3 COLUMN 3 WITH NO-LABELS SIZE 80 BY 20. |
| 40 |
|
| 41 |
DEF VAR col1 AS HANDLE. |
| 42 |
DEF VAR col2 AS HANDLE. |
| 43 |
|
| 44 |
col1 = BROWSE brws:FIRST-COLUMN. |
| 45 |
col2 = col1:NEXT-COLUMN. |
| 46 |
BROWSE brws:BGCOLOR = 10. |
| 47 |
BROWSE brws:SEPARATORS = TRUE. |
| 48 |
BROWSE brws:SEPARATOR-FGCOLOR = 12. |
| 49 |
BROWSE brws:ROW-MARKERS = YES. |
| 50 |
BROWSE brws:LABEL-FONT = 11. |
| 51 |
|
| 52 |
BROWSE brws:num-locked-columns = 1. |
| 53 |
|
| 54 |
|
| 55 |
ENABLE v brws WITH FRAME MyFrame. |
| 56 |
|
| 57 |
ON 'a' anywhere |
| 58 |
DO: |
| 59 |
BROWSE brws:delete-selected-rows(). |
| 60 |
END. |
| 61 |
|
| 62 |
WAIT-FOR CLOSE OF CURRENT-WINDOW. |
| 63 |
|