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
11	daniel-mar	137	Width = 31
4	daniel-mar	138	Height = 13
11	daniel-mar	139	BiDiMode = bdLeftToRight
		140	Caption = 'Status'
		141	ParentBiDiMode = False
4	daniel-mar	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
11	daniel-mar	152	Top = 216
4	daniel-mar	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
11	daniel-mar	181	Top = 170
		182	Width = 92
6	daniel-mar	183	Height = 13
11	daniel-mar	184	Caption = 'Geplant f'#252'r Version'
6	daniel-mar	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
8	daniel-mar	201	BeforeAction = DBNavigator1BeforeAction
4	daniel-mar	202	end
		203	object DBRichEdit1: TDBRichEdit
		204	Left = 15
6	daniel-mar	205	Top = 280
		206	Width = 483
		207	Height = 299
4	daniel-mar	208	Anchors = [akLeft, akTop, akRight, akBottom]
		209	DataField = 'beschreibung'
		210	DataSource = dsBugs
11	daniel-mar	211	TabOrder = 10
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
11	daniel-mar	220	TabOrder = 6
4	daniel-mar	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
11	daniel-mar	245	TabOrder = 8
4	daniel-mar	246	end
		247	object DBEdit3: TDBEdit
		248	Left = 240
11	daniel-mar	249	Top = 141
4	daniel-mar	250	Width = 155
		251	Height = 21
		252	TabStop = False
		253	Color = clBtnFace
11	daniel-mar	254	DataField = 'status_geaendert'
4	daniel-mar	255	DataSource = dsBugs
		256	ReadOnly = True
11	daniel-mar	257	TabOrder = 3
4	daniel-mar	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
11	daniel-mar	270	TabOrder = 4
4	daniel-mar	271	end
		272	object DBLookupComboBox3: TDBLookupComboBox
		273	Left = 240
11	daniel-mar	274	Top = 235
4	daniel-mar	275	Width = 155
		276	Height = 21
		277	DataField = 'version_release'
		278	DataSource = dsBugs
		279	KeyField = 'id'
		280	ListField = 'version'
		281	ListSource = dsVersionen
11	daniel-mar	282	TabOrder = 7
4	daniel-mar	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
11	daniel-mar	290	TabOrder = 11
4	daniel-mar	291	OnChange = TrackBar1Change
		292	end
		293	object btnBearbeitungsnotiz: TButton
6	daniel-mar	294	Left = 17
		295	Top = 240
4	daniel-mar	296	Width = 185
		297	Height = 25
5	daniel-mar	298	Caption = 'Notiz hinzuf'#252'gen'
11	daniel-mar	299	TabOrder = 9
5	daniel-mar	300	OnClick = btnBearbeitungsnotizClick
4	daniel-mar	301	end
6	daniel-mar	302	object DBLookupComboBox4: TDBLookupComboBox
		303	Left = 240
11	daniel-mar	304	Top = 189
6	daniel-mar	305	Width = 155
		306	Height = 21
		307	DataField = 'version_agenda'
		308	DataSource = dsBugs
		309	KeyField = 'id'
		310	ListField = 'version'
		311	ListSource = dsVersionen
11	daniel-mar	312	TabOrder = 5
6	daniel-mar	313	end
		314	object cbxErfasser: TDBLookupComboBox
		315	Left = 17
		316	Top = 72
		317	Width = 186
		318	Height = 21
		319	Color = clBtnFace
		320	DataField = 'erfasser'
		321	DataSource = dsBugs
		322	KeyField = 'id'
		323	ListField = 'name'
		324	ListSource = dsMitarbeiter
		325	NullValueKey = 46
		326	ReadOnly = True
		327	TabOrder = 12
		328	end
11	daniel-mar	329	object DBLookupComboBox5: TDBLookupComboBox
		330	Left = 240
		331	Top = 120
		332	Width = 155
		333	Height = 21
		334	DataField = 'status'
		335	DataSource = dsBugs
		336	KeyField = 'id'
		337	ListField = 'status'
		338	ListSource = dsStatus
		339	TabOrder = 2
		340	end
4	daniel-mar	341	end
		342	object ADOConnection1: TADOConnection
		343	Connected = True
		344	ConnectionString =
11	daniel-mar	345	'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
		346	' RAS;Initial Catalog=bugtracker;'
4	daniel-mar	347	LoginPrompt = False
		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
		391	object Projektwechseln1: TMenuItem
		392	Caption = 'Projekt wechseln'
		393	OnClick = Projektwechseln1Click
		394	end
		395	object Hilfe1: TMenuItem
		396	Caption = 'Hilfe'
		397	object ber1: TMenuItem
		398	Caption = #220'ber'
		399	OnClick = ber1Click
		400	end
		401	end
		402	end
		403	object XPManifest1: TXPManifest
		404	Left = 48
		405	Top = 216
		406	end
		407	object qryBugs: TADOQuery
		408	Active = True
		409	Connection = ADOConnection1
		410	CursorType = ctStatic
		411	AfterInsert = qryBugsAfterInsert
8	daniel-mar	412	BeforeCancel = qryBugsBeforeCancel
4	daniel-mar	413	AfterScroll = qryBugsAfterScroll
		414	Parameters = <>
		415	SQL.Strings = (
		416	'SELECT * FROM bugs order by wichtigkeit')
		417	Left = 168
		418	Top = 344
		419	object qryBugsid: TAutoIncField
		420	FieldName = 'id'
		421	ReadOnly = True
		422	end
		423	object qryBugstitel: TStringField
		424	FieldName = 'titel'
		425	Size = 255
		426	end
		427	object qryBugsbeschreibung: TMemoField
		428	FieldName = 'beschreibung'
		429	BlobType = ftMemo
		430	end
		431	object qryBugserstellt: TDateTimeField
		432	FieldName = 'erstellt'
		433	end
		434	object qryBugswichtigkeit: TIntegerField
		435	FieldName = 'wichtigkeit'
		436	end
		437	object qryBugsbearbeiter: TIntegerField
		438	FieldName = 'bearbeiter'
		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
11	daniel-mar	456	object qryBugsstatus: TIntegerField
		457	FieldName = 'status'
		458	OnChange = qryBugsstatusChange
		459	end
		460	object qryBugsstatus_geaendert: TDateTimeField
		461	FieldName = 'status_geaendert'
		462	end
4	daniel-mar	463	end
		464	object dsVersionen: TDataSource
		465	DataSet = qryVersionen
		466	Left = 240
		467	Top = 312
		468	end
		469	object tblProjekte: TADOTable
		470	Active = True
		471	Connection = ADOConnection1
		472	CursorType = ctStatic
		473	TableName = 'projekte'
		474	Left = 272
		475	Top = 344
		476	end
		477	object dsProjekte: TDataSource
		478	DataSet = tblProjekte
		479	Left = 272
		480	Top = 312
		481	end
		482	object dsModule: TDataSource
		483	DataSet = qryModule
		484	Left = 304
		485	Top = 312
		486	end
		487	object Timer1: TTimer
		488	OnTimer = Timer1Timer
		489	Left = 128
		490	Top = 216
		491	end
		492	object qryVersionen: TADOQuery
		493	Active = True
		494	Connection = ADOConnection1
		495	CursorType = ctStatic
		496	AfterInsert = qryVersionenAfterInsert
		497	Parameters = <>
		498	SQL.Strings = (
		499	'SELECT * FROM versionen')
		500	Left = 240
		501	Top = 344
		502	end
		503	object qryModule: TADOQuery
		504	Active = True
		505	Connection = ADOConnection1
		506	CursorType = ctStatic
		507	AfterInsert = qryModuleAfterInsert
		508	Parameters = <>
		509	SQL.Strings = (
		510	'SELECT * FROM module')
		511	Left = 304
		512	Top = 344
		513	end
11	daniel-mar	514	object lkpStatus: TADOTable
		515	Active = True
		516	Connection = ADOConnection1
		517	CursorType = ctStatic
		518	TableName = 'lkp_status'
		519	Left = 344
		520	Top = 344
		521	end
		522	object dsStatus: TDataSource
		523	DataSet = lkpStatus
		524	Left = 344
		525	Top = 312
		526	end
4	daniel-mar	527	end

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm – Rev 11