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

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

Subversion Repositories winbugtracker

winbugtracker/trunk/WuLiMain.dfm – Rev 3