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

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

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm – Rev 13