F�rum Incompatible types: 'TStrings' and 'String' #383320

10/08/2010

bom seguinte estou tentando fazer um sistema de login aki em delphi com SQL server 2008, na primeira tentativa ja ta dando erro.. kkk estou tentando fazer o seguinte

DataModule1.ADOQCadUsu.Open;        DataModule1.ADOQCadUsu.SQL:='SELECT NomUsu,PasUsu FROM TCadUsu where NomUsu=:enomusu.text and PasUsu=:epasusu.text';

Fabio Sanches

Curtir t�pico

+ 0

Responder

Posts

10/08/2010

Felipe Caputo

mude de
DataModule1.ADOQCadUsu.SQL:='SELECT NomUsu,PasUsu FROM TCadUsu where NomUsu=:enomusu.text and PasUsu=:epasusu.text'
para
DataModule1.ADOQCadUsu.SQL.text:='SELECT NomUsu,PasUsu FROM TCadUsu where NomUsu=:enomusu.text and PasUsu=:epasusu.text'

Responder

Gostei + 0

10/08/2010

Eriley Barbosa

DataModule1.ADOQCadUsuClose;
DataModule1.ADOQCadUsu.SQL.Clear;
DataModule1.ADOQCadUsu.SQL.Add('SELECT NomUsu,PasUsu FROM TCadUsu where NomUsu = ' + 
QuotedStr(enomusu.text) + ' and PasUsu = ' + QuotedStr(epasusu.text));

DataModule1.ADOQCadUsu.Open;

Atenciosamente Eriley

Responder

Gostei + 0

10/08/2010

Eriley Barbosa

Faltou o ponto antes do close

DataModule1.ADOQCadUsu.Close;
DataModule1.ADOQCadUsu.SQL.Clear;
DataModule1.ADOQCadUsu.SQL.Add('SELECT NomUsu,PasUsu FROM TCadUsu where NomUsu = ' + 
QuotedStr(enomusu.text) + ' and PasUsu = ' + QuotedStr(epasusu.text));

DataModule1.ADOQCadUsu.Open;

Atenciosamente Eriley

Responder

Gostei + 0

10/08/2010

Fabio Sanches

show de bola.. mais como q eu fa�o agora pra verificar se o resultado dessa consulta sql � verdadeira ou falsa?

Responder

Gostei + 0

10/08/2010

Felipe Caputo

� s� fazer um

if ADOCadUsu.recordcount > 0 then  resultado positivoelse  resultado negativo

pq o recordcount apresenta o numero de registro que satisfizeram as condi��es da query

Responder

Gostei + 0

10/08/2010

Eriley Barbosa

DataModule1.ADOQCadUsu.Close;
DataModule1.ADOQCadUsu.SQL.Clear;
DataModule1.ADOQCadUsu.SQL.Add('SELECT NomUsu,PasUsu FROM TCadUsu where NomUsu = ' + 
QuotedStr(enomusu.text) + ' and PasUsu = ' + QuotedStr(epasusu.text));

DataModule1.ADOQCadUsu.Open;
if DataModule1.ADOQCadUsu.IsEmpty then
begin
  ShowMessage('Usu�rio ou senha inv�lido');
  enomusu.SetFocus;
  Exit;//Ou use Abort
end;

Atenciosamente Eriley

Responder

Gostei + 0

10/08/2010

Fabio Sanches

eu posso colocar tipo Flogin.destroy para tirar o form de login da memoria o comando � isso mesmo.. e tem necessidade de fazer isso?

Responder

Gostei + 0

10/08/2010

Eriley Barbosa

Deve ser feito no seu DPR ou no onShow do seu formul�rio principal. Atenciosamente Eriley

Responder

Gostei + 0

10/08/2010

Felipe Caputo

Bom quanto a isso � uma coisa que voc� tem q tomar cuidado nos seus projetos. quanto ao form de login eu respondi um post esses dias sobre isso. vou colocar aki em baixo para vc aprender a trabalhar com class function que eu acho uma das maneiras mais praticas de se criar e destuir formul�rios.
http://www.activedelphi.com.br/forum/viewtopic.php?t=57571&highlight=login
S� uma observa��o, n�o recomendo muito o uso de destroy, � prefer�ver voc� utilizar o comando
FreeandNil(frmLogin);
pois esse comando realmente tira o objeto instanciado da memoria completamente

Responder

Gostei + 0