Subversion Repositories winbugtracker

Compare Revisions

Regard whitespace Rev 1 → Rev 2

/trunk/WuLiMain.dfm
0,0 → 1,306
object Form1: TForm1
Left = 0
Top = 0
Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows'
ClientHeight = 440
ClientWidth = 691
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 247
Top = 53
Width = 50
Height = 13
Caption = 'Bearbeiter'
end
object Label2: TLabel
Left = 247
Top = 149
Width = 20
Height = 13
Caption = 'Titel'
end
object Label3: TLabel
Left = 472
Top = 53
Width = 33
Height = 13
Caption = 'Erstellt'
end
object Label4: TLabel
Left = 472
Top = 101
Width = 29
Height = 13
Caption = 'Gefixt'
end
object Label5: TLabel
Left = 247
Top = 101
Width = 28
Height = 13
Caption = 'Modul'
end
object Label6: TLabel
Left = 472
Top = 149
Width = 119
Height = 13
Caption = 'Ver'#246'ffentlicht als Version'
end
object DBNavigator1: TDBNavigator
Left = 247
Top = 16
Width = 224
Height = 25
DataSource = dsBugs
VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
TabOrder = 0
end
object DBRichEdit1: TDBRichEdit
Left = 247
Top = 208
Width = 402
Height = 209
DataField = 'beschreibung'
DataSource = dsBugs
TabOrder = 1
end
object DBGrid1: TDBGrid
Left = 8
Top = 47
Width = 233
Height = 370
DataSource = dsBugs
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'id'
Width = 46
Visible = True
end
item
Expanded = False
FieldName = 'titel'
Width = 111
Visible = True
end
item
Expanded = False
FieldName = 'wichtigkeit'
Width = 36
Visible = True
end>
end
object DBEdit1: TDBEdit
Left = 247
Top = 168
Width = 186
Height = 21
DataField = 'titel'
DataSource = dsBugs
TabOrder = 3
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 247
Top = 72
Width = 186
Height = 21
DataField = 'bearbeiter'
DataSource = dsBugs
KeyField = 'id'
ListField = 'name'
ListSource = dsMitarbeiter
TabOrder = 4
end
object DBEdit2: TDBEdit
Left = 472
Top = 72
Width = 121
Height = 21
Color = clBtnFace
DataField = 'erstellt'
DataSource = dsBugs
ReadOnly = True
TabOrder = 5
end
object DBEdit3: TDBEdit
Left = 472
Top = 120
Width = 121
Height = 21
Color = clBtnFace
DataField = 'fixdatum'
DataSource = dsBugs
ReadOnly = True
TabOrder = 6
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 247
Top = 120
Width = 186
Height = 21
DataField = 'modul'
DataSource = dsBugs
KeyField = 'id'
ListField = 'modul'
ListSource = dsModule
TabOrder = 7
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 472
Top = 168
Width = 121
Height = 21
DataField = 'version_release'
DataSource = dsBugs
KeyField = 'id'
ListField = 'version'
ListSource = dsVersionen
TabOrder = 8
end
object TrackBar1: TTrackBar
Left = 477
Top = 8
Width = 150
Height = 45
Position = 5
TabOrder = 9
OnChange = TrackBar1Change
end
object ComboBox1: TComboBox
Left = 8
Top = 8
Width = 233
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 10
Text = 'Meine offene Bugs (nach Wichtigkeit)'
Items.Strings = (
'Meine offene Bugs (nach Wichtigkeit)'
'Alle ofene Bugs (nach Wichtigkeit)'
'Gel'#246'st ohne Ver'#246'ffentlichung (nach L'#246'sungsdatum)'
'Gel'#246'st und Ver'#246'ffentlicht (nach Version und L'#246'sungsdatum)')
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' +
' RAS;Initial Catalog=bugtracker'
LoginPrompt = False
Left = 336
Top = 344
end
object dsBugs: TDataSource
DataSet = qryBugs
Left = 400
Top = 312
end
object tblMitarbeiter: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'mitarbeiter'
Left = 440
Top = 344
end
object dsMitarbeiter: TDataSource
DataSet = tblMitarbeiter
Left = 440
Top = 312
end
object MainMenu1: TMainMenu
Left = 640
Top = 48
object Stammdaten1: TMenuItem
Caption = 'Stammdaten'
object Mitarbeiter1: TMenuItem
Caption = 'Mitarbeiter'
OnClick = Mitarbeiter1Click
end
object Projekte1: TMenuItem
Caption = 'Projekte'
OnClick = Projekte1Click
end
object Module1: TMenuItem
Caption = 'Module'
OnClick = Module1Click
end
object Versionen1: TMenuItem
Caption = 'Versionen'
OnClick = Versionen1Click
end
end
end
object XPManifest1: TXPManifest
Left = 640
Top = 8
end
object qryBugs: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
AfterScroll = qryBugsAfterScroll
Parameters = <>
SQL.Strings = (
'SELECT * FROM bugs order by wichtigkeit')
Left = 400
Top = 344
end
object tblVersionen: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'versionen'
Left = 472
Top = 344
end
object dsVersionen: TDataSource
DataSet = tblVersionen
Left = 472
Top = 312
end
object tblProjekte: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'projekte'
Left = 504
Top = 344
end
object dsProjekte: TDataSource
DataSet = tblProjekte
Left = 504
Top = 312
end
object tblModule: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'module'
Left = 536
Top = 344
end
object dsModule: TDataSource
DataSet = tblModule
Left = 536
Top = 312
end
end