Por favor se alguém puder me ajudar, é urgente!
Tenho um Cadastro de Alunos em um Banco de Dados
e estou criando outro banco de dados para a biblioteca
e qdo cadastramos um aluno buscamos alguns dados deste banco e
acrescentamos outros no outro banco, sendo assim, alguns dados ficam
no 1º banco e o restante no outro.
Quando um aluno já foi cadastrado e preciso localizá-lo, tenho q
buscar nos dois bancos. Então, estou usando 2 SQLConnectin, 2
SQLDataSet e ClientDataSet para fazer a pesquisa, mas nao consigo!
O que há de errado???
procedure TFLocalizaLeitor.BBtnLocClick(Sender: TObject);
var
texto:string;
begin
// inherited;
if Combo1.Text='Aluno' then
begin
DBGrid1.DataSource := dm.DSLocalizaAluno;
dm.SQLLocalizaAluno.Close;
dm.ClientLocalizaAluno.Active := false;
dm.SQLLocalizar.Close;
dm.ClientLocalizar.Active := false;
if radiogroup1.ItemIndex = 0 then
begin
dm.SQLLocalizaAluno.CommandText :=' Select
a.id_aluno,a.nome_aluno,a.endereco,a.numero_end, '
+'
a.id_cidade_endereco,a.fone,e.id_estrutura,e.nome,c.id_cidade,c.nome_c
idade, '
+' m.id_matricula,m.id_aluno,m.id_estrutura '
+' from Cad_Alunos a,Cidades c,Cad_estruturas
e,Matriculas m '
+' where upper(nome_aluno) like :nome and
a.id_cidade_endereco=c.id_cidade '
+' and a.id_aluno=m.id_aluno and
e.id_estrutura=m.id_estrutura order by 2 ';
dm.SQLLocalizaAluno.open;
dm.SQLLocalizar.CommandText :='Select
id_aluno,apelido,celular from usuario'
+'where id_aluno=:id_aluno';
texto:= Ednome.Text+'%';
dm.SQLLocalizaAluno.ParamByName('nome').AsString :=
uppercase(texto);
end
else
if radiogroup1.ItemIndex = 1 then
begin
dm.SQLLocalizaAluno.CommandText :='Select
a.id_aluno,a.nome_aluno,a.endereco,a.numero_end, '
+'
a.id_cidade_endereco,a.fone,e.id_estrutura,e.nome,c.id_cidade,c.nome_c
idade, '
+' m.id_matricula,m.id_aluno,m.id_estrutura '
+' from Cad_Alunos a,Cidades c,Cad_estruturas
e,Matriculas m '
+' where upper(nome_aluno) like :nome and
a.id_cidade_endereco=c.id_cidade and a.id_aluno=m.id_aluno '
+' and e.id_estrutura=m.id_estrutura order by 2 ';
dm.SQLLocalizaAluno.open;
dm.ClientLocalizaAluno.Active := true;
dm.SQLLocalizar.ParamByName('id_aluno').AsInteger :=
dm.SQLLocalizaAluno.FieldValues['id_aluno'];
dm.SQLLocalizar.CommandText :='Select
id_aluno,apelido,celular from usuario'
+'where id_aluno=:id_aluno';
texto:= '%'+Ednome.Text+'%';
end
else
if radiogroup1.ItemIndex = 2 then
begin
dm.SQLLocalizaAluno.CommandText :=' Select
a.id_aluno,a.nome_aluno,a.endereco,a.numero_end, '
+'
a.id_cidade_endereco,a.fone,e.id_estrutura,e.nome,c.id_cidade,c.nome_c
idade, '
+' m.id_matricula,m.id_aluno,m.id_estrutura '
+' from Cad_Alunos a,Cidades c,Cad_estruturas
e,Matriculas m '
+' where a.id_cidade_endereco=c.id_cidade and
a.id_aluno=m.id_aluno '
+' and e.id_estrutura=m.id_estrutura order by 2 ';
dm.SQLLocalizaAluno.open;
dm.SQLLocalizar.ParamByName('id_aluno').AsInteger :=
dm.SQLLocalizaAluno.FieldValues['id_aluno'];
dm.SQLLocalizar.ParamByName('id_aluno').AsInteger :=
dm.SQLLocalizaAluno.FieldValues['id_aluno'];
dm.SQLLocalizar.CommandText :='Select
id_aluno,apelido,celular from usuario'
+'where id_aluno=:id_aluno';
texto :='';
end;
if texto <> '' then
dm.SQLLocalizaAluno.ParamByName('nome').AsString :=
uppercase(texto);
dm.SQLLocalizar.ParamByName('id_aluno').AsInteger :=
dm.SQLLocalizaAluno.FieldValues['id_aluno'];
dm.SQLLocalizaAluno.open;
dm.ClientLocalizaAluno.Active := true;
dm.SQLLocalizar.open;
dm.ClientLocalizar.Active := true;
label4.Caption := inttostr
(dm.ClientLocalizaAluno.RecordCount);
end
else
if combo1.Text<>'Aluno' then
begin
DBGrid1.DataSource := dm.DsLocalizar;
dm.SQLLocalizar.Close;
dm.ClientLocalizar.Active := false;
if radiogroup1.ItemIndex = 0 then
begin
dm.SQLLocalizar.CommandText :='Select * from Usuario
u, Cidade c '
+'where upper(nome) like :nome and u.tipo=:tipo and
u.id_cidade=c.id_cidade ';
texto:= Ednome.Text+'%';
end
else
if radiogroup1.ItemIndex = 1 then
begin
dm.SQLLocalizar.CommandText := 'Select * from
Usuario u, Cidade c '
+'where upper(nome) like :nome and u.tipo=:tipo and
u.id_cidade=c.id_cidade ';
texto:= '%'+Ednome.Text+'%';
end
else
if radiogroup1.ItemIndex = 2 then
begin
dm.SQLLocalizar.CommandText := ' Select * from
Usuario u, Cidade c '
+'where u.tipo=:tipo and u.id_cidade=c.id_cidade ';
texto :='';
end;
if texto <> '' then
dm.SQLLocalizar.ParamByName('nome').AsString :=
uppercase(texto);
dm.SQLLocalizar.ParamByName('tipo').AsString := Combo1.Text;
dm.SQLLocalizar.Open;
dm.ClientLocalizar.Active := true;
label4.Caption := inttostr(dm.ClientLocalizar.RecordCount);
end;
end;
Se alguém puder me ajudar agradeço muito!!!!
Atenciosamente,
Liana Gomes
--
<<<<< 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] ou [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
