Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a524 / 33.ddi / demo / customer.inp < prev next >

Wrap

Text File | 1991-03-04 | 14.9 KB | 681 lines

/* * $Header: customer.inp,v 3001400.1 90/02/27 14:20:39 rcs Exp $ customer.inp Copyr (c) 1989 Oracle */ /* Copyright (c) 1988 by the Oracle Corporation */ SQL*FORMS_VERSION = 03.00.13.00.00 DEFINE FORM NAME = customer TITLE = Customer Entry DEFAULT_MENU_APPLICATION = default ROOT_MENU = GROUP_NAME = MOUSE_NAVIGATION_LIMIT = VALIDATION_UNIT = DEFINE TRIGGER NAME = key-commit TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< commit_form; if form_success then :global.custid := :customers.custid; exit_form; end if; >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-entqry TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< message('No querying. This form is for adding new customers only.'); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-exeqry TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< message('No querying. This form is for adding new customers only.'); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-exit TRIGGER_TYPE = V3 SHOW_KEY = ON DESCRIPTION = TEXT = <<< :global.custid:=-1; exit_form(no_validate); >>> ENDDEFINE TRIGGER DEFINE TRIGGER NAME = key-startup TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< :system.message_level := 5; >>> ENDDEFINE TRIGGER DEFINE BLOCK NAME = customers DESCRIPTION = customers TABLE = customer UNIQUE_KEY = OFF UPDATE_KEY = OFF IN_MENU = ON ROWS_DISPLAYED = 1 ROWS_BUFFERED = 1 BASE_LINE = 1 LINES_PER_ROW = 0 ARRAY_SIZE = 0 COLUMN_SECURITY = OFF ORDERING = DEFINE FIELD NAME = CUSTID DATATYPE = NUMBER LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 1 COLUMN = 50 HELP = Enter the unique customer code number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = :sequence.custid.nextval ENFORCE_KEY_FROM = ECHO = ON INPUT = OFF UPDATE = OFF UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = NAME DATATYPE = CHAR LENGTH = 45 DISPLAY_LENGTH = 40 QUERY_LENGTH = 45 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 2 COLUMN = 18 HELP = Enter the name of the customer. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = ON PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = ADDRESS DATATYPE = CHAR LENGTH = 40 DISPLAY_LENGTH = 40 QUERY_LENGTH = 40 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 4 COLUMN = 18 HELP = Enter the street address of the customer. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = CITY DATATYPE = CHAR LENGTH = 30 DISPLAY_LENGTH = 27 QUERY_LENGTH = 30 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 5 COLUMN = 8 HELP = Enter the city where customer is located. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = STATE DATATYPE = CHAR LENGTH = 2 DISPLAY_LENGTH = 2 QUERY_LENGTH = 2 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 5 COLUMN = 42 HELP = Enter state where customer is located. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = CA ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = ON PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = ZIP DATATYPE = CHAR LENGTH = 9 DISPLAY_LENGTH = 9 QUERY_LENGTH = 9 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 5 COLUMN = 49 HELP = Enter customer's zip code. (Either 5 or 9 digit code) LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = AREA DATATYPE = CHAR LENGTH = 5 DISPLAY_LENGTH = 5 QUERY_LENGTH = 5 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 6 COLUMN = 12 HELP = Enter the area code of the customer's phone number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = "("999")" OUTPUT_MASK = "("999")" EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = PHONE DATATYPE = CHAR LENGTH = 8 DISPLAY_LENGTH = 8 QUERY_LENGTH = 8 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 6 COLUMN = 27 HELP = Enter the phone number. LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = 999"-"9999 OUTPUT_MASK = 999"-"9999 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = REPID DATATYPE = NUMBER LENGTH = 6 DISPLAY_LENGTH = 6 QUERY_LENGTH = 6 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = ON DISPLAYED = ON PAGE = 1 LINE = 8 COLUMN = 23 HELP = Enter id number of customer's sales representative. LOW_VALUE = HIGH_VALUE = LOV_TEXT = <<< select empno, ename into :customers.repid from emp where job = 'SALESMAN' order by empno >>> LOV_TITLE = Salespeople LOV_X = 38 LOV_Y = 9 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF DEFINE TRIGGER NAME = on-validate-field TRIGGER_TYPE = V3 SHOW_KEY = OFF DESCRIPTION = TEXT = <<< declare is_emp number; begin select count(*) into is_emp from emp where (empno = :customers.repid) and (job = 'SALESMAN'); if is_emp = 0 then message('No such salesman. Use list of values.'); end if; end; >>> ENDDEFINE TRIGGER ENDDEFINE FIELD DEFINE FIELD NAME = CREDITLIMIT DATATYPE = NUMBER LENGTH = 11 DISPLAY_LENGTH = 11 QUERY_LENGTH = 11 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 8 COLUMN = 47 HELP = Enter customer's credit limit in dollars. LOW_VALUE = 0 HIGH_VALUE = 999999.99 LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = $999999.99 OUTPUT_MASK = $999999.99 EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = 10000 ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = ON FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD DEFINE FIELD NAME = COMMENTS DATATYPE = LONG LENGTH = 999 DISPLAY_LENGTH = 47 QUERY_LENGTH = 231 BASE_TABLE = ON PRIMARY_KEY = OFF MANDATORY = OFF DISPLAYED = ON PAGE = 1 LINE = 10 COLUMN = 11 HELP = LOW_VALUE = HIGH_VALUE = LOV_TEXT = LOV_TITLE = LOV_X = 0 LOV_Y = 0 INPUT_MASK = OUTPUT_MASK = EDIT_X = 0 EDIT_Y = 0 EDIT_TOP_TITLE = EDIT_BOTTOM_TITLE = EDIT_WORD_WRAP = ON DEFAULT = ENFORCE_KEY_FROM = ECHO = ON INPUT = ON UPDATE = ON UPDATE_NULL = OFF QUERY = OFF FIXED_LENGTH = OFF AUTOSKIP = OFF AUTOHELP = OFF UPPERCASE = OFF PROMPT = PROMPT_POSITION = BESIDE PROMPT_REPEAT = OFF ENDDEFINE FIELD ENDDEFINE BLOCK DEFINE SCREEN DEFINE PAGE PAGE = 1 POPUP = ON BORDER = ON HORIZONTAL_SCROLL_BAR = OFF VERTICAL_SCROLL_BAR = OFF DISSOLVE = ON TITLE = Customer Information PAGE_XS = 75 PAGE_YS = 16 PAGE_PX0 = 1 PAGE_PY0 = 1 PAGE_PXS = 60 PAGE_PYS = 15 PAGE_SX0 = 10 PAGE_SY0 = 4 MODE = TEXT BOILER = <<< Customer Id Customer Name >>> LINE = 4 BOILER = <<< Street Address City State Zip Area Code Phone >>> LINE = 8 BOILER = <<< Sales Representative Credit Limit >>> LINE = 10 BOILER = <<< Comments >>> LINE = 12 BOILER = <<< STATE ZIP >>> LINE = 14 BOILER = <<< AREA PHONE >>> LINE = 16 BOILER = <<< REPID CREDITLIMIT >>> ENDDEFINE PAGE ENDDEFINE SCREEN ENDDEFINE FORM