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