# 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