incluir campos na grid

[erick]

Oi, tudo bem?

Sou novo no visual foxpro e estou com uma duvida boba, utilizei a pesquisa mas, não encontrei duvida parecida, como faço para incluir os campos acima na grid que esta abaixo, segue imagem para vocês entenderem melhor, desde ja agradeço.

[Você precisa estar registrado e conectado para ver esta imagem.]

[alceu11]

Seria este topico do Portugues Martins
link veja o assunto, e o fonte mas o video estao la.


aki no forum tem varios exemplos com fontes, de pedidos de vendas. com grid.
link
[Você precisa estar registrado e conectado para ver este link.]


No seu formulario, botao direito do mouse , escolha dataevoriment, em seguida escolha a tua tabela.
Depois 1 click no objeto teu grid va na aba data em propriedades, coloque o nome da tabela, record source.
apos isto mouse sobre objeto grid, botao direito build, e ai e so seguir, grid itens, os campos ke irao aparecer na tua grid, e no layoult. dos campos ke que vao aparecam na tua grid..
olha imagem na primei aba do build da grid itens, , selecione os campos.

[Você precisa estar registrado e conectado para ver esta imagem.]

[m@r<3|o]

erick não vejo imagem nenhuma .

a Grid voce tem colunas
após isso voce tem 2 atributos

Header1 e Text1

Header1 é o cabeçalho que vai acima geralmente é o nome do campo
Text1 é o valor que aparecera dentro das linhas e colunas da grid

somente voce colocar

thisform.grid1.column1.header1.caption = " TAL "
thisform.grid1.column1.text1.value = " minhatabela.meucampo "

[erick]

vou tentar com os exemplos que vocês passaram, vou fazer os testes e posto os resultados, estou tendo problemas para mostrar as imagens, mas obrigado por enquanto

[alceu11]

Veja o video
Teoria e pratica como e facil incluir , excluir campos com o Builder na grid em apenas 1 minuto. Acho kem sabe usar a ferramenta so ganha tempo.

[Você precisa estar registrado e conectado para ver este link.] src="[Você precisa estar registrado e conectado para ver este link.] width="425" height="350" type="application/x-shockwave-flash" wmode="transparent" quality="high" scale="exactfit">

[m@r<3|o]

Hospeda e Passa o link
[Você precisa estar registrado e conectado para ver este link.]

Eu incluo Campos com a Builder geralmente .... clico com Botao inverso Builder e Seleciono qualquer tabela , escolho os campos .

Automaticamente essa Tabela vai pro Data environment

Ai fica com ControlSource a Grid geralmente serve pra quem usa DBF
e la mesmo ja escreve os nomes dos campos

ou voce esta fazendo a Grid manualmente com quem usa um SGDB ,
repopulando o Cursor ? recriando as colunas conforme a consuilta

[erick]

não estou utilizando cursor adaptor nem o data envirnment e outras coisas similares, estou fazendo manualmente mesmo, me conectando com o postrgre utilzando esses codigos:

Código:

LOCAL dbConexao, cmdSQL

thisform.AddProperty("conexao",0)

dbConexao = ;
        [DRIVER={PostgreSQL ANSI};DATABASE=autoPecas;]+;
        [SERVER=localhost;PORT=5432;UID=user;PWD=password;]
       
thisform.conexao = ;
        SQLSTRINGCONNECT(dbConexao)

IF thisform.conexao <= 0
  AERROR(arrErro)
  MESSAGEBOX(arrErro[2])
  RETURN .f.
ENDIF

para alimentar o combobox da montadora eu faço da seguinte forma:

Código:

cmdSQL = [select * from montveic];

SQLEXEC(thisform.conexao,cmdSQL,"mont")

thisform.pageframe1.pageCarros.cmbMontEst.RowSource = "mont.montveic"
thisform.pageframe1.pageCarros.cmbMontEst.RowSourceType = 6

com isso quando eu clico no combobox da montadora ele puxa os dados do banco, o que eu quero agora seria selecionar a montadora no combo, clicar no botao incluir e ir para a grid, isso manualmente falando, segue imagem abaixo:

[Você precisa estar registrado e conectado para ver esta imagem.]

[m@r<3|o]

Hummmmmmm faz assim

No Botão

Código:

var1 = mont.montveic

lcComandoSQL = "insert into montveic (montveic)" +;
              "VALUES (?var1)"

= SQLEXEC(thisform.conexao,lcComandoSQL)
= SQLCOMMIT(thisform.conexao)

thisform.atualiza_grid

Agora Cria um Metodo atualiza_grid

Código:

cmdSQL = [select * from montveic]
SQLEXEC(thisform.conexao,cmdSQL,"mont")

With thisform.pageframe1.pageCarros
      .grid1.recordsource = "mont"

IF _tally = 0
= MESSAGEBOX("Não Existe Informações para esse Periodo",48,"Aviso")

      .grid1.column1.header1.Caption = "MONTADORA"
      .grid1.column1.Fontsize = 8
      .grid1.column1.header1.Fontsize = 8
      .grid1.column1.Text1.Value  = "" 
      .grid1.column1.width = 46
             
ENDIF

      .grid1.column1.header1.Caption = "MONTADORA"
      .grid1.column1.Fontsize = 8
      .grid1.column1.header1.Fontsize = 8
      .grid1.column1.Text1.Value  = "mont.montveic" 
      .grid1.column1.width = 46
      .grid1.column1.text1.setfocus

Endwith


[erick]

Marcelo, fiquei confuso esse comando do botão não vai incluir essa informação no banco de dados? O que eu gostaria é jogar a informação que o cliente selecionar no combo q ja esta cadastrada no banco de dados para a grid, essa tela é o seguinte, é um cadastro de peças e nesse cadastro ele vai incluir para quais carros serve essa peça, ali no combo vão mostrar os carros q ja estão cadastrados no banco, ele vai selecionar e incluir no grid apenas os que servirem para essa peça, mas, vou fazer esse teste q vc me passou para ver o resultado

[m@r<3|o]

Erick

Código:

 jogar a informação que o cliente selecionar no combo q ja esta cadastrada no banco de dados para a grid,

A Tabela Montadora é diferente da Tabela de Peças
então ,
Se o registro ja estiver gravado vc tem que fazer update
Se for um Novo Registro de Carro vc faz insert

Nessa Grid voce tem q controlar um Select * da tabela peças
apartir dela que voce inserta ou update ....
Esse insert vc fara para tabela de Peças
Essa Grid se preeenche com a tabela Peças

A unica maneria de mostrar dados na Grid é tendo gravado em tabela ou cursor esses dados.

[erick]

pelo q andei lendo, não tem como incluir dados diretamente na grid nativa do foxpro, eu precisaria incluir os dados na tabela e dar refresh na grid para que eles apareçam, isso confere? Isso seria o contrario do q eu preciso, eu queria poder incluir os dados sem salvar nada no banco de dados nesse momento, só depois que eu decidir se são esses dados mesmo q eu quero q eu clico em salvar e gravo os dados.

[erick]

enviamos a mensagem quase q ao mesmo tempo, entendi como funciona agora, vou fazer os testes aqui e posto o resultado

[m@r<3|o]

O lance é

- carregar todos os combos
- Criar Atualiza_grid
- Insert ou Update das combos na Tabela Peças e chamar Atualiza_grid no Final desse


A Pessoa preenche selecionando os combos ...
Após prrencher todos ..... ai Grava na tabela peças

Quando for alterar ..... coloca 2 cliques ou Enter .... na Grid ... e carregara aquele veiculo ...... nos combos ... ai só clicar num botao alterar ..... e altera

tem como efetuar esses insert ou update no
interactive change do Combo ou LostFocus

iria precisar validar se o codigo existe
e depois insert ou update direto pela combo ,

Perdeu o foco grava ou altera

[m@r<3|o]

Código:

enviamos a mensagem quase q ao mesmo tempo, 

Ok ..... me deseja um dia de sorte .... kkk

Código:

entendi como funciona agora, vou fazer os testes aqui e posto o resultado

Somente peço a colaboração com a pontuação, pois a pontuação desse forum está muito parada


Pelo menos na resposta mais certa ,
ou pra ajudou mais na resolucao do problema .

[erick]

esta dando certo até agora, ainda não cheguei na parte da grid mas ja sei como faze-la com a dica de vocês, a minha duvida é agora é sobre como concatenar o valor de um combobox no comando select, segue o codigo abaixo:

Código:

montid = mont.id
nomeveic = ALLTRIM(thisform.pageframe1.pageCarros.cmbVeicEst.Value)

cmdSQLMod = [select dadoveic.modveic from montveic, dadoveic where dadoveic.codmont = ?montid and dadoveic.nomeveic = ?nomeveic group by dadoveic.modveic]

SQLEXEC(thisform.conexao,cmdSQLMod,"modVeic")

desse modo ele não esta puxando a variavel nomeveic eu acho, ela é uma string e precisa estar entre aspas simples, como fazer a concatenação?