Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 13 → Rev 14

/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);