home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c016 / 3.ddi / CORINC.PAK / VDB.TXT < prev   
Encoding:
Text File  |  1993-10-05  |  24.5 KB  |  509 lines
  1. '
  2. '
  3. '   Copyright (c) 1992                Coromandel Industries Inc.
  4. '
  5. '   All rights reserved. No part of this program or publication may be
  6. '   reproduced, transcribed, stored in a retrieval system, or translated
  7. '   into any language or computer language, in any form or by any means,
  8. '   electronic, mechanical, magnetic, optical, chemical, biological, or
  9. '   otherwise, without the prior written permission of :
  10. '
  11. '              Coromandel Industries Inc.,
  12. '
  13. '         70-15, Austin St., 3Rd Floor, Forest Hills, NY 11375.
  14. '
  15. '  System       :    INTEGRA VDB SQL Controls
  16. '  Module       :    VDB Engine
  17. '  Filename     :    vdb.txt
  18. '  Description  :    Global constant for Integra VDB
  19. '
  20.  
  21. '  Version  -------------------------------------------------------------
  22.  
  23.     Global Const SQC_VERSION = 120  '  major version 1.20
  24.  
  25. '  object types ---------------------------------------------------------
  26.  
  27.     Global Const SQC_FORM = 100             '  the object type is form
  28.     Global Const SQC_CONTROL = 101          '  the object type is a child control
  29.     Global Const SQC_DATASTREAM = 102       '  the object type is a data source
  30.     Global Const SQC_CONNECTION = 103       '  the object type is connection
  31.     Global Const SQC_ENVIRONMENT = 104      '  the object type is ODBC hEnv
  32.     Global Const SQC_DBPROP = 105           ' Object type is capability mask
  33.  
  34. '  warning codes --------------------------------------------------------
  35.  
  36.     Global Const WREPLACE = 10000           '  an object has been replaced
  37.  
  38. '  error codes -----------------------------------------------------------
  39.  
  40.     Global Const ERRBASE = -10000
  41.     Global Const ENORES = ERRBASE - 100     '  no resources left
  42.     Global Const BADPARAM = ERRBASE - 200   '  illegal argument
  43.     Global Const ESUBSTI = ERRBASE - 300    ' Substitution failed
  44.     Global Const EBADHAND = ERRBASE - 600   '  bad app handle
  45.     Global Const EBADWND = ERRBASE - 700    '  bad window  handle
  46.     Global Const EBADCTRL = ERRBASE - 900   '  bad control handle
  47.     Global Const EDBERR = ERRBASE - 1000    '  database error
  48.     Global Const EQUERY = ERRBASE - 1200    '  error with result columncnt
  49.     Global Const EBADFORM = ERRBASE - 1500  '  bad form
  50.     Global Const EBADRANGE = ERRBASE - 1600 '  bad control
  51.     Global Const EBADCOL = ERRBASE - 1800   '  bad column syntax
  52.     Global Const EBADCURS = ERRBASE - 1900  '  bad cursor syntax
  53.     Global Const ESYNTAX = ERRBASE - 2100   '  bad syntax
  54.     Global Const EBADBIND = ERRBASE - 2200  '  bad bind structure
  55.     Global Const EBADPORT = ERRBASE - 2300  '  bad port name
  56.     Global Const ESEQERR = ERRBASE - 2400   '  sequence error
  57.     Global Const EIMPEXP = ERRBASE - 2500   '  import export error
  58.     Global Const ECURSTATE = ERRBASE - 2600 '  bad cursor state
  59.     Global Const SS_EOF = ERRBASE - 2700    '  End of cursor
  60.     Global Const ENOTINST = ERRBASE - 2800  '  Not installed properly
  61.     Global Const EACCESS = ERRBASE - 2900   '  Access violation
  62.     Global Const EINTERR = ERRBASE - 3100   '  Internal error
  63.     Global Const ENOCOL = ERRBASE - 3300    '  no column is selected
  64.     Global Const ENORESULT = ERRBASE - 3400 '  no result set
  65.     Global Const ENOOBJ = ERRBASE - 3600    '  no object exists
  66.     Global Const ECOLSEQ = ERRBASE - 3700   '  column sequence error
  67.     Global Const ETRUNC = ERRBASE - 3800    '  data is truncated
  68.     Global Const ETMPFILE = ERRBASE - 3900  '  error in temp file of cursor
  69.     Global Const EVALERR = ERRBASE - 4100   '  Error in expression evaluation
  70.     Global Const EBADNAME = ERRBASE - 4200  '  Name is not a valid object
  71.     Global Const ETRIG = ERRBASE - 4400     '  Trigger string error
  72.     Global Const EDATEERR = ERRBASE - 4500  '  Date format conversion error
  73.     Global Const ECANCEL = ERRBASE - 4600   '  Cancelled by user
  74.     Global Const ELASTERROR = ERRBASE - 4700 '  Last error
  75.     Global Const SS_EOR = ERRBASE - 4800    '  End of result set
  76.  
  77. '  success codes -------------------------------------------------------------
  78.  
  79.     Global Const SS_SUCCESS = 0
  80.  
  81. '  application mode bits -----------------------------------------------------
  82.  
  83.     Global Const SQC_APP_SHOWERR = 1       '  display all errors
  84.     Global Const SQC_APP_SHOWSQL = 2       '  display all sql statements
  85.     Global Const SQC_APP_SHOWTEXT = 4      '  show sql stmts in text box
  86.     Global Const SQC_APP_LOG = 8           '  log operations
  87.     Global Const SQC_APP_DESIGN = 16       '  design mode op allowed
  88.     Global Const SQC_APP_NOCURSORNAME = 32 '  no cursor name for showsql
  89.     Global Const SQC_APP_NO3rdPARTY = 64   ' No automatic support for third party controls
  90.  
  91. '  connect modes -------------------------------------------------------------
  92.  
  93.     Global Const SQC_CONNECT = 3           '  use connect
  94.     Global Const SQC_DRVCONNECT = 4        '  use driver connect
  95.  
  96. '  types of cursors ----------------------------------------------------------
  97.  
  98.     Global Const SQC_TABLES = 1             '  list of tables
  99.     Global Const SQC_COLUMNS = 2            '  list of columns
  100.     Global Const SQC_SELECT = 3             '  select statement
  101.     Global Const SQC_GENERIC = 4            '  generic non select stmt
  102.     Global Const SQC_STATISTICS = 5         '  list of indexes
  103.     Global Const SQC_SPECIALCOLS = 6        '  list of special columns
  104.     Global Const SQC_IMPORT = 7             '  import file
  105.     Global Const SQC_EXPORT = 8             '  export file
  106.     Global Const SQC_TYPEINFO = 9           '  sql data type info
  107.     Global Const SQC_MEMORY = 10            '  memory cursor
  108.     Global Const SQC_LOOKUP = 11            '  lookup cursor
  109.     Global Const SQC_PROCLIST = 12          ' Procedure list
  110.     Global Const SQC_PROCEDURE = 13         ' Procedure
  111.     Global Const SQC_PASSTHROUGH = 14       ' Pass through
  112.     Global Const SQC_PROCCOLS = 15          ' Procedure columns
  113.  
  114. '  access modes for cursors --------------------------------------------------
  115.  
  116.     Global Const SQC_ACC_UPD = 1           '  allow updates
  117.     Global Const SQC_ACC_INS = 2           '  allow inserts
  118.     Global Const SQC_ACC_DEL = 4           '  allow deletes
  119.     Global Const SQC_ACC_MODIFY = 7        '  or of upd,del and ins
  120.     Global Const SQC_ACC_BROWSE = 8        '  allow browsing(next and prev)
  121.     Global Const SQC_ACC_QUERY = 16        '  allow query from form
  122.     Global Const SQC_ACC_SNAPSHOT = 32     '  set snapshot mode
  123.     Global Const SQC_ACC_RESERVED = 64     '  must be zero
  124.     Global Const SQC_ACC_PRIMKEY = 128     '  first col is prim key part 1
  125.     Global Const SQC_ACC_PRIMKEY2 = 256    '  second col is prim key part 2
  126.     Global Const SQC_ACC_KEYSET = 1024    '  store only keys in cursor set
  127.     Global Const SQC_ACC_ENBUTTON = 2048    '  enable button on off
  128.     Global Const SQC_ACC_AUTO = 4096       '  set best accessmode
  129.     Global Const SQC_ACC_NORUN = &H2000    '  no run cursor for modify
  130.     Global Const SQC_ACC_ENSUB = &H4000    '  enable substitution
  131.     Global Const SQC_ACC_FETCHALL = &H10000     '  events for all fetches
  132.     Global Const SQC_ACC_INSEVENT = &H20000     'enable events for insert
  133.     Global Const SQC_ACC_UPDEVENT = &H40000     'enable events for update
  134.     Global Const SQC_ACC_DELEVENT = &H80000     'enable events for delete
  135.     Global Const SQC_ACC_FETCHEVENT = &H100000  'enable events for fetch
  136.     Global Const SQC_ACC_FIELDEVENT = &H200000  'enable events for field
  137.     Global Const SQC_ACC_ROWSEL = &H400000      'enable events for rowsel
  138.     Global Const SQC_ACC_STATEEVENT = &H800000  'enable events for state
  139.     Global Const SQC_ACC_MODIFYEVENT = &H4E0000 'INS+UPD+DEL+ROWSEL
  140.     Global Const SQC_ACC_CONFUPD = &H10000000   'confirm all updates
  141.     Global Const SQC_ACC_CONFDEL = &H20000000   'confirm all deletes
  142.     Global Const SQC_ACC_CONFINS = &H40000000   'confirm all inserts
  143.  
  144. '  data source and visual control types as indexes ----------------------------
  145.  
  146.     Global Const SQC_DSI_ODBC = 0            '
  147.     Global Const SQC_CTI_ThTXB = 16          '  thunder text box
  148.     Global Const SQC_CTI_MGRID = 17          '  thunder grid
  149.     Global Const SQC_CTI_CGRID = 18          '  CI grid
  150.     Global Const SQC_CTI_CBUTTON = 19        '   Button controls
  151.     Global Const SQC_CTI_LB = 20             '   List Box control
  152.     Global Const SQC_CTI_CMB = 21            '   Combo Box control
  153.     Global Const SQC_CTI_CHKBOX = 22         '   CheckBox control
  154.     Global Const SQC_CTI_RB = 23             '   Radio Button Control
  155.     Global Const SQC_CTI_FRAME = 24          '   Frame control
  156.     Global Const SQC_CTI_3rdPARTY = 25       '   3rd party control
  157.  
  158. '  fetch browse modes -------------------------------------------------------
  159.  
  160.     Global Const SQC_CURS_NEXT = 0          ' fetch next record
  161.     Global Const SQC_CURS_FIRST = 1         ' fetch first record
  162.     Global Const SQC_CURS_LAST = 2          ' fetch last record
  163.     Global Const SQC_CURS_PREV = 3          ' fetch prev record
  164.     Global Const SQC_CURS_ABS = 4           ' fetch record by 1 based pos
  165.     Global Const SQC_CURS_REL = 5           ' fetch record relative to cur
  166.     Global Const SQC_CURS_ALL = 6           '
  167.     Global Const SQC_CURS_CURR = 7          ' fetch current record
  168.  
  169. ' opmode query bits -------------------------------------------------------
  170.  
  171.     Global Const SQC_QRY_AND = 0                   '
  172.     Global Const SQC_QRY_OR = 1                    '
  173.     Global Const SQC_QRY_LIKEPOST = 2              '
  174.     Global Const SQC_QRY_LIKEPRE = 4               '
  175.  
  176. ' mask edit property definitions ------------------------------------------
  177.  
  178.     Global Const SQC_MASK_DISABLEMASK = 10          '
  179.     Global Const SQC_MASK_DISPLAYONLY = 11          '
  180.  
  181. '  date formats ------------------------------------------------------------
  182.  
  183.     Global Const SQC_DATE_FRDISP = 100  '  from display format to ISO
  184.     Global Const SQC_DATE_FRDRV = 101   '  from driver format to ISO
  185.     Global Const SQC_DATE_TODISP = 102  '  from ISO format to display
  186.     Global Const SQC_DATE_TODRV = 103   '  from ISO format to driver
  187.  
  188.  
  189. '  flag bits for bind column host flag variable -----------------------------
  190.  
  191.     Global Const SQC_COL_NULLBIT = 1        '  if set null value
  192.     Global Const SQC_COL_INSERT = 2         '  if set accept for insert
  193.     Global Const SQC_COL_UPDATE = 4         '  if set accept for update
  194.     Global Const SQC_COL_DELETE = 8         '  if set delete Op
  195.     Global Const SQC_COL_DATATRUNC = 16     '  if set data truncated
  196.     Global Const SQC_COL_MARKED = 32        ' if set row/col is marked
  197.     Global Const SQC_COL_NOMODIFY = 64      ' if set row can't be modified/deleted
  198.  
  199. ' mode bits for SQcNewRecord Call -------------------------------------------
  200.  
  201.     Global Const SQC_NEW_NOINSERT = 1       'NewRecord will not automaticall
  202.                         'insert the new record
  203.  
  204. '  return values for events ------------------------------------------------
  205.  
  206.     Global Const SQC_EVENT_CONTINUE = 0 '  continue the operation
  207.     Global Const SQC_EVENT_ABORT = 9    '  abort the operation
  208.     Global Const SQC_EVENT_NEWDATA = 2  '  continue after accepting new data
  209.  
  210. ' Cursor Event State codes returned for Cursor states ----------------------
  211.  
  212.     Global Const SQC_EVENT_OPEN = 100    'event occurs before first record
  213.     Global Const SQC_EVENT_CLOSE = 101   ' event occurs after close
  214.     Global Const SQC_EVENT_LASTREC = 102 'event occurs after last record
  215.                          'is read from database
  216.     Global Const SQC_EVENT_EXEC = 103    'event occurs before execution of
  217.                          'preparable statement
  218.  
  219. ' Event PREFETCH event flags
  220.  
  221.     Global Const SQC_FETCH_FIRST = 200   'fetching first time from database
  222.     Global Const SQC_FETCH_REFETCH = 201 'refetching from database
  223.     Global Const SQC_FETCH_BROWSE = 202  'fetching from cursor while browsing
  224.  
  225. '  event constants-- the order must be same as defined in custom control-----
  226.  
  227.     Global Const SQC_CURS_ERROR = 0
  228.     Global Const SQC_CURS_PREDELETE = 1
  229.     Global Const SQC_CURS_PREFETCH = 2
  230.     Global Const SQC_CURS_PREFIELD = 3
  231.     Global Const SQC_CURS_PREINSERT = 4
  232.     Global Const SQC_CURS_PREUPDATE = 5
  233.     Global Const SQC_CURS_ROWSEL = 6
  234.     Global Const SQC_CURS_STATE = 7
  235.  
  236. '  trigger types -------------------------------------------------------------
  237.     Global Const SQC_TRG_ROWSEL = 100       '  row selected ( from list box or ctrl obj)
  238.     Global Const SQC_TRG_FETCH = 101        '  fetch trigger (cursor object)
  239.     Global Const SQC_TRG_INSERT = 102       '  insert trigger (cursor object)
  240.     Global Const SQC_TRG_UPDATE = 103       '  update trigger (cursor object)
  241.  
  242. '   Connection Options -------------------------------------------------------
  243.  
  244.    Global Const SQC_DBM_ISO0 = 1        '  Isolation level READ_UNCOMMITTED
  245.    Global Const SQC_DBM_ISO1 = 2        '  Isolation level READ_COMMITTED
  246.    Global Const SQC_DBM_ISO2 = 4        '  Isolation level REPEATABLE_READ
  247.    Global Const SQC_DBM_ISO3 = 8        '  Isolation level SERIALIZABLE
  248.    Global Const SQC_DBM_ISO4 = 16       '  Isolation level VERSIONING
  249.    Global Const SQC_DBM_ENISO = 32      '  Set Isolation Level
  250.    Global Const SQC_DBM_AUTOCOMMIT = 64 '  auto commit
  251.    Global Const SQC_DBM_ENAUTOC = 128   '  set auto commit
  252.    Global Const SQC_DBM_TRANS = 256     '  special  cols in TRANSACTION scope
  253.    Global Const SQC_DBM_SESS = 512      '  special  cols in SESSION scope
  254.    Global Const SQC_DBM_CURROW = &H400  '  special  cols in CURROW scope
  255.    Global Const SQC_DBM_ENSCOPE = &H800 'set scope option for special cols
  256.    Global Const SQC_DBM_T1AST = &H10000 'for select * qualify with tblname
  257.    Global Const SQC_DBM_ROWID = &H20000 'database has special ROWID
  258.    Global Const SQC_DBM_ENROWID = &H40000 'set database rowid  & T1AST
  259.    Global Const SQC_DBM_1STMT = &H80000   ' Only one statement can be active
  260.    Global Const SQC_DBM_NOAST = &H100000  ' * cannot be qualified by table name
  261.    Global Const SQC_DBM_OUTERJ = &H400000 ' Outer join supported
  262.    Global Const SQC_DBM_OUTERFJ = &H800000 ' Full outer joins supported
  263.    Global Const SQC_DBM_INSPARAM = &H1000000 ' Insert through params
  264.    Global Const SQC_DBM_DELIMIT = &H2000000 ' Delimit the column names
  265.  
  266.    Global Const SQC_DBM_ENGEN = &H80000000    ' Enable general flags
  267.  
  268.  
  269.     ' Operation codes to be used in ButtonControl call
  270.  
  271.  
  272.     Global Const OP_none = 0            'No operation
  273.     Global Const OP_ClearForm = 1       ' clear the form in actionstr
  274.     Global Const OP_ClearQuery = 2      'clear text fields bound to cursor
  275.     Global Const OP_CloseCursor = 3     ' close the cursor
  276.     Global Const OP_Delete = 4          ' delete the current record
  277.     Global Const OP_Curr = 5            ' refetch the current record
  278.     Global Const OP_First = 6           ' fetch the first record
  279.     Global Const OP_Last = 7            ' fetch the last record
  280.     Global Const OP_Next = 8            ' fetch the next record
  281.     Global Const OP_Prev = 9            ' fetch the previous record
  282.     Global Const OP_Insert = 10         ' insert record
  283.     Global Const OP_Open = 11           ' oper the cursor
  284.     Global Const OP_QBF = 12            ' query by form
  285.     Global Const OP_Update = 13         ' update the current record
  286.     Global Const OP_ExecuteChain = 14   ' execute the chain of cursors
  287.     Global Const OP_NewRecord = 15      ' insert a new record using defaults
  288.     Global Const OP_LastCommand = 16    ' Place holder
  289.  
  290.  
  291. '  sql data types to be used while binding host address -----------------------
  292.  
  293.     Global Const SQC_CHAR = 1
  294.     Global Const SQC_NUMERIC = 2
  295.     Global Const SQC_DECIMAL = 3
  296.     Global Const SQC_INTEGER = 4
  297.     Global Const SQC_SMALLINT = 5
  298.     Global Const SQC_FLOAT = 6
  299.     Global Const SQC_REAL = 7
  300.     Global Const SQC_DOUBLE = 8
  301.     Global Const SQC_DATE = 9
  302.     Global Const SQC_TIME = 10
  303.     Global Const SQC_TIMESTAMP = 11
  304.     Global Const SQC_VARCHAR = 12
  305.     Global Const SQC_LONGVARCHAR = -1
  306.     Global Const SQC_BINARY = -2
  307.     Global Const SQC_VARBINARY = -3
  308.     Global Const SQC_LONGVARBINARY = -4
  309.     Global Const SQC_BIGINT = -5
  310.     Global Const SQC_TINYINT = -6
  311.     Global Const SQC_BIT = -7
  312.     Global Const SQC_INTEGRA_CURRENCY = 14
  313.  
  314. '  structure definitions
  315.  
  316.  
  317.  
  318.   Type SQCERRINFO
  319.     SqlState As String * 8   ' these three members are same
  320.     NativeError As Long      ' as the values returned by
  321.     ErrorMsg As String * 514 ' odbc SQLError call
  322.     hdbc As Long             ' HDBC handle
  323.     hstmt As Long            ' HSTMT handle
  324.     majorstate As Long       ' internal state
  325.     minorstate As Long       ' internal state
  326.     errorcnt As Long         ' cumulative error count
  327.     revision As Long         ' revision number
  328.     retcode As Integer       ' return code from call
  329.     errortype As Integer     ' +ve info and -ve error
  330.     param1 As Long           ' long reserved
  331.     param2 As Long           ' long reserved
  332.     param3 As Long           ' long reserved
  333.     param4 As Long           ' long reserved
  334.   End Type
  335.  
  336.  
  337.    Type SQCCOLINFO
  338.     s_flags As Long                  ' flag bits
  339.     s_prec  As Long                  ' precision of the column
  340.     s_dispwidth As Long              ' display size in bytes
  341.     s_icol As Integer                ' 1 based column number
  342.     s_sqltype As Integer             ' SQL data type
  343.     s_scale As Integer               ' scale of the column
  344.     s_nullable As Integer            ' flag for Nullability
  345.     s_Ctype As Integer               ' C data type for conversion
  346.     s_boundcol As Integer            ' column number of visual
  347.                      ' object if bound (1 based)
  348.                     ' 0 means unbound
  349.     s_name As String * 32            ' name of the column
  350.    End Type
  351.  
  352.  
  353.   Type SQCCURSINFO
  354.     s_flags As Long                  ' flag bits
  355.     s_ncols As Integer               ' number columns
  356.     s_rows As Long                   ' number of rows. -1 if not known
  357.     s_curpos As Long                 ' current cursor position ( 1 based)
  358.     s_startrow As Long               ' selection range
  359.     s_endrow As Long                 ' as 1 based
  360.     s_startcol As Integer            ' rows and
  361.     s_endcol As Integer              ' columns
  362.     s_name As String * 32            ' cursor name
  363.     s_statement As String * 512      ' full table name
  364.     s_accessmode As Long             ' accessmode bits
  365.     s_cursortype As Integer          ' type of cursor
  366.     s_dbmsname As String * 32        ' data base name
  367.   End Type
  368.  
  369. '       The selection range is valid of s_startrow is > 0 and rows are 1 based
  370. '       the column numbers are 1 based and refer to the visual object columns
  371. '
  372.  
  373. '   all prototypes for exported functions
  374.  Declare Function SQcAttachControl% Lib "sqclib.dll" (ByVal AppHand&, ByVal szFormName$, ByVal szCtrlname$, ByVal controltype%, ByVal CtrlWnd%)
  375.  
  376.  Declare Function SQcAttachDataBase% Lib "sqclib.dll" (ByVal AppHand&, ByVal szDBname$, ByVal szConnectStr$, ByVal szUID$, ByVal szPWD$, ByVal connecttype%, ByVal szConnectStrOut$, ByVal strsize%, phdbc&, ByVal FormWnd%)
  377.  
  378.  Declare Function SQcAttachForm% Lib "sqclib.dll" (ByVal AppHand&, ByVal szFormName$, ByVal FormWnd%)
  379.  
  380.  Declare Function SQcBatchEdit% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal szStmt$, ByVal mode%)
  381.  Declare Function SQcBindColumn% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal col%, ByVal sqldatatype%, buf As Any, ByVal bufsize&, flag As Any)
  382.  
  383.  Declare Function SQcBindCursor% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal szControlNameList$)
  384.  
  385.  Declare Function SQcBindExp% Lib "sqclib.dll" (ByVal AppHand&, ByVal szObject$, ByVal szexpstmt$)
  386.  
  387.  Declare Function SQcBindInOut% Lib "sqclib.dll" (ByVal AppHand&, ByVal szObjectList$, ByVal szDataSource$)
  388.  
  389.  Declare Function SQcBindTrigger% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal szTriggerstr$, modifier As Any, ByVal mode%)
  390.  
  391.  Declare Function SQcBuild% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal szDsrcStmt$, ByVal curstype%, ByVal szDBname$, ByVal accessmode&)
  392.  
  393.  Declare Function SQcBuildBindExec% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal szControlNameList$, ByVal szDsrcStmt$, ByVal curstype%, ByVal accessmode&, ByVal szDBname$)
  394.  
  395.  Declare Function SQcButtonControl% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal Operation%, ByVal hCtrlWnd%)
  396.  
  397.  Declare Function SQcCheckVersion% Lib "sqclib.dll" (ByVal version%)
  398.  
  399.  Declare Function SQcClear% Lib "sqclib.dll" (ByVal DsrcHand&)
  400.  
  401.  Declare Function SQcClearForm% Lib "sqclib.dll" (ByVal AppHand&, ByVal szFormName$)
  402.  
  403.  Declare Function SQcClose% Lib "sqclib.dll" (ByVal DsrcHand&)
  404.  
  405.  Declare Function SQcCloseAndUnbind% Lib "sqclib.dll" (ByVal DsrcHand&)
  406.  
  407.  Declare Function SQcCommitWork% Lib "sqclib.dll" (ByVal AppHand&, ByVal DBname$)
  408.  
  409.  Declare Function SQcConnect% Lib "sqclib.dll" (pAppHand&, revision&)
  410.  
  411.  Declare Function SQcConvertToMemCursor% Lib "sqclib.dll" (ByVal DsrcHand&, reccount&)
  412.  
  413.  Declare Function SQcCreateDataStream% Lib "sqclib.dll" (ByVal AppHand&, ByVal szdsrcname$, ByVal DataSrcType%, pDsrcHand&)
  414.  
  415.  Declare Function SQcDelete% Lib "sqclib.dll" (ByVal DsrcHand&)
  416.  
  417.  Declare Function SQcDeleteDataStream% Lib "sqclib.dll" (ByVal DsrcHand&)
  418.  
  419.  Declare Function SQcDeleteRecord% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal recnum&)
  420.  
  421.  Declare Function SQcDetachControl% Lib "sqclib.dll" (ByVal AppHand&, ByVal szFormName$, ByVal szCtrlname$)
  422.  
  423.  Declare Function SQcDetachDataBase% Lib "sqclib.dll" (ByVal AppHand&, ByVal szDBname$)
  424.  
  425.  Declare Function SQcDetachForm% Lib "sqclib.dll" (ByVal AppHand&, ByVal szFormName$)
  426.  
  427.  Declare Function SQcDisconnect% Lib "sqclib.dll" (ByVal AppHand&)
  428.  
  429.  Declare Function SQcExecute% Lib "sqclib.dll" (ByVal AppHand&, ByVal szdsrcname$, pDsrcHand&)
  430.  
  431.  Declare Function SQcFetch% Lib "sqclib.dll" (ByVal DsrcHand&, rowid&, ByVal lParam&, ByVal fetchcode%)
  432.  
  433.  Declare Function SQcFormatDate% Lib "sqclib.dll" (ByVal dateformat%, ByVal inbuf$, ByVal outbuf$, ByVal outbufsize%, ByVal dispdtf$, ByVal drvdtf$)
  434.  
  435.  Declare Function SQcGetAppHand& Lib "sqclib.dll" ()
  436.  
  437.  Declare Function SQcGetColInfo% Lib "sqclib.dll" (ByVal DsrcHand&, colinfo As SQCCOLINFO, ByVal col%)
  438.  
  439.  Declare Function SQcGetCursorInfo% Lib "sqclib.dll" (ByVal DsrcHand&, tblinfo As SQCCURSINFO)
  440.  
  441.  Declare Function SQcGetError% Lib "sqclib.dll" (ByVal AppHand&, errinfo As SQCERRINFO)
  442.  
  443.  Declare Function SQcGetErrorMsg% Lib "sqclib.dll" (ByVal errorval%, ByVal errbuf$, ByVal bufsize%)
  444.  
  445.  Declare Function SQcGetHandle% Lib "sqclib.dll" (ByVal AppHand&, ByVal szname$, pHand&, ByVal SqcObjType%)
  446.  
  447.  Declare Function SQcGetLrecord% Lib "sqclib.dll" (ByVal DsrcHand&, plrecord&, ByVal precord&)
  448.  
  449.  Declare Function SQcGetName% Lib "sqclib.dll" (ByVal AppHand&, ByVal szname$, ByVal namelength%, ByVal SqcObjType%, ByVal Key&)
  450.  
  451.  Declare Function SQcGetPrecord% Lib "sqclib.dll" (ByVal DsrcHand&, pprecord&, ByVal lrecord&)
  452.  
  453.  Declare Function SQcGo% Lib "sqclib.dll" (ByVal AppHand&, ByVal priority%)
  454.  
  455.  Declare Function SQcInsert% Lib "sqclib.dll" (ByVal DsrcHand&)
  456.  
  457.  Declare Function SQcInsertRecord% Lib "sqclib.dll" (ByVal DsrcHand&, precnum&)
  458.  
  459.  Declare Function SQcLog% Lib "sqclib.dll" (ByVal AppHand&, ByVal filename$)
  460.  
  461.  Declare Function SQcLogRecord% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal filehandle&)
  462.  
  463.  Declare Function SQcNewRecord% Lib "sqclib.dll" (ByVal DsrcHand&, Row&, ByVal lParam&, ByVal mode%)
  464.  
  465.  Declare Function SQcOpen% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal actionstr$)
  466.  
  467.  Declare Function SQcQBF% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal actionstr$, ByVal modifier%)
  468.  
  469.  Declare Function SQcReadPhysicalRecord% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal recnum&, recflags&)
  470.  
  471.  Declare Function SQcReadRecord% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal recnum&)
  472.  
  473.  Declare Function SQcReadColumn% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal rownum&, ByVal col%, ByVal sqldatatype%, buf As Any, ByVal bufsize&, flag As Any)
  474.  
  475.  Declare Function SQcRollbackWork% Lib "sqclib.dll" (ByVal AppHand&, ByVal DBname$)
  476.  
  477.  Declare Function SQcSetRowFlags% Lib "sqclib.dll" (ByVal AppHand&, ByVal rownum&, rowflags&, ByVal flagmask%, ByVal flagval%)
  478.  
  479.  Declare Function SQcSetAppMode% Lib "sqclib.dll" (ByVal pAppHand&, ByVal szlog$, ByVal mode%)
  480.  
  481.  Declare Function SQcSetDBmode% Lib "sqclib.dll" (ByVal pAppHand&, ByVal szDBname$, ByVal lmode&, pparam As Any)
  482.  
  483.  Declare Function SQcSetColAttr% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal startcol%, ByVal colattrstr$)
  484.  
  485.  Declare Function SQcSetColInfo% Lib "sqclib.dll" (ByVal DsrcHand&, colinfo As SQCCOLINFO, ByVal col%)
  486.  
  487.  Declare Function SQcSetCurrentForm% Lib "sqclib.dll" (ByVal AppHand&, ByVal szFormName$)
  488.  
  489.  Declare Function SQcSetCursorInfo% Lib "sqclib.dll" (ByVal DsrcHand&, tblinfo As SQCCURSINFO)
  490.  
  491.  Declare Function SQcSetDateFormat% Lib "sqclib.dll" (ByVal AppHand&, ByVal szDBname$, ByVal szDisplayFormat As Any, ByVal szDriverFormat As Any)
  492.  
  493.  Declare Function SQcSetMaskEditMode% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal property%, ByVal mode%)
  494.  
  495.  Declare Function SQcSetTopRow% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal recnum&)
  496.  
  497.  Declare Function SQcTrigger% Lib "sqclib.dll" (ByVal AppHand&, ByVal szObjname$, ByVal lParam&, ByVal triggertype%)
  498.  
  499.  Declare Function SQcUnbindColumns% Lib "sqclib.dll" (ByVal DsrcHand&)
  500.  
  501.  Declare Function SQcUpdate% Lib "sqclib.dll" (ByVal DsrcHand&)
  502.  
  503.  Declare Function SQcUpdateRecord% Lib "sqclib.dll" (ByVal DsrcHand&, ByVal recnum&)
  504.  
  505.  Declare Function SQcVerifyHandle% Lib "sqclib.dll" (ByVal DsrcHand&)
  506.  
  507.  
  508.  
  509.