Clipper On Line • Ver Tópico - Criar uma Tabela usando Table Classe Syntax

Criar uma Tabela usando Table Classe Syntax

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

 

Criar uma Tabela usando Table Classe Syntax

Mensagempor Kapiaba » 10 Fev 2016 16:01

Vivendo e aprendendo... Show() de bola...

#include "FiveWin.ch"
#include 'ttable.ch'

request Dbfcdx

PROCEDURE main

   LOCAL x      := 1
   LOCAL oTable := nil
   
   RDDSETDEFAULT( 'dbfcdx')

   doData()

   /*Open An Table With Table Class */
   DEFINE TABLE oTable FILE tsttable NEW
   
   /*Adding an Index to This Table */
   DEFINE ORDER ON KEY "nome" TAG _1 IN oTable

   /* Force the index Creating*/
   oTable:Reindex()

   WHILE x <= 100

      oTable:ReadBlank()

      oTable:name   := Str( x, 20 )
      oTable:street := Str( x + 1, 20 )
      oTable:city   := Str( x + 2, 20 )
      oTable:code   := x
      oTable:today  := Date()
      oTable:pay    := ( x % 2 ) == 0

      oTable:Append()

      oTable:Write()

      x ++

   ENDDO

   USE

RETURN

PROCEDURE dodata()

   LOCAL oTable

   IF !FILE( 'tsttable.dbf' )

      /* Criar uma Tabela usando Table Classe Syntax */
      /* Create An Table using Table Classe Syntax */
      CREATE DATABASE oTable FILE tsttable.dbf

      FIELD NAME name   TYPE CHARACTER LEN 40 DEC 0 OF oTable
      FIELD NAME street TYPE CHARACTER LEN 40 DEC 0 OF oTable
      FIELD NAME city   TYPE CHARACTER LEN 40 DEC 0 OF oTable
      FIELD NAME code   TYPE NUMERIC   LEN  5 DEC 0 OF oTable
      FIELD NAME today  TYPE DATE      LEN  8 DEC 0 OF oTable
      FIELD NAME pay    TYPE LOGICAL   LEN  1 DEC 0 OF oTable

      BUILD TABLE oTable

   ENDIF

RETURN


Kapiaba
Colaborador

Colaborador
 
Mensagens: 1483
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 284 vezes
Mens.Curtidas: 90 vezes



Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Ahrefs [Bot] e 1 visitante


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro