Fórum Link de um campo do DBGrid com exe for win #273905
23/03/2005
0
Pessoal :D
Queria retomar uma pegunta cuja qual ainda não consegui uma solução.
tenho uma tabela ou query com os seguintes campos que visualizo a tabela num grid, por ex.:
código nome un valor
1001 tijolo milheiro 200,00
1002 cimento kg 3,00
1003 areia m3 23,00
.....
queria criar uma relação entre os códigos
que são chaves com os documentos (*.doc ou *.xls ou *.pdf) guardados em uma pasta do windows
Quando clico em um determinado campo código do grid chamo e abro o documento correspondente ao foco do código.
1001 -> 1001tijolo.doc ou 1001tijolo.html
ou 1001tijolo.pdf ou 1001tijolo.gif
1002 -> 1001cimento.doc ou 1001cimento.html
ou 1001cimento.pdf ou 1001cimento.gif
1003 -> 1001areia.doc ou 1001areia.html
ou 1001areia.pdf ou 1001areia.gif
....
A idéia é evitar campos memos e esvasiar meu exe, tornando-o mais leve já que a carga de textos e fotografias é muito grande. :idea: :?:
grato :D
drozinski
Queria retomar uma pegunta cuja qual ainda não consegui uma solução.
tenho uma tabela ou query com os seguintes campos que visualizo a tabela num grid, por ex.:
código nome un valor
1001 tijolo milheiro 200,00
1002 cimento kg 3,00
1003 areia m3 23,00
.....
queria criar uma relação entre os códigos
que são chaves com os documentos (*.doc ou *.xls ou *.pdf) guardados em uma pasta do windows
Quando clico em um determinado campo código do grid chamo e abro o documento correspondente ao foco do código.
1001 -> 1001tijolo.doc ou 1001tijolo.html
ou 1001tijolo.pdf ou 1001tijolo.gif
1002 -> 1001cimento.doc ou 1001cimento.html
ou 1001cimento.pdf ou 1001cimento.gif
1003 -> 1001areia.doc ou 1001areia.html
ou 1001areia.pdf ou 1001areia.gif
....
A idéia é evitar campos memos e esvasiar meu exe, tornando-o mais leve já que a carga de textos e fotografias é muito grande. :idea: :?:
grato :D
drozinski
Paulo Drozinski
Curtir tópico
+ 0
Responder
Posts
23/03/2005
Massuda
No evento OnClick do DBGrid faça algo parecido com isso:
procedure TForm1.DBGrid1Click(Sender: TObject); var Grid: TDBGrid; NomeGIF: string; begin Grid := Sender as TDBGrid; // se clicou no campo código if Grid.SelectedField.FieldName = ´CODIGO´ then begin NomeGIF := Grid.SelectedField.AsString + ´.GIF´; // abre o GIF .... end; end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)