📄 main.dfm

📁 jvcl driver development envionment
💻 DFM
📖 第 1 页 / 共 5 页
字号:
      '    DOUBLE PRECISION BY DESCRIPTOR'
      '    RETURNS PARAMETER 2'
      '    ENTRY_POINT '#39'fbtruncate'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION INULLIF'
      '    INTEGER BY DESCRIPTOR,'
      '    INTEGER BY DESCRIPTOR'
      '    RETURNS INTEGER BY DESCRIPTOR'
      '    ENTRY_POINT '#39'iNullIf'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION INVL'
      '    INTEGER BY DESCRIPTOR,'
      '    INTEGER BY DESCRIPTOR'
      '    RETURNS INTEGER BY DESCRIPTOR'
      '    ENTRY_POINT '#39'idNvl'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION LN'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_ln'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION LOG'
      '    DOUBLE PRECISION,'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_log'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION LOG10'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_log10'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION LOWER'
      '    CSTRING(80)'
      '    RETURNS CSTRING(80) FREE_IT'
      '    ENTRY_POINT '#39'IB_UDF_lower'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION LPAD'
      '    CSTRING(80),'
      '    INTEGER,'
      '    CSTRING(1)'
      '    RETURNS CSTRING(80) FREE_IT'
      '    ENTRY_POINT '#39'IB_UDF_lpad'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION LTRIM'
      '    CSTRING(80)'
      '    RETURNS CSTRING(80) FREE_IT'
      '    ENTRY_POINT '#39'IB_UDF_ltrim'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION MOD'
      '    INTEGER,'
      '    INTEGER'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_mod'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION PI'
      ''
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_pi'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION RAND'
      ''
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_rand'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION ROUND'
      '    INTEGER BY DESCRIPTOR,'
      '    INTEGER BY DESCRIPTOR'
      '    RETURNS PARAMETER 2'
      '    ENTRY_POINT '#39'fbround'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION RPAD'
      '    CSTRING(80),'
      '    INTEGER,'
      '    CSTRING(1)'
      '    RETURNS CSTRING(80) FREE_IT'
      '    ENTRY_POINT '#39'IB_UDF_rpad'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION RTRIM'
      '    CSTRING(80)'
      '    RETURNS CSTRING(80) FREE_IT'
      '    ENTRY_POINT '#39'IB_UDF_rtrim'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SDOW'
      '    TIMESTAMP,'
      '    VARCHAR(5)'
      '    RETURNS PARAMETER 2'
      '    ENTRY_POINT '#39'SDOW'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SIGN'
      '    DOUBLE PRECISION'
      '    RETURNS INTEGER BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_sign'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SIN'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_sin'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SINH'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_sinh'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SNULLIF'
      '    VARCHAR(100) BY DESCRIPTOR,'
      '    VARCHAR(100) BY DESCRIPTOR,'
      '    VARCHAR(100) BY DESCRIPTOR'
      '    RETURNS PARAMETER 3'
      '    ENTRY_POINT '#39'sNullIf'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SNVL'
      '    VARCHAR(100) BY DESCRIPTOR,'
      '    VARCHAR(100) BY DESCRIPTOR,'
      '    VARCHAR(100) BY DESCRIPTOR'
      '    RETURNS PARAMETER 3'
      '    ENTRY_POINT '#39'sNvl'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SQRT'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_sqrt'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SRIGHT'
      '    VARCHAR(100) BY DESCRIPTOR,'
      '    SMALLINT,'
      '    VARCHAR(100) BY DESCRIPTOR'
      '    RETURNS PARAMETER 3'
      '    ENTRY_POINT '#39'right'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION STRING2BLOB'
      '    VARCHAR(300) BY DESCRIPTOR,'
      '    BLOB'
      '    RETURNS PARAMETER 2'
      '    ENTRY_POINT '#39'string2blob'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION STRING2BLOB2'
      '    VARCHAR(300) BY DESCRIPTOR,'
      '    BLOB'
      '    RETURNS PARAMETER 2'
      '    ENTRY_POINT '#39'string2blob'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION STRLEN'
      '    CSTRING(32767)'
      '    RETURNS INTEGER BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_strlen'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SUBSTR'
      '    CSTRING(80),'
      '    SMALLINT,'
      '    SMALLINT'
      '    RETURNS CSTRING(80) FREE_IT'
      '    ENTRY_POINT '#39'IB_UDF_substr'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION SUBSTRLEN'
      '    CSTRING(80),'
      '    SMALLINT,'
      '    SMALLINT'
      '    RETURNS CSTRING(80) FREE_IT'
      '    ENTRY_POINT '#39'IB_UDF_substrlen'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION TAN'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_tan'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION TANH'
      '    DOUBLE PRECISION'
      '    RETURNS DOUBLE PRECISION BY VALUE'
      '    ENTRY_POINT '#39'IB_UDF_tanh'#39' MODULE_NAME '#39'ib_udf'#39';'
      ''
      ''
      'DECLARE EXTERNAL FUNCTION TRUNCATE'
      '    INTEGER BY DESCRIPTOR,'
      '    INTEGER BY DESCRIPTOR'
      '    RETURNS PARAMETER 2'
      '    ENTRY_POINT '#39'fbtruncate'#39' MODULE_NAME '#39'fbudf'#39';'
      ''
      ''
      ''
      ''
      
        '/***************************************************************' +
        '***************/'
      
        '/****                               Domains                     ' +
        '           ****/'
      
        '/***************************************************************' +
        '***************/'
      ''
      'CREATE DOMAIN ADDRESSLINE AS'
      'VARCHAR(30);'
      ''
      'CREATE DOMAIN BUDGET AS'
      'NUMERIC(15,2)'
      'DEFAULT 50000'
      'CHECK (VALUE > 10000 AND VALUE <= 2000000);'
      ''
      'CREATE DOMAIN COUNTRYNAME AS'
      'VARCHAR(15);'
      ''
      'CREATE DOMAIN CUSTNO AS'
      'INTEGER'
      'CHECK (VALUE > 1000);'
      ''
      'CREATE DOMAIN DEPTNO AS'
      'CHAR(3)'
      
        'CHECK (VALUE = '#39'000'#39' OR (VALUE > '#39'0'#39' AND VALUE <= '#39'999'#39') OR VALU' +
        'E IS NULL);'
      ''
      'CREATE DOMAIN EMPNO AS'
      'SMALLINT;'
      ''
      'CREATE DOMAIN FIRSTNAME AS'
      'VARCHAR(15);'
      ''
      'CREATE DOMAIN JOBCODE AS'
      'VARCHAR(5)'
      'CHECK (VALUE > '#39'99999'#39');'
      ''
      'CREATE DOMAIN JOBGRADE AS'
      'SMALLINT'
      'CHECK (VALUE BETWEEN 0 AND 6);'
      ''
      'CREATE DOMAIN LASTNAME AS'
      'VARCHAR(20);'
      ''
      'CREATE DOMAIN PHONENUMBER AS'
      'VARCHAR(20);'
      ''
      'CREATE DOMAIN PONUMBER AS'
      'CHAR(8)'
      'CHECK (VALUE STARTING WITH '#39'V'#39');'
      ''
      'CREATE DOMAIN PRODTYPE AS'
      'VARCHAR(12)'
      'DEFAULT '#39'software'#39
      'NOT NULL'
      'CHECK (VALUE IN ('#39'software'#39', '#39'hardware'#39', '#39'other'#39', '#39'N/A'#39'));'
      ''
      'CREATE DOMAIN PROJNO AS'
      'CHAR(5)'
      'CHECK (VALUE = UPPER (VALUE));'
      ''
      'CREATE DOMAIN SALARY AS'
      'NUMERIC(15,2)'
      'DEFAULT 0'
      'CHECK (VALUE > 0);'
      ''
      ''
      ''
      
        '/***************************************************************' +
        '***************/'
      
        '/****                              Generators                   ' +
        '           ****/'
      
        '/***************************************************************' +
        '***************/'
      ''
      'CREATE GENERATOR CUST_NO_GEN;'
      'SET GENERATOR CUST_NO_GEN TO 1015;'
      ''
      'CREATE GENERATOR EMP_NO_GEN;'
      'SET GENERATOR EMP_NO_GEN TO 147;'
      ''
      ''
      ''
      
        '/***************************************************************' +
        '***************/'
      
        '/****                              Exceptions                   ' +
        '           ****/'
      
        '/***************************************************************' +
        '***************/'
      ''
      
        'CREATE EXCEPTION CUSTOMER_CHECK '#39'Overdue balance -- can not ship' +
        '.'#39';'
      ''
      'CREATE EXCEPTION CUSTOMER_ON_HOLD '#39'This customer is on hold.'#39';'
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -