Subversion Repositories winbugtracker

Rev

Rev 2 | Go to most recent revision | Show entire file | Ignore 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
18 
  object Label1: TLabel
 19 
  object Splitter1: TSplitter
19 
    Left = 247
 20 
    Left = 249
20 
    Top = 53
 21 
    Top = 0
21 
    Width = 50
 - 
 
22 
    Height = 13
 22 
    Height = 498
23 
    Caption = 'Bearbeiter'
 - 
 
24 
  end
 - 
 
25 
  object Label2: TLabel
 - 
 
26 
    Left = 247
 - 
 
27 
    Top = 149
 - 
 
28 
    Width = 20
 23 
    ExplicitLeft = 0
29 
    Height = 13
 24 
    ExplicitTop = 136
30 
    Caption = 'Titel'
 - 
 
31 
  end
 - 
 
32 
  object Label3: TLabel
 - 
 
33 
    Left = 472
 - 
 
34 
    Top = 53
 - 
 
35 
    Width = 33
 - 
 
36 
    Height = 13
 25 
    ExplicitHeight = 100
37 
    Caption = 'Erstellt'
 - 
 
38 
  end
 26 
  end
39 
  object Label4: TLabel
 27 
  object Panel1: TPanel
40 
    Left = 472
 28 
    Left = 0
41 
    Top = 101
 29 
    Top = 0
42 
    Width = 29
 30 
    Width = 249
43 
    Height = 13
 31 
    Height = 498
44 
    Caption = 'Gefixt'
 32 
    Align = alLeft
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
 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
68 
  end
 102 
  end
69 
  object DBRichEdit1: TDBRichEdit
 103 
  object Panel2: TPanel
70 
    Left = 247
 104 
    Left = 252
71 
    Top = 208
 105 
    Top = 0
72 
    Width = 402
 106 
    Width = 499
73 
    Height = 209
 107 
    Height = 498
74 
    DataField = 'beschreibung'
 108 
    Align = alClient
75 
    DataSource = dsBugs
 - 
 
76 
    TabOrder = 1
 109 
    TabOrder = 1
77 
  end
 110 
    ExplicitLeft = 320
78 
  object DBGrid1: TDBGrid
 111 
    ExplicitTop = 8
79 
    Left = 8
 112 
    ExplicitWidth = 441
80 
    Top = 47
 113 
    DesignSize = (
81 
    Width = 233
 114 
      499
82 
    Height = 370
 115 
      498)
83 
    DataSource = dsBugs
 116 
    object Label1: TLabel
84 
    TabOrder = 2
 117 
      Left = 15
85 
    TitleFont.Charset = DEFAULT_CHARSET
 118 
      Top = 53
86 
    TitleFont.Color = clWindowText
 119 
      Width = 50
87 
    TitleFont.Height = -11
 120 
      Height = 13
88 
    TitleFont.Name = 'Tahoma'
 121 
      Caption = 'Bearbeiter'
89 
    TitleFont.Style = []
 122 
    end
90 
    Columns = <
 123 
    object Label2: TLabel
91 
      item
 124 
      Left = 15
92 
        Expanded = False
 125 
      Top = 149
93 
        FieldName = 'id'
 126 
      Width = 20
94 
        Width = 46
 127 
      Height = 13
95 
        Visible = True
 128 
      Caption = 'Titel'
96 
      end
 129 
    end
97 
      item
 130 
    object Label3: TLabel
98 
        Expanded = False
 131 
      Left = 240
99 
        FieldName = 'titel'
 132 
      Top = 53
100 
        Width = 111
 133 
      Width = 33
101 
        Visible = True
 134 
      Height = 13
102 
      end
 135 
      Caption = 'Erstellt'
103 
      item
 136 
    end
104 
        Expanded = False
 137 
    object Label4: TLabel
105 
        FieldName = 'wichtigkeit'
 138 
      Left = 240
106 
        Width = 36
 139 
      Top = 101
107 
        Visible = True
 140 
      Width = 29
108 
      end>
 141 
      Height = 13
109 
  end
 142 
      Caption = 'Gefixt'
110 
  object DBEdit1: TDBEdit
 143 
    end
111 
    Left = 247
 144 
    object Label5: TLabel
112 
    Top = 168
 145 
      Left = 15
113 
    Width = 186
 146 
      Top = 101
114 
    Height = 21
 147 
      Width = 28
115 
    DataField = 'titel'
 148 
      Height = 13
116 
    DataSource = dsBugs
 149 
      Caption = 'Modul'
117 
    TabOrder = 3
 150 
    end
118 
  end
 151 
    object Label6: TLabel
119 
  object DBLookupComboBox1: TDBLookupComboBox
 152 
      Left = 240
120 
    Left = 247
 153 
      Top = 149
121 
    Top = 72
 154 
      Width = 119
122 
    Width = 186
 155 
      Height = 13
123 
    Height = 21
 156 
      Caption = 'Ver'#246'ffentlicht als Version'
124 
    DataField = 'bearbeiter'
 157 
    end
125 
    DataSource = dsBugs
 158 
    object DBNavigator1: TDBNavigator
126 
    KeyField = 'id'
 159 
      Left = 15
127 
    ListField = 'name'
 160 
      Top = 16
128 
    ListSource = dsMitarbeiter
 161 
      Width = 224
129 
    TabOrder = 4
 162 
      Height = 25
130 
  end
 163 
      DataSource = dsBugs
131 
  object DBEdit2: TDBEdit
 164 
      VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
132 
    Left = 472
 165 
      TabOrder = 0
133 
    Top = 72
 166 
    end
134 
    Width = 121
 167 
    object DBRichEdit1: TDBRichEdit
135 
    Height = 21
 168 
      Left = 15
136 
    Color = clBtnFace
 169 
      Top = 248
137 
    DataField = 'erstellt'
 170 
      Width = 471
138 
    DataSource = dsBugs
 171 
      Height = 233
139 
    ReadOnly = True
 172 
      Anchors = [akLeft, akTop, akRight, akBottom]
140 
    TabOrder = 5
 173 
      DataField = 'beschreibung'
141 
  end
 174 
      DataSource = dsBugs
142 
  object DBEdit3: TDBEdit
 175 
      TabOrder = 9
143 
    Left = 472
 176 
    end
144 
    Top = 120
 177 
    object DBEdit1: TDBEdit
145 
    Width = 121
 178 
      Left = 15
146 
    Height = 21
 179 
      Top = 168
147 
    Color = clBtnFace
 180 
      Width = 186
148 
    DataField = 'fixdatum'
 181 
      Height = 21
149 
    DataSource = dsBugs
 182 
      DataField = 'titel'
150 
    ReadOnly = True
 183 
      DataSource = dsBugs
151 
    TabOrder = 6
 184 
      TabOrder = 5
152 
  end
 185 
    end
153 
  object DBLookupComboBox2: TDBLookupComboBox
 186 
    object DBLookupComboBox1: TDBLookupComboBox
154 
    Left = 247
 187 
      Left = 15
155 
    Top = 120
 188 
      Top = 72
156 
    Width = 186
 189 
      Width = 186
157 
    Height = 21
 190 
      Height = 21
158 
    DataField = 'modul'
 191 
      DataField = 'bearbeiter'
159 
    DataSource = dsBugs
 192 
      DataSource = dsBugs
160 
    KeyField = 'id'
 193 
      KeyField = 'id'
161 
    ListField = 'modul'
 194 
      ListField = 'name'
162 
    ListSource = dsModule
 195 
      ListSource = dsMitarbeiter
163 
    TabOrder = 7
 196 
      NullValueKey = 46
164 
  end
 197 
      TabOrder = 1
165 
  object DBLookupComboBox3: TDBLookupComboBox
 198 
    end
166 
    Left = 472
 199 
    object DBEdit2: TDBEdit
167 
    Top = 168
 200 
      Left = 240
168 
    Width = 121
 201 
      Top = 72
169 
    Height = 21
 202 
      Width = 155
170 
    DataField = 'version_release'
 203 
      Height = 21
171 
    DataSource = dsBugs
 204 
      TabStop = False
172 
    KeyField = 'id'
 205 
      Color = clBtnFace
173 
    ListField = 'version'
 206 
      DataField = 'erstellt'
174 
    ListSource = dsVersionen
 207 
      DataSource = dsBugs
175 
    TabOrder = 8
 208 
      ReadOnly = True
176 
  end
 209 
      TabOrder = 2
177 
  object TrackBar1: TTrackBar
 210 
    end
178 
    Left = 477
 211 
    object DBEdit3: TDBEdit
179 
    Top = 8
 212 
      Left = 240
180 
    Width = 150
 213 
      Top = 120
181 
    Height = 45
 214 
      Width = 155
182 
    Position = 5
 215 
      Height = 21
183 
    TabOrder = 9
 216 
      TabStop = False
184 
    OnChange = TrackBar1Change
 217 
      Color = clBtnFace
185 
  end
 218 
      DataField = 'fixdatum'
186 
  object ComboBox1: TComboBox
 219 
      DataSource = dsBugs
187 
    Left = 8
 220 
      ReadOnly = True
188 
    Top = 8
 221 
      TabOrder = 4
189 
    Width = 233
 222 
    end
190 
    Height = 21
 223 
    object DBLookupComboBox2: TDBLookupComboBox
191 
    Style = csDropDownList
 224 
      Left = 15
192 
    ItemHeight = 13
 225 
      Top = 120
193 
    ItemIndex = 0
 226 
      Width = 186
194 
    TabOrder = 10
 227 
      Height = 21
195 
    Text = 'Meine offene Bugs (nach Wichtigkeit)'
 228 
      DataField = 'modul'
196 
    Items.Strings = (
 229 
      DataSource = dsBugs
197 
      'Meine offene Bugs (nach Wichtigkeit)'
 230 
      KeyField = 'id'
198 
      'Alle ofene Bugs (nach Wichtigkeit)'
 231 
      ListField = 'modul'
199 
      'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)'
 232 
      ListSource = dsModule
200 
      'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)')
 233 
      NullValueKey = 46
- 
 
 234 
      TabOrder = 3
- 
 
 235 
    end
- 
 
 236 
    object DBLookupComboBox3: TDBLookupComboBox
- 
 
 237 
      Left = 240
- 
 
 238 
      Top = 168
- 
 
 239 
      Width = 155
- 
 
 240 
      Height = 21
- 
 
 241 
      DataField = 'version_release'
- 
 
 242 
      DataSource = dsBugs
- 
 
 243 
      KeyField = 'id'
- 
 
 244 
      ListField = 'version'
- 
 
 245 
      ListSource = dsVersionen
- 
 
 246 
      TabOrder = 6
- 
 
 247 
    end
- 
 
 248 
    object TrackBar1: TTrackBar
- 
 
 249 
      Left = 245
- 
 
 250 
      Top = 8
- 
 
 251 
      Width = 164
- 
 
 252 
      Height = 45
- 
 
 253 
      Position = 5
- 
 
 254 
      TabOrder = 10
- 
 
 255 
      OnChange = TrackBar1Change
- 
 
 256 
    end
- 
 
 257 
    object btnFixedToggle: TButton
- 
 
 258 
      Left = 401
- 
 
 259 
      Top = 118
- 
 
 260 
      Width = 72
- 
 
 261 
      Height = 25
- 
 
 262 
      Caption = 'Umschalten'
- 
 
 263 
      TabOrder = 8
- 
 
 264 
      OnClick = btnFixedToggleClick
- 
 
 265 
    end
- 
 
 266 
    object btnBearbeitungsnotiz: TButton
- 
 
 267 
      Left = 16
- 
 
 268 
      Top = 208
- 
 
 269 
      Width = 185
- 
 
 270 
      Height = 25
- 
 
 271 
      Caption = 'Bearbeitungsnotiz hinzuf'#252'gen'
- 
 
 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