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

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm @ 7 – Rev 8