Ajuda - Urgente
Caros colegas do grupo:
1 - Alguem poderia me enviar um exemplo simples de como fazer uma
master-detail utilizando:
- Master: DBEdit, IBQuery, Datasource;
- Detail: DBGrid, IBQuery, Datasource.
2 - Como faço para atualizar um campo na Grid assim que digito uma
informação, exemplo:
Tenho um cadastro de produto com codigo, descrição e unidade. Num Grid
qualquer (saida ou entrada de
produtos) informo o codigo do produto. gostaria que fosse apresentado
na proxima coluna, a unidade. Da
forma que esta funcionando hoje, ela só atualiza se fechar o form e
abrilo de novo.
3 - Crie em meu banco, algumas tabelas que trabalharão com valores, sendo
´VALOR4 NUMERIC (12,4)´.
O Problema é que no Delphi, na hora de mostrar o valor no campo, só
assume o formato ´0,0000´.
Estou usando o SQL Dialect = None.
Estou tentando fazer isto e não estou conseguindo. Alguem pode me
orientar sobre o que fazer?
Grato
1 - Alguem poderia me enviar um exemplo simples de como fazer uma
master-detail utilizando:
- Master: DBEdit, IBQuery, Datasource;
- Detail: DBGrid, IBQuery, Datasource.
2 - Como faço para atualizar um campo na Grid assim que digito uma
informação, exemplo:
Tenho um cadastro de produto com codigo, descrição e unidade. Num Grid
qualquer (saida ou entrada de
produtos) informo o codigo do produto. gostaria que fosse apresentado
na proxima coluna, a unidade. Da
forma que esta funcionando hoje, ela só atualiza se fechar o form e
abrilo de novo.
3 - Crie em meu banco, algumas tabelas que trabalharão com valores, sendo
´VALOR4 NUMERIC (12,4)´.
O Problema é que no Delphi, na hora de mostrar o valor no campo, só
assume o formato ´0,0000´.
Estou usando o SQL Dialect = None.
Estou tentando fazer isto e não estou conseguindo. Alguem pode me
orientar sobre o que fazer?
Grato
Zekas
Curtidas 0
Respostas
Anonymous
07/02/2003
1- Master-detail simples
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(´select numped from pedidos´);
IBQuery1.Open;
Datasource1.Dataset := IBQuery1;
IBQuery2.Close;
IBQuery2.SQL.Clear;
IBQuery2.SQL.Add(´select * from itens_ped´);
IBQuery2.SQL.Add(´where numped=:numped´);
IBQueyr2.Datasource := Datasource1;
IBQuery2.Open;
Datasource2.DataSet := IBQuery2;
DBGrid1.Datasource := Datasource1;
DBGrid2.Datasource := Datasource2;
2 - Crie um campo LookUp com a tabela de produtos
3 - Crie TFields e formate-os como quiser.
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(´select numped from pedidos´);
IBQuery1.Open;
Datasource1.Dataset := IBQuery1;
IBQuery2.Close;
IBQuery2.SQL.Clear;
IBQuery2.SQL.Add(´select * from itens_ped´);
IBQuery2.SQL.Add(´where numped=:numped´);
IBQueyr2.Datasource := Datasource1;
IBQuery2.Open;
Datasource2.DataSet := IBQuery2;
DBGrid1.Datasource := Datasource1;
DBGrid2.Datasource := Datasource2;
2 - Crie um campo LookUp com a tabela de produtos
3 - Crie TFields e formate-os como quiser.
GOSTEI 0