Bom dia a Todos,
Estou com uma coisa meio chata que me importuna. Toda vez que
preciso fazer um acesso a base via sql preciso fazer o seguinte, por
exemplo:
Try
qry:=TIBQuery.Create(self);
qry.DataBase:=FPrincipal.DBase;
qry.sql.add('select gen_id(GEN'+copy(Self.Name,2,length
(Self.Name))+', 0) from RDB$Generators where UPPER
(RDB$GENERATOR_NAME) = ''GEN'+AnsiUpperCase(copy(Self.Name,2,length
(Self.Name)))+'''');
qry.open;
if (TForm(self).FindComponent('SisCod') <> nil) and (SBase.State
in [dsInsert, dsEdit]) then
SisCod.Text := IntToStr(qry.Fields[0].AsInteger+1)
else
MessageDlg('Houve problemas ao criar o código do
Sistema.',mterror,[mbok],0);
Finally
Qry.Free;
end;
Eu gostaria de fazer algo que apenas chamasse uma função de minha
biblioteca tools. Exemplo
Na biblioteca está :
function CriaQuery(qry:TIBQuery;AOwner:TComponent):TIBQuery;
begin
Qry:=TIBQuery.Create(AOwner);
Qry.Database:=Menu.FPrincipal.DBase;
end;
Eu quero chamá-la: tools.CriaQuery(qry,self) e ela faz todo o
trabalho que estou fazendo no braço a cada acesso. Se isso
funcionasse bastaria eu fazer o seguinte:
tools.CriaQuery(qry,self);
qry.sql.add('instrução');
qry.open;
if not fields[0].IsNull then
patati patata...
qry.free;
Não estou conseguindo. Alguém pode me ajudar neste "pobrema"
Desde já fico grato por qq ajuda.
Alexandre Macedo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
