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


object frmBugtracker: TfrmBugtracker
  Left = 0
  Top = 0
  Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
  ClientHeight = 596
  ClientWidth = 763
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 249
    Top = 0
    Height = 596
    ExplicitLeft = 0
    ExplicitTop = 136
    ExplicitHeight = 100
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 249
    Height = 596
    Align = alLeft
    TabOrder = 0
    ExplicitHeight = 498
    DesignSize = (
      249
      596)
    object DBGrid1: TDBGrid
      Left = 8
      Top = 35
      Width = 233
      Height = 504
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = dsBugs
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'id'
          Width = 46
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'titel'
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'wichtigkeit'
          Width = 36
          Visible = True
        end>
    end
    object ComboBox1: TComboBox
      Left = 8
      Top = 8
      Width = 233
      Height = 21
      Style = csDropDownList
      Anchors = [akLeft, akTop, akRight]
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = 'Meine offenen Bugs (nach Wichtigkeit)'
      OnChange = ComboBox1Change
      Items.Strings = (
        'Meine offenen Bugs (nach Wichtigkeit)'
        'Alle offenen Bugs (nach Wichtigkeit)'
        'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)'
        'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)'
        'Alle Bugs (nach Er'#246'ffnungsdatum)')
    end
    object DBNavigator2: TDBNavigator
      Left = 11
      Top = 554
      Width = 232
      Height = 25
      DataSource = dsBugs
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Anchors = [akLeft, akRight, akBottom]
      TabOrder = 2
      ExplicitTop = 456
    end
  end
  object Panel2: TPanel
    Left = 252
    Top = 0
    Width = 511
    Height = 596
    Align = alClient
    TabOrder = 1
    ExplicitWidth = 499
    ExplicitHeight = 498
    DesignSize = (
      511
      596)
    object Label1: TLabel
      Left = 16
      Top = 101
      Width = 50
      Height = 13
      Caption = 'Bearbeiter'
    end
    object Label2: TLabel
      Left = 15
      Top = 195
      Width = 20
      Height = 13
      Caption = 'Titel'
    end
    object Label3: TLabel
      Left = 240
      Top = 53
      Width = 33
      Height = 13
      Caption = 'Erstellt'
    end
    object Label4: TLabel
      Left = 240
      Top = 101
      Width = 29
      Height = 13
      Caption = 'Gefixt'
    end
    object Label5: TLabel
      Left = 16
      Top = 149
      Width = 28
      Height = 13
      Caption = 'Modul'
    end
    object Label6: TLabel
      Left = 240
      Top = 149
      Width = 119
      Height = 13
      Caption = 'Ver'#246'ffentlicht als Version'
    end
    object LblAngemeldet: TLabel
      Left = 3
      Top = 0
      Width = 83
      Height = 13
      Caption = 'Nicht angemeldet'
    end
    object Label7: TLabel
      Left = 250
      Top = 0
      Width = 46
      Height = 13
      Caption = 'Unwichtig'
    end
    object Label8: TLabel
      Left = 366
      Top = 0
      Width = 34
      Height = 13
      Alignment = taRightJustify
      Caption = 'Kritisch'
    end
    object Label9: TLabel
      Left = 240
      Top = 195
      Width = 96
      Height = 13
      Caption = 'Geplant f'#252'r Version:'
    end
    object Label10: TLabel
      Left = 17
      Top = 53
      Width = 40
      Height = 13
      Caption = 'Erfasser'
    end
    object DBNavigator1: TDBNavigator
      Left = 15
      Top = 16
      Width = 224
      Height = 25
      DataSource = dsBugs
      VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBRichEdit1: TDBRichEdit
      Left = 15
      Top = 280
      Width = 483
      Height = 299
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataField = 'beschreibung'
      DataSource = dsBugs
      TabOrder = 9
      ExplicitWidth = 736
    end
    object DBEdit1: TDBEdit
      Left = 15
      Top = 208
      Width = 186
      Height = 21
      DataField = 'titel'
      DataSource = dsBugs
      TabOrder = 5
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 16
      Top = 120
      Width = 186
      Height = 21
      DataField = 'bearbeiter'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'name'
      ListSource = dsMitarbeiter
      NullValueKey = 46
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 240
      Top = 72
      Width = 155
      Height = 21
      TabStop = False
      Color = clBtnFace
      DataField = 'erstellt'
      DataSource = dsBugs
      ReadOnly = True
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 240
      Top = 120
      Width = 155
      Height = 21
      TabStop = False
      Color = clBtnFace
      DataField = 'fixdatum'
      DataSource = dsBugs
      ReadOnly = True
      TabOrder = 4
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 15
      Top = 168
      Width = 186
      Height = 21
      DataField = 'modul'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'modul'
      ListSource = dsModule
      NullValueKey = 46
      TabOrder = 3
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 240
      Top = 168
      Width = 155
      Height = 21
      DataField = 'version_release'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'version'
      ListSource = dsVersionen
      TabOrder = 6
    end
    object TrackBar1: TTrackBar
      Left = 245
      Top = 12
      Width = 164
      Height = 45
      Position = 5
      TabOrder = 10
      OnChange = TrackBar1Change
    end
    object btnFixedToggle: TButton
      Left = 401
      Top = 118
      Width = 72
      Height = 25
      Caption = 'Umschalten'
      TabOrder = 8
      OnClick = btnFixedToggleClick
    end
    object btnBearbeitungsnotiz: TButton
      Left = 17
      Top = 240
      Width = 185
      Height = 25
      Caption = 'Notiz hinzuf'#252'gen'
      TabOrder = 7
      OnClick = btnBearbeitungsnotizClick
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 240
      Top = 208
      Width = 155
      Height = 21
      DataField = 'version_agenda'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'version'
      ListSource = dsVersionen
      TabOrder = 11
    end
    object cbxErfasser: TDBLookupComboBox
      Left = 17
      Top = 72
      Width = 186
      Height = 21
      Color = clBtnFace
      DataField = 'erfasser'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'name'
      ListSource = dsMitarbeiter
      NullValueKey = 46
      ReadOnly = True
      TabOrder = 12
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      '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
  object dsBugs: TDataSource
    DataSet = qryBugs
    Left = 168
    Top = 312
  end
  object tblMitarbeiter: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'mitarbeiter'
    Left = 208
    Top = 344
  end
  object dsMitarbeiter: TDataSource
    DataSet = tblMitarbeiter
    Left = 208
    Top = 312
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 216
    object Stammdaten1: TMenuItem
      Caption = 'Stammdaten'
      object Mitarbeiter1: TMenuItem
        Caption = 'Mitarbeiter'
        OnClick = Mitarbeiter1Click
      end
      object Projekte1: TMenuItem
        Caption = 'Projekte'
        OnClick = Projekte1Click
      end
      object Module1: TMenuItem
        Caption = 'Module'
        OnClick = Module1Click
      end
      object Versionen1: TMenuItem
        Caption = 'Versionen'
        OnClick = Versionen1Click
      end
    end
    object Projektwechseln1: TMenuItem
      Caption = 'Projekt wechseln'
      OnClick = Projektwechseln1Click
    end
    object Hilfe1: TMenuItem
      Caption = 'Hilfe'
      object ber1: TMenuItem
        Caption = #220'ber'
        OnClick = ber1Click
      end
    end
  end
  object XPManifest1: TXPManifest
    Left = 48
    Top = 216
  end
  object qryBugs: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = qryBugsAfterInsert
    AfterScroll = qryBugsAfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM bugs order by wichtigkeit')
    Left = 168
    Top = 344
    object qryBugsid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qryBugstitel: TStringField
      FieldName = 'titel'
      Size = 255
    end
    object qryBugsbeschreibung: TMemoField
      FieldName = 'beschreibung'
      BlobType = ftMemo
    end
    object qryBugserstellt: TDateTimeField
      FieldName = 'erstellt'
    end
    object qryBugswichtigkeit: TIntegerField
      FieldName = 'wichtigkeit'
    end
    object qryBugsbearbeiter: TIntegerField
      FieldName = 'bearbeiter'
    end
    object qryBugsfixdatum: TDateTimeField
      FieldName = 'fixdatum'
    end
    object qryBugsversion_release: TIntegerField
      FieldName = 'version_release'
      OnValidate = qryBugsversion_releaseValidate
    end
    object qryBugsmodul: TIntegerField
      FieldName = 'modul'
    end
    object qryBugsprojekt: TIntegerField
      FieldName = 'projekt'
    end
    object qryBugserfasser: TIntegerField
      FieldName = 'erfasser'
    end
    object qryBugsversion_agenda: TIntegerField
      FieldName = 'version_agenda'
    end
  end
  object dsVersionen: TDataSource
    DataSet = qryVersionen
    Left = 240
    Top = 312
  end
  object tblProjekte: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'projekte'
    Left = 272
    Top = 344
  end
  object dsProjekte: TDataSource
    DataSet = tblProjekte
    Left = 272
    Top = 312
  end
  object dsModule: TDataSource
    DataSet = qryModule
    Left = 304
    Top = 312
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 128
    Top = 216
  end
  object qryVersionen: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = qryVersionenAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM versionen')
    Left = 240
    Top = 344
  end
  object qryModule: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = qryModuleAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM module')
    Left = 304
    Top = 344
  end
end

Rev 5	Rev 6
1	object frmBugtracker: TfrmBugtracker	1	object frmBugtracker: TfrmBugtracker
2	Left = 0	2	Left = 0
3	Top = 0	3	Top = 0
4	Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'	4	Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
5	ClientHeight = 498	5	ClientHeight = 596
6	ClientWidth = 751	6	ClientWidth = 763
7	Color = clBtnFace	7	Color = clBtnFace
8	Font.Charset = DEFAULT_CHARSET	8	Font.Charset = DEFAULT_CHARSET
9	Font.Color = clWindowText	9	Font.Color = clWindowText
10	Font.Height = -11	10	Font.Height = -11
11	Font.Name = 'Tahoma'	11	Font.Name = 'Tahoma'
12	Font.Style = []	12	Font.Style = []
13	Menu = MainMenu1	13	Menu = MainMenu1
14	OldCreateOrder = False	14	OldCreateOrder = False
15	Position = poScreenCenter	15	Position = poScreenCenter
16	OnCreate = FormCreate	16	OnCreate = FormCreate
17	PixelsPerInch = 96	17	PixelsPerInch = 96
18	TextHeight = 13	18	TextHeight = 13
19	object Splitter1: TSplitter	19	object Splitter1: TSplitter
20	Left = 249	20	Left = 249
21	Top = 0	21	Top = 0
22	Height = 498	22	Height = 596
23	ExplicitLeft = 0	23	ExplicitLeft = 0
24	ExplicitTop = 136	24	ExplicitTop = 136
25	ExplicitHeight = 100	25	ExplicitHeight = 100
26	end	26	end
27	object Panel1: TPanel	27	object Panel1: TPanel
28	Left = 0	28	Left = 0
29	Top = 0	29	Top = 0
30	Width = 249	30	Width = 249
31	Height = 498	31	Height = 596
32	Align = alLeft	32	Align = alLeft
33	TabOrder = 0	33	TabOrder = 0
-		34	ExplicitHeight = 498
34	DesignSize = (	35	DesignSize = (
35	249	36	249
36	498)	37	596)
37	object DBGrid1: TDBGrid	38	object DBGrid1: TDBGrid
38	Left = 8	39	Left = 8
39	Top = 35	40	Top = 35
40	Width = 233	41	Width = 233
41	Height = 406	42	Height = 504
42	Anchors = [akLeft, akTop, akRight, akBottom]	43	Anchors = [akLeft, akTop, akRight, akBottom]
43	DataSource = dsBugs	44	DataSource = dsBugs
44	ReadOnly = True	45	ReadOnly = True
45	TabOrder = 0	46	TabOrder = 0
46	TitleFont.Charset = DEFAULT_CHARSET	47	TitleFont.Charset = DEFAULT_CHARSET
47	TitleFont.Color = clWindowText	48	TitleFont.Color = clWindowText
48	TitleFont.Height = -11	49	TitleFont.Height = -11
49	TitleFont.Name = 'Tahoma'	50	TitleFont.Name = 'Tahoma'
50	TitleFont.Style = []	51	TitleFont.Style = []
51	Columns = <	52	Columns = <
52	item	53	item
53	Expanded = False	54	Expanded = False
54	FieldName = 'id'	55	FieldName = 'id'
55	Width = 46	56	Width = 46
56	Visible = True	57	Visible = True
57	end	58	end
58	item	59	item
59	Expanded = False	60	Expanded = False
60	FieldName = 'titel'	61	FieldName = 'titel'
61	Width = 111	62	Width = 111
62	Visible = True	63	Visible = True
63	end	64	end
64	item	65	item
65	Expanded = False	66	Expanded = False
66	FieldName = 'wichtigkeit'	67	FieldName = 'wichtigkeit'
67	Width = 36	68	Width = 36
68	Visible = True	69	Visible = True
69	end>	70	end>
70	end	71	end
71	object ComboBox1: TComboBox	72	object ComboBox1: TComboBox
72	Left = 8	73	Left = 8
73	Top = 8	74	Top = 8
74	Width = 233	75	Width = 233
75	Height = 21	76	Height = 21
76	Style = csDropDownList	77	Style = csDropDownList
77	Anchors = [akLeft, akTop, akRight]	78	Anchors = [akLeft, akTop, akRight]
78	ItemHeight = 13	79	ItemHeight = 13
79	ItemIndex = 0	80	ItemIndex = 0
80	TabOrder = 1	81	TabOrder = 1
81	Text = 'Meine offenen Bugs (nach Wichtigkeit)'	82	Text = 'Meine offenen Bugs (nach Wichtigkeit)'
82	OnChange = ComboBox1Change	83	OnChange = ComboBox1Change
83	Items.Strings = (	84	Items.Strings = (
84	'Meine offenen Bugs (nach Wichtigkeit)'	85	'Meine offenen Bugs (nach Wichtigkeit)'
85	'Alle offenen Bugs (nach Wichtigkeit)'	86	'Alle offenen Bugs (nach Wichtigkeit)'
86	'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)'	87	'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)'
87	'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)'	88	'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)'
88	'Alle Bugs (nach Er'#246'ffnungsdatum)')	89	'Alle Bugs (nach Er'#246'ffnungsdatum)')
89	end	90	end
90	object DBNavigator2: TDBNavigator	91	object DBNavigator2: TDBNavigator
91	Left = 11	92	Left = 11
92	Top = 456	93	Top = 554
93	Width = 232	94	Width = 232
94	Height = 25	95	Height = 25
95	DataSource = dsBugs	96	DataSource = dsBugs
96	VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]	97	VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
97	Anchors = [akLeft, akRight, akBottom]	98	Anchors = [akLeft, akRight, akBottom]
98	TabOrder = 2	99	TabOrder = 2
-		100	ExplicitTop = 456
99	end	101	end
100	end	102	end
101	object Panel2: TPanel	103	object Panel2: TPanel
102	Left = 252	104	Left = 252
103	Top = 0	105	Top = 0
104	Width = 499	106	Width = 511
105	Height = 498	107	Height = 596
106	Align = alClient	108	Align = alClient
107	TabOrder = 1	109	TabOrder = 1
-		110	ExplicitWidth = 499
-		111	ExplicitHeight = 498
108	DesignSize = (	112	DesignSize = (
109	499	113	511
110	498)	114	596)
111	object Label1: TLabel	115	object Label1: TLabel
112	Left = 15	116	Left = 16
113	Top = 53	117	Top = 101
114	Width = 50	118	Width = 50
115	Height = 13	119	Height = 13
116	Caption = 'Bearbeiter'	120	Caption = 'Bearbeiter'
117	end	121	end
118	object Label2: TLabel	122	object Label2: TLabel
119	Left = 15	123	Left = 15
120	Top = 149	124	Top = 195
121	Width = 20	125	Width = 20
122	Height = 13	126	Height = 13
123	Caption = 'Titel'	127	Caption = 'Titel'
124	end	128	end
125	object Label3: TLabel	129	object Label3: TLabel
126	Left = 240	130	Left = 240
127	Top = 53	131	Top = 53
128	Width = 33	132	Width = 33
129	Height = 13	133	Height = 13
130	Caption = 'Erstellt'	134	Caption = 'Erstellt'
131	end	135	end
132	object Label4: TLabel	136	object Label4: TLabel
133	Left = 240	137	Left = 240
134	Top = 101	138	Top = 101
135	Width = 29	139	Width = 29
136	Height = 13	140	Height = 13
137	Caption = 'Gefixt'	141	Caption = 'Gefixt'
138	end	142	end
139	object Label5: TLabel	143	object Label5: TLabel
140	Left = 15	144	Left = 16
141	Top = 101	145	Top = 149
142	Width = 28	146	Width = 28
143	Height = 13	147	Height = 13
144	Caption = 'Modul'	148	Caption = 'Modul'
145	end	149	end
146	object Label6: TLabel	150	object Label6: TLabel
147	Left = 240	151	Left = 240
148	Top = 149	152	Top = 149
149	Width = 119	153	Width = 119
150	Height = 13	154	Height = 13
151	Caption = 'Ver'#246'ffentlicht als Version'	155	Caption = 'Ver'#246'ffentlicht als Version'
152	end	156	end
153	object LblAngemeldet: TLabel	157	object LblAngemeldet: TLabel
154	Left = 3	158	Left = 3
155	Top = 0	159	Top = 0
156	Width = 83	160	Width = 83
157	Height = 13	161	Height = 13
158	Caption = 'Nicht angemeldet'	162	Caption = 'Nicht angemeldet'
159	end	163	end
160	object Label7: TLabel	164	object Label7: TLabel
161	Left = 250	165	Left = 250
162	Top = 0	166	Top = 0
163	Width = 46	167	Width = 46
164	Height = 13	168	Height = 13
165	Caption = 'Unwichtig'	169	Caption = 'Unwichtig'
166	end	170	end
167	object Label8: TLabel	171	object Label8: TLabel
168	Left = 366	172	Left = 366
169	Top = 0	173	Top = 0
170	Width = 34	174	Width = 34
171	Height = 13	175	Height = 13
172	Alignment = taRightJustify	176	Alignment = taRightJustify
173	Caption = 'Kritisch'	177	Caption = 'Kritisch'
174	end	178	end
-		179	object Label9: TLabel
-		180	Left = 240
-		181	Top = 195
-		182	Width = 96
-		183	Height = 13
-		184	Caption = 'Geplant f'#252'r Version:'
-		185	end
-		186	object Label10: TLabel
-		187	Left = 17
-		188	Top = 53
-		189	Width = 40
-		190	Height = 13
-		191	Caption = 'Erfasser'
-		192	end
175	object DBNavigator1: TDBNavigator	193	object DBNavigator1: TDBNavigator
176	Left = 15	194	Left = 15
177	Top = 16	195	Top = 16
178	Width = 224	196	Width = 224
179	Height = 25	197	Height = 25
180	DataSource = dsBugs	198	DataSource = dsBugs
181	VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]	199	VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
182	TabOrder = 0	200	TabOrder = 0
183	end	201	end
184	object DBRichEdit1: TDBRichEdit	202	object DBRichEdit1: TDBRichEdit
185	Left = 15	203	Left = 15
186	Top = 248	204	Top = 280
187	Width = 471	205	Width = 483
188	Height = 233	206	Height = 299
189	Anchors = [akLeft, akTop, akRight, akBottom]	207	Anchors = [akLeft, akTop, akRight, akBottom]
190	DataField = 'beschreibung'	208	DataField = 'beschreibung'
191	DataSource = dsBugs	209	DataSource = dsBugs
192	TabOrder = 9	210	TabOrder = 9
-		211	ExplicitWidth = 736
193	end	212	end
194	object DBEdit1: TDBEdit	213	object DBEdit1: TDBEdit
195	Left = 15	214	Left = 15
196	Top = 168	215	Top = 208
197	Width = 186	216	Width = 186
198	Height = 21	217	Height = 21
199	DataField = 'titel'	218	DataField = 'titel'
200	DataSource = dsBugs	219	DataSource = dsBugs
201	TabOrder = 5	220	TabOrder = 5
202	end	221	end
203	object DBLookupComboBox1: TDBLookupComboBox	222	object DBLookupComboBox1: TDBLookupComboBox
204	Left = 15	223	Left = 16
205	Top = 72	224	Top = 120
206	Width = 186	225	Width = 186
207	Height = 21	226	Height = 21
208	DataField = 'bearbeiter'	227	DataField = 'bearbeiter'
209	DataSource = dsBugs	228	DataSource = dsBugs
210	KeyField = 'id'	229	KeyField = 'id'
211	ListField = 'name'	230	ListField = 'name'
212	ListSource = dsMitarbeiter	231	ListSource = dsMitarbeiter
213	NullValueKey = 46	232	NullValueKey = 46
214	TabOrder = 1	233	TabOrder = 1
215	end	234	end
216	object DBEdit2: TDBEdit	235	object DBEdit2: TDBEdit
217	Left = 240	236	Left = 240
218	Top = 72	237	Top = 72
219	Width = 155	238	Width = 155
220	Height = 21	239	Height = 21
221	TabStop = False	240	TabStop = False
222	Color = clBtnFace	241	Color = clBtnFace
223	DataField = 'erstellt'	242	DataField = 'erstellt'
224	DataSource = dsBugs	243	DataSource = dsBugs
225	ReadOnly = True	244	ReadOnly = True
226	TabOrder = 2	245	TabOrder = 2
227	end	246	end
228	object DBEdit3: TDBEdit	247	object DBEdit3: TDBEdit
229	Left = 240	248	Left = 240
230	Top = 120	249	Top = 120
231	Width = 155	250	Width = 155
232	Height = 21	251	Height = 21
233	TabStop = False	252	TabStop = False
234	Color = clBtnFace	253	Color = clBtnFace
235	DataField = 'fixdatum'	254	DataField = 'fixdatum'
236	DataSource = dsBugs	255	DataSource = dsBugs
237	ReadOnly = True	256	ReadOnly = True
238	TabOrder = 4	257	TabOrder = 4
239	end	258	end
240	object DBLookupComboBox2: TDBLookupComboBox	259	object DBLookupComboBox2: TDBLookupComboBox
241	Left = 15	260	Left = 15
242	Top = 120	261	Top = 168
243	Width = 186	262	Width = 186
244	Height = 21	263	Height = 21
245	DataField = 'modul'	264	DataField = 'modul'
246	DataSource = dsBugs	265	DataSource = dsBugs
247	KeyField = 'id'	266	KeyField = 'id'
248	ListField = 'modul'	267	ListField = 'modul'
249	ListSource = dsModule	268	ListSource = dsModule
250	NullValueKey = 46	269	NullValueKey = 46
251	TabOrder = 3	270	TabOrder = 3
252	end	271	end
253	object DBLookupComboBox3: TDBLookupComboBox	272	object DBLookupComboBox3: TDBLookupComboBox
254	Left = 240	273	Left = 240
255	Top = 168	274	Top = 168
256	Width = 155	275	Width = 155
257	Height = 21	276	Height = 21
258	DataField = 'version_release'	277	DataField = 'version_release'
259	DataSource = dsBugs	278	DataSource = dsBugs
260	KeyField = 'id'	279	KeyField = 'id'
261	ListField = 'version'	280	ListField = 'version'
262	ListSource = dsVersionen	281	ListSource = dsVersionen
263	TabOrder = 6	282	TabOrder = 6
264	end	283	end
265	object TrackBar1: TTrackBar	284	object TrackBar1: TTrackBar
266	Left = 245	285	Left = 245
267	Top = 12	286	Top = 12
268	Width = 164	287	Width = 164
269	Height = 45	288	Height = 45
270	Position = 5	289	Position = 5
271	TabOrder = 10	290	TabOrder = 10
272	OnChange = TrackBar1Change	291	OnChange = TrackBar1Change
273	end	292	end
274	object btnFixedToggle: TButton	293	object btnFixedToggle: TButton
275	Left = 401	294	Left = 401
276	Top = 118	295	Top = 118
277	Width = 72	296	Width = 72
278	Height = 25	297	Height = 25
279	Caption = 'Umschalten'	298	Caption = 'Umschalten'
280	TabOrder = 8	299	TabOrder = 8
281	OnClick = btnFixedToggleClick	300	OnClick = btnFixedToggleClick
282	end	301	end
283	object btnBearbeitungsnotiz: TButton	302	object btnBearbeitungsnotiz: TButton
284	Left = 16	303	Left = 17
285	Top = 208	304	Top = 240
286	Width = 185	305	Width = 185
287	Height = 25	306	Height = 25
288	Caption = 'Notiz hinzuf'#252'gen'	307	Caption = 'Notiz hinzuf'#252'gen'
289	TabOrder = 7	308	TabOrder = 7
290	OnClick = btnBearbeitungsnotizClick	309	OnClick = btnBearbeitungsnotizClick
291	end	310	end
-		311	object DBLookupComboBox4: TDBLookupComboBox
-		312	Left = 240
-		313	Top = 208
-		314	Width = 155
-		315	Height = 21
-		316	DataField = 'version_agenda'
-		317	DataSource = dsBugs
-		318	KeyField = 'id'
-		319	ListField = 'version'
-		320	ListSource = dsVersionen
-		321	TabOrder = 11
-		322	end
-		323	object cbxErfasser: TDBLookupComboBox
-		324	Left = 17
-		325	Top = 72
-		326	Width = 186
-		327	Height = 21
-		328	Color = clBtnFace
-		329	DataField = 'erfasser'
-		330	DataSource = dsBugs
-		331	KeyField = 'id'
-		332	ListField = 'name'
-		333	ListSource = dsMitarbeiter
-		334	NullValueKey = 46
-		335	ReadOnly = True
-		336	TabOrder = 12
-		337	end
292	end	338	end
293	object ADOConnection1: TADOConnection	339	object ADOConnection1: TADOConnection
294	Connected = True	340	Connected = True
295	ConnectionString =	341	ConnectionString =
296	'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +	342	'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
297	' RAS;Initial Catalog=bugtracker'	343	'fo=False;Initial Catalog=WULI;Data Source=GREINER\CORA2012,49001'
298	LoginPrompt = False	344	LoginPrompt = False
-		345	Provider = 'SQLOLEDB.1'
299	Left = 104	346	Left = 104
300	Top = 344	347	Top = 344
301	end	348	end
302	object dsBugs: TDataSource	349	object dsBugs: TDataSource
303	DataSet = qryBugs	350	DataSet = qryBugs
304	Left = 168	351	Left = 168
305	Top = 312	352	Top = 312
306	end	353	end
307	object tblMitarbeiter: TADOTable	354	object tblMitarbeiter: TADOTable
308	Active = True	355	Active = True
309	Connection = ADOConnection1	356	Connection = ADOConnection1
310	CursorType = ctStatic	357	CursorType = ctStatic
311	TableName = 'mitarbeiter'	358	TableName = 'mitarbeiter'
312	Left = 208	359	Left = 208
313	Top = 344	360	Top = 344
314	end	361	end
315	object dsMitarbeiter: TDataSource	362	object dsMitarbeiter: TDataSource
316	DataSet = tblMitarbeiter	363	DataSet = tblMitarbeiter
317	Left = 208	364	Left = 208
318	Top = 312	365	Top = 312
319	end	366	end
320	object MainMenu1: TMainMenu	367	object MainMenu1: TMainMenu
321	Left = 88	368	Left = 88
322	Top = 216	369	Top = 216
323	object Stammdaten1: TMenuItem	370	object Stammdaten1: TMenuItem
324	Caption = 'Stammdaten'	371	Caption = 'Stammdaten'
325	object Mitarbeiter1: TMenuItem	372	object Mitarbeiter1: TMenuItem
326	Caption = 'Mitarbeiter'	373	Caption = 'Mitarbeiter'
327	OnClick = Mitarbeiter1Click	374	OnClick = Mitarbeiter1Click
328	end	375	end
329	object Projekte1: TMenuItem	376	object Projekte1: TMenuItem
330	Caption = 'Projekte'	377	Caption = 'Projekte'
331	OnClick = Projekte1Click	378	OnClick = Projekte1Click
332	end	379	end
333	object Module1: TMenuItem	380	object Module1: TMenuItem
334	Caption = 'Module'	381	Caption = 'Module'
335	OnClick = Module1Click	382	OnClick = Module1Click
336	end	383	end
337	object Versionen1: TMenuItem	384	object Versionen1: TMenuItem
338	Caption = 'Versionen'	385	Caption = 'Versionen'
339	OnClick = Versionen1Click	386	OnClick = Versionen1Click
340	end	387	end
341	end	388	end
342	object Projektwechseln1: TMenuItem	389	object Projektwechseln1: TMenuItem
343	Caption = 'Projekt wechseln'	390	Caption = 'Projekt wechseln'
344	OnClick = Projektwechseln1Click	391	OnClick = Projektwechseln1Click
345	end	392	end
346	object Hilfe1: TMenuItem	393	object Hilfe1: TMenuItem
347	Caption = 'Hilfe'	394	Caption = 'Hilfe'
348	object ber1: TMenuItem	395	object ber1: TMenuItem
349	Caption = #220'ber'	396	Caption = #220'ber'
350	OnClick = ber1Click	397	OnClick = ber1Click
351	end	398	end
352	end	399	end
353	end	400	end
354	object XPManifest1: TXPManifest	401	object XPManifest1: TXPManifest
355	Left = 48	402	Left = 48
356	Top = 216	403	Top = 216
357	end	404	end
358	object qryBugs: TADOQuery	405	object qryBugs: TADOQuery
359	Active = True	406	Active = True
360	Connection = ADOConnection1	407	Connection = ADOConnection1
361	CursorType = ctStatic	408	CursorType = ctStatic
362	AfterInsert = qryBugsAfterInsert	409	AfterInsert = qryBugsAfterInsert
363	AfterScroll = qryBugsAfterScroll	410	AfterScroll = qryBugsAfterScroll
364	Parameters = <>	411	Parameters = <>
365	SQL.Strings = (	412	SQL.Strings = (
366	'SELECT * FROM bugs order by wichtigkeit')	413	'SELECT * FROM bugs order by wichtigkeit')
367	Left = 168	414	Left = 168
368	Top = 344	415	Top = 344
369	object qryBugsid: TAutoIncField	416	object qryBugsid: TAutoIncField
370	FieldName = 'id'	417	FieldName = 'id'
371	ReadOnly = True	418	ReadOnly = True
372	end	419	end
373	object qryBugstitel: TStringField	420	object qryBugstitel: TStringField
374	FieldName = 'titel'	421	FieldName = 'titel'
375	Size = 255	422	Size = 255
376	end	423	end
377	object qryBugsbeschreibung: TMemoField	424	object qryBugsbeschreibung: TMemoField
378	FieldName = 'beschreibung'	425	FieldName = 'beschreibung'
379	BlobType = ftMemo	426	BlobType = ftMemo
380	end	427	end
381	object qryBugserstellt: TDateTimeField	428	object qryBugserstellt: TDateTimeField
382	FieldName = 'erstellt'	429	FieldName = 'erstellt'
383	end	430	end
384	object qryBugswichtigkeit: TIntegerField	431	object qryBugswichtigkeit: TIntegerField
385	FieldName = 'wichtigkeit'	432	FieldName = 'wichtigkeit'
386	end	433	end
387	object qryBugsbearbeiter: TIntegerField	434	object qryBugsbearbeiter: TIntegerField
388	FieldName = 'bearbeiter'	435	FieldName = 'bearbeiter'
389	end	436	end
390	object qryBugsfixdatum: TDateTimeField	437	object qryBugsfixdatum: TDateTimeField
391	FieldName = 'fixdatum'	438	FieldName = 'fixdatum'
392	end	439	end
393	object qryBugsversion_release: TIntegerField	440	object qryBugsversion_release: TIntegerField
394	FieldName = 'version_release'	441	FieldName = 'version_release'
395	OnValidate = qryBugsversion_releaseValidate	442	OnValidate = qryBugsversion_releaseValidate
396	end	443	end
397	object qryBugsmodul: TIntegerField	444	object qryBugsmodul: TIntegerField
398	FieldName = 'modul'	445	FieldName = 'modul'
399	end	446	end
400	object qryBugsprojekt: TIntegerField	447	object qryBugsprojekt: TIntegerField
401	FieldName = 'projekt'	448	FieldName = 'projekt'
402	end	449	end
-		450	object qryBugserfasser: TIntegerField
-		451	FieldName = 'erfasser'
-		452	end
-		453	object qryBugsversion_agenda: TIntegerField
-		454	FieldName = 'version_agenda'
-		455	end
403	end	456	end
404	object dsVersionen: TDataSource	457	object dsVersionen: TDataSource
405	DataSet = qryVersionen	458	DataSet = qryVersionen
406	Left = 240	459	Left = 240
407	Top = 312	460	Top = 312
408	end	461	end
409	object tblProjekte: TADOTable	462	object tblProjekte: TADOTable
410	Active = True	463	Active = True
411	Connection = ADOConnection1	464	Connection = ADOConnection1
412	CursorType = ctStatic	465	CursorType = ctStatic
413	TableName = 'projekte'	466	TableName = 'projekte'
414	Left = 272	467	Left = 272
415	Top = 344	468	Top = 344
416	end	469	end
417	object dsProjekte: TDataSource	470	object dsProjekte: TDataSource
418	DataSet = tblProjekte	471	DataSet = tblProjekte
419	Left = 272	472	Left = 272
420	Top = 312	473	Top = 312
421	end	474	end
422	object dsModule: TDataSource	475	object dsModule: TDataSource
423	DataSet = qryModule	476	DataSet = qryModule
424	Left = 304	477	Left = 304
425	Top = 312	478	Top = 312
426	end	479	end
427	object Timer1: TTimer	480	object Timer1: TTimer
428	OnTimer = Timer1Timer	481	OnTimer = Timer1Timer
429	Left = 128	482	Left = 128
430	Top = 216	483	Top = 216
431	end	484	end
432	object qryVersionen: TADOQuery	485	object qryVersionen: TADOQuery
433	Active = True	486	Active = True
434	Connection = ADOConnection1	487	Connection = ADOConnection1
435	CursorType = ctStatic	488	CursorType = ctStatic
436	AfterInsert = qryVersionenAfterInsert	489	AfterInsert = qryVersionenAfterInsert
437	Parameters = <>	490	Parameters = <>
438	SQL.Strings = (	491	SQL.Strings = (
439	'SELECT * FROM versionen')	492	'SELECT * FROM versionen')
440	Left = 240	493	Left = 240
441	Top = 344	494	Top = 344
442	end	495	end
443	object qryModule: TADOQuery	496	object qryModule: TADOQuery
444	Active = True	497	Active = True
445	Connection = ADOConnection1	498	Connection = ADOConnection1
446	CursorType = ctStatic	499	CursorType = ctStatic
447	AfterInsert = qryModuleAfterInsert	500	AfterInsert = qryModuleAfterInsert

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm – Rev 5 → 6