1:
2:
3:
4:
5:
6:
7:
8:

  if Button2.Caption='Nur WW' then
     Begin
     DataModule2.ADOQuery_Mess.Close;
     DataModule2.ADOQuery_Mess.SQL.Text:='Select * From MGV1 Where (ID ='+such+') and (I_Export ='''+('X')+''') and (G_Typ='''+('WW')+''')order by we_Nr,we_lauf';
     DataModule2.ADOQuery_Mess.Open;
     DataModule2.ADOQuery_Mess.First;
     DBGrid2.Update;
     End;					

1:
2:
3:
4:
5:
6:
7:
8:

  if Button2.Caption='Nur KW+WW' then
     Begin
     DataModule2.ADOQuery_Mess.Close;
     DataModule2.ADOQuery_Mess.SQL.Text:='Select * From MGV1 Where (ID ='+such+') and (I_Export ='''+('X')+''') and (G_Typ='''+('KW')+''') and (G_Typ='''+('WW')+''')order by we_Nr,we_lauf';
     DataModule2.ADOQuery_Mess.Open;
     DataModule2.ADOQuery_Mess.First;
     DBGrid2.Update;
     End;					

1:
2:
3:
4:
5:
6:

DataModule2.ADOQuery_Mess.SQL.Text:='Select * From MGV1 Where ID =:ID and I_Export = :I_Export and (G_Typ=:G_Typ1 or G_Typ=:G_Typ2) order by we_Nr,we_lauf';
DataModule2.ADOQuery_Mess.ParamByName('ID').AsInteger := such;
DataModule2.ADOQuery_Mess.ParamByName('I_Export').AsString := 'X';
DataModule2.ADOQuery_Mess.ParamByName('G_Typ1').AsString := 'KW';
DataModule2.ADOQuery_Mess.ParamByName('G_Typ2').AsString := 'WW';
DataModule2.ADOQuery_Mess.Open;