Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 12 → Rev 13

/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;