/trunk/BugtrackerMain.dfm |
---|
78,16 → 78,15 |
Style = csDropDownList |
Anchors = [akLeft, akTop, akRight] |
ItemHeight = 13 |
ItemIndex = 0 |
TabOrder = 1 |
Text = 'Meine offenen Bugs (nach Wichtigkeit)' |
OnChange = ComboBox1Change |
Items.Strings = ( |
'Meine offenen Bugs (nach Wichtigkeit)' |
'Alle offenen Bugs (nach Wichtigkeit)' |
'Meine offenen Aufgaben (nach Wichtigkeit)' |
'Alle offenen Aufgaben (nach Wichtigkeit)' |
'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)' |
'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)' |
'Alle Bugs (nach Er'#246'ffnungsdatum)') |
'Von mir erfasste Aufgaben (nach Erfassungsdatum)' |
'Alle Aufgaben (nach Er'#246'ffnungsdatum)') |
end |
object DBNavigator2: TDBNavigator |
Left = 11 |
/trunk/BugtrackerMain.pas |
---|
269,12 → 269,12 |
case ComboBox1.ItemIndex of |
0: |
begin |
// Meine offenen Bugs (nach Wichtigkeit) |
// Meine offenen Aufgaben (nach Wichtigkeit) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC'; |
end; |
1: |
begin |
// Alle offenen Bugs (nach Wichtigkeit) |
// Alle offenen Aufgaben (nach Wichtigkeit) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC'; |
end; |
2: |
289,7 → 289,12 |
end; |
4: |
begin |
// Alle Bugs (nach Eröffnungsdatum) |
// Von mir erfasste Aufgaben (nach Erfassungsdatum) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND erfasser = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY erstellt DESC'; |
end; |
5: |
begin |
// Alle Aufgaben (nach Eröffnungsdatum) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC'; |
end; |
end; |