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


object frmBugtracker: TfrmBugtracker
  Left = 0
  Top = 0
  Align = alClient
  Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
  ClientHeight = 596
  ClientWidth = 763
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 249
    Top = 0
    Height = 596
    ExplicitLeft = 0
    ExplicitTop = 136
    ExplicitHeight = 100
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 249
    Height = 596
    Align = alLeft
    TabOrder = 0
    DesignSize = (
      249
      596)
    object DBGrid1: TDBGrid
      Left = 8
      Top = 35
      Width = 233
      Height = 504
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataSource = dsBugs
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'id'
          Width = 46
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'titel'
          Width = 111
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'wichtigkeit'
          Width = 36
          Visible = True
        end>
    end
    object ComboBox1: TComboBox
      Left = 8
      Top = 8
      Width = 233
      Height = 21
      Style = csDropDownList
      Anchors = [akLeft, akTop, akRight]
      ItemHeight = 13
 
      TabOrder = 1
 
      OnChange = ComboBox1Change
      Items.Strings = (
        'Meine offenen Aufgaben (nach Wichtigkeit)'
        'Alle offenen Aufgaben (nach Wichtigkeit)'
        'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)'
        'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)'
        'Von mir erfasste Aufgaben (nach Erfassungsdatum)'
        'Alle Aufgaben (nach Er'#246'ffnungsdatum)')
    end
    object DBNavigator2: TDBNavigator
      Left = 11
      Top = 554
      Width = 232
      Height = 25
      DataSource = dsBugs
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Anchors = [akLeft, akRight, akBottom]
      TabOrder = 2
    end
  end
  object Panel2: TPanel
    Left = 252
    Top = 0
    Width = 511
    Height = 596
    Align = alClient
    TabOrder = 1
    DesignSize = (
      511
      596)
    object Label1: TLabel
      Left = 16
      Top = 101
      Width = 50
      Height = 13
      Caption = 'Bearbeiter'
    end
    object Label2: TLabel
      Left = 15
      Top = 195
      Width = 20
      Height = 13
      Caption = 'Titel'
    end
    object Label3: TLabel
      Left = 240
      Top = 53
      Width = 33
      Height = 13
      Caption = 'Erstellt'
    end
    object Label4: TLabel
      Left = 240
      Top = 101
      Width = 31
      Height = 13
      BiDiMode = bdLeftToRight
      Caption = 'Status'
      ParentBiDiMode = False
    end
    object Label5: TLabel
      Left = 16
      Top = 149
      Width = 28
      Height = 13
      Caption = 'Modul'
    end
    object Label6: TLabel
      Left = 240
      Top = 216
      Width = 119
      Height = 13
      Caption = 'Ver'#246'ffentlicht als Version'
    end
    object LblAngemeldet: TLabel
      Left = 3
      Top = 0
      Width = 83
      Height = 13
      Caption = 'Nicht angemeldet'
    end
    object Label7: TLabel
      Left = 250
      Top = 0
      Width = 46
      Height = 13
      Caption = 'Unwichtig'
    end
    object Label8: TLabel
      Left = 366
      Top = 0
      Width = 34
      Height = 13
      Alignment = taRightJustify
      Caption = 'Kritisch'
    end
    object Label9: TLabel
      Left = 240
      Top = 170
      Width = 92
      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
      DataSource = dsBugs
      VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
      TabOrder = 0
      BeforeAction = DBNavigator1BeforeAction
    end
    object DBRichEdit1: TDBRichEdit
      Left = 15
      Top = 280
      Width = 483
      Height = 299
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataField = 'beschreibung'
      DataSource = dsBugs
      TabOrder = 10
    end
    object DBEdit1: TDBEdit
      Left = 15
      Top = 208
      Width = 186
      Height = 21
      DataField = 'titel'
      DataSource = dsBugs
      TabOrder = 6
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 16
      Top = 120
      Width = 186
      Height = 21
      DataField = 'bearbeiter'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'name'
      ListSource = dsMitarbeiter
      NullValueKey = 46
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 240
      Top = 72
      Width = 155
      Height = 21
      TabStop = False
      Color = clBtnFace
      DataField = 'erstellt'
      DataSource = dsBugs
      ReadOnly = True
      TabOrder = 8
    end
    object DBEdit3: TDBEdit
      Left = 240
      Top = 141
      Width = 155
      Height = 21
      TabStop = False
      Color = clBtnFace
      DataField = 'status_geaendert'
      DataSource = dsBugs
      ReadOnly = True
      TabOrder = 3
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 15
      Top = 168
      Width = 186
      Height = 21
      DataField = 'modul'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'modul'
      ListSource = dsModule
      NullValueKey = 46
      TabOrder = 4
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 240
      Top = 235
      Width = 155
      Height = 21
      DataField = 'version_release'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'version'
      ListSource = dsVersionen
      TabOrder = 7
    end
    object TrackBar1: TTrackBar
      Left = 245
      Top = 12
      Width = 164
      Height = 45
      Position = 5
      TabOrder = 11
      OnChange = TrackBar1Change
    end
    object btnBearbeitungsnotiz: TButton
      Left = 17
      Top = 240
      Width = 185
      Height = 25
      Caption = 'Notiz hinzuf'#252'gen'
      TabOrder = 9
      OnClick = btnBearbeitungsnotizClick
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 240
      Top = 189
      Width = 155
      Height = 21
      DataField = 'version_agenda'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'version'
      ListSource = dsVersionen
      TabOrder = 5
    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
    object DBLookupComboBox5: TDBLookupComboBox
      Left = 240
      Top = 120
      Width = 155
      Height = 21
      DataField = 'status'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'status'
      ListSource = dsStatus
      TabOrder = 2
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      '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
    Left = 168
    Top = 312
  end
  object tblMitarbeiter: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'mitarbeiter'
    Left = 208
    Top = 344
  end
  object dsMitarbeiter: TDataSource
    DataSet = tblMitarbeiter
    Left = 208
    Top = 312
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 216
    object Stammdaten1: TMenuItem
      Caption = 'Stammdaten'
      object Mitarbeiter1: TMenuItem
        Caption = 'Mitarbeiter'
        OnClick = Mitarbeiter1Click
      end
      object Projekte1: TMenuItem
        Caption = 'Projekte'
        OnClick = Projekte1Click
      end
      object Module1: TMenuItem
        Caption = 'Module'
        OnClick = Module1Click
      end
      object Versionen1: TMenuItem
        Caption = 'Versionen'
        OnClick = Versionen1Click
      end
    end
    object Bugs1: TMenuItem
      Caption = 'Bugs'
      object Wechselnzu1: TMenuItem
        Caption = 'Wechseln zu...'
        OnClick = Wechselnzu1Click
      end
    end
    object Projektwechseln1: TMenuItem
      Caption = 'Projekt wechseln'
      OnClick = Projektwechseln1Click
    end
    object Hilfe1: TMenuItem
      Caption = 'Hilfe'
      object ber1: TMenuItem
        Caption = #220'ber'
        OnClick = ber1Click
      end
    end
  end
  object XPManifest1: TXPManifest
    Left = 48
    Top = 216
  end
  object qryBugs: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = qryBugsAfterInsert
    BeforeCancel = qryBugsBeforeCancel
    AfterScroll = qryBugsAfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM bugs order by wichtigkeit')
    Left = 168
    Top = 344
    object qryBugsid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qryBugstitel: TStringField
      FieldName = 'titel'
      Size = 255
    end
    object qryBugsbeschreibung: TMemoField
      FieldName = 'beschreibung'
      BlobType = ftMemo
    end
    object qryBugserstellt: TDateTimeField
      FieldName = 'erstellt'
    end
    object qryBugswichtigkeit: TIntegerField
      FieldName = 'wichtigkeit'
    end
    object qryBugsbearbeiter: TIntegerField
      FieldName = 'bearbeiter'
    end
    object qryBugsversion_release: TIntegerField
      FieldName = 'version_release'
      OnValidate = qryBugsversion_releaseValidate
    end
    object qryBugsmodul: TIntegerField
      FieldName = 'modul'
    end
    object qryBugsprojekt: TIntegerField
      FieldName = 'projekt'
    end
    object qryBugserfasser: TIntegerField
      FieldName = 'erfasser'
    end
    object qryBugsversion_agenda: TIntegerField
      FieldName = 'version_agenda'
    end
    object qryBugsstatus: TIntegerField
      FieldName = 'status'
      OnChange = qryBugsstatusChange
    end
    object qryBugsstatus_geaendert: TDateTimeField
      FieldName = 'status_geaendert'
    end
  end
  object dsVersionen: TDataSource
    DataSet = qryVersionen
    Left = 240
    Top = 312
  end
  object tblProjekte: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'projekte'
    Left = 272
    Top = 344
  end
  object dsProjekte: TDataSource
    DataSet = tblProjekte
    Left = 272
    Top = 312
  end
  object dsModule: TDataSource
    DataSet = qryModule
    Left = 304
    Top = 312
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 128
    Top = 216
  end
  object qryVersionen: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = qryVersionenAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM versionen')
    Left = 240
    Top = 344
  end
  object qryModule: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = qryModuleAfterInsert
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM module')
    Left = 304
    Top = 344
  end
  object lkpStatus: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'lkp_status'
    Left = 344
    Top = 344
  end
  object dsStatus: TDataSource
    DataSet = lkpStatus
    Left = 344
    Top = 312
  end
end

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

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm – Rev 12 → 13