As declarações das rotinas para ambientes Visual Basic estão contidas no arquivo tsgbd.bas, distribuído junto com as DLLs ROTWIN32.DLL e CLIWIN32.DLL.
A seguir listamos o arquivo tsgbd.bas, contendo a declaração de todas as funções incluídas nas bibliotecas dinâmicas ROTWIN32.DLL e CLIWIN32.DLL, a serem utilizadas em sistemas desenvolvidos em Visual Basic.
Attribute VB_Name = "Module2"
Option Explicit
Type Itens
NomIte As String * 13
End Type
Declare Function LigaOpcao Lib "cliwin32.dll" (ByVal opcao As String) As Long
Declare Function DesligaOpcao Lib "cliwin32.dll" (ByVal opcao As String) As Long
‘Convert
Declare Function PoeItem Lib "cliwin32.dll" (ByVal lparq$, ByVal Xsai$, ByVal xent$) As Long
Declare Function PoeItemBuffer Lib "cliwin32.dll" (ByVal lparq$, ByVal Xsai$, posi As Long, ByVal xent$) As Long
‘Convert
Declare Function PegaItem Lib "cliwin32.dll" (ByVal lparq$, ByVal xent$, ByVal Xsai$) As Long
Declare Function PegaItemBuffer Lib "cliwin32.dll" (ByVal lparq$, ByVal xent$, posi As Long, ByVal Xsai$) As Long
‘Memo
Declare Function PegaItemMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, ByVal area$, Valor As Long) As Long
Declare Function PoeItemMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, ByVal area$, Valor As Long) As Long
Declare Function LePoeItemMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, ByVal sai$) As Long
Declare Function PegaGravaItemMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, ByVal sai$) As Long
‘ bdbmem
Declare Function PegaMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, ByVal sai$, ByVal tam As Long, lid As Long, ByVal ofe As Long) As Long
‘ bdamem
Declare Function PoeMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, ByVal sai$, ByVal tam As Long, ByVal flg$) As Long
‘ bdkmem
Declare Function ObtemTamanhoMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, tam As Long) As Long
‘ bdimem
Declare Function ObtemPercursoArquivoMemo Lib "cliwin32.dll" (ByVal lparq$, ByVal lpItem$, ByVal nome$) As Long
‘ bdabre:
Declare Function AbreBancoDeDados Lib "cliwin32.dll" (ByVal lpBanco$, ByVal lpNivel$, ByVal dwSeguranca As Long, ByVal wModo As Long) As Long
‘ bdjudi:
Declare Function JuntaBancoDeDados Lib "cliwin32.dll" (ByVal lpBanco$, ByVal lpNivel$, ByVal dwSeguranca As Long, ByVal wModo As Long) As Long
‘ bdfech:
Declare Function FechaBancoDeDados Lib "cliwin32.dll" () As Long
‘ bdpegs:
Declare Function LeProximoSequencial Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, pBufferItens As Any) As Long
Declare Function LeProximoRegistroSequencial Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdpegi:
Declare Function LeAnteriorSequencial Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function LeRegistroAnteriorSequencial Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdpegd:
Declare Function PosicionaNoRegistro Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal dwEndereco As Long) As Long
‘ bdposi
Declare Function PosicionaNoRegistroPorChave Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal Valor$) As Long
‘ bdpegd:
Declare Function LeRegistroPorEndereco Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any, ByVal dwEndereco As Long) As Long
Declare Function LePorEndereco Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any, ByVal dwEndereco As Long) As Long
‘ bdpegd (0):
Declare Function ReiniciaSequencial Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
‘ bdpegc:
Declare Function LeProximoCadeia Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function LeProximoRegistroCadeia Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdpegt:
Declare Function LeAnteriorCadeia Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function LeRegistroAnteriorCadeia Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdachc:
Declare Function IniciaCadeia Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal lpChave$, ByVal lpValor$) As Long
‘ bdpegp:
Declare Function LeProximoPorPrefixo Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function LeProximoRegistroPorPrefixo Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdpegv:
Declare Function LeAnteriorPorPrefixo Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function LeRegistroAnteriorPorPrefixo Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdachp:
Declare Function IniciaPorPrefixo Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal lpChave$, ByVal lpValor$) As Long
‘ bdpegm:
Declare Function LePorChavePrimaria Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal lpValor$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function LeRegistroPorChavePrimaria Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal lpValor$, lpBufferItens As Any) As Long
‘ bdesch:
Declare Function EscolheChave Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal lpChave$) As Long
‘ bdbloq:
Declare Function Bloqueia Lib "cliwin32.dll" () As Long
Declare Function IniciaTransacao Lib "cliwin32.dll" () As Long
‘ bddesb:
Declare Function DesBloqueia Lib "cliwin32.dll" () As Long
Declare Function FinalizaTransacao Lib "cliwin32.dll" () As Long
‘ bddesf:
Declare Function DesfazTransacao Lib "cliwin32.dll" () As Long
‘ bdexcl:
Declare Function ExcluiRegistro Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
Declare Function ExcluiRegistroCascata Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
Declare Function ExcluiRegistroPoeNulo Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
‘ bdincl:
Declare Function IncluiRegistro Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function IncluiTodoRegistro Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdtroc:
Declare Function AlteraRegistro Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function AlteraTodoRegistro Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
‘ bdinca:
Declare Function AlteraRegistroCascata Lib "rotwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function AlteraTodoRegistroCascata Lib "rotwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
Declare Function AlteraRegistroPoeNulo Lib "rotwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
Declare Function AlteraTodoRegistroPoeNulo Lib "rotwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
Declare Function IncluiTodoRegistroNaCadeia Lib "cliwin32.dll" (ByVal lpArquivo$, lpBufferItens As Any) As Long
Declare Function IncluiRegistroNaCadeia Lib "cliwin32.dll" (ByVal lpArquivo$, lpListaItens() As Itens, lpBufferItens As Any) As Long
‘ bddmem
Declare Function ExcluiItemMemo Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal lpItem$) As Long
‘ bderro:
Declare Function ObtemMensagem Lib "cliwin32.dll" (ByVal lpMensagem$) As Long
‘ bdpval
Declare Function ObtemRegistrosNoArquivo Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
‘ bdin31
Declare Function ObtemRegistrosNaCadeia Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
‘ bdin31
Declare Function ObtemEnderecoAtual Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
‘ inicli:
Declare Function IniciaServidor Lib "cliwin32.dll" (ByVal lpEndereco$) As Long
‘ tercli:
Declare Function FinalizaServidor Lib "cliwin32.dll" () As Long
‘ bdesva
Declare Function EsvaziaArquivo Lib "cliwin32.dll" (ByVal lpArquivo$) As Long
‘bdcntrl
Declare Function ObtemCliente Lib "cliwin32.dll" (ByVal lpCliente$) As Long
Declare Function ObtemDiretorio Lib "cliwin32.dll" (ByVal lpDiret$) As Long
‘ bdsalv
Declare Function SalvaTabelaExecucao Lib "cliwin32.dll" ByVal lpArquivo$, ByVal lpArea$) As Long
‘ bdrest
Declare Function RestauraTabelaExecucao Lib "cliwin32.dll" (ByVal lpArquivo$, ByVal lpArea$) As Long
Type Info11
QtdIte As Integer
NumIte As Integer
End Type
Declare Function ObtemItensDoArquivo Lib "cliwin32.dll" (ByVal arq As Integer, inf As Info11) As Long
Type Info12
NuArCh As Integer
NivLei As Integer
NivGra As Integer
NumArq As Integer
TamIte As Integer
PosIte As Integer
QtdDec As Integer
NomIte As String * 13
TipIte As String * 1
End Type
Declare Function ObtemInfoSobreItem Lib "cliwin32.dll" (ByVal ite As Integer, inf As Info12) As Long
Type Info13a
QtItCh As Integer
End Type
Declare Function ObtemQtdChaves Lib "cliwin32.dll" (ByVal ite As Integer, inf As Info13a) As Long
Type Info13b
NuArqM As Integer
NuLigM As Integer
NuChaD As Integer
End Type
Declare Function ObtemChaves Lib "cliwin32.dll" (ByVal ite As Integer, inf() As Info13b) As Long
Type Info14
NumIte As Integer
End Type
Declare Function ObtemNumeroDoItem Lib "cliwin32.dll" (ByVal ite As String, inf As Info14) As Long
Type Info15
TamCab As Integer
TamDad As Integer
NumEsq As Integer
TamVir As Integer
TamTot As Integer
NomArq As String * 13
DirArq As String * 41
TipArq As String * 1
End Type
Declare Function ObtemInfoSobreArquivo Lib "cliwin32.dll" (ByVal arq As Integer, inf As Info15) As Long
Type Info16a
QtArqD As Integer
NuItCh As Integer
End Type
Declare Function ObtemQtdLigacoes Lib "cliwin32.dll" (ByVal arq As Integer, inf As Info16a) As Long
Type Info16b
NuArqD As Integer
NuLigD As Integer
NuIteD As Integer
End Type
Declare Function ObtemLigacoes Lib "cliwin32.dll" (ByVal arq As Integer, inf() As Info16b) As Long
Type Info17
NumArq As Integer
End Type
Declare Function ObtemNumeroDoArquivo Lib "cliwin32.dll" (ByVal arq As String, inf As Info17) As Long
Type Info18a
QtdArq As Integer
End Type
Declare Function ObtemQtdJuncoes Lib "cliwin32.dll" (ByVal arq As Integer, inf As Info18a) As Long
Type Info18b
NumArq As Integer
ArqOri As Integer
ChvOri As Integer
End Type
Declare Function ObtemJuncoes Lib "cliwin32.dll" (ByVal arq As Integer, inf() As Info18b) As Long
Type Info19a
QtdIte As Integer
End Type
Declare Function ObtemQtdVirtuais Lib "cliwin32.dll" (ByVal arq As Integer, inf As Info19a) As Long
Type Info19b
NumIte As Integer
End Type
Declare Function ObtemVirtuais Lib "cliwin32.dll" (ByVal ite As Integer, inf() As Info19b) As Long
Type Info20
TipCha As Integer
NumInd As Integer
End Type
Declare Function ObtemTipoDaChave Lib "cliwin32.dll" (ByVal ite As Integer, inf As Info20) As Long
Type Info21a
QtdIte As Integer
End Type
Declare Function ObtemQtdItensBasicos Lib "cliwin32.dll" (ByVal arq As Integer, inf As Info21a) As Long
Type Info21b
NumIte As Integer
End Type
Declare Function ObtemItensBasicos Lib "cliwin32.dll" (ByVal ite As Integer, inf() As Info21b) As Long
Type Info22a
QtdIte As Integer
End Type
Declare Function ObtemQtdRedefinicoes Lib "cliwin32.dll" (ByVal arq As Integer, inf As Info22a) As Long
Type Info22b
NumIte As Integer
End Type
Declare Function ObtemRedefinicoes Lib "cliwin32.dll" (ByVal ite As Integer, inf() As Info22b) As Long
Type Info23
NivAbr As Integer
Niveis(15) As String * 7
End Type
Declare Function ObtemNiveis Lib "cliwin32.dll" (inf As Info23) As Long
Type Info30
QtdArq As Integer
Modo As Integer
ArqRec As Integer
QtdIte As Integer
SubEsq As Integer
BlqArq As Integer
RecMax As Long
End Type
Declare Function ObtemInfoSobreBanco Lib "cliwin32.dll" (inf As Info30) As Long
Type Info31
QtdCad As Long
RegAnt As Long
RegAtu As Long
RegSeg As Long
UltAce As Long
IteChs As Integer
NumLis As Integer
End Type
Declare Function ObtemInfoSobreCadeia Lib "cliwin32.dll" (inf As Info31) As Long
‘ crypt
Declare Function crypt Lib "cliwin32.dll" (ByVal ent$, ByVal sal$, ByVal sai$) As Long