/trunk/BugtrackerMain.dfm |
---|
110,7 → 110,7 |
511 |
596) |
object Label1: TLabel |
Left = 16 |
Left = 17 |
Top = 101 |
Width = 50 |
Height = 13 |
117,7 → 117,7 |
Caption = 'Bearbeiter' |
end |
object Label2: TLabel |
Left = 15 |
Left = 17 |
Top = 195 |
Width = 20 |
Height = 13 |
140,8 → 140,8 |
ParentBiDiMode = False |
end |
object Label5: TLabel |
Left = 16 |
Top = 149 |
Left = 17 |
Top = 147 |
Width = 28 |
Height = 13 |
Caption = 'Modul' |
191,8 → 191,8 |
end |
object DBNavigator1: TDBNavigator |
Left = 15 |
Top = 16 |
Width = 224 |
Top = 19 |
Width = 184 |
Height = 25 |
DataSource = dsBugs |
VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel] |
210,8 → 210,8 |
TabOrder = 10 |
end |
object DBEdit1: TDBEdit |
Left = 15 |
Top = 208 |
Left = 17 |
Top = 213 |
Width = 186 |
Height = 21 |
DataField = 'titel' |
219,7 → 219,7 |
TabOrder = 6 |
end |
object DBLookupComboBox1: TDBLookupComboBox |
Left = 16 |
Left = 17 |
Top = 120 |
Width = 186 |
Height = 21 |
256,7 → 256,7 |
TabOrder = 3 |
end |
object DBLookupComboBox2: TDBLookupComboBox |
Left = 15 |
Left = 17 |
Top = 168 |
Width = 186 |
Height = 21 |
525,7 → 525,18 |
TableName = 'lkp_status' |
Left = 344 |
Top = 344 |
object lkpStatusid: TAutoIncField |
FieldName = 'id' |
ReadOnly = True |
end |
object lkpStatusstatus: TStringField |
FieldName = 'status' |
Size = 255 |
end |
object lkpStatuscolor: TIntegerField |
FieldName = 'color' |
end |
end |
object dsStatus: TDataSource |
DataSet = lkpStatus |
Left = 344 |
/trunk/BugtrackerMain.pas |
---|
93,6 → 93,9 |
qryBugsstatus_geaendert: TDateTimeField; |
Bugs1: TMenuItem; |
Wechselnzu1: TMenuItem; |
lkpStatusid: TAutoIncField; |
lkpStatusstatus: TStringField; |
lkpStatuscolor: TIntegerField; |
procedure Mitarbeiter1Click(Sender: TObject); |
procedure qryBugsAfterScroll(DataSet: TDataSet); |
procedure Module1Click(Sender: TObject); |
187,16 → 190,7 |
qryBugsstatus_geaendert.AsDateTime := Now; |
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 |
4: col := clTeal; // Gefixt |
5: col := clGreen; // Veröffentlicht |
else |
col := clBlack; // sollte nicht passieren |
end; |
col := TColor(lkpStatuscolor.AsInteger); |
NotizHinzufuegen(col, DBLookupComboBox5.Text); |
end; |
/trunk/bugtracker_mssql.sql |
---|
41,11 → 41,13 |
CREATE TABLE [dbo].[lkp_status]( |
[id] [int] IDENTITY(1,1) NOT NULL, |
[status] [varchar](255) NULL |
[status] [varchar](255) NULL, |
[color] [int] NOT NULL |
) ON [PRIMARY] |
ALTER TABLE [dbo].[lkp_status] ADD CONSTRAINT [DF_lkp_status_color] DEFAULT ((0)) |
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'); |
INSERT INTO [lkp_status] ([status]) VALUES ('Offen', 255); |
INSERT INTO [lkp_status] ([status]) VALUES ('Abgelehnt', 128); |
INSERT INTO [lkp_status] ([status]) VALUES ('In Arbeit', 8388736); |
INSERT INTO [lkp_status] ([status]) VALUES ('Abgeschlossen', 8421376); |
INSERT INTO [lkp_status] ([status]) VALUES ('Veröffentlicht', 32768); |
/trunk/bugtracker_mysql.sql |
---|
71,7 → 71,8 |
CREATE TABLE IF NOT EXISTS `lkp_status` ( |
`id` int(11) NOT NULL, |
`status` varchar(255) NOT NULL |
`status` varchar(255) NOT NULL, |
`color` int(11) NOT NULL |
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=6 ; |
-- |
123,8 → 124,8 |
-- |
INSERT INTO `lkp_status` (`id`, `status`) VALUES |
(1, 'Offen'), |
(2, 'Abgelehnt'), |
(3, 'In Arbeit'), |
(4, 'Abgeschlossen'), |
(5, 'Veröffentlicht'); |
(1, 'Offen', 255), |
(2, 'Abgelehnt', 128), |
(3, 'In Arbeit', 8388736), |
(4, 'Abgeschlossen', 8421376), |
(5, 'Veröffentlicht', 32768); |