Fórum Ocultar campo na Tela #326348
27/07/2006
0
Tenho uma tabela feita em AdoQuery com varios campos.
Preciso ocultar alguns campos pois o usuario nao tem acesso, como fazer ???
grato..
Robson.
Robsons
Curtir tópico
+ 0Posts
27/07/2006
Marco Salles
é so voce clicar sobre o dbgrid e escolher o Colunms Editor
La voce pode inserir todos os Tfields e ir eliminando aqueles que voce não quer que apareça .
Gostei + 0
28/07/2006
Steve_narancic
Gostei + 0
28/07/2006
Robsons
Quando coloco a propriedade do Dbedit.visible:=true ou false
funciona....
Só que eu não sei qual dbedit será pois faço isso dinamicamente...
quando uso AdoQry.Fieldbyname(´campo´).visible:=false ou true nao funciona....
Abraços
Gostei + 0
28/07/2006
Night_man
for Idx := 0 to ComponentCount - 1 do
begin
if (Components[Idx] is TDBEdit) and
(SameText((Components[Idx] as TDBEdit).DataField, NomeCampo)) then
(Components[Idx] as TDBEdit).Hide
end;nomecampo eh o nome do campo que deve ser retirado.
Gostei + 0
28/07/2006
Marco Salles
Não sabia...
Acho que assim Tb Dá
procedure Desabilitar(Campo:String);
var
i:integer;
begin
for i:=0 to form1.ComponentCount-1 do
begin
if form1.Components[i] is TDbEdit Then
if AnsiUpperCase((TDbEdit(form1.Components[i]).Field.FieldName)) =
AnsiUpperCase(campo) then
TDbEdit(form1.Components[i]).Visible:=not TDbEdit(form1.Components[i]).Visible;
end
end;procedure TForm1.Button1Click(Sender: TObject); begin Desabilitar(´***Nome Do Seu Campo´); end;
Gostei + 0
28/07/2006
Robsons
valeu galera !!!!
Abraços...
Gostei + 0
29/07/2006
Marco Salles
Blz....
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)