funcao ..
Pessoal eu fiz uma funcao q mosta o saldo de uma conta pq q quando coloco por exemplo :
label9.caption := MostraSdBancarioconta:string;sdbancario:string);
o Label9 fica em branco alguem pdoe de ajudar
************************************************************
function MostraSdBancario(conta:string;sdbancario:string):string; //
begin
try
dados.ADOConnection1.Connected := true;
dados.ADOConnection1.BeginTrans;
dados.Tbl_conta.open;
if not dados.Tbl_conta.Locate(´conta´,conta,[]) then
begin
Application.MessageBox( ´Não foi possível localizar o saldo!´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
abort;
end
else
sdbancario := CurrToStr(dados.Tbl_contasdBancario.Value);
dados.Tbl_conta.Close;
dados.ADOConnection1.CommitTrans;
except on EDatabaseError do
begin
dados.ADOConnection1.RollbackTrans;
DADOS.Tbl_conta.Close;
Application.MessageBox( ´Ocorreu um erro ao vizualizar saldos bancários !´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
dados.ADOConnection1.Connected := false;
end;
end;
end;
end.
label9.caption := MostraSdBancarioconta:string;sdbancario:string);
o Label9 fica em branco alguem pdoe de ajudar
************************************************************
function MostraSdBancario(conta:string;sdbancario:string):string; //
begin
try
dados.ADOConnection1.Connected := true;
dados.ADOConnection1.BeginTrans;
dados.Tbl_conta.open;
if not dados.Tbl_conta.Locate(´conta´,conta,[]) then
begin
Application.MessageBox( ´Não foi possível localizar o saldo!´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
abort;
end
else
sdbancario := CurrToStr(dados.Tbl_contasdBancario.Value);
dados.Tbl_conta.Close;
dados.ADOConnection1.CommitTrans;
except on EDatabaseError do
begin
dados.ADOConnection1.RollbackTrans;
DADOS.Tbl_conta.Close;
Application.MessageBox( ´Ocorreu um erro ao vizualizar saldos bancários !´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
dados.ADOConnection1.Connected := false;
end;
end;
end;
end.
Michel
Curtidas 0
Respostas
Beppe
14/10/2003
function MostraSdBancario(conta:string;sdbancario:string):string; //
begin
try
dados.ADOConnection1.Connected := true;
dados.ADOConnection1.BeginTrans;
dados.Tbl_conta.open;
if not dados.Tbl_conta.Locate(´conta´,conta,[]) then
begin
Application.MessageBox( ´Não foi possível localizar o saldo!´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
abort;
end
else
:?: sdbancario := CurrToStr(dados.Tbl_contasdBancario.Value);
dados.Tbl_conta.Close;
dados.ADOConnection1.CommitTrans;
except on EDatabaseError do
begin
dados.ADOConnection1.RollbackTrans;
DADOS.Tbl_conta.Close;
Application.MessageBox( ´Ocorreu um erro ao vizualizar saldos bancários !´,´CFI - Controle Financeiro integrado´, MB_ICONEXCLAMATION + MB_OK );
dados.ADOConnection1.Connected := false;
end;
end;
end;
end.
Você está atribuindo para um parâmetro. Atribua o resultado para Result.
Ataliba
GOSTEI 0