90 lines
3.8 KiB
Plaintext
90 lines
3.8 KiB
Plaintext
# Property of Four Js*
|
|
# (c) Copyright Four Js 1995, 2019. All Rights Reserved.
|
|
# * Trademark of Four Js Development Tools Europe Ltd
|
|
# in the United States and elsewhere
|
|
#
|
|
# Four Js and its suppliers do not warrant or guarantee that these
|
|
# samples are accurate and suitable for your purposes. Their inclusion is
|
|
# purely for information purposes only.
|
|
|
|
ACTION DEFAULTS
|
|
ACTION close(VALIDATE=NO)
|
|
ACTION cancel(VALIDATE=NO)
|
|
ACTION undo(TEXT="Undo",IMAGE="refresh",VALIDATE=NO)
|
|
ACTION ord_modify ( TEXT="Edit Order", IMAGE="pen", COMMENT="Modifies selected order")
|
|
END
|
|
TOOLBAR
|
|
ITEM firstrow (COMMENT="Move to the first record")
|
|
ITEM prevrow (TEXT="Prev",COMMENT="Move to the previous record")
|
|
ITEM nextrow (COMMENT="Move to the next record")
|
|
ITEM lastrow (COMMENT="Move to the last record")
|
|
SEPARATOR
|
|
ITEM append (TEXT="New",IMAGE="new",COMMENT="Input a new record")
|
|
ITEM delete (TEXT="Del",IMAGE="delete",COMMENT="Delete the current record")
|
|
SEPARATOR
|
|
ITEM ord_modify
|
|
END
|
|
|
|
LAYOUT (TEXT = "Customers and Orders" )
|
|
GRID
|
|
{
|
|
<g g1 >
|
|
[f1 ][f2 ]
|
|
State: [f3 ] [f4 ]
|
|
City: [f5 ]
|
|
Zipcode: [f6 ]
|
|
Address: [f7 ]
|
|
[ ]
|
|
-------------------------------------------------------------------
|
|
[tr : :undo ]
|
|
|
|
<g g2 >
|
|
<t t1 >
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
< >
|
|
|
|
}
|
|
END
|
|
END
|
|
|
|
ATTRIBUTES
|
|
|
|
GROUP g1: TEXT = "Customer information";
|
|
f1 = FORMONLY.cust_id TYPE INTEGER, NOT NULL, NOENTRY,DEFAULT=0;
|
|
EDIT f2 = FORMONLY.cust_name TYPE VARCHAR, NOT NULL, REQUIRED;
|
|
COMBOBOX f3 = FORMONLY.cust_state TYPE VARCHAR, NOT NULL, REQUIRED,
|
|
QUERYEDITABLE, DEFAULT="CA", INITIALIZER=combo_fill_states;
|
|
CHECKBOX f4 = FORMONLY.cust_checked TYPE CHAR, TEXT="Checked",HIDDEN;
|
|
BUTTONEDIT f5 = FORMONLY.cust_city TYPE CHAR, NOT NULL, REQUIRED,
|
|
ACTION=zoom_city, IMAGE="find";
|
|
f6 = FORMONLY.cust_zipcode TYPE VARCHAR, NOT NULL, REQUIRED,DEFAULT=11111, COMMENT="Possible values: 10000 to 99999",
|
|
INCLUDE=(10000 to 99999);
|
|
TEXTEDIT f7 = FORMONLY.cust_address TYPE CHAR,
|
|
COMMENT="Must hold '<number>, <street name>'";
|
|
|
|
|
|
LABEL tr = FORMONLY.cust_info, STYLE="information",SIZEPOLICY=FIXED;
|
|
BUTTON undo:undo,TEXT="Undo";
|
|
|
|
GROUP g2: TEXT = "Orders";
|
|
TABLE t1: DOUBLECLICK=ord_modify;
|
|
EDIT c1 = FORMONLY.ord_id TYPE INTEGER, TITLE = "Id";
|
|
EDIT c2 = FORMONLY.ord_crea TYPE DATE, TITLE = "Creation";
|
|
EDIT c3 = FORMONLY.ord_amount TYPE MONEY(15,2), TITLE = "Amount";
|
|
|
|
END
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD custrec (FORMONLY.cust_id THROUGH FORMONLY.cust_address);
|
|
SCREEN RECORD ordlist (FORMONLY.ord_id THROUGH FORMONLY.ord_amount);
|
|
END
|