Subversion Repositories winbugtracker

Rev

Rev 2 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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