Pesquisar (Montar um Select)

Question

eh o seguinte muito jah devem conhecer o metodo do kumon(para quem naum conhece eh tipo aula particular) entaum oq eles estaum precisando eh o seguinte lah eles tem aula de Portugues Matematica e Ingl...

Okama · Answer

Voc� tem duas condi��es iniciais: 1-Nome 2-Mat�rias

Primeiro verifique se o nome foi digitado e monte o primeiro select. Se n�o foi monte o segundo select:

if EditNome.text <> �� then 
  MONTA_SELECT1
else
  MONTA_SELECT2

Considerando que sua tabela est� estruturada como

Nome Varchar
Portugues Int
matematica int
Ingles Int

e a sele��o de cada mat�ria � feita por 0 e 1 nos campos:

Procedure MONTA_SELECT1
//Com nome digitado
begin

IBDataSet1.SelectSQL.text :=  �Select * from tabela where nome = �+QuotedStr( Trim( EditNome.text ) );

if CheckBoxPort.checked then 
  IBDataSet1.SelectSQL.add(� and Portugues = 1 �);

if CheckBoxMat.checked then 
  IBDataSet1.SelectSQL.add(� and Matematica = 1 �);

if CheckBoxIng.checked then 
  IBDataSet1.SelectSQL.add(� and Ingles = 1 �);

end;

Procedure MONTA_SELECT2
//Sem nome digitado
Var Materia : Boolean;
begin

IBDataSet1.SelectSQL.text :=  �Select * from tabela �; 
Materia := False;

if CheckBoxPort.checked then begin  
  IBDataSet1.SelectSQL.add(� where Portugues = 1 �);
  Materia := True;
end;

if CheckBoxMat.checked then 
  if Materia then
    IBDataSet1.SelectSQL.add(� and Matematica = 1 �)
  else begin
    IBDataSet1.SelectSQL.add(� where Matematica = 1 �);
    Materia := True;
  end; 


if CheckBoxIng.checked then 
  if Materia then
    IBDataSet1.SelectSQL.add(� and Ingles = 1 �)
  else
    IBDataSet1.SelectSQL.add(� where Ingles = 1 �);

end;

Separei os procedimentos para ficar mais enxuto o c�digo, voc� pode fazer no mesmo procedimento controlando a vari�vel �Materia� para inserir a clausula �where� ou �add�