134 lines
5.8 KiB
Plaintext
134 lines
5.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 cust_query ( IMAGE="find", COMMENT = "Query customers", ACCELERATOR = control-q )
|
|
ACTION cust_append ( IMAGE="new", COMMENT = "Create new customer", ACCELERATOR = control-n )
|
|
ACTION cust_undo ( IMAGE="refresh", COMMENT = "Undo last changes", ACCELERATOR = control-u, VALIDATE = NO )
|
|
ACTION cust_save ( IMAGE="disk", COMMENT = "Save changes in database", ACCELERATOR = control-s )
|
|
ACTION cust_delete ( IMAGE="eraser", COMMENT = "Delete current customer", ACCELERATOR = control-d, VALIDATE = NO )
|
|
ACTION cust_fetch ( IMAGE="services", COMMENT = "Search records in database", ACCELERATOR = enter, ACCELERATOR2 = return )
|
|
ACTION cust_first ( IMAGE = "gobegin", COMMENT = "Move to first customer in list")
|
|
ACTION cust_previous ( IMAGE = "gorev", COMMENT = "Move to previous customer in list")
|
|
ACTION cust_next ( IMAGE = "goforw", COMMENT = "Move to next customer in list")
|
|
ACTION cust_last ( IMAGE = "goend", COMMENT = "Move to last customer in list")
|
|
ACTION cust_print ( IMAGE="printer", COMMENT = "Print customer")
|
|
ACTION ord_append ( IMAGE = "new", COMMENT="Add a new order")
|
|
ACTION ord_modify ( IMAGE = "pen", COMMENT="Modify selected order")
|
|
ACTION ord_delete ( IMAGE = "eraser", COMMENT="Delete selected order")
|
|
END
|
|
|
|
TOPMENU
|
|
GROUP cust ( TEXT="Customers" )
|
|
COMMAND cust_query ( TEXT="Query" )
|
|
COMMAND cust_append ( TEXT="New" )
|
|
COMMAND cust_undo ( TEXT="Undo" )
|
|
COMMAND cust_save ( TEXT="Save" )
|
|
COMMAND cust_print ( TEXT="Print" )
|
|
SEPARATOR
|
|
COMMAND cust_fetch ( TEXT="Fetch" )
|
|
COMMAND cancel
|
|
SEPARATOR
|
|
COMMAND cust_first ( TEXT="First" )
|
|
COMMAND cust_previous ( TEXT="Previous" )
|
|
COMMAND cust_next ( TEXT="Next" )
|
|
COMMAND cust_last ( TEXT="Last" )
|
|
SEPARATOR
|
|
COMMAND close ( TEXT="Close" )
|
|
END
|
|
GROUP ord ( TEXT="Orders" )
|
|
COMMAND ord_append ( TEXT="Append" )
|
|
COMMAND ord_modify ( TEXT="Modify" )
|
|
COMMAND ord_delete ( TEXT="Delete" )
|
|
END
|
|
GROUP help ( TEXT="Help" )
|
|
COMMAND help
|
|
SEPARATOR
|
|
COMMAND about ( TEXT="About" )
|
|
END
|
|
END
|
|
|
|
LAYOUT ( STYLE="main2", TEXT = "Customers and Orders" )
|
|
GRID
|
|
{
|
|
<g g1 >
|
|
[f1 ][f2 ]
|
|
State: [f3 ] [f4 ]
|
|
City: [f5 ]
|
|
Zipcode: [f6 ]
|
|
Address: [f7 ]
|
|
[ ]
|
|
-------------------------------------------------------------------
|
|
[tr |cq:cx:cf:cp:cn:cl:ca:cd:cu:cs]
|
|
< >
|
|
<g g2 >
|
|
<t t1 >[oad]
|
|
[c1 |c2 |c3 ][omo]
|
|
[c1 |c2 |c3 ][ode]
|
|
[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";
|
|
EDIT f1 = FORMONLY.cust_id TYPE INTEGER, NOT NULL, NOENTRY;
|
|
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";
|
|
BUTTONEDIT f5 = FORMONLY.cust_city TYPE CHAR, NOT NULL, REQUIRED,
|
|
ACTION=zoom_city, IMAGE="find";
|
|
EDIT f6 = FORMONLY.cust_zipcode TYPE VARCHAR, NOT NULL, REQUIRED,
|
|
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";
|
|
|
|
BUTTON cq: cust_query, TABINDEX=0;
|
|
BUTTON cx: cust_fetch, TABINDEX=0;
|
|
BUTTON cf: cust_first, TABINDEX=0;
|
|
BUTTON cp: cust_previous, TABINDEX=0;
|
|
BUTTON cn: cust_next, TABINDEX=0;
|
|
BUTTON cl: cust_last, TABINDEX=0;
|
|
BUTTON ca: cust_append, TABINDEX=0;
|
|
BUTTON cd: cust_delete, TABINDEX=0;
|
|
BUTTON cu: cust_undo, TABINDEX=0;
|
|
BUTTON cs: cust_save, TABINDEX=0;
|
|
|
|
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";
|
|
|
|
BUTTON oad: ord_append, TABINDEX=0;
|
|
BUTTON omo: ord_modify, TABINDEX=0;
|
|
BUTTON ode: ord_delete, TABINDEX=0;
|
|
|
|
END
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD custrec (FORMONLY.cust_id THROUGH FORMONLY.cust_address);
|
|
SCREEN RECORD ordlist (FORMONLY.ord_id THROUGH FORMONLY.ord_amount);
|
|
END
|