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


object frmBugtracker: TfrmBugtracker
  Left = 0
  Top = 0
  Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
  ClientHeight = 498
  ClientWidth = 751
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 249
    Top = 0
    Height = 498
    ExplicitLeft = 0
    ExplicitTop = 136
    ExplicitHeight = 100
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 249
    Height = 498
    Align = alLeft
    TabOrder = 0
    DesignSize = (
      249
      498)
    object DBGrid1: TDBGrid
      Left = 8
      Top = 35
      Width = 233
      Height = 406
      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
      ItemIndex = 0
      TabOrder = 1
      Text = 'Meine offenen Bugs (nach Wichtigkeit)'
      OnChange = ComboBox1Change
      Items.Strings = (
        'Meine offenen Bugs (nach Wichtigkeit)'
        'Alle offenen Bugs (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)'
        'Alle Bugs (nach Er'#246'ffnungsdatum)')
    end
    object DBNavigator2: TDBNavigator
      Left = 11
      Top = 456
      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 = 499
    Height = 498
    Align = alClient
    TabOrder = 1
    DesignSize = (
      499
      498)
    object Label1: TLabel
      Left = 15
      Top = 53
      Width = 50
      Height = 13
      Caption = 'Bearbeiter'
    end
    object Label2: TLabel
      Left = 15
      Top = 149
      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 = 29
      Height = 13
      Caption = 'Gefixt'
    end
    object Label5: TLabel
      Left = 15
      Top = 101
      Width = 28
      Height = 13
      Caption = 'Modul'
    end
    object Label6: TLabel
      Left = 240
      Top = 149
      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 DBNavigator1: TDBNavigator
      Left = 15
      Top = 16
      Width = 224
      Height = 25
      DataSource = dsBugs
      VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
      TabOrder = 0
    end
    object DBRichEdit1: TDBRichEdit
      Left = 15
      Top = 248
      Width = 471
      Height = 233
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataField = 'beschreibung'
      DataSource = dsBugs
      TabOrder = 9
    end
    object DBEdit1: TDBEdit
      Left = 15
      Top = 168
      Width = 186
      Height = 21
      DataField = 'titel'
      DataSource = dsBugs
      TabOrder = 5
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 15
      Top = 72
      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 = 2
    end
    object DBEdit3: TDBEdit
      Left = 240
      Top = 120
      Width = 155
      Height = 21
      TabStop = False
      Color = clBtnFace
      DataField = 'fixdatum'
      DataSource = dsBugs
      ReadOnly = True
      TabOrder = 4
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 15
      Top = 120
      Width = 186
      Height = 21
      DataField = 'modul'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'modul'
      ListSource = dsModule
      NullValueKey = 46
      TabOrder = 3
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 240
      Top = 168
      Width = 155
      Height = 21
      DataField = 'version_release'
      DataSource = dsBugs
      KeyField = 'id'
      ListField = 'version'
      ListSource = dsVersionen
      TabOrder = 6
    end
    object TrackBar1: TTrackBar
      Left = 245
      Top = 12
      Width = 164
      Height = 45
      Position = 5
      TabOrder = 10
      OnChange = TrackBar1Change
    end
    object btnFixedToggle: TButton
      Left = 401
      Top = 118
      Width = 72
      Height = 25
      Caption = 'Umschalten'
      TabOrder = 8
      OnClick = btnFixedToggleClick
    end
    object btnBearbeitungsnotiz: TButton
      Left = 16
      Top = 208
      Width = 185
      Height = 25
      Caption = 'Notiz hinzuf'#252'gen'
      TabOrder = 7
      OnClick = btnBearbeitungsnotizClick
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
      ' RAS;Initial Catalog=bugtracker'
    LoginPrompt = False
    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 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
    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 qryBugsfixdatum: TDateTimeField
      FieldName = 'fixdatum'
    end
    object qryBugsversion_release: TIntegerField
      FieldName = 'version_release'
      OnValidate = qryBugsversion_releaseValidate
    end
    object qryBugsmodul: TIntegerField
      FieldName = 'modul'
    end
    object qryBugsprojekt: TIntegerField
      FieldName = 'projekt'
    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
end

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

Subversion Repositories winbugtracker

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