Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 11 → Rev 12

/trunk/BugtrackerMain.dfm
342,9 → 342,10
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
' RAS;Initial Catalog=bugtracker;'
'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
'fo=False;Initial Catalog=WULI;Data Source=GREINER\CORA2012,49001'
LoginPrompt = False
Provider = 'SQLOLEDB.1'
Left = 104
Top = 344
end
388,6 → 389,13
OnClick = Versionen1Click
end
end
object Bugs1: TMenuItem
Caption = 'Bugs'
object Wechselnzu1: TMenuItem
Caption = 'Wechseln zu...'
OnClick = Wechselnzu1Click
end
end
object Projektwechseln1: TMenuItem
Caption = 'Projekt wechseln'
OnClick = Projektwechseln1Click
/trunk/BugtrackerMain.pas
91,6 → 91,8
DBLookupComboBox5: TDBLookupComboBox;
qryBugsstatus: TIntegerField;
qryBugsstatus_geaendert: TDateTimeField;
Bugs1: TMenuItem;
Wechselnzu1: TMenuItem;
procedure Mitarbeiter1Click(Sender: TObject);
procedure qryBugsAfterScroll(DataSet: TDataSet);
procedure Module1Click(Sender: TObject);
111,6 → 113,7
procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure qryBugsstatusChange(Sender: TField);
procedure Wechselnzu1Click(Sender: TObject);
public
eingeloggtMitarbeiter: integer;
eingeloggtMitarbeiterName: string;
185,6 → 188,7
 
DBLookupComboBox5.KeyValue := qryBugsstatus.AsVariant; // nur benötigt, daamit wir auf DBLookupComboBox5.Text zugreifen können
case qryBugsstatus.AsInteger of
// TODO: farben in db?
1: col := clRed; // Offen
2: col := clMaroon; // Abgelehnt
3: col := clPurple; // In Bearbeitung
234,6 → 238,22
frmVersionen.ShowModal;
end;
 
procedure TfrmBugtracker.Wechselnzu1Click(Sender: TObject);
var
s: string;
id, ec: integer;
begin
s := Trim(InputBox('Wechseln zu Bug', 'ID des Bugs eingeben', '0'));
if s = '' then exit;
Val(s, id, ec);
if ec <> 0 then
begin
ShowMessageFmt('"%s" ist keine gültige Bug-ID-Nummer.', [id]);
exit;
end;
qryBugs.Locate('id', id, []);
end;
 
procedure TfrmBugtracker.ber1Click(Sender: TObject);
begin
AboutBox.ShowModal;
/trunk/bugtracker_mssql.sql
43,3 → 43,9
[id] [int] IDENTITY(1,1) NOT NULL,
[status] [varchar](255) NULL
) ON [PRIMARY]
 
INSERT INTO [lkp_status] ([status]) VALUES ('Offen');
INSERT INTO [lkp_status] ([status]) VALUES ('Abgelehnt');
INSERT INTO [lkp_status] ([status]) VALUES ('In Arbeit');
INSERT INTO [lkp_status] ([status]) VALUES ('Abgeschlossen');
INSERT INTO [lkp_status] ([status]) VALUES ('Veröffentlicht');