procedure TfrmTanka.BtnKensakuClick(Sender: TObject);
var
  joken1  :  string;
  joken2  :  string;
  joken   : string;
begin
  joken := '';
  with  qryTanka do
  begin
    Active := False;
    SQL.Clear;
    SQL.Add('SELECT * FROM TANKA');
    //選択条件
    if EditTokui.Text <> '' then
      joken1 := 'TOKUCD = ''' +  EditTokui.Text + '''';
    if EditNm.Text    <> '' then
      joken2 := 'HNNM LIKE ''' + EditNm.Text + '%'+ '''';
    if (joken1 <> '') then
      joken := joken1;
    if (joken2 <> '') then
      if (joken <> '') then
        joken := joken + ' and ' + joken2
      else
        joken := joken2;
    if joken <> ''  then
    begin
      SQL.Add('WHERE');
      SQL.Add(joken);
    end;
    //並び順
    SQL.Add('ORDER BY TOKUCD,HINCD,SIYOBI');
    Active := True;
  end;
end;