Manipulação de Parametros da Query. Duvidas!

33 views
Skip to first unread message

ICE

unread,
May 20, 2011, 9:04:13 AM5/20/11
to MorfikBR
Bom dia Pessoal...

Estou tentando fazer no Morfik uma rotina comum do DELPHI, a mesma
segue abaixo. Porém não estou conseguindo manipular os parametros da
Query, consigo até fazer a mesma com o SQL editado com as condições e
parametros, mas não consigo editar/adicionar um parametro e seu
respectivo valor.
Se alguém souber como faz, ou tiver alguma rotina de login mas me
mandar, eu agradeço.

With qryLogin do
begin
ParamByName('NOME').value := edtNome.text;

Execute;

If qryLogin.recordcount = 0 then
begin
Application.MessageBox('Usuário Incorreto. Verifique!','Falha de
Login', mbOk + mbIcon_Error);
edtNome.SetFocus;
exit;
end else
begin
if not SameText(qryLogin.FieldByName('passwd').asstring;
edtSenha.text) then
begin
Application.MessageBox('Senha Incorreta. Verifique!','Falha de
Login', mbOk + mbIcon_Error);
edtSenha.SetFocus;
exit;
end else
Procedure acesso concedido;
end;
end;

ICE

unread,
May 21, 2011, 2:54:37 PM5/21/11
to MorfikBR
Olá Pessoal,

Consegui resolver essa dúvida tomando a seguinte medida:
- Criei uma query do tipo pass-through, escrevendo o sql necessário, e
na
clausula where declarei os parametros igualmente como pode ser feito
em
Delphi(componente query/clientdataset);
- Fiz o formulario de retorno ligado a query;
- Fiz o formulario de login sem ligação, porém no evento click do
botao
validar, executei o seguinte comando: openform('formulario retorno
query', 'abri
no subformlogin', ' "parametros = ' + edit.text" ');

Com isso o retorno da query esta em um campo do subformLogin(q no meu
caso esta
invisivel) e assim posso comparar a senha e permitir o aceso a
aplicação.

O famoso F1 ajudou nessa empreitada, direcionando para wiki do morfik
aonde tem
alguns videos exemplos. Este em questão que auxiliou no processo é o
http://wiki3.morfik.com/wiki3/How_Do_I:_Build_Pass-through_Queries

Sei que a medida não é das melhores, mas a idéia esta ai e com ela
podemos
melhora-la... comentem ai alternativas e vamos enriquecer o grupo.

At.
Reply all
Reply to author
Forward
0 new messages