Subversion Repositories winbugtracker

Rev

Rev 11 | Rev 13 | Go to most recent revision | Show entire file | Regard 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