#Include "FiveWin.ch"
#Include "TAds.ch"

// Inicializa a configuração do tAds
TADS_START_CONFIG("C:\TEMP\", "senhaAdsSys")

// Cria uma conexão com o dicionário de dados
oConexao := tAdsConnection():New(1, .F.)
oConexao:cDataDictionary := "\\servidor\dados\MeuBanco.add"
oConexao:cUserLogin      := "adssys"
oConexao:cSenhaConnect   := "minhaSenha"
oConexao:nTpConnect      := 4  // 1=Local, 4=Internet

// Conecta
If oConexao:tAdsConnect()
   MsgInfo("Conectado com sucesso!")
EndIf

// Desconecta ao finalizar
oConexao:tAdsCloseConnect()

// Abre tabela diretamente
oDb_Clientes := tAds():NewRdd("CLIENTES", 1, 60)

// Navegação
oDb_Clientes:GoTop()

Do While !oDb_Clientes:Eof()
   ? oDb_Clientes:VarGet("NOME")
   ? oDb_Clientes:VarGet("CIDADE")
   oDb_Clientes:Skip()
EndDo

// Fecha a tabela
oDb_Clientes:End()

// Criar novo registro
oDb_Clientes:Append()
oDb_Clientes:VarPut("NOME", "João Silva")
oDb_Clientes:VarPut("CIDADE", "São Paulo")
oDb_Clientes:VarPut("SALARIO", 5000.00)
oDb_Clientes:Commit(.T.)

// Ler registro
oDb_Clientes:Seek("João Silva", "NOME")
cNome := oDb_Clientes:VarGet("NOME")

// Atualizar registro
oDb_Clientes:RLock()
oDb_Clientes:VarPut("SALARIO", 6000.00)
oDb_Clientes:Commit(.T.)

// Excluir registro
oDb_Clientes:RLock()
oDb_Clientes:Delete()

// SELECT - Tipo 1
oDs := tAds():DsNew(1, 1)  // 1=Select, 1=Conexão
oDs:cQrySql := "SELECT * FROM CLIENTES WHERE CIDADE = 'São Paulo' ORDER BY NOME"
oDs:DsExecute()

Do While !(oDs:cAlias)->(Eof())
   ? (oDs:cAlias)->NOME
   (oDs:cAlias)->(DbSkip())
EndDo

oDs:End()

// INSERT/UPDATE/DELETE - Tipo 2
oDs := tAds():DsNew(2, 1)  // 2=Comando, 1=Conexão
oDs:cQrySql := "UPDATE CLIENTES SET ATIVO = TRUE WHERE CIDADE = 'São Paulo'"
oDs:DsExecute()
oDs:End()

oDs := tAds():DsNew(1)
oDs:cQrySql := "SELECT * FROM CLIENTES WHERE SALARIO > _Salario_ AND DT_CADASTRO >= _Data_"
oDs:DsAddVar("_Salario_", 3000.00)
oDs:DsAddVar("_Data_", Date() - 30)
oDs:DsExecute()

oDb_Clientes := tAds():NewRdd("CLIENTES")

// Filtro simples
oDb_Clientes:Filter("CIDADE = 'São Paulo'")

// Filtro com variáveis
oDb_Clientes:Filter("SALARIO > _nSalario_", {{"_nSalario_", 2000.00}})

// Limpar filtro
oDb_Clientes:ClearFilter()

// Gera classe para a tabela CLIENTES
TAds_CreateClassFromDatabase(1, "CLIENTES", "C:\MeuProjeto\DataBases\")

CLASS DB_CLIENTES FROM TAds

   Data cTableName Init 'CLIENTES'
   
   METHOD OpenRdd(f_nConexao, f_nCache, f_lExclusive, f_lDataLoadOnSkip) Constructor
   METHOD End()

ENDCLASS

oDb_Clientes := DB_CLIENTES():OpenRdd()

oDb_Clientes:Seek(123, "CODIGO")
? oDb_Clientes:VarGet("NOME")

oDb_Clientes:End()

// Backup completo
tAds_BackupDataBase(1, "E:\BACKUP", Nil)

// Backup diferencial (após preparação)
tAds_BackupDataBase(1, "E:\BACKUP", "PrepareDiff")  // Prepara
tAds_BackupDataBase(1, "E:\BACKUP", "Diff")         // Executa diferencial

// Restore
tAds_RestoreDataBase("E:\BACKUP\MeuBanco.add", "C:\DADOS\MeuBanco.add", "senhaOrigem")

// Criar usuário
tAds_CreateUser(1, "joao", "senha123", "João da Silva")

// Alterar senha
tAds_ModifyUserProperty(1, "joao", "novaSenha")

// Criar grupo
tAds_CreateGroup(1, "VENDEDORES", "Grupo de vendedores")

// Adicionar usuário ao grupo
tAds_AddUserToGroup(1, "joao", "VENDEDORES")

// Remover usuário do grupo
tAds_RemoveUserFromGroup(1, "joao", "VENDEDORES")

// Excluir usuário
tAds_DropUser(1, "joao")

// Inicia transação
tAds_BeginTransaction(1)

TRY
   oDb_Clientes:Append()
   oDb_Clientes:VarPut("NOME", "Teste")
   oDb_Clientes:Commit()
   
   oDb_Pedidos:Append()
   oDb_Pedidos:VarPut("COD_CLIENTE", oDb_Clientes:VarGet("CODIGO"))
   oDb_Pedidos:Commit()
   
   // Confirma transação
   tAds_CommitTransaction(1)
   
CATCH
   // Desfaz transação em caso de erro
   tAds_RollBackTransaction(1)
END

oDb_Clientes := DB_CLIENTES():OpenRdd()

oBrw := TXBrowse():New(oWnd)
oBrw:cAlias := oDb_Clientes:cAlias
oBrw:SetRDD()
oBrw:CreateFromCode()

// Configura controle de navegação
oCtrlBrw := tCtrlxBrw():New(oBrw, oDb_Clientes)

// Tipos de conexão
#Define df_ConnectLocal          1
#Define df_ConnectRemote         2
#Define df_ConnectInternet       4

// Tipos de arquivo
#Define df_FileCdx               2
#Define df_FileAdt               3

// Parâmetros de KeyCount
#Define df_nKeysVisibles         1
#Define df_nKeysAllIndex         2

// Parâmetros de Seek
#Define df_lSeekAproximadoOn     .T.
#Define df_lSeekAproximadoOff    .F.