PRINCIPAIS COMANDOS
http://Help.windev.com

INCLUIR REGISTRO
tabela_destino.campo01 = valorx
tabela_destino.campo02 = valory
tabela_destino.campo03 = valorz
tabela_destino.campo04 = valorw
HAdd(tabela_destino)

OU

ScreenToFile() // set
tabela_destino.campo03 = valorz // mas este quero fazer algo a mais
IF HAdd(tabela_destino) = True
Info(“Gravou com sucesso! COM O ID: ”+ tabela_destino.id )
ELSE
Info(“Não Gravou”)
END

PESQUISAR UM REGISTRO
Pesquisa simples
HReset(Tabela) //mata o ponteiro colocando no topo
IF HReadSeek(Tabela, Chave, 0001, hIdentical) = True
IF HFound(Tabela) = True
Info(“achei o ”+tabela.nome)
FileToScreen() //set
END
END



Pesquisa com chave composta de dois campos
HReset(Tabela) //mata o ponteiro colocando no topo
Buf_Emp_Prod is buffer = HBuildKeyValue(Tabela, Chave_composta_Emp_PROD, 0001,00010)
HReadSeek(Tabela, Chave_composta_Emp_PROD, Buf_Emp_Prod, hIdentical)
IF HFound(Tabela) = True
Info(“achei”)
FileToScreen()
END
END

//Get de dados
ScreenToFile()

//Set de dados
FileToScreen()

MODIFICAR UM REGISTRO
HReset(Tabela) //mata o ponteiro colocando no topo
IF HReadSeek(Tabela, Chave, 0001, hIdentical) = True //criou o ponteiro e posicionou
IF HFound(Tabela) = True
Info(“achei o ”+tabela.nome)
FileToScreen() //set Tabela.campox = 0
Tabela.campox = 1
HModify(Tabela)
END
END


OU


HReset(Tabela) //mata o ponteiro colocando no topo
IF HReadSeek(Tabela, Chave, 0001, hIdentical) = True //criou o ponteiro e posicionou
IF HFound(Tabela) = True
Info(“achei o ”+tabela.nome)
FileToScreen() //set Tabela.campox = 0
Tabela.campox = 1
IF HModify(Tabela) = True
Info(“ok”)
ELSE
Info(“erro”)
END
END
END


EXCLUIR UM REGISTRO
HReset(Tabela) //mata o ponteiro colocando no topo
IF HReadSeek(Tabela, Chave, 0001, hIdentical) = True //criou o ponteiro e posicionou
IF HFound(Tabela) = True
Info(“achei o ”+tabela.nome)
FileToScreen() //set Tabela.campox = 0
HDelete(Tabela)
END
END


OU



HReset(Tabela) //mata o ponteiro colocando no topo
IF HReadSeek(Tabela, Chave, 0001, hIdentical) = True //criou o ponteiro e posicionou
IF HFound(Tabela) = True
Info(“achei o ”+tabela.nome)
FileToScreen() //set Tabela.campox = 0
IF HDelete(Tabela) = True
Info(“ok”)
ELSE
Info(“erro”)
END
END
END