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

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

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm – Rev 6