Usando um objeto Radio Button em um formulário

Hoje iremos aprender como fazer uso de um Radio Button para criar opções de escolha ao usuário, por exemplo, se queremos que uma pessoa aponte em uma tela qual o seu sexo ou grau de escolaridade, usamos este tipo de botão para gravarmos a escolha em um banco de dados.

O Radio Button deve ser utilizado para questões em formulários que apresentem um número finito e reduzido de possibilidades onde poderemos escolher apenas uma dentre as respostas possíveis. Em nosso exemplo iremos criar um item de um formulário em uma Group Box com a pergunta: Qual o seu sexo? O usuário que irá responder a questão terá duas possibilidades, ou marcará o item Masculino (rbmasc) ou o item Feminino (rbfem). Para isto iremos utilizar a seguinte estratégia, iremos criar um datafield (dfsexo) que recebera o valor 'M' para masculino ou 'F' para feminino dependendo da escolha do usuário. Para que nenhum dos objetos Radio Button esteja marcado quando o usuário abrir a tela criaremos um Radio Button neutro (rbneutro) para controlar a escolha das opções ao abrirmos a tela. Aqui segue o código para inserirmos no 'Message Actions' dos objetos rbmasc, rbfem e rbneutro:

Group Box: Qual o seu Sexo?:

Radio Button: rbmasc:

*Message Actions

*On Sam_Click

*If rbmasc = TRUE

*Set dfsexo = 'M'

Radio Button: rbfem:

*Message Actions

*On Sam_Click

*If rbfem = TRUE

*Set dfsexo = 'F'

Radio Button: rbneutro:

*Message Actions

*On Sam_Click

* If rbneutro = TRUE

*Set rbmasc = FALSE

*Set dfsexo = ''

Após colocarmos este código não podemos esquecer de programar a Action do Centura para ativar o rbneutro a abrirmos a tela com o seguinte código:

*Message Actions

*On Sam_Create

*Set rbneutro =TRUE

Qualquer dúvida ou contribuição deixe um comentário em nossa página!

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.