Conectando uma aplicação ao banco de dados em Centura

A conexão de uma aplicação desenvolvida em Centura é realizado através do CTD (CENTURA TEAM DEVELOPER) usando a função SqlConnect, Você pode fazer isto utilizando o seguinte código:

Sintaxe:

Set SqlDatabase = “Nome da base de dados”

Set SqlUser = “Nome do usuário”

Set SqlPassword = “Senha do usuário”

Call SqlConnect (hsql1)

Você também pode utilizar as funções SqlImmediate ou SqlExists antes de executar a função SqlConnect e a aplicação será automaticamente conectada ao banco de dados.

Nas próximas postagens iremos utilizar a sintaxe do código acima para criarmos um sistema de login para um aplicativo.

Fonte: ALMEIDA JR., LAIRTON N.; Programando com o CENTURA TEAM DEVELOPER 2000; 2000.

Trabalhando com tabelas II

Em postagem anterior aprendemos como inserir o código de cliente
de uma tabela em uma tela de consulta.Agora falta aprendermos como
realizar uma pesquisa a partir do código do cliente.
Para isto utilizaremos um botão de consulta (bt_cons_cli) na tela
frm_cons_cli.Supomos que haja informações do cliente a serem
consultadas em duas tabelas (tab_cad_cli) e (tab_fin_cli),
isto é uma situação muito comum em diversas consultas e se não for
feita corretamente pode gerar muita dor de cabeça.
Antes de mais nada vamos visualizar o conteúdo das duas tabelas,
Tabela: tab_cad_cli
Campos: cd_cod_cli, nm_nome_cli, nm_end_cli, nu_tel_cli.
Tabela: tab_fin_cli
Campos: cd_cod_cli, nu_valdev_cli, nu_valcred_cli.

Na tabela tab_cad_cli iremos cadastrar o código do cliente (cd_cod_cli),
nome (nm_nome_cli), e telefone (nu_tel_cli) do cliente.
A tabela tab_fin_cli possui o campo chave código de cliente (cd_cod_cli).
como as duas tabelas tem o campo cd_cod_cli em comum é necessário tomarmos
certas medidas para não gerar um problema de ambiguidade no código.
Antes de iniciarmos a construção do código é importante salientar que
a consulta na tabela deve ser feita de preferência sobre uma View, portanto
neste código iremos usar as seguintes Views, vi..tab_cad_cli e vi..tab_fin_cli.

*Pushbutton: bt_cons_cli
   *Message Actions
       *On SAM_Click
          *Call SalWaitCursor(TRUE)
          *Call SqlPrepareAndExecute(hSql,"select t1.cd_cod_cli, nm_nome_cli,
                                                  nm_end_cli, nu_tel_cli,
                                                  nu_valdev_cli, nu_valcred_cli
                                           from vi..tab_cad_cli t1,
                                                vi..tab_fin_cli t2
                                           where t1.cd_cod_cli = t2.cd_cod_cli
                                                 t1.cd_cod_cli = dfcd_cod_cli
         * Call SqlFetchNext(hsql, nFetch)
         * Call SalWaitCursor(FALSE)

Obs.: O código Call SalWaitCursor(TRUE) ativa a ampulheta no cursor durante a
consulta e Call SalWaitCursor(FALSE) desativa.

Este código é bastante simples, mas ajuda muito o usuário iniciante a compreender
melhor as atividades de consulta em linguagem SAL.
Até a próxima!

Linguagem SAL:

A linguagem SAL (Scalable Application Language) é a utilizada para programação em 

CenturaSQLWindows/32 um programa fonte é composto de comandos, 

funções SAL e de comandos SQL. No Centura o código é colocado na seção Outline, 

aqui segue um exemplo de código:

*Form Window:frm_Emp
   *Description:
   *Named Menus
   *Menu
   *Tool Bar
   *Contents
      *Background Text:Olá Mundo!
   *Functions
   *Window Parameters
   *Window Variables
   *Message Actions

Fonte: ALMEIDA JR., LAIRTON N.; Programando com o CENTURA TEAM DEVELOPER 2000; 2000.

Trabalhando com tabelas

Nesta postagem iremos aprender como selecionar a informação de uma coluna

de uma tabela de modo que esta informação seja passada para uma caixa de texto 

(DataField)em uma tela qualquer que não seja a que contém a tabela.

Exemplo:

Seja um código de cliente (cd_cli) localizado em uma coluna (colcd_cli) de uma 

tabela (tab_cli) em uma tela de consulta (frm_cons_cli), desejamos clicar sobre a 

coluna que contém a informação do código e passá-la para uma caixa de texto 

(df_cod_cli), então temos o seguinte código:

*Table: tab_cli
   *Contents
   *Functions
   *Window Variables
   *Message Actions
       *On SAM_User
       *On SAM_RowHeaderClick
           *Set frm_cons_cli.dfcd_cod_cli=tab_cli.colcd_cod_cli

Nas próximas postagens iremos aprender a usar o sql para realizar consultas.

Galeria de funções do Centura:

Reuni aqui duas funções de uso comum no Centura e exemplos de como usá-la,
são elas, SalShowWindow, SalHideyWindow, nas próximas postagens falarei mais
sobre outras funções.

SalShowWindow
Sintaxe: bOk = SalShowWindow (hWnd)
Descrição: torna um objeto visível.
Parâmetro: hWnd (Window Handle: o handle ou nome do objeto).
Valor de retorno: bOk é TRUE, se o objeto era visível, bOk é false se
o estado do objeto era invisível.

Exemplo:

Uso de código em um botão (pbcad) para mostrar a tela de cadastro (frm_cad_cli).

*Message Actions
     *On SAM_Click
           *Call SalShowWindow(frm_cad_cli)

SalHideWindow
Sintaxe: bOk = SalHideWindow (hWnd)
Descrição: esconde um objeto.
Parâmetro: hWnd (Window Handle: o handle ou nome do objeto).
Valor de retorno: bOk é TRUE, se se a função for executada com sucesso.
FALSE, se falhar.

Exemplo:

Uso de código em um botão (pbcad) para esconder a tela de cadastro (frm_cad_cli).

*Message Actions
     *On SAM_Click
           *Call SalHideWindow(frm_cad_cli)

Aguarde próximas postagens para conhecer novas funções.

Centura SQLWindows 2.1

O Centura é uma ferramenta para desenvolvimento de sistemas da empresa Centura Software Corporation, Conhecida anteriormente como Gupta, o Centura foi desenvolvido para plataforma Windows 32 bits e inclui    o Centura Developer Extensions Kit (CDK), O Centura Ranger e o Centura Team Developer.

Fonte: ALMEIDA JR., LAIRTON N.; Programando com o CENTURA TEAM DEVELOPER 2000; 2000.