Fórum Enviar um objeto #325625

19/07/2006

0

Delphi 

procedure TF5Estoque.Saldo(xcodtan,xcaptan: Integer; Sender: TProgressBar);
begin
  IBOSaldo.Close;
  IBOSaldo.SQL.Clear;
  IBOSaldo.SQL.Add(´SELECT SUM((CASE WHEN ENTSAI = ´´S´´ THEN -1 WHEN ENTSAI = ´´E´´ THEN 1 ELSE 0 END) * QNTVOL) AS SALDO FROM CETANQUES WHERE CODTAN = ´+IntToStr(xcodtan));
  IBOSaldo.Prepare;
  IBOSaldo.Open;

  xnomtan.Max := xcaptan;
  xnomtan.Position := IBOSaldo.FieldByName(´SALDO´).AsInteger;
end;


Eu tenho varios progressbar para demonstrar o saldo de varios tanques, eu queria passar para esse metodo o nome da progressbar e o metodo preencheria a progressbar que passei, como posso fazer isso?

xnomtan = seria o nome da Progressbar

Abs


Felipeiw

Felipeiw

Responder

Posts

19/07/2006

Night_man

Mas tu jah tem isso, no Sender,

o teu sender esta resebendo um ProgressBar, tu nao pode utilizar ele?


Responder

Gostei + 0

19/07/2006

Felipeiw

Mas como eu utilizo esse objeto dentro do metodo.
Abs


Responder

Gostei + 0

19/07/2006

Night_man 

procedure TF5Estoque.Saldo(xcodtan,xcaptan: Integer; Sender: TProgressBar); 
begin 
  IBOSaldo.Close; 
  IBOSaldo.SQL.Clear; 
  IBOSaldo.SQL.Add(´SELECT SUM((CASE WHEN ENTSAI = ´´S´´ THEN -1 WHEN ENTSAI = ´´E´´ THEN 1 ELSE 0 END) * QNTVOL) AS SALDO FROM CETANQUES WHERE CODTAN = ´+IntToStr(xcodtan)); 
  IBOSaldo.Prepare; 
  IBOSaldo.Open; 

  Sender.Max := xcaptan; 
  Sender.Position := IBOSaldo.FieldByName(´SALDO´).AsInteger; 
end;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar