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

Subversion Repositories winbugtracker

winbugtracker/trunk/BugtrackerMain.dfm – Rev 5