home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 July / PCWorld_1999-07_cd.bin / 602 / WBPERSON / data1.cab / SDK_Files / Vbasic / PROG / WBKERNEL.BAS < prev    next >
BASIC Source File  |  1999-06-09  |  45KB  |  589 lines
  1. Attribute VB_Name = "WBKERNEL"
  2. '
  3. ' Definice konstant a procedur jadra WinBase602 pro Visual Basic 32
  4. '
  5. ' Verze ze dne 6. 5. 1998
  6. '
  7. '
  8. ' Cisla systemovych tabulek
  9. '
  10. Global Const TAB_TABLENUM = 0   ' cislo tabulky tabulek
  11. Global Const OBJ_TABLENUM = 1   ' cislo tabulky objektu
  12. Global Const USER_TABLENUM = 2  ' cislo tabulky uzivatelu
  13. Global Const SRV_TABLENUM = 3   ' cislo tabulky serveru
  14. Global Const REPL_TABLENUM = 4  ' cislo tabulky replikacnich pravidel
  15. Global Const KEY_TABLENUM = 5   ' cislo tabulky verejnych klicu
  16. '
  17. ' Atribut DELETED
  18. '
  19. Global Const DEL_ATTR_NUM = 0   ' cislo atributu "DELETED"
  20. Global Const NOT_DELETED = 0    ' hodnoty atributu: zaznam neni zrusen
  21. Global Const DELETED = 1        '                   zaznam je zrusen
  22. Global Const RECORD_EMPTY = 2   '                   zaznam je uvolnen
  23. '
  24. ' Atributy systemovych tabulek TABTAB A OBJTAB
  25. '
  26. Global Const OBJ_NAME_ATR = 3   ' Jmeno objektu, STRING delky 10 znaku
  27. Global Const OBJ_CATEG_ATR = 4  ' Kategorie objektu, atribut typu CHAR
  28. Global Const APPL_ID_ATR = 5    ' ID aplikace, k niz objekt patri, STRING delky 10 znaku
  29. Global Const OBJ_DEF_ATR = 6    ' Definice objektu, atribut typu NOSPEC
  30. Global Const OBJ_FLAGS_ATR = 7  ' Priznaky objektu, atribut typu SHORT
  31. '
  32. ' Kategorie
  33. '
  34. Global Const CATEG_TABLE = 0        ' tabulka
  35. Global Const CATEG_USER = 1         ' uzivatel
  36. Global Const CATEG_VIEW = 2         ' pohled
  37. Global Const CATEG_CURSOR = 3       ' dotaz
  38. Global Const CATEG_PGMSRC = 4       ' text programu
  39. Global Const CATEG_PGMEXE = 5       ' prelozeny program
  40. Global Const CATEG_MENU = 6         ' menu
  41. Global Const CATEG_APPL = 7         ' aplikace
  42. Global Const CATEG_PICT = 8         ' obrazek
  43. Global Const CATEG_GROUP = 9        ' skupina
  44. Global Const CATEG_ROLE = 10        ' role
  45. Global Const CATEG_CONNECTION = 11  ' ODBC spojeni
  46. Global Const CATEG_RELATION = 12    ' relace
  47. Global Const CATEG_DRAWING = 13     ' nakres
  48. Global Const CATEG_GRAPH = 14       ' graf
  49. Global Const CATEG_REPLREL = 15     ' replikacni vztah
  50. Global Const CATEG_PROC = 16        ' rutina
  51. Global Const CATEG_TRIGGER = 17     ' trigger
  52. Global Const CATEG_SERVER = 26      ' replikacni server
  53. Global Const CATEG_MASK = &H7F
  54. Global Const IS_LINK = &H80         ' spojovaci objekt
  55. Global Const CATEG_DIRCUR = 27      ' otevreny kurzor
  56. '
  57. ' Struktura kernel_info
  58. '
  59. Type kernel_info
  60.   version(6)         As Byte                       ' ASCIIZ oznaceni verze serveru
  61.   logged             As Integer                    ' pocet prihlasenych uzivatelu
  62.   blocksize          As Integer                    ' velikost clusteru
  63.   freeblocks         As Long                       ' pocet volnych clusteru v alokacni tabulce
  64.   frames             As Integer                    ' pocet pametovych ramu
  65.   fixed_pages        As Integer                    ' pocet ramu s fixovanym obsahem
  66.   rtp                As Byte                       ' provozni parametry
  67.   diskspace          As Long                       ' mnozstvi volneho mista na disku
  68.   server_name(32)    As Byte                       ' jmeno serveru
  69.   local_free_memory  As Long
  70.   remote_free_memory As Long
  71.   networking         As Integer
  72.   Owned_cursors      As Integer
  73. End Type
  74. '
  75. ' Hodnota typu money
  76. '
  77. Type monstr
  78.   money_lo2 As Integer
  79.   money_hi4 As Long
  80. End Type
  81. '
  82. ' Hodnoty slozky "modtype" v zaznamu "modifrec"
  83. '
  84. Global Const MODSTOP = 0
  85. Global Const MODLEN = 2
  86. Global Const MODIND = 3
  87. Global Const modint = 4
  88. Global Const MODPTR = 5
  89. Global Const MODINDPTR = 6
  90.  
  91. Type modifrec
  92.   modtype As Byte
  93.   word1   As Integer
  94.   word2   As Integer
  95.   word3   As Integer
  96. End Type
  97.  
  98. Type modint
  99.   modtype As Byte
  100.   start   As Long
  101.   size    As Integer
  102. End Type
  103. '
  104. ' Pristupova prava
  105. '
  106. Global Const RIGHT_READ = &H1
  107. Global Const RIGHT_WRITE = &H2
  108. Global Const RIGHT_APPEND = &H4
  109. Global Const RIGHT_INSERT = &H4
  110. Global Const RIGHT_DEL = &H8
  111. Global Const RIGHT_NEW_READ = &H10  ' pridelovat k novym zaznamum pravo cist
  112. Global Const RIGHT_NEW_WRITE = &H20 ' pridelovat k novym zaznamum pravo prepsat
  113. Global Const RIGHT_NEW_DEL = &H40   ' pridelovat k novym zaznamum pravo zrusit
  114. Global Const RIGHT_GRANT = &H80     ' universalni pravo poskytovat sva prava
  115. '
  116. ' Hodnoty "NONE" ruznych typu
  117. '
  118. Global Const NONEBOOLEAN = &H80
  119. Global Const NONECHAR = 0
  120. Global Const NONEDATE = &H80000000
  121. Global Const NONETIME = &H80000000
  122. 'Global Const NONEMONEY     nelze takto definovat, ma hodnotu 0,0,0,0,0,&H80
  123. Global Const NONEINTEGER = &H80000000
  124. Global Const NONESHORT = &H8000
  125. Global Const NONEREAL = -1.7001E+308
  126. Global Const NONESTRING = ""
  127. Global Const NONEPTR = -1&
  128. Global Const NORECNUM = -1&
  129. '
  130. ' Cisla chyb
  131. '
  132. Global Const NO_ERROR = 0
  133. Global Const ANS_OK = 0
  134. Global Const NOT_ANSWERED = &HFF
  135. Global Const BAD_MODIF = &H80
  136. Global Const NO_RIGHT = &H81
  137. Global Const BAD_ELEM_NUM = &H82
  138. Global Const OUT_OF_TABLE = &H83                ' 02000
  139. Global Const TABLE_FULL = &H84
  140. Global Const CURSOR_MISUSE = &H85
  141. Global Const BAD_OPCODE = &H86
  142. Global Const CANNOT_APPEND = &H87
  143. Global Const NOT_LOCKED = &H88
  144. Global Const NO_DESTINATION_TAB = &H89
  145. Global Const INDEX_OUT_OF_RANGE = &H8A
  146. Global Const NOT_A_RECORD = &H8B
  147. Global Const ERR_EMPTY = &H8C
  148. Global Const NO_OBJECT = &H8D
  149. Global Const BAD_PASSWORD = &H8E
  150. Global Const PTR_TO_DELETED = &H8F
  151. Global Const NIL_PTR = &H90
  152. Global Const OUT_OF_KERNEL_MEMORY = &H91
  153. Global Const TOO_MANY_CURSORS = &H92
  154. Global Const IS_DELETED = &H93
  155. Global Const BAD_CURDEF = &H94
  156. Global Const OBJECT_NOT_FOUND = &H95
  157. Global Const OUT_OF_APPL_MEMORY = &H96
  158. Global Const BAD_DATA_SIZE = &H97
  159. Global Const UNREADABLE_BLOCK = &H98
  160. Global Const DEMO_VERSION = &H99
  161. Global Const OUT_OF_BLOCKS = &H9A
  162. Global Const REQUEST_BREAKED = &H9B
  163. Global Const OS_FILE_ERROR = &H9D
  164. Global Const INCOMPATIBLE_VERSION = &H9E
  165. Global Const REJECTED_BY_KERNEL = &H9F
  166. Global Const PROGRAM_ERROR = &HA0               ' 40002
  167. Global Const NO_BITAB = &HA1
  168. Global Const NO_MY_RIGHT = &HA2
  169. Global Const IE_OUT_OF_DWORM = &HA3             ' interni chyba
  170. Global Const IE_FRAME_OVERRUN = &HA4            ' interni chyba
  171. Global Const IE_PAGING = &HA5                   ' interni chyba
  172. Global Const IE_DOUBLE_PAGE = &HA6              ' interni chyba
  173. Global Const IE_OUT_OF_BSTACK = &HA7            ' interni chyba
  174. Global Const TABLE_DAMAGED = &HA8
  175. Global Const CANNOT_LOCK_KERNEL = &HA9
  176. Global Const END_OF_VOLUME_SPACE = &HAA         ' interni zprava
  177. Global Const DEADLOCK = &HAB
  178. Global Const KEY_DUPLICITY = &HAC               ' 40002
  179. Global Const BAD_VERSION = &HAD
  180. Global Const CHECK_CONSTRAIN = &HAE             ' 40002    
  181. Global Const REFERENTIAL_CONSTRAIN = &HAF       ' 40002
  182. Global Const UNPROPER_TYPE = &HB0
  183. Global Const OUTER_JOIN_TOO_COMPLEX = &HB1
  184. Global Const REQUEST_NESTING = &HB2
  185. Global Const CANNOT_FOR_ODBC = &HB3
  186. Global Const ERROR_IN_FUNCTION_ARG = &HB4
  187. Global Const ODBC_CURSOR_NOT_OPEN = &HB5
  188. Global Const DRIVER_NOT_CAPABLE = &HB6
  189. Global Const TOO_COMPLEX_TRANS = &HB7
  190. Global Const INTERNAL_SIGNAL = &HB8
  191. Global Const PRIV_KEY_NOT_FOUND = &HB9
  192. Global Const NO_WRITE_TOKEN = &HBA
  193. Global Const WAITING_FOR_ACKN = &HBB
  194. Global Const REPL_BLOCKED = &HBC
  195. Global Const BAD_TOKEN_STATE = &HBD
  196. Global Const BAD_TABLE_PROPERTIES = &HBE
  197. Global Const INDEX_DAMAGED = &HBF
  198. Global Const PASSWORD_EXPIRED = &HC0
  199. Global Const NO_KEY_FOUND = &HC1
  200. Global Const DIFFERENT_KEY = &HC2
  201. Global Const SQ_INVALID_CURSOR_STATE = &HC4     ' 24000
  202. Global Const SQ_SAVEPOINT_INVAL_SPEC = &HC5     ' 3B001
  203. Global Const SQ_SAVEPOINT_TOO_MANY = &HC6       ' 3B002
  204. Global Const SQ_TRANS_STATE_ACTIVE = &HC7       ' 25001
  205. Global Const SQ_INVAL_TRANS_TERM = &HC8         ' 2D000
  206. Global Const SQ_TRANS_STATE_RDONLY = &HC9       ' 25006
  207. Global Const SQ_NUM_VAL_OUT_OF_RANGE = &HCa     ' 22003
  208. Global Const SQ_INV_CHAR_VAL_FOR_CAST = &HCb    ' 22018
  209. Global Const SQ_STRING_DATA_RIGHT_TRU = &HCc    ' 22001
  210. Global Const SQ_DIVISION_BY_ZERO = &HCd         ' 22012
  211. Global Const SQ_CARDINALITY_VIOLATION = &HCe    ' 21000
  212. Global Const SQ_INVALID_ESCAPE_CHAR = &HCf      ' 22019
  213. Global Const SQ_CASE_NOT_FOUND_STMT = &HD0      ' 20000
  214. Global Const SQ_UNHANDLED_USER_EXCEPT = &HD1    ' 45000
  215. Global Const SQ_RESIGNAL_HND_NOT_ACT = &HD2     ' 0K000
  216. Global Const SQ_EXT_ROUT_NOT_AVAIL = &HD3       ' 38001
  217. Global Const SQ_NO_RETURN_IN_FNC = &HD4         ' 2F001
  218. Global Const COLUMN_NOT_EDITABLE = &HD5
  219. Global Const SQ_TRIGGERED_ACTION = &HD6         ' 09000
  220. Global Const REPLICATION_NOT_RUNNING = &HD7
  221. Global Const REPL_MAIL_ERROR = &HD8
  222. Global Const SQ_INVALID_CURSOR_NAME = &HD9      ' 34000
  223.  
  224. Global Const LAST_DB_ERROR = &HD9
  225.  
  226. Global Const FIRST_MAIL_ERROR = 500             ' chyby mail klienta
  227. Global Const MAIL_NOT_INITIALIZED = 500
  228. Global Const MAIL_ERROR = 501
  229. Global Const MAIL_NOT_REMOTE = 502
  230. Global Const MAIL_TYPE_INVALID = 503
  231. Global Const MAIL_LOGON_FAILED = 504
  232. Global Const MAIL_BAD_PROFILE = 50 = 5
  233. Global Const MAIL_BAD_USERID = 506
  234. Global Const MAIL_NO_ADDRESS = 507
  235. Global Const FILE_NOT_FOUND = 508
  236. '
  237. ' Cisla varovani
  238. '
  239. Global Const NO_WARNING = 0
  240. Global Const WAS_IN_TRANS = 1
  241. Global Const NOT_IN_TRANS = 2
  242. Global Const IS_NOT_DEL = 4
  243. Global Const IS_DEL = 8
  244. Global Const IS_EMPTY = 16
  245. Global Const NO_BIPTR = 32
  246. Global Const INDEX_OOR = 64
  247. Global Const DUPL_KEY = 96
  248. Global Const IS_ERROR = 128
  249. '
  250. ' Hodnoty vracene funkci link_kernel a interf_init
  251. '
  252. Global Const KSE_OK = 0                      ' bez chyby
  253. Global Const KSE_WINDOWS = 1                 ' zahlcene Windows
  254. Global Const KSE_INSTAL_PRESENT = 2          ' pracuje program WBINSTAL
  255. Global Const KSE_ZALOHA_PRESENT = 3          ' pracuje program ZALOHA
  256. Global Const KSE_WINEXEC = 4                 ' nelze spustit WBADMIN
  257. Global Const KSE_NO_MEMORY = 5               ' neni dost pameti
  258. Global Const KSE_NO_CONFIG = 6               ' nenalezen kofiguracni soubor WB.CNF
  259. Global Const KSE_NO_FIL = 7                  ' jmeno serveru neni registrovano
  260. Global Const KSE_DAMAGED = 8                 ' databaze je vazne poskozena
  261. Global Const KSE_NO_ACCESS = 9               ' zahlceno databazove jadro
  262. Global Const KSE_BAD_SIZE = 10               ' nesouhlas verzi (velka vs. mala)
  263. Global Const KSE_BAD_VERSION = 11            ' chybna verze jadra
  264. Global Const KSE_NETWORK_INIT = 12           ' nedari se inicializovat sit
  265. Global Const KSE_QUIT = 13                   ' nevybran zadny server
  266. Global Const KSE_NOSERVER = 14               ' nenalezen zadny server
  267. Global Const KSE_CONNECTION = 15             ' nenavazano spojeni se serverem
  268. Global Const KSE_NOTASK = 16                 ' nelze vytvorit dalsi instanci
  269. Global Const KSE_WBNETMEM = 17               ' nelze spustit program WBNETMEM
  270. Global Const KSE_MAXCLIENTS = 18             ' exceeded number of client instances
  271. Global Const KSE_SPXNOTINSTALLED = 19        ' loaded IPX does nor support SPX, probably IPXODI /a
  272. Global Const KSE_MAXCONNECTION = 20          ' not enough SPX connections, set in shell.cfg
  273. Global Const KSE_MAXSESSION = 21             ' not enough NetBIOS sessions, see the installation guide
  274. Global Const KSE_MAXNCB = 22                 ' not enough NetBIOS control blocks, see the installation guide
  275. Global Const KSE_DBASE_OPEN = 23             ' database already open by another server
  276. Global Const KSE_SERVER_NAME_USED = 24       ' v siti jiz bezi databazovy server stejneho jmena
  277. Global Const KSE_START_THREAD = 25           ' nelze spustit dalsi vlakno
  278. Global Const KSE_SYNCHRO_OBJ = 26            ' nelze vytvorit synchronizacni objekt
  279. Global Const KSE_MAPPING = 27                ' nelze mapovat pametovy soubor
  280. Global Const KSE_CREATE_THREAD = 28          ' nelze vytvorit vlakno pro obsluhu klienta
  281. Global Const KSE_TIMEOUT = 29                ' primo dostupny server neodpovida
  282. Global Const KSE_NO_WINSOCK = 30             ' knihovna winsock neni instalovana
  283. Global Const KSE_WINSOCK_ERROR = 31          ' chyba pri praci se socketem
  284. Global Const KSE_SERVER_NOT_KNOWN = 32       ' jmeno serveru neni registrovano
  285. Global Const KSE_SERVER_PATH_NOT_SPECIF = 33 ' cesta k databazi serveru neni registrovana
  286. Global Const KSE_NETBIOS_NAME = 34           ' nemohu pridat jmeno pro NetBIOS
  287. Global Const KSE_FWNOTFOUND = 35             ' nenalezen firewall
  288. Global Const KSE_FWCOMM = 36                 ' nelze komunikovat s firewallem
  289. Global Const KSE_FWDENIED = 37               ' firewall odmitl vytvorit propojeni
  290. Global Const KSE_BAD_PASSWORD = 38           ' chyba hesla k databazovemu souboru
  291. Global Const KSE_ESCAPED = 39                ' upusteno od startu serveru
  292. Global Const KSE_NO_IPX = 40                 ' protokol IPX neni k dispozici
  293. Global Const KSE_EXPIRED = 41                ' skoncila pouzitelnost serveru
  294. Global Const KSE_CANNOT_CREATE_FIL = 42      ' nelze vytvorit databazovy soubor
  295. Global Const KSE_CANNOT_OPEN_FIL = 43        ' nelze otevrit databazovy soubor
  296. Global Const KSE_CANNOT_OPEN_TRANS = 44      ' nelze otevrit transakcni soubor
  297. Global Const KSE_LAST = 44
  298.  
  299. Global Const NOINDEX = &HFFFF                ' hodnota parametru index, nejde-li o multiatribut
  300. Global Const NO_INDEX = &HFFFF                ' hodnota parametru index, nejde-li o multiatribut
  301. Global Const MAX_PACKAGED_REQS = 25          ' max. pocet pozadavku v baliku
  302. '
  303. ' interp vars
  304. '
  305. Global Const OBJ_NAME_LEN = 31               ' max. delka jmena databazovych objektu
  306. Global Const OBJ_NAME_LEN1 = 32              ' max. delka jmena databazovych objektu + 1
  307. Global Const MAX_INDVAL_LEN = 77
  308. Global Const CURS_SQL = &H2000
  309. Global Const CD_T_LEN = 1078
  310. '
  311. ' procedury a funkce
  312. '
  313. ' Sluzby jadra
  314. '
  315. Declare Sub cdp_free Lib "WBKERNEL.DLL" (ByVal cdp As Long)
  316. Declare Sub CloseWBMail Lib "WBKERNEL.DLL" ()
  317. Declare Sub concurrent Lib "WBKERNEL.DLL" (ByVal state As Integer)
  318. Declare Sub Enable_task_switch Lib "WBKERNEL.DLL" (ByVal enable As Integer)
  319. Declare Sub interf_close Lib "WBKERNEL.DLL" ()
  320. Declare Sub LetterCancel Lib "WBKERNEL.DLL" (ByVal Letter As Long)
  321. Declare Sub send_package Lib "WBKERNEL.DLL" ()
  322. Declare Sub start_package Lib "WBKERNEL.DLL" ()
  323. Declare Sub unlink_kernel Lib "WBKERNEL.DLL" ()
  324. Declare Sub Upcase Lib "WBKERNEL.DLL" (ByVal Strn As String)
  325.  
  326. Declare Function Add_record Lib "WBKERNEL.DLL" (ByVal Curs As Integer, recs As Long, ByVal numofrecs As Integer) As Integer
  327. Declare Function Am_I_db_admin Lib "WBKERNEL.DLL" () As Integer
  328. Declare Function answered Lib "WBKERNEL.DLL" () As Integer
  329. Declare Function Append Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Long
  330. Declare Function Attribute_info Lib "WBKERNEL.DLL" (ByVal table As Integer, ByVal attrname As String, attrnum As Byte, attrtype As Byte, attrmult As Byte, attrspecif As Byte) As Integer
  331. Declare Function Available_memory Lib "WBKERNEL.DLL" (ByVal floc As Integer) As Long
  332. Declare Function Break Lib "WBKERNEL.DLL" () As Integer
  333. Declare Function C_avg Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  334. Declare Function C_count Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Long) As Integer
  335. Declare Function C_max Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  336. Declare Function C_min Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  337. Declare Function C_sum Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  338. Declare Function cdp_init_vb Lib "WBKERNEL.DLL" () As Long
  339. Declare Function Close_cursor Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Integer
  340. Declare Function Commit Lib "WBKERNEL.DLL" () As Integer
  341. Declare Function Compact_database Lib "WBKERNEL.DLL" (ByVal margin As Long) As Integer
  342. Declare Function Create2_link Lib "WBKERNEL.DLL" (ByVal sourcename As String, appl_id As Any, ByVal category As Integer, ByVal linkname As String) As Integer
  343. Declare Function Compact_table Lib "WBKERNEL.DLL" (ByVal table As Integer) As Integer
  344. Declare Function Create_link Lib "WBKERNEL.DLL" (ByVal sourcename As String, ByVal sourceappl As String, ByVal category As Integer, ByVal linkname As String) As Integer
  345. Declare Function Create_group Lib "WBKERNEL.DLL" (ByVal GrpName As String) As Integer
  346. Declare Function Create_user Lib "WBKERNEL.DLL" (ByVal logname As String, ByVal name1 As String, ByVal name2 As String, ByVal name3 As String, ByVal identif As String, homesrv As Any, ByVal password As String, objnum As Integer) As Integer
  347. Declare Function Database_integrity Lib "WBKERNEL.DLL" (ByVal repair As Integer, lost_blocks As Long, lost_dheap As Long, nonex_blocks As Long, cross_link As Long, damaged_tabdef As Long) As Integer
  348. Declare Function datetime2timestamp Lib "WBKERNEL.DLL" (ByVal dt As Long, ByVal tm As Long) As Long
  349. Declare Function Day_of_week Lib "WBKERNEL.DLL" (ByVal dt As Long) As Integer
  350. Declare Function Define_table Lib "WBKERNEL.DLL" (ByVal TbName As String, ByVal Description As String) As Integer
  351. Declare Function Delete Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long) As Integer
  352. Declare Function Delete_all_records Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Integer
  353. Declare Function Enable_index Lib "WBKERNEL.DLL" (ByVal Tb As Integer, ByVal which As Integer, ByVal enable As Integer) As Integer
  354. Declare Function Find_object Lib "WBKERNEL.DLL" (ByVal ObjName As String, ByVal category As Integer, position As Integer) As Integer
  355. Declare Function Find_object_by_id Lib "WBKERNEL.DLL" (uuid As Any, ByVal category As Integer, position As Integer) As Integer
  356. Declare Function Find2_object Lib "WBKERNEL.DLL" (ByVal ObjName As String, appl_id As Any, ByVal category As Integer, position As Integer) As Integer
  357. Declare Function Free_deleted Lib "WBKERNEL.DLL" (ByVal table As Integer) As Integer
  358. Declare Function Get_data_rights Lib "WBKERNEL.DLL" (ByVal table As Integer, ByVal username As String, ByVal Rights As String, rd_ri As Integer, wr_ri As Integer) As Integer
  359. Declare Function Get_info Lib "WBKERNEL.DLL" (kinf As kernel_info) As Integer
  360. Declare Function Get_object_rights Lib "WBKERNEL.DLL" (ByVal ObjName As String, ByVal category As Integer, ByVal username As String, ByVal Rights As String) As Integer
  361. Declare Function GetSet_fil_size Lib "WBKERNEL.DLL" (ByVal operation As Integer, size As Long) As Integer
  362. Declare Function GetSet_group_role Lib "WBKERNEL.DLL" (ByVal user_or_group As Integer, ByVal group_or_role As Integer, ByVal subject2 As Integer, ByVal operation As Integer, relation As Long) As Integer
  363. Declare Function GetSet_next_user Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long, ByVal attr As Integer, ByVal operation As Integer, ByVal valtype As Integer, value As Any) As Integer
  364. Declare Function GetSet_privils Lib "WBKERNEL.DLL" (ByVal user_group_role As Integer, ByVal subject_categ As Integer, ByVal table As Integer, ByVal recnum As Long, ByVal operation As Integer, privils As Any) As Integer
  365. Declare Function Hours Lib "WBKERNEL.DLL" (ByVal Tm As Long) As Integer
  366. Declare Function InitWBMail Lib "WBKERNEL.DLL" (ByVal Profile As String, ByVal PassWord As String) As Integer
  367. Declare Function InitWBMail602 Lib "WBKERNEL.DLL" (ByVal EmiPath As String, ByVal UserID As String, ByVal PassWord As String) As Integer
  368. Declare Function Insert Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Long
  369. Declare Function Insert_object Lib "WBKERNEL.DLL" (ByVal ObjName As String, ByVal category As Integer, objnum As Integer) As Integer
  370. Declare Function interf_init Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal user As Integer) As Integer
  371. Declare Function LetterAddAddr Lib "WBKERNEL.DLL" (ByVal Letter As Long, ByVal Addr As String, ByVal AddrType As String, ByVal CC As Boolean) As Integer
  372. Declare Function LetterAddFile Lib "WBKERNEL.DLL" (ByVal Letter As Long, ByVal fName As String) As Integer
  373. Declare Function LetterCreate Lib "WBKERNEL.DLL" (ByVal Subj As String, ByVal Msg As String, ByVal Flags As Long, lpLetter As Long) As Integer
  374. Declare Function LetterSend Lib "WBKERNEL.DLL" (ByVal Letter As Long) As Integer
  375. Declare Function link_kernel Lib "WBKERNEL.DLL" (ByVal Path As String, ByVal SW_Show As Integer) As Integer
  376. Declare Function Login Lib "WBKERNEL.DLL" (ByVal username As String, ByVal password As String) As Integer
  377. Declare Function Logout Lib "WBKERNEL.DLL" () As Integer
  378. Declare Function Log_write Lib "WBKERNEL.DLL" (ByVal text As String) As Integer
  379. Declare Function Look_up Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal attrname As String, res As Any) As Long
  380. Declare Function Make_date Lib "WBKERNEL.DLL" (ByVal Den As Long, ByVal Mes As Long, ByVal Rok As Long) As Long
  381. Declare Function Make_time Lib "WBKERNEL.DLL" (ByVal Hod As Long, ByVal Min As Long, ByVal Sec As Long, ByVal Sec1000 As Long) As Long
  382. Declare Function Minutes Lib "WBKERNEL.DLL" (ByVal Tm As Long) As Integer
  383. Declare Function money2real Lib "WBKERNEL.DLL" (m As monstr) As Double
  384. Declare Function Open_cursor Lib "WBKERNEL.DLL" (ByVal cursdef As Integer, Curs As Integer) As Integer
  385. Declare Function Open_cursor_direct Lib "WBKERNEL.DLL" (ByVal query As String, Curs As Integer) As Integer
  386. Declare Function Open_subcursor Lib "WBKERNEL.DLL" (ByVal supercurs As Integer, ByVal subcurdef As String, subcurs As Integer) As Integer
  387. Declare Function ODBC_create_connection Lib "WBKERNEL.DLL" (ByVal DsnName As String) As Long
  388. Declare Function ODBC_direct_connection Lib "WBKERNEL.DLL" (ByVal DsnName As String, ByVal ConnString As String) As Long
  389. Declare Function ODBC_find_connection Lib "WBKERNEL.DLL" (ByVal DsnName As String) As Long
  390. Declare Function ODBC_open_cursor Lib "WBKERNEL.DLL" (ByVal connection As Long, Curs As Integer, ByVal query As String) As Integer
  391. Declare Function Owned_cursors Lib "WBKERNEL.DLL" () As Integer
  392. Declare Function Pref Lib "WBKERNEL.DLL" (ByVal S1 As String, ByVal S2 As String) As Integer
  393. Declare Function Quarter Lib "WBKERNEL.DLL" (ByVal dt As Long) As Integer
  394. Declare Function Query_optimization Lib "WBKERNEL.DLL" (ByVal query As String, ByVal buf As String, ByVal bufsize As Long) As Integer
  395. Declare Function Read_ind Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, buffer As Any) As Integer
  396. Declare Function Read_ind_str Lib "WBKERNEL.DLL" Alias "Read_ind" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal buffer As String) As Integer
  397. Declare Function Read_ind_cnt Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, count As Integer) As Integer
  398. Declare Function Read_len Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, size As Long) As Integer
  399. Declare Function Read_lock_record Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long) As Integer
  400. Declare Function Read_lock_table Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Integer
  401. Declare Function Read_record Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long, buf As Any, ByVal datasize As Integer) As Integer
  402. Declare Function Read_unlock_record Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long) As Integer
  403. Declare Function Read_unlock_table Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Integer
  404. Declare Function Read_var Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal start As Long, ByVal size As Long, buffer As Any, psize As Long) As Integer
  405. Declare Function Read_var_str Lib "WBKERNEL.DLL" Alias "Read_var" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal start As Long, ByVal size As Long, ByVal buffer As String, psize As Long) As Integer
  406. Declare Function real2money Lib "WBKERNEL.DLL" (ByVal d As Double, m As monstr) As Integer
  407. Declare Function Rec_cnt Lib "WBKERNEL.DLL" (ByVal Curs As Integer, recnum As Long) As Integer
  408. Declare Function Relist_objects Lib "WBKERNEL.DLL" () As Integer
  409. Declare Function Replace_table Lib "WBKERNEL.DLL" (ByVal Source_tab As Integer, ByVal Dest_tab As Integer, ByVal Ind_redef As String) As Integer
  410. Declare Function Repl_control Lib "WBKERNEL.DLL" (ByVal optype As Integer, ByVal opparsize As Integer, ByVal opparam As String) As Integer
  411. Declare Function Reset_replication Lib "WBKERNEL.DLL" () As Integer
  412. Declare Function Restore_table Lib "WBKERNEL.DLL" (ByVal table As Integer, ByVal filename As String) As Integer
  413. Declare Function Roll_back Lib "WBKERNEL.DLL" () As Integer
  414. Declare Function Save_table Lib "WBKERNEL.DLL" (ByVal table As Integer, ByVal filename As String) As Integer
  415. Declare Function Sec1000 Lib "WBKERNEL.DLL" (ByVal Tm As Long) As Integer
  416. Declare Function Seconds Lib "WBKERNEL.DLL" (ByVal Tm As Long) As Integer
  417. Declare Function Set_application Lib "WBKERNEL.DLL" (ByVal applname As String) As Integer
  418. Declare Function Set_data_rights Lib "WBKERNEL.DLL" (ByVal table As Integer, ByVal username As String, ByVal Rights As String, ByVal rd_ri As Integer, ByVal wr_ri As Integer) As Integer
  419. Declare Function Set_object_rights Lib "WBKERNEL.DLL" (ByVal ObjName As String, ByVal category As Integer, ByVal username As String, ByVal Rights As String) As Integer
  420. Declare Function Set_password Lib "WBKERNEL.DLL" (ByVal Usernm As String, ByVal password As String) As Integer
  421. Declare Function Set_sql_option Lib "WBKERNEL.DLL" (ByVal optmask As Long, ByVal optval As Long) As Integer
  422. Declare Function Signature Lib "WBKERNEL.DLL" (ByVal hParent As Integer, ByVal cursor As Integer, ByVal recnum As Long, ByVal attr As Integer, ByVal create As Integer, param As Any) As Integer
  423. Declare Function SQL_drop Lib "WBKERNEL.DLL" (ByVal handle As Long) As Integer
  424. Declare Function SQL_execute Lib "WBKERNEL.DLL" (ByVal statement As String, results As Long) As Integer
  425. Declare Function SQL_exec_prepared Lib "WBKERNEL.DLL" (ByVal handle As Long, results As Long, count As Long) As Integer
  426. Declare Function SQL_prepare Lib "WBKERNEL.DLL" (ByVal statement As String, handle As Long) As Integer
  427. Declare Function Start_transaction Lib "WBKERNEL.DLL" () As Integer
  428. Declare Function Substr Lib "WBKERNEL.DLL" (ByVal S1 As String, ByVal S2 As String) As Integer
  429. Declare Function Super_recnum Lib "WBKERNEL.DLL" (ByVal subcursor As Integer, ByVal supercursor As Integer, ByVal subrecnum As Long, superrecnum As Long) As Integer
  430. Declare Function Sz_error Lib "WBKERNEL.DLL" () As Integer
  431. Declare Function Sz_warning Lib "WBKERNEL.DLL" () As Integer
  432. Declare Function TakeMailToRemOffice Lib "WBKERNEL.DLL" () As Integer
  433. Declare Function timestamp2date Lib "WBKERNEL.DLL" (ByVal dtm As Long) As Long
  434. Declare Function timestamp2time Lib "WBKERNEL.DLL" (ByVal dtm As Long) As Long
  435. Declare Function Today Lib "WBKERNEL.DLL" () As Long
  436. Declare Function Translate Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal crec As Long, ByVal tbord As Integer, trec As Long) As Integer
  437. Declare Function Undelete Lib "WBKERNEL.DLL" (ByVal table As Integer, ByVal position As Long) As Integer
  438. Declare Function Uninst_table Lib "WBKERNEL.DLL" (ByVal table As Integer) As Integer
  439. Declare Function User_in_group Lib "WBKERNEL.DLL" (ByVal user As Integer, ByVal group As Integer, state As Integer) As Integer
  440. Declare Function User_to_group Lib "WBKERNEL.DLL" (ByVal user As Integer, ByVal group As Integer, ByVal state As Integer) As Integer
  441. Declare Function waiting Lib "WBKERNEL.DLL" (ByVal timeout As Long) As Integer
  442. Declare Function Who_am_I Lib "WBKERNEL.DLL" () As String
  443. Declare Function WinBase602_version Lib "WBKERNEL.DLL" () As Long
  444. Declare Function Write_ind Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, buffer As Any, ByVal size As Integer) As Integer
  445. Declare Function Write_ind_str Lib "WBKERNEL.DLL" Alias "Write_ind" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal buffer As String, ByVal size As Integer) As Integer
  446. Declare Function Write_ind_cnt Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, count As Integer) As Integer
  447. Declare Function Write_len Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal size As Integer) As Integer
  448. Declare Function Write_var Lib "WBKERNEL.DLL" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal start As Long, ByVal size As Long, buffer As Any) As Integer
  449. Declare Function Write_var_str Lib "WBKERNEL.DLL" Alias "Write_var" (ByVal curstab As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal start As Long, ByVal size As Long, ByVal buffer As String) As Integer
  450. Declare Function Write_lock_record Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long) As Integer
  451. Declare Function Write_lock_table Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Integer
  452. Declare Function Write_record Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long, buf As Any, ByVal datasize As Integer) As Integer
  453. Declare Function Write_unlock_record Lib "WBKERNEL.DLL" (ByVal Curs As Integer, ByVal position As Long) As Integer
  454. Declare Function Write_unlock_table Lib "WBKERNEL.DLL" (ByVal Curs As Integer) As Integer
  455.  
  456. Declare Function WBAppend Lib "WBKERNEL.DLL" Alias "Append" (ByVal Curs As Integer) As Long
  457. Declare Function WBDay Lib "WBKERNEL.DLL" Alias "Day" (ByVal dt As Long) As Integer
  458. Declare Function WBDelete Lib "WBKERNEL.DLL" Alias "Delete" (ByVal Curs As Integer, ByVal position As Long) As Integer
  459. Declare Function WBInsert Lib "WBKERNEL.DLL" Alias "Insert" (ByVal Curs As Integer) As Long
  460. Declare Function WBLike Lib "WBKERNEL.DLL" Alias "Like" (ByVal S1 As String, ByVal S2 As String) As Integer
  461. Declare Function WBMonth Lib "WBKERNEL.DLL" Alias "Month" (ByVal dt As Long) As Integer
  462. Declare Function WBNow Lib "WBKERNEL.DLL" Alias "Now" () As Long
  463. Declare Function WBRead Lib "WBKERNEL.DLL" Alias "Read" (ByVal Curs As Integer, ByVal position As Long, ByVal attr As Integer, Acc As Any, buffer As Any) As Integer
  464. Declare Function WBUndelete Lib "WBKERNEL.DLL" Alias "Undelete" (ByVal table As Integer, ByVal position As Long) As Integer
  465. Declare Function WBWrite Lib "WBKERNEL.DLL" Alias "Write" (ByVal Curs As Integer, ByVal position As Long, ByVal attr As Integer, Acc As Any, buffer As Any, ByVal datasize As Integer) As Integer
  466. Declare Function WBYear Lib "WBKERNEL.DLL" Alias "Year" (ByVal dt As Long) As Integer
  467.  
  468. Declare Sub cd_concurrent Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal state As Integer)
  469. Declare Sub cd_Enable_task_switch Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal enable As Integer)
  470. Declare Sub cd_interf_close Lib "WBKERNEL.DLL" (ByVal cdp As Long)
  471. Declare Sub cd_send_package Lib "WBKERNEL.DLL" (ByVal cdp As Long)
  472. Declare Sub cd_start_package Lib "WBKERNEL.DLL" (ByVal cdp As Long)
  473.  
  474. Declare Function cd_Add_record Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, recs As Long, ByVal numofrecs As Integer) As Integer
  475. Declare Function cd_Am_I_db_admin Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  476. Declare Function cd_answered Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  477. Declare Function cd_Append Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Long
  478. Declare Function cd_Attribute_info Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal table As Integer, ByVal attrname As String, attrnum As Byte, attrtype As Byte, attrmult As Byte, attrspecif As Byte) As Integer
  479. Declare Function cd_Available_memory Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal loc As Integer) As Long
  480. Declare Function cd_Break Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  481. Declare Function cd_C_avg Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  482. Declare Function cd_C_count Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Long) As Integer
  483. Declare Function cd_C_max Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  484. Declare Function cd_C_min Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  485. Declare Function cd_C_sum Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal attrname As String, ByVal condition As String, result As Any) As Integer
  486. Declare Function cd_Close_cursor Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Integer
  487. Declare Function cd_Commit Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  488. Declare Function cd_Compact_database Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal margin As Long) As Integer
  489. Declare Function cd_Compact_table Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal table As Integer) As Integer
  490. Declare Function cd_Create2_link Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal sourcename As String, appl_id As Any, ByVal category As Integer, ByVal linkname As String) As Integer
  491. Declare Function cd_Create_link Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal sourcename As String, sourceappl As Any, ByVal category As Integer, ByVal linkname As String) As Integer
  492. Declare Function cd_Create_user Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal logname As String, ByVal name1 As String, ByVal name2 As String, ByVal name3 As String, ByVal identif As String, homesrv As Any, ByVal password As String, objnum As Integer) As Integer
  493. Declare Function cd_Database_integrity Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal repair As Integer, lost_blocks As Long, lost_dheap As Long, nonex_blocks As Long, cross_link As Long, damaged_tabdef As Long) As Integer
  494. Declare Function cd_Delete Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal position As Long) As Integer
  495. Declare Function cd_Delete_all_records Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Integer
  496. Declare Function cd_Enable_index Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal table As Integer, ByVal which As Integer, ByVal enable As Integer) As Integer
  497. Declare Function cd_Find_object Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal name As String, ByVal category As Integer, position As Integer) As Integer
  498. Declare Function cd_Find_object_by_id Lib "WBKERNEL.DLL" (ByVal cdp As Long, uuid As Any, ByVal category As Integer, position As Integer) As Integer
  499. Declare Function cd_Find2_object Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal name As String, appl_id As Any, ByVal category As Integer, position As Integer) As Integer
  500. Declare Function cd_Get_info Lib "WBKERNEL.DLL" (ByVal cdp As Long, kinf As kernel_info) As Integer
  501. Declare Function cd_GetSet_fil_size Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal operation As Integer, size As Long) As Integer
  502. Declare Function cd_GetSet_next_user Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal position As Long, ByVal attr As Integer, ByVal operation As Integer, ByVal valtype As Integer, value As Any) As Integer
  503. Declare Function cd_GetSet_privils Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal user_group_role As Integer, ByVal subject_categ As Integer, ByVal table As Integer, ByVal recnum As Long, ByVal operation As Integer, privils As Any) As Integer
  504. Declare Function cd_GetSet_group_role Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal user_or_group As Integer, ByVal group_or_role As Integer, ByVal subject2 As Integer, ByVal operation As Integer, relation As Long) As Integer
  505. Declare Function cd_Free_deleted Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal table As Integer) As Integer
  506. Declare Function cd_Insert Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Long
  507. Declare Function cd_Insert_object Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal name As String, ByVal category As Integer, objnum As Integer) As Integer
  508. Declare Function cd_Login Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal username As String, ByVal password As String) As Integer
  509. Declare Function cd_Logout Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  510. Declare Function cd_Log_write Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal text As String) As Integer
  511. Declare Function cd_Look_up Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal attrname As String, res As Any) As Long
  512. Declare Function cd_ODBC_create_connection Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal dsn_name As String) As Long
  513. Declare Function cd_ODBC_direct_connection Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal conn_string As String) As Long
  514. Declare Function cd_ODBC_find_connection Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal dsn_name As String) As Long
  515. Declare Function cd_ODBC_open_cursor Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal connection As Long, Curs As Integer, ByVal query As String) As Integer
  516. Declare Function cd_Open_cursor Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursdef As Integer, Curs As Integer) As Integer
  517. Declare Function cd_Open_cursor_direct Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal query As String, Curs As Integer) As Integer
  518. Declare Function cd_Open_subcursor Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal supercurs As Integer, ByVal subcurdef As String, subcurs As Integer) As Integer
  519. Declare Function cd_Owned_cursors Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  520. Declare Function cd_Query_optimization Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal query As String, ByVal buf As String, ByVal bufsize As Long) As Integer
  521. Declare Function cd_Read Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, access As Any, buffer As Any) As Integer
  522. Declare Function cd_Read_ind Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, data As Any) As Integer
  523. Declare Function cd_Read_ind_cnt Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, count As Integer) As Integer
  524. Declare Function cd_Read_len Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, size As Long) As Integer
  525. Declare Function cd_Read_lock_record Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal position As Long) As Integer
  526. Declare Function cd_Read_lock_table Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Integer
  527. Declare Function cd_Read_record Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, buf As Any, ByVal datasize As Integer) As Integer
  528. Declare Function cd_Read_unlock_record Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal position As Long) As Integer
  529. Declare Function cd_Read_unlock_table Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Integer
  530. Declare Function cd_Read_var Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal start As Long, ByVal size As Long, buf As Any, psize As Long) As Integer
  531. Declare Function cd_Rec_cnt Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, recnum As Long) As Integer
  532. Declare Function cd_Relist_objects Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  533. Declare Function cd_Repl_control Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal optype As Integer, ByVal opparsize As Integer, ByVal opparam As String) As Integer
  534. Declare Function cd_Reset_replication Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  535. Declare Function cd_Roll_back Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  536. Declare Function cd_Set_application Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal applname As String) As Integer
  537. Declare Function cd_Set_password Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal reserved As String, ByVal password As String) As Integer
  538. Declare Function cd_Set_sql_option Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal optmask As Long, ByVal optval As Long) As Integer
  539. Declare Function cd_Signature Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal hParent As Integer, ByVal cursor As Integer, ByVal recnum As Long, ByVal attr As Integer, ByVal create As Integer, param As Any) As Integer
  540. Declare Function cd_SQL_drop Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal handle As Long) As Integer
  541. Declare Function cd_SQL_exec_prepared Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal handle As Long, results As Long, count As Long) As Integer
  542. Declare Function cd_SQL_execute Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal statement As String, results As Long) As Integer
  543. Declare Function cd_SQL_prepare Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal statement As String, handle As Long) As Integer
  544. Declare Function cd_Start_transaction Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  545. Declare Function cd_Super_recnum Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal subcursor As Integer, ByVal supercursor As Integer, ByVal subrecnum As Long, superrecnum As Long) As Integer
  546. Declare Function cd_Sz_error Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  547. Declare Function cd_Sz_warning Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  548. Declare Function cd_Translate Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal crec As Long, ByVal tbord As Integer, trec As Long) As Integer
  549. Declare Function cd_Undelete Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal table As Integer, ByVal position As Long) As Integer
  550. Declare Function cd_waiting Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal timeout As Integer)
  551. Declare Function cd_WinBase602_version Lib "WBKERNEL.DLL" (ByVal cdp As Long) As Integer
  552. Declare Function cd_Who_am_I Lib "WBKERNEL.DLL" (ByVal cdp As Long) As String
  553. Declare Function cd_Write Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, access As Any, buffer As Any, ByVal datasize As Integer) As Integer
  554. Declare Function cd_Write_ind Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, data As Any, ByVal datasize As Integer) As Integer
  555. Declare Function cd_Write_ind_cnt Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, ByVal count As Integer) As Integer
  556. Declare Function cd_Write_len Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal size As Long) As Integer
  557. Declare Function cd_Write_lock_record Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal position As Long) As Integer
  558. Declare Function cd_Write_lock_table Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Integer
  559. Declare Function cd_Write_record Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, buf As Any, ByVal datasize As Integer) As Integer
  560. Declare Function cd_Write_unlock_record Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer, ByVal position As Long) As Integer
  561. Declare Function cd_Write_unlock_table Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal Curs As Integer) As Integer
  562. Declare Function cd_Write_var Lib "WBKERNEL.DLL" (ByVal cdp As Long, ByVal cursnum As Integer, ByVal position As Long, ByVal attr As Integer, ByVal index As Integer, ByVal start As Long, ByVal size As Long, buf As Any) As Integer
  563. '
  564. ' Typy atributu
  565. '
  566. Global Const ATT_BOOLEAN = 1          ' Boolean
  567. Global Const ATT_CHAR = 2             ' Char
  568. Global Const ATT_INT16 = 3            ' Short
  569. Global Const ATT_INT32 = 4            ' Integer
  570. Global Const ATT_MONEY = 5            ' Money
  571. Global Const ATT_FLOAT = 6            ' Real
  572. Global Const ATT_STRING = 7           ' String
  573. Global Const ATT_CSSTRING = 8         ' CSString
  574. Global Const ATT_CSISTRING = 9        ' CSIString
  575. Global Const ATT_BINARY = 10          ' Binary
  576. Global Const ATT_DATE = 11            ' Date
  577. Global Const ATT_TIME = 12            ' Time
  578. Global Const ATT_TIMESTAMP = 13       ' Timestamp
  579. Global Const ATT_PTR = 14             ' Pointer
  580. Global Const ATT_BIPTR = 15           ' Bipointer
  581. Global Const ATT_AUTOR = 16           ' sledovaci atribut: Autorizace
  582. Global Const ATT_DATIM = 17           ' sledovaci atribut: Datumovka
  583. Global Const ATT_HIST = 18            ' sledovaci atribut: Historie
  584. Global Const ATT_RASTER = 19          ' Raster
  585. Global Const ATT_TEXT = 20            ' Text
  586. Global Const ATT_NOSPEC = 21          ' Nospec
  587. Global Const ATT_SIGNAT = 22          ' Signature
  588.  
  589.