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

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm – Rev 7