Rev 11 | Rev 13 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 11 | Rev 12 | ||
---|---|---|---|
Line 89... | Line 89... | ||
89 | lkpStatus: TADOTable; |
89 | lkpStatus: TADOTable; |
90 | dsStatus: TDataSource; |
90 | dsStatus: TDataSource; |
91 | DBLookupComboBox5: TDBLookupComboBox; |
91 | DBLookupComboBox5: TDBLookupComboBox; |
92 | qryBugsstatus: TIntegerField; |
92 | qryBugsstatus: TIntegerField; |
93 | qryBugsstatus_geaendert: TDateTimeField; |
93 | qryBugsstatus_geaendert: TDateTimeField; |
- | 94 | Bugs1: TMenuItem; |
|
- | 95 | Wechselnzu1: TMenuItem; |
|
94 | procedure Mitarbeiter1Click(Sender: TObject); |
96 | procedure Mitarbeiter1Click(Sender: TObject); |
95 | procedure qryBugsAfterScroll(DataSet: TDataSet); |
97 | procedure qryBugsAfterScroll(DataSet: TDataSet); |
96 | procedure Module1Click(Sender: TObject); |
98 | procedure Module1Click(Sender: TObject); |
97 | procedure Projekte1Click(Sender: TObject); |
99 | procedure Projekte1Click(Sender: TObject); |
98 | procedure Versionen1Click(Sender: TObject); |
100 | procedure Versionen1Click(Sender: TObject); |
Line 109... | Line 111... | ||
109 | procedure btnBearbeitungsnotizClick(Sender: TObject); |
111 | procedure btnBearbeitungsnotizClick(Sender: TObject); |
110 | procedure qryBugsBeforeCancel(DataSet: TDataSet); |
112 | procedure qryBugsBeforeCancel(DataSet: TDataSet); |
111 | procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); |
113 | procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); |
112 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
114 | procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); |
113 | procedure qryBugsstatusChange(Sender: TField); |
115 | procedure qryBugsstatusChange(Sender: TField); |
- | 116 | procedure Wechselnzu1Click(Sender: TObject); |
|
114 | public |
117 | public |
115 | eingeloggtMitarbeiter: integer; |
118 | eingeloggtMitarbeiter: integer; |
116 | eingeloggtMitarbeiterName: string; |
119 | eingeloggtMitarbeiterName: string; |
117 | aktuellesProjekt: integer; |
120 | aktuellesProjekt: integer; |
118 | aktuellesProjektName: string; |
121 | aktuellesProjektName: string; |
Line 183... | Line 186... | ||
183 | begin |
186 | begin |
184 | qryBugsstatus_geaendert.AsDateTime := Now; |
187 | qryBugsstatus_geaendert.AsDateTime := Now; |
185 | 188 | ||
186 | DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können |
189 | DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können |
187 | case qryBugsstatus.AsInteger of |
190 | case qryBugsstatus.AsInteger of |
- | 191 | // TODO: farben in db? |
|
188 | 1: col := clRed; // Offen |
192 | 1: col := clRed; // Offen |
189 | 2: col := clMaroon; // Abgelehnt |
193 | 2: col := clMaroon; // Abgelehnt |
190 | 3: col := clPurple; // In Bearbeitung |
194 | 3: col := clPurple; // In Bearbeitung |
191 | 4: col := clTeal; // Gefixt |
195 | 4: col := clTeal; // Gefixt |
192 | 5: col := clGreen; // Veröffentlicht |
196 | 5: col := clGreen; // Veröffentlicht |
Line 232... | Line 236... | ||
232 | procedure TfrmBugtracker.Versionen1Click(Sender: TObject); |
236 | procedure TfrmBugtracker.Versionen1Click(Sender: TObject); |
233 | begin |
237 | begin |
234 | frmVersionen.ShowModal; |
238 | frmVersionen.ShowModal; |
235 | end; |
239 | end; |
236 | 240 | ||
- | 241 | procedure TfrmBugtracker.Wechselnzu1Click(Sender: TObject); |
|
- | 242 | var |
|
- | 243 | s: string; |
|
- | 244 | id, ec: integer; |
|
- | 245 | begin |
|
- | 246 | s := Trim(InputBox('Wechseln zu Bug', 'ID des Bugs eingeben', '0')); |
|
- | 247 | if s = '' then exit; |
|
- | 248 | Val(s, id, ec); |
|
- | 249 | if ec <> 0 then |
|
- | 250 | begin |
|
- | 251 | ShowMessageFmt('"%s" ist keine gültige Bug-ID-Nummer.', [id]); |
|
- | 252 | exit; |
|
- | 253 | end; |
|
- | 254 | qryBugs.Locate('id', id, []); |
|
- | 255 | end; |
|
- | 256 | ||
237 | procedure TfrmBugtracker.ber1Click(Sender: TObject); |
257 | procedure TfrmBugtracker.ber1Click(Sender: TObject); |
238 | begin |
258 | begin |
239 | AboutBox.ShowModal; |
259 | AboutBox.ShowModal; |
240 | end; |
260 | end; |
241 | 261 |