PC Toledo

Código: Selecionar todos

// Arquivo: cadastro.prg

#include "inkey.ch" // Para teclas
#include "setcurs.ch" // Para o cursor

REQUEST DBFCDX // Para usar o driver de índice CDX

//----------------------------------------------------------------------------//
FUNCTION Main()
//----------------------------------------------------------------------------//

   LOCAL nOpcao := 0

   SETMODE( 25, 80 ) // Define modo de tela
   SETCURSOR( SC_NONE ) // Oculta o cursor padrão

   // Abre ou cria o arquivo de dados
   IF ! ( "DADOS" $ SET( _SET_DBF_AREAS ) ) // Verifica se a area de trabalho DADOS esta aberta
      IF ! FILE( "DADOS.DBF" ) // Se o arquivo nao existe, cria
         DBCREATE( "DADOS.DBF", { ;
                  { "NOME",    "C", 50, 0 }, ;
                  { "CPF",     "C", 14, 0 }, ;
                  { "BAIRRO",  "C", 50, 0 }, ;
                  { "RUA",     "C", 50, 0 }, ;
                  { "NUMERO",  "N",  6, 0 } } )
         USE DADOS NEW ALIAS DADOS EXCLUSIVE VIA "DBFCDX" // Abre o arquivo recem criado
         INDEX ON CPF TAG CPF UNIQUE TO DADOS ALIAS DADOS // Cria indice por CPF
         INDEX ON NOME TAG NOME TO DADOS ALIAS DADOS      // Cria indice por Nome
      ELSE
         USE DADOS NEW ALIAS DADOS VIA "DBFCDX" // Abre o arquivo existente
         // Verifica se os indices existem, se nao, cria
         IF ! INDEXKEY(1) == "CPF"
             INDEX ON CPF TAG CPF UNIQUE TO DADOS ALIAS DADOS
         ENDIF
         IF ! INDEXKEY(2) == "NOME"
             INDEX ON NOME TAG NOME TO DADOS ALIAS DADOS
         ENDIF
      ENDIF
   ENDIF

   DO WHILE nOpcao != 5
      CLS // Limpa a tela
      @ 02, 25 SAY "--- SISTEMA DE CADASTRO SIMPLES ---" COLOR "W+/B"
      @ 04, 30 SAY "1. Cadastrar"
      @ 05, 30 SAY "2. Pesquisar"
      @ 06, 30 SAY "3. Alterar Cadastro"
      @ 07, 30 SAY "4. Excluir Cadastro"
      @ 08, 30 SAY "5. Sair"
      @ 10, 25 SAY "Escolha uma opção: " GET nOpcao PICTURE "9" VALID ( nOpcao >= 1 .AND. nOpcao <= 5 )
      READ

      DO CASE
         CASE nOpcao == 1
            Cadastrar()
         CASE nOpcao == 2
            Pesquisar()
         CASE nOpcao == 3
            AlterarCadastro()
         CASE nOpcao == 4
            ExcluirCadastro()
      ENDCASE

   ENDDO

   CLOSE ALL // Fecha todos os arquivos abertos
   CLS
   @ MAXROW()/2, MAXCOL()/2 - 10 SAY "Obrigado por usar!"
   WAIT ""

RETURN NIL

//----------------------------------------------------------------------------//

Código: Selecionar todos

IF ! ( "DADOS" $ SET( _SET_DBF_AREAS ) ) // Verifica se a area de trabalho DADOS esta aberta

Código: Selecionar todos

 DO CASE
	         CASE nOpcao == 1
	            Cadastrar()
	         CASE nOpcao == 2
	            Pesquisar()
	         CASE nOpcao == 3
	            AlterarCadastro()
	         CASE nOpcao == 4
	            ExcluirCadastro()
	      ENDCASE

Código: Selecionar todos

// Arquivo: cadastro.prg

#include "inkey.ch" // Para teclas
#include "setcurs.ch" // Para o cursor

REQUEST HB_CODEPAGE_PT850  // Coloca a CodePage em OEM Português
REQUEST HB_LANG_PT  // Coloca as mensagens de erros em Português

REQUEST DBFCDX // Para usar o driver de índice CDX

//----------------------------------------------------------------------------//
FUNCTION Main()
//----------------------------------------------------------------------------//

   LOCAL nOpcao := 0
   
   SET SCOREBOARD OFF  // habilita uso da linha 0
 
   SET AUTOPEN ON      // abre automaticamente o indice de mesmo nome do dbf (sem a extensão)
   SET AUTORDER TO 1   // aloca a ordem 1 como corrente, se omitir, o padrão é 0 (zero)
   
   SET DATE BRIT  // define datas no formato "britanico/brasileiro"
   
   SET CENTURY ON  // Habilita data com ano de 4 dígitos
   
   RDDSETDEFAULT( "DBFCDX" )
   DBSETDRIVER( "DBFCDX" )
   
   HB_LANGSELECT( "PT" )
   HB_CDPSELECT( "PT850" )
   
   SETMODE( 25, 80 ) // Define modo de tela

   IF ! FILE( "DADOS.DBF" ) // Se o arquivo nao existe, cria
   
      DBCREATE( "DADOS.DBF", { ;
               { "NOME",    "C", 50, 0 }, ;
               { "CPF",     "C", 14, 0 }, ;
               { "BAIRRO",  "C", 50, 0 }, ;
               { "RUA",     "C", 50, 0 }, ;
               { "NUMERO",  "N",  6, 0 } } )
               
      USE DADOS NEW ALIAS DADOS EXCLUSIVE VIA "DBFCDX" // Abre o arquivo recem criado
      
      INDEX ON ( CPF ) TAG CPF TO "DADOS"  // Cria indice por CPF
      
      INDEX ON ( NOME ) TAG NOME TO "DADOS"  // Cria indice por Nome
      
   ELSEIF SELECT( "DADOS" ) = 0
   
      USE ( "DADOS.DBF" ) ALIAS "DADOS" EXCLUSIVE NEW
      SET INDEX TO "DADOS"
   
   ENDIF

   DO WHILE nOpcao != 5
   
      CLS // Limpa a tela
      
      @ 02, 25 SAY "--- SISTEMA DE CADASTRO SIMPLES ---" COLOR "W+/B"
      @ 04, 30 SAY "1. Cadastrar"
      @ 05, 30 SAY "2. Pesquisar"
      @ 06, 30 SAY "3. Alterar Cadastro"
      @ 07, 30 SAY "4. Excluir Cadastro"
      @ 08, 30 SAY "5. Sair"
      @ 10, 25 SAY "Escolha uma opção: " GET nOpcao PICTURE "9" VALID ( nOpcao >= 1 .AND. nOpcao <= 5 )
      READ

      DO CASE
         CASE nOpcao == 1
            Hb_Alert( "Colocar a função Cadastrar()")
            //Cadastrar()
         CASE nOpcao == 2
            Hb_Alert( "Colocar a função Pesquisar()")
            //Pesquisar()
         CASE nOpcao == 3
            Hb_Alert( "Colocar a função AlterarCadastro()")
            //AlterarCadastro()
         CASE nOpcao == 4
            Hb_Alert( "Colocar a função ExcluirCadastro()")
            //ExcluirCadastro()
      ENDCASE

   ENDDO

   CLOSE ALL // Fecha todos os arquivos abertos
   CLS
   @ MAXROW()/2, MAXCOL()/2 - 10 SAY "Obrigado por usar!"
   WAIT ""

RETURN NIL

//----------------------------------------------------------------------------//