Subversion Repositories winbugtracker

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 daniel-mar 1
object Form1: TForm1
2
  Left = 0
3
  Top = 0
4
  Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
5
  ClientHeight = 440
6
  ClientWidth = 691
7
  Color = clBtnFace
8
  Font.Charset = DEFAULT_CHARSET
9
  Font.Color = clWindowText
10
  Font.Height = -11
11
  Font.Name = 'Tahoma'
12
  Font.Style = []
13
  Menu = MainMenu1
14
  OldCreateOrder = False
15
  Position = poScreenCenter
16
  PixelsPerInch = 96
17
  TextHeight = 13
18
  object Label1: TLabel
19
    Left = 247
20
    Top = 53
21
    Width = 50
22
    Height = 13
23
    Caption = 'Bearbeiter'
24
  end
25
  object Label2: TLabel
26
    Left = 247
27
    Top = 149
28
    Width = 20
29
    Height = 13
30
    Caption = 'Titel'
31
  end
32
  object Label3: TLabel
33
    Left = 472
34
    Top = 53
35
    Width = 33
36
    Height = 13
37
    Caption = 'Erstellt'
38
  end
39
  object Label4: TLabel
40
    Left = 472
41
    Top = 101
42
    Width = 29
43
    Height = 13
44
    Caption = 'Gefixt'
45
  end
46
  object Label5: TLabel
47
    Left = 247
48
    Top = 101
49
    Width = 28
50
    Height = 13
51
    Caption = 'Modul'
52
  end
53
  object Label6: TLabel
54
    Left = 472
55
    Top = 149
56
    Width = 119
57
    Height = 13
58
    Caption = 'Ver'#246'ffentlicht als Version'
59
  end
60
  object DBNavigator1: TDBNavigator
61
    Left = 247
62
    Top = 16
63
    Width = 224
64
    Height = 25
65
    DataSource = dsBugs
66
    VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
67
    TabOrder = 0
68
  end
69
  object DBRichEdit1: TDBRichEdit
70
    Left = 247
71
    Top = 208
72
    Width = 402
73
    Height = 209
74
    DataField = 'beschreibung'
75
    DataSource = dsBugs
76
    TabOrder = 1
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
110
  object DBEdit1: TDBEdit
111
    Left = 247
112
    Top = 168
113
    Width = 186
114
    Height = 21
115
    DataField = 'titel'
116
    DataSource = dsBugs
117
    TabOrder = 3
118
  end
119
  object DBLookupComboBox1: TDBLookupComboBox
120
    Left = 247
121
    Top = 72
122
    Width = 186
123
    Height = 21
124
    DataField = 'bearbeiter'
125
    DataSource = dsBugs
126
    KeyField = 'id'
127
    ListField = 'name'
128
    ListSource = dsMitarbeiter
129
    TabOrder = 4
130
  end
131
  object DBEdit2: TDBEdit
132
    Left = 472
133
    Top = 72
134
    Width = 121
135
    Height = 21
136
    Color = clBtnFace
137
    DataField = 'erstellt'
138
    DataSource = dsBugs
139
    ReadOnly = True
140
    TabOrder = 5
141
  end
142
  object DBEdit3: TDBEdit
143
    Left = 472
144
    Top = 120
145
    Width = 121
146
    Height = 21
147
    Color = clBtnFace
148
    DataField = 'fixdatum'
149
    DataSource = dsBugs
150
    ReadOnly = True
151
    TabOrder = 6
152
  end
153
  object DBLookupComboBox2: TDBLookupComboBox
154
    Left = 247
155
    Top = 120
156
    Width = 186
157
    Height = 21
158
    DataField = 'modul'
159
    DataSource = dsBugs
160
    KeyField = 'id'
161
    ListField = 'modul'
162
    ListSource = dsModule
163
    TabOrder = 7
164
  end
165
  object DBLookupComboBox3: TDBLookupComboBox
166
    Left = 472
167
    Top = 168
168
    Width = 121
169
    Height = 21
170
    DataField = 'version_release'
171
    DataSource = dsBugs
172
    KeyField = 'id'
173
    ListField = 'version'
174
    ListSource = dsVersionen
175
    TabOrder = 8
176
  end
177
  object TrackBar1: TTrackBar
178
    Left = 477
179
    Top = 8
180
    Width = 150
181
    Height = 45
182
    Position = 5
183
    TabOrder = 9
184
    OnChange = TrackBar1Change
185
  end
186
  object ComboBox1: TComboBox
187
    Left = 8
188
    Top = 8
189
    Width = 233
190
    Height = 21
191
    Style = csDropDownList
192
    ItemHeight = 13
193
    ItemIndex = 0
194
    TabOrder = 10
195
    Text = 'Meine offene Bugs (nach Wichtigkeit)'
196
    Items.Strings = (
197
      'Meine offene Bugs (nach Wichtigkeit)'
198
      'Alle ofene Bugs (nach Wichtigkeit)'
199
      'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)'
200
      'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)')
201
  end
202
  object ADOConnection1: TADOConnection
203
    Connected = True
204
    ConnectionString = 
205
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
206
      ' RAS;Initial Catalog=bugtracker'
207
    LoginPrompt = False
208
    Left = 336
209
    Top = 344
210
  end
211
  object dsBugs: TDataSource
212
    DataSet = qryBugs
213
    Left = 400
214
    Top = 312
215
  end
216
  object tblMitarbeiter: TADOTable
217
    Active = True
218
    Connection = ADOConnection1
219
    CursorType = ctStatic
220
    TableName = 'mitarbeiter'
221
    Left = 440
222
    Top = 344
223
  end
224
  object dsMitarbeiter: TDataSource
225
    DataSet = tblMitarbeiter
226
    Left = 440
227
    Top = 312
228
  end
229
  object MainMenu1: TMainMenu
230
    Left = 640
231
    Top = 48
232
    object Stammdaten1: TMenuItem
233
      Caption = 'Stammdaten'
234
      object Mitarbeiter1: TMenuItem
235
        Caption = 'Mitarbeiter'
236
        OnClick = Mitarbeiter1Click
237
      end
238
      object Projekte1: TMenuItem
239
        Caption = 'Projekte'
240
        OnClick = Projekte1Click
241
      end
242
      object Module1: TMenuItem
243
        Caption = 'Module'
244
        OnClick = Module1Click
245
      end
246
      object Versionen1: TMenuItem
247
        Caption = 'Versionen'
248
        OnClick = Versionen1Click
249
      end
250
    end
251
  end
252
  object XPManifest1: TXPManifest
253
    Left = 640
254
    Top = 8
255
  end
256
  object qryBugs: TADOQuery
257
    Active = True
258
    Connection = ADOConnection1
259
    CursorType = ctStatic
260
    AfterScroll = qryBugsAfterScroll
261
    Parameters = <>
262
    SQL.Strings = (
263
      'SELECT * FROM bugs order by wichtigkeit')
264
    Left = 400
265
    Top = 344
266
  end
267
  object tblVersionen: TADOTable
268
    Active = True
269
    Connection = ADOConnection1
270
    CursorType = ctStatic
271
    TableName = 'versionen'
272
    Left = 472
273
    Top = 344
274
  end
275
  object dsVersionen: TDataSource
276
    DataSet = tblVersionen
277
    Left = 472
278
    Top = 312
279
  end
280
  object tblProjekte: TADOTable
281
    Active = True
282
    Connection = ADOConnection1
283
    CursorType = ctStatic
284
    TableName = 'projekte'
285
    Left = 504
286
    Top = 344
287
  end
288
  object dsProjekte: TDataSource
289
    DataSet = tblProjekte
290
    Left = 504
291
    Top = 312
292
  end
293
  object tblModule: TADOTable
294
    Active = True
295
    Connection = ADOConnection1
296
    CursorType = ctStatic
297
    TableName = 'module'
298
    Left = 536
299
    Top = 344
300
  end
301
  object dsModule: TDataSource
302
    DataSet = tblModule
303
    Left = 536
304
    Top = 312
305
  end
306
end