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

 object frmBugtracker: TfrmBugtracker
   Left = 0
   Top = 0
   Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
-  ClientHeight = 498
+  ClientHeight = 596
-  ClientWidth = 751
+  ClientWidth = 763
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'Tahoma'
   PixelsPerInch = 96
   TextHeight = 13
   object Splitter1: TSplitter
     Left = 249
     Top = 0
-    Height = 498
+    Height = 596
     ExplicitLeft = 0
     ExplicitTop = 136
     ExplicitHeight = 100
   end
   object Panel1: TPanel
     Left = 0
     Top = 0
     Width = 249
-    Height = 498
+    Height = 596
     Align = alLeft
     TabOrder = 0
+    ExplicitHeight = 498
     DesignSize = (
 )
     object DBGrid1: TDBGrid
       Left = 8
       Top = 35
       Width = 233
-      Height = 406
+      Height = 504
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataSource = dsBugs
       ReadOnly = True
       TabOrder = 0
       TitleFont.Charset = DEFAULT_CHARSET
         '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 = 456
+      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 = 499
+    Width = 511
-    Height = 498
+    Height = 596
     Align = alClient
     TabOrder = 1
+    ExplicitWidth = 499
+    ExplicitHeight = 498
     DesignSize = (
 )
     object Label1: TLabel
-      Left = 15
+      Left = 16
-      Top = 53
+      Top = 101
       Width = 50
       Height = 13
       Caption = 'Bearbeiter'
     end
     object Label2: TLabel
       Left = 15
-      Top = 149
+      Top = 195
       Width = 20
       Height = 13
       Caption = 'Titel'
     end
     object Label3: TLabel
       Width = 29
       Height = 13
       Caption = 'Gefixt'
     end
     object Label5: TLabel
-      Left = 15
+      Left = 16
-      Top = 101
+      Top = 149
       Width = 28
       Height = 13
       Caption = 'Modul'
     end
     object Label6: TLabel
       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
       VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
       TabOrder = 0
     end
     object DBRichEdit1: TDBRichEdit
       Left = 15
-      Top = 248
+      Top = 280
-      Width = 471
+      Width = 483
-      Height = 233
+      Height = 299
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataField = 'beschreibung'
       DataSource = dsBugs
       TabOrder = 9
+      ExplicitWidth = 736
     end
     object DBEdit1: TDBEdit
       Left = 15
-      Top = 168
+      Top = 208
       Width = 186
       Height = 21
       DataField = 'titel'
       DataSource = dsBugs
       TabOrder = 5
     end
     object DBLookupComboBox1: TDBLookupComboBox
-      Left = 15
+      Left = 16
-      Top = 72
+      Top = 120
       Width = 186
       Height = 21
       DataField = 'bearbeiter'
       DataSource = dsBugs
       KeyField = 'id'
       ReadOnly = True
       TabOrder = 4
     end
     object DBLookupComboBox2: TDBLookupComboBox
       Left = 15
-      Top = 120
+      Top = 168
       Width = 186
       Height = 21
       DataField = 'modul'
       DataSource = dsBugs
       KeyField = 'id'
       Caption = 'Umschalten'
       TabOrder = 8
       OnClick = btnFixedToggleClick
     end
     object btnBearbeitungsnotiz: TButton
-      Left = 16
+      Left = 17
-      Top = 208
+      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=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
+      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
-      ' RAS;Initial Catalog=bugtracker'
+      '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
       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

Subversion Repositories winbugtracker

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