Form principal Buttons DB= a d�vida?

Question

Ol� caros colegas do forum estou com uma dificuldade com meu sistema,tenho um pequeno sistema em paradox onde tenho um banco chamado M�quinas, ent�o cadastrei todas as m�quinas da minha rede como Maq1...

Paullus · Answer

N�o entendi direito a sua d�vida.Voc� queria que o bot�o chamado �Button1� recebe-se o valor do primeiro registro da sua tabela de banco de dados. � isso?Se for tenta o seguinte.[code:1:591206ec7e]if TForm.FindChildControl(�Button1�) <> nil then  TButton(TForm.FindChildControl(�Button1�)).Caption := {valor do banco};[/code:1:591206ec7e]Num sei se era isso mas talvez tenha ajudado.obs.: O m�todo FindChildControl deve ser usado no container (o Parent) dos bot�es. Se os bot�es estiverem no pr�prio formul�rio use o m�todo do formul�rio. TForm.FindChildControlSe os bot�es estiverem em um TPanel use TPanel.FindChildControl. Sacou!?...

Cabelo · Answer

Caro colega, o problema � o seguinte : gostaria de saber o pq vc deveria mudar iss ?? O Caption de acordo com o banco, pq se o banco de dados crescer, n�o haver� bot�es suficiente na tela para que seja adequado ao n�mero de m�quinas. Mas se vc deseja criar os bot�es de acordo com o banco de dados, eu aconselho a vc a criar um vetor do tipo record, e implementar este vetor, que ter� vari�veis da classe TButton, de acordo com seu banco de dados..

sem mais

Cabelo

Izaias · Answer

Colega obrigado por ter me respondido mas o q eu quero e q ao iniciar o sistema os 10 botoes q tenho na minha tela receba sequencialmente os 10 registros q tenho em minha tabela.

Bot�o1:= 1 registro
Bot�o2 := 2� registro
.
.
Bot�o10:= o 10� registro

entendeu? Obrigado a todos pela aten��o

Izaias · Answer

Mas o meu Banco s�o para exatamente 10 registros, mas essa possibilidade q vc mencionou � legal s� n�o saberia como faze-la, mas a principio o banco � s� para 10 registros mesmo.
Valeu!!! mesmo

Cabelo · Answer

Tudo bem amigo, mas lembre-se que se o seu banco de dados crescer, isto �, se vc colocar um registro que seja a mais no banco, seu programa vai dar erro :

procedure P_Caption(l_form : TForm);
var v_i : integer;
begin
Query.SQL.add(�select C_MAQ from Maquinas order by C_MAQ�);
Query.Open;
Query.First;
for v_i := 0 to l_form.ComponentCount - 1 do
begin
if l_form.Components[v_i] is TButton then
begin
TButton(l_form.Components[v_i]).Caption := Query.fieldbyname(�C_MAQ�).asstring;
query.next;
end;
end;
end;

depois disso � s� colocar no seu form, no evento formcreate, esta procedure, passando como par�metro o Form.

espero ter ajudado

sem mais

Cabelo

F�rum Form principal Buttons DB= a d�vida? #227197