84 lines
3.4 KiB
Plaintext
84 lines
3.4 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 clear_criterias ( VALIDATE = NO )
|
|
ACTION clear_list ( TEXT = "Clear list" )
|
|
ACTION close ( VALIDATE = NO )
|
|
END
|
|
|
|
LAYOUT ( TEXT = "Query customers" )
|
|
GRID
|
|
{
|
|
<g g1 >
|
|
[fr ] Count: [frc ]
|
|
< >
|
|
<g g2 >
|
|
Id: [f1 ] Name: [f2 ]
|
|
State: [f3 ]
|
|
City: [f4 ]
|
|
Zipcode: [f5 ]
|
|
[cr :ld :sv :sr : ]
|
|
SQL Condition:
|
|
[sql ]
|
|
[ ]
|
|
< >
|
|
<g g3 >
|
|
<t t1 >
|
|
Id Name Timestamp
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
[c1 |c2 |c3 ]
|
|
< >
|
|
< >
|
|
[el : :cw ]
|
|
}
|
|
END
|
|
END
|
|
|
|
ATTRIBUTES
|
|
|
|
GROUP g1: TEXT = "Search options";
|
|
CHECKBOX fr = FORMONLY.first_rows TYPE SMALLINT, NOT NULL, TEXT="Select first N rows";
|
|
EDIT frc= FORMONLY.first_rows_count, NOT NULL;
|
|
|
|
GROUP g2: TEXT = "Search criterias";
|
|
EDIT f1 = FORMONLY.cust_id TYPE INTEGER;
|
|
EDIT f2 = FORMONLY.cust_name TYPE VARCHAR;
|
|
COMBOBOX f3 = FORMONLY.cust_state TYPE VARCHAR,
|
|
QUERYEDITABLE, DEFAULT="CA", INITIALIZER=combo_fill_states;
|
|
BUTTONEDIT f4 = FORMONLY.cust_city TYPE CHAR, ACTION=zoom_city, IMAGE="find";
|
|
EDIT f5 = FORMONLY.cust_zipcode TYPE VARCHAR;
|
|
|
|
GROUP g3: TEXT = "Customer list";
|
|
EDIT c1 = FORMONLY.c_id TYPE INTEGER;
|
|
EDIT c2 = FORMONLY.c_name TYPE VARCHAR;
|
|
DATEEDIT c3 = FORMONLY.c_ts TYPE DATETIME YEAR TO SECOND;
|
|
|
|
BUTTON cr : clear_criterias, TEXT="Clear";
|
|
BUTTON ld : load_criterias, TEXT="Load";
|
|
BUTTON sv : save_criterias, TEXT="Save";
|
|
BUTTON sr : fetch, TEXT="Fetch";
|
|
|
|
TEXTEDIT sql = FORMONLY.where_clause, STRETCH=X;
|
|
|
|
BUTTON el : clear_list;
|
|
BUTTON cw : close;
|
|
|
|
END
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD sr (FORMONLY.c_id THROUGH FORMONLY.c_ts);
|
|
END
|