WebSVN – winbugtracker – Diff – /trunk/BugtrackerMain.pas

 (*
  * TODO:
  * - Spezielle Filter
  *   ... Auflisten nach Modul
  *   ... Anzeigen der Agenda
- * - verbinden mit ticketsystem von HS
- * - rtf controls?
+ * - rtf control bar?
- * - Neue Felder:
- *   ... Erfasser
- *   ... Agenda
- *   ... Status = Offen, gefixt, Abgelehnt, Veröffentlicht
- *   ... RTF Feld als BIGTEXT definieren
- * - Neue Aufteilung der States
- *   ... Open, Fixed, Published, Wontfix/Rejected, Planned(Agenda)
+ * - ein neu angelegter bug soll links aus der leiste verschwinden, wenn er nicht in das kriterium passt
+ *
  * NOT INCLUDED:
  * - duplicate of
+ *
  * FUTURE:
     dsModule: TDataSource;
     Timer1: TTimer;
     Splitter1: TSplitter;
     Hilfe1: TMenuItem;
     ber1: TMenuItem;
-    btnFixedToggle: TButton;
     btnBearbeitungsnotiz: TButton;
     qryBugsid: TAutoIncField;
     qryBugstitel: TStringField;
     qryBugsbeschreibung: TMemoField;
     qryBugserstellt: TDateTimeField;
     qryBugswichtigkeit: TIntegerField;
     qryBugsbearbeiter: TIntegerField;
-    qryBugsfixdatum: TDateTimeField;
     qryBugsversion_release: TIntegerField;
     qryBugsmodul: TIntegerField;
     qryBugsprojekt: TIntegerField;
     qryVersionen: TADOQuery;
     qryModule: TADOQuery;
     qryBugserfasser: TIntegerField;
     qryBugsversion_agenda: TIntegerField;
     Label9: TLabel;
     cbxErfasser: TDBLookupComboBox;
     Label10: TLabel;
+    lkpStatus: TADOTable;
+    dsStatus: TDataSource;
+    DBLookupComboBox5: TDBLookupComboBox;
+    qryBugsstatus: TIntegerField;
+    qryBugsstatus_geaendert: TDateTimeField;
     procedure Mitarbeiter1Click(Sender: TObject);
     procedure qryBugsAfterScroll(DataSet: TDataSet);
     procedure Module1Click(Sender: TObject);
     procedure Projekte1Click(Sender: TObject);
     procedure Versionen1Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
     procedure ComboBox1Change(Sender: TObject);
     procedure Projektwechseln1Click(Sender: TObject);
     procedure qryBugsAfterInsert(DataSet: TDataSet);
     procedure ber1Click(Sender: TObject);
-    procedure btnFixedToggleClick(Sender: TObject);
     procedure qryBugsversion_releaseValidate(Sender: TField);
     procedure FormCreate(Sender: TObject);
     procedure qryVersionenAfterInsert(DataSet: TDataSet);
     procedure qryModuleAfterInsert(DataSet: TDataSet);
     procedure btnBearbeitungsnotizClick(Sender: TObject);
     procedure qryBugsBeforeCancel(DataSet: TDataSet);
     procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure qryBugsstatusChange(Sender: TField);
   public
     eingeloggtMitarbeiter: integer;
     eingeloggtMitarbeiterName: string;
     aktuellesProjekt: integer;
     aktuellesProjektName: string;
 begin
   // Standardwerte für einen neuen Bug
   qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte
   qryBugs.FieldByName('erstellt').AsDateTime := Now;
   qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;
-  // qryBugs.FieldByName('bearbeiter').AsInteger := eingeloggtMitarbeiter;
   qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
+  qryBugs.FieldByName('status').AsInteger := 1; // Offen
 end;
 procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);
 var
   bakEvent: TNotifyEvent;
      end;
   end
   else raise EAbort.Create('Abbruch durch Benutzer'); // Cancel geklickt
 end;
+procedure TfrmBugtracker.qryBugsstatusChange(Sender: TField);
+var
+  col: TColor;
+begin
+  qryBugsstatus_geaendert.AsDateTime := Now;
+  DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können
+  case qryBugsstatus.AsInteger of
+: col := clRed; // Offen
+: col := clMaroon; // Abgelehnt
+: col := clPurple; // In Bearbeitung
+: col := clTeal; // Gefixt
+: col := clGreen; // Veröffentlicht
+    else
+      col := clBlack; // sollte nicht passieren
+  end;
+  NotizHinzufuegen(col, DBLookupComboBox5.Text);
+end;
 procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField);
 begin
-  if qryBugs.FieldByName('fixdatum').IsNull then
+  if qryBugs.FieldByName('status').AsInteger <> 5 then
   begin
-    raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als gefixt markiert werden.');
+    // raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als "Veröffentlicht" markiert werden.');
+    qryBugs.FieldByName('status').AsInteger := 5;
   end;
 end;
 procedure TfrmBugtracker.qryModuleAfterInsert(DataSet: TDataSet);
 begin
   AboutBox.ShowModal;
 end;
 procedure TfrmBugtracker.btnBearbeitungsnotizClick(Sender: TObject);
 begin
-  NotizHinzufuegen(clRed, 'Notiz');
+  NotizHinzufuegen(clOlive, 'Notiz');
-end;
-procedure TfrmBugtracker.btnFixedToggleClick(Sender: TObject);
-begin
-  if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
-  if qryBugs.FieldByName('fixdatum').IsNull then
-  begin
-    qryBugs.FieldByName('fixdatum').AsDateTime := Now;
-    NotizHinzufuegen(clGreen, 'Gefixt');
-  end
-  else
-  begin
-    qryBugs.FieldByName('fixdatum').Clear;
-    NotizHinzufuegen(clBlue, 'Neu eröffnet');
-  end;
 end;
 procedure TfrmBugtracker.ComboBox1Change(Sender: TObject);
 begin
   case ComboBox1.ItemIndex of
 :
       begin
         // Meine offenen Bugs (nach Wichtigkeit)
-        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NULL AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC';
+        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;
 :
       begin
         // Alle offenen Bugs (nach Wichtigkeit)
-        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NULL ORDER BY wichtigkeit DESC';
+        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND (status = 1 OR status = 3) ORDER BY wichtigkeit DESC';
       end;
 :
       begin
         // Gelöst ohne Veröffentlichung (nach Lösungsdatum)
-        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NOT NULL ORDER BY fixdatum DESC';
+        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 4 ORDER BY status_geaendert DESC';
       end;
 :
       begin
         // Gelöst und Veröffentlicht (nach Version und Lösungsdatum)
-        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NOT NULL ORDER BY version_release DESC, fixdatum DESC';
+        qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND status = 5 ORDER BY status_geaendert DESC';
       end;
 :
       begin
         // Alle Bugs (nach Eröffnungsdatum)
         qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC';
   qryBugs.Active := true;
   tblMitarbeiter.Active := true;
   qryVersionen.Active := true;
   tblProjekte.Active := true;
   qryModule.Active := true;
+  lkpStatus.Active := true;
 end;
 procedure TfrmBugtracker.Mitarbeiter1Click(Sender: TObject);
 begin
   frmMitarbeiter.ShowModal;
   prefix: string;
 begin
   if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit;
   // Endet der Text mit zwei Zeilenabständen? Wenn nein, dann einfügen.
+  if Trim(DBRichEdit1.Text) <> '' then
+  begin
-  leerzeilen := 0;
+    leerzeilen := 0;
-  if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-2, 2) = #13#10 then Inc(leerzeilen); // letzte Zeile
+    if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-2, 2) = #13#10 then Inc(leerzeilen); // letzte Zeile
-  if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-4, 2) = #13#10 then Inc(leerzeilen); // Vorletzte Zeile
+    if Copy(DBRichEdit1.Text, 1+Length(DBRichEdit1.Text)-4, 2) = #13#10 then Inc(leerzeilen); // Vorletzte Zeile
-  case leerzeilen of
+    case leerzeilen of
 : umbruch := #13#10#13#10;
 : umbruch := #13#10;
 : umbruch := '';
-  end;
+    end;
+  end
+  else
+  begin
+    umbruch := '';
+  end;
   DBRichEdit1.SelStart := DBRichEdit1.GetTextLen;
   DBRichEdit1.SelText := umbruch;
   DBRichEdit1.SelAttributes.Size := 13;

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.pas – Rev 8 → 11