Subversion Repositories winbugtracker

Rev

Rev 12 | Rev 14 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12 Rev 13
Line 267... Line 267...
267 
procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);
 267 
procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);
268 
begin
 268 
begin
269 
  case ComboBox1.ItemIndex of
 269 
  case ComboBox1.ItemIndex of
270 
    0:
 270 
    0:
271 
      begin
 271 
      begin
272 
        // Meine offenen Bugs (nach Wichtigkeit)
 272 
        // Meine offenen Aufgaben (nach Wichtigkeit)
273 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';
 273 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';
274 
      end;
 274 
      end;
275 
    1:
 275 
    1:
276 
      begin
 276 
      begin
277 
        // Alle offenen Bugs (nach Wichtigkeit)
 277 
        // Alle offenen Aufgaben (nach Wichtigkeit)
278 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';
 278 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';
279 
      end;
 279 
      end;
280 
    2:
 280 
    2:
281 
      begin
 281 
      begin
282 
        // Gelöst ohne Veröffentlichung (nach Lösungsdatum)
 282 
        // Gelöst ohne Veröffentlichung (nach Lösungsdatum)
Line 287... Line 287...
287 
        // Gelöst und Veröffentlicht (nach Version und Lösungsdatum)
 287 
        // Gelöst und Veröffentlicht (nach Version und Lösungsdatum)
288 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';
 288 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';
289 
      end;
 289 
      end;
290 
    4:
 290 
    4:
291 
      begin
 291 
      begin
- 
 
 292 
        // Von mir erfasste Aufgaben (nach Erfassungsdatum)
- 
 
 293 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND erfasser = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY erstellt DESC';
- 
 
 294 
      end;
- 
 
 295 
    5:
- 
 
 296 
      begin
292 
        // Alle Bugs (nach Eröffnungsdatum)
 297 
        // Alle Aufgaben (nach Eröffnungsdatum)
293 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';
 298 
        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';
294 
      end;
 299 
      end;
295 
  end;
 300 
  end;
296 
  qryBugs.Active := true;
 301 
  qryBugs.Active := true;
297 
end;
 302 
end;