/trunk/DBDateEdit.txt |
---|
File deleted |
/trunk/About.dfm |
---|
File deleted |
/trunk/bugtracker.ini |
---|
File deleted |
/trunk/Login.dfm |
---|
File deleted |
/trunk/About.pas |
---|
File deleted |
/trunk/Login.pas |
---|
File deleted |
/trunk/Mitarbeiter.dfm |
---|
21,7 → 21,7 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = frmBugtracker.dsMitarbeiter |
DataSource = Form1.dsMitarbeiter |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
/trunk/Module.dfm |
---|
21,7 → 21,7 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = frmBugtracker.dsModule |
DataSource = Form1.dsModule |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
/trunk/Projekte.dfm |
---|
21,7 → 21,7 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = frmBugtracker.dsProjekte |
DataSource = Form1.dsProjekte |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
/trunk/Versionen.dfm |
---|
21,7 → 21,7 |
Top = 8 |
Width = 257 |
Height = 233 |
DataSource = frmBugtracker.dsVersionen |
DataSource = Form1.dsVersionen |
TabOrder = 0 |
TitleFont.Charset = DEFAULT_CHARSET |
TitleFont.Color = clWindowText |
/trunk/WuLi.dpr |
---|
2,24 → 2,20 |
uses |
Forms, |
WuLiMain in 'WuLiMain.pas' {frmBugtracker}, |
WuLiMain in 'WuLiMain.pas' {Form1}, |
Mitarbeiter in 'Mitarbeiter.pas' {frmMitarbeiter}, |
Versionen in 'Versionen.pas' {frmVersionen}, |
Module in 'Module.pas' {frmModule}, |
Projekte in 'Projekte.pas' {frmProjekte}, |
Login in 'Login.pas' {frmLogin}, |
ABOUT in 'About.pas' {AboutBox}; |
Projekte in 'Projekte.pas' {frmProdukte}; |
{$R *.res} |
begin |
Application.Initialize; |
Application.CreateForm(TfrmBugtracker, frmBugtracker); |
Application.CreateForm(TForm1, Form1); |
Application.CreateForm(TfrmMitarbeiter, frmMitarbeiter); |
Application.CreateForm(TfrmVersionen, frmVersionen); |
Application.CreateForm(TfrmModule, frmModule); |
Application.CreateForm(TfrmProjekte, frmProjekte); |
Application.CreateForm(TfrmLogin, frmLogin); |
Application.CreateForm(TAboutBox, AboutBox); |
Application.CreateForm(TfrmProdukte, frmProdukte); |
Application.Run; |
end. |
/trunk/WuLiMain.dfm |
---|
1,9 → 1,9 |
object frmBugtracker: TfrmBugtracker |
object Form1: TForm1 |
Left = 0 |
Top = 0 |
Caption = 'ViaThinkSoft Bugtracker f'#252'r Windows' |
ClientHeight = 498 |
ClientWidth = 751 |
ClientHeight = 440 |
ClientWidth = 691 |
Color = clBtnFace |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
13,108 → 13,10 |
Menu = MainMenu1 |
OldCreateOrder = False |
Position = poScreenCenter |
OnCreate = FormCreate |
PixelsPerInch = 96 |
TextHeight = 13 |
object Splitter1: TSplitter |
Left = 249 |
Top = 0 |
Height = 498 |
ExplicitLeft = 0 |
ExplicitTop = 136 |
ExplicitHeight = 100 |
end |
object Panel1: TPanel |
Left = 0 |
Top = 0 |
Width = 249 |
Height = 498 |
Align = alLeft |
TabOrder = 0 |
ExplicitLeft = 256 |
ExplicitTop = 448 |
DesignSize = ( |
249 |
498) |
object DBGrid1: TDBGrid |
Left = 8 |
Top = 35 |
Width = 233 |
Height = 406 |
Anchors = [akLeft, akTop, akRight, akBottom] |
DataSource = dsBugs |
ReadOnly = True |
TabOrder = 0 |
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 ComboBox1: TComboBox |
Left = 8 |
Top = 8 |
Width = 233 |
Height = 21 |
Style = csDropDownList |
Anchors = [akLeft, akTop, akRight] |
ItemHeight = 13 |
ItemIndex = 0 |
TabOrder = 1 |
Text = 'Meine offenen Bugs (nach Wichtigkeit)' |
OnChange = ComboBox1Change |
Items.Strings = ( |
'Meine offenen Bugs (nach Wichtigkeit)' |
'Alle offenen 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)' |
'Alle Bugs (nach Er'#246'ffnungsdatum)') |
end |
object DBNavigator2: TDBNavigator |
Left = 11 |
Top = 456 |
Width = 232 |
Height = 25 |
DataSource = dsBugs |
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast] |
Anchors = [akLeft, akRight, akBottom] |
TabOrder = 2 |
end |
end |
object Panel2: TPanel |
Left = 252 |
Top = 0 |
Width = 499 |
Height = 498 |
Align = alClient |
TabOrder = 1 |
ExplicitLeft = 320 |
ExplicitTop = 8 |
ExplicitWidth = 441 |
DesignSize = ( |
499 |
498) |
object Label1: TLabel |
Left = 15 |
Left = 247 |
Top = 53 |
Width = 50 |
Height = 13 |
121,7 → 23,7 |
Caption = 'Bearbeiter' |
end |
object Label2: TLabel |
Left = 15 |
Left = 247 |
Top = 149 |
Width = 20 |
Height = 13 |
128,7 → 30,7 |
Caption = 'Titel' |
end |
object Label3: TLabel |
Left = 240 |
Left = 472 |
Top = 53 |
Width = 33 |
Height = 13 |
135,7 → 37,7 |
Caption = 'Erstellt' |
end |
object Label4: TLabel |
Left = 240 |
Left = 472 |
Top = 101 |
Width = 29 |
Height = 13 |
142,7 → 44,7 |
Caption = 'Gefixt' |
end |
object Label5: TLabel |
Left = 15 |
Left = 247 |
Top = 101 |
Width = 28 |
Height = 13 |
149,7 → 51,7 |
Caption = 'Modul' |
end |
object Label6: TLabel |
Left = 240 |
Left = 472 |
Top = 149 |
Width = 119 |
Height = 13 |
156,7 → 58,7 |
Caption = 'Ver'#246'ffentlicht als Version' |
end |
object DBNavigator1: TDBNavigator |
Left = 15 |
Left = 247 |
Top = 16 |
Width = 224 |
Height = 25 |
165,26 → 67,57 |
TabOrder = 0 |
end |
object DBRichEdit1: TDBRichEdit |
Left = 15 |
Top = 248 |
Width = 471 |
Height = 233 |
Anchors = [akLeft, akTop, akRight, akBottom] |
Left = 247 |
Top = 208 |
Width = 402 |
Height = 209 |
DataField = 'beschreibung' |
DataSource = dsBugs |
TabOrder = 9 |
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 = 15 |
Left = 247 |
Top = 168 |
Width = 186 |
Height = 21 |
DataField = 'titel' |
DataSource = dsBugs |
TabOrder = 5 |
TabOrder = 3 |
end |
object DBLookupComboBox1: TDBLookupComboBox |
Left = 15 |
Left = 247 |
Top = 72 |
Width = 186 |
Height = 21 |
193,35 → 126,32 |
KeyField = 'id' |
ListField = 'name' |
ListSource = dsMitarbeiter |
NullValueKey = 46 |
TabOrder = 1 |
TabOrder = 4 |
end |
object DBEdit2: TDBEdit |
Left = 240 |
Left = 472 |
Top = 72 |
Width = 155 |
Width = 121 |
Height = 21 |
TabStop = False |
Color = clBtnFace |
DataField = 'erstellt' |
DataSource = dsBugs |
ReadOnly = True |
TabOrder = 2 |
TabOrder = 5 |
end |
object DBEdit3: TDBEdit |
Left = 240 |
Left = 472 |
Top = 120 |
Width = 155 |
Width = 121 |
Height = 21 |
TabStop = False |
Color = clBtnFace |
DataField = 'fixdatum' |
DataSource = dsBugs |
ReadOnly = True |
TabOrder = 4 |
TabOrder = 6 |
end |
object DBLookupComboBox2: TDBLookupComboBox |
Left = 15 |
Left = 247 |
Top = 120 |
Width = 186 |
Height = 21 |
230,13 → 160,12 |
KeyField = 'id' |
ListField = 'modul' |
ListSource = dsModule |
NullValueKey = 46 |
TabOrder = 3 |
TabOrder = 7 |
end |
object DBLookupComboBox3: TDBLookupComboBox |
Left = 240 |
Left = 472 |
Top = 168 |
Width = 155 |
Width = 121 |
Height = 21 |
DataField = 'version_release' |
DataSource = dsBugs |
243,35 → 172,33 |
KeyField = 'id' |
ListField = 'version' |
ListSource = dsVersionen |
TabOrder = 6 |
TabOrder = 8 |
end |
object TrackBar1: TTrackBar |
Left = 245 |
Left = 477 |
Top = 8 |
Width = 164 |
Width = 150 |
Height = 45 |
Position = 5 |
TabOrder = 10 |
TabOrder = 9 |
OnChange = TrackBar1Change |
end |
object btnFixedToggle: TButton |
Left = 401 |
Top = 118 |
Width = 72 |
Height = 25 |
Caption = 'Umschalten' |
TabOrder = 8 |
OnClick = btnFixedToggleClick |
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 btnBearbeitungsnotiz: TButton |
Left = 16 |
Top = 208 |
Width = 185 |
Height = 25 |
Caption = 'Bearbeitungsnotiz hinzuf'#252'gen' |
TabOrder = 7 |
end |
end |
object ADOConnection1: TADOConnection |
Connected = True |
ConnectionString = |
278,12 → 205,12 |
'Provider=MSDASQL.1;Persist Security Info=False;Data Source=MySQL' + |
' RAS;Initial Catalog=bugtracker' |
LoginPrompt = False |
Left = 104 |
Left = 336 |
Top = 344 |
end |
object dsBugs: TDataSource |
DataSet = qryBugs |
Left = 168 |
Left = 400 |
Top = 312 |
end |
object tblMitarbeiter: TADOTable |
291,17 → 218,17 |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'mitarbeiter' |
Left = 208 |
Left = 440 |
Top = 344 |
end |
object dsMitarbeiter: TDataSource |
DataSet = tblMitarbeiter |
Left = 208 |
Left = 440 |
Top = 312 |
end |
object MainMenu1: TMainMenu |
Left = 88 |
Top = 216 |
Left = 640 |
Top = 48 |
object Stammdaten1: TMenuItem |
Caption = 'Stammdaten' |
object Mitarbeiter1: TMenuItem |
321,79 → 248,33 |
OnClick = Versionen1Click |
end |
end |
object Projektwechseln1: TMenuItem |
Caption = 'Projekt wechseln' |
OnClick = Projektwechseln1Click |
end |
object Hilfe1: TMenuItem |
Caption = 'Hilfe' |
object ber1: TMenuItem |
Caption = #220'ber' |
OnClick = ber1Click |
end |
end |
end |
object XPManifest1: TXPManifest |
Left = 48 |
Top = 216 |
Left = 640 |
Top = 8 |
end |
object qryBugs: TADOQuery |
Active = True |
Connection = ADOConnection1 |
CursorType = ctStatic |
AfterInsert = qryBugsAfterInsert |
AfterScroll = qryBugsAfterScroll |
Parameters = <> |
SQL.Strings = ( |
'SELECT * FROM bugs order by wichtigkeit') |
Left = 168 |
Left = 400 |
Top = 344 |
object qryBugsid: TAutoIncField |
FieldName = 'id' |
ReadOnly = True |
end |
object qryBugstitel: TStringField |
FieldName = 'titel' |
Size = 255 |
end |
object qryBugsbeschreibung: TMemoField |
FieldName = 'beschreibung' |
BlobType = ftMemo |
end |
object qryBugserstellt: TDateTimeField |
FieldName = 'erstellt' |
end |
object qryBugswichtigkeit: TIntegerField |
FieldName = 'wichtigkeit' |
end |
object qryBugsbearbeiter: TIntegerField |
FieldName = 'bearbeiter' |
end |
object qryBugsfixdatum: TDateTimeField |
FieldName = 'fixdatum' |
end |
object qryBugsversion_release: TIntegerField |
FieldName = 'version_release' |
OnValidate = qryBugsversion_releaseValidate |
end |
object qryBugsmodul: TIntegerField |
FieldName = 'modul' |
end |
object qryBugsprojekt: TIntegerField |
FieldName = 'projekt' |
end |
end |
object tblVersionen: TADOTable |
Active = True |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'versionen' |
Left = 240 |
Left = 472 |
Top = 344 |
end |
object dsVersionen: TDataSource |
DataSet = tblVersionen |
Left = 240 |
Left = 472 |
Top = 312 |
end |
object tblProjekte: TADOTable |
401,12 → 282,12 |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'projekte' |
Left = 272 |
Left = 504 |
Top = 344 |
end |
object dsProjekte: TDataSource |
DataSet = tblProjekte |
Left = 272 |
Left = 504 |
Top = 312 |
end |
object tblModule: TADOTable |
414,17 → 295,12 |
Connection = ADOConnection1 |
CursorType = ctStatic |
TableName = 'module' |
Left = 304 |
Left = 536 |
Top = 344 |
end |
object dsModule: TDataSource |
DataSet = tblModule |
Left = 304 |
Left = 536 |
Top = 312 |
end |
object Timer1: TTimer |
OnTimer = Timer1Timer |
Left = 128 |
Top = 216 |
end |
end |
/trunk/WuLiMain.pas |
---|
1,17 → 1,5 |
unit WuLiMain; |
(* |
* TODO: |
* - fertigstellen |
* ... multi user/projekt testen |
* ... bearbeitungsnotiz-button (rtf-farben usw) |
* ... |
* - abfragen ob speichern wenn fenster geschlossen wird |
* - filtern nach modul |
* - verbinden mit ticketsystem von HS |
* - rtf controls? |
*) |
interface |
uses |
20,40 → 8,29 |
ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan; |
type |
TfrmBugtracker = class(TForm) |
Panel1: TPanel; |
DBGrid1: TDBGrid; |
ComboBox1: TComboBox; |
DBNavigator2: TDBNavigator; |
Panel2: TPanel; |
Label1: TLabel; |
Label2: TLabel; |
Label3: TLabel; |
Label4: TLabel; |
Label5: TLabel; |
Label6: TLabel; |
TForm1 = class(TForm) |
ADOConnection1: TADOConnection; |
dsBugs: TDataSource; |
DBNavigator1: TDBNavigator; |
DBRichEdit1: TDBRichEdit; |
DBGrid1: TDBGrid; |
DBEdit1: TDBEdit; |
DBLookupComboBox1: TDBLookupComboBox; |
DBEdit2: TDBEdit; |
DBEdit3: TDBEdit; |
DBLookupComboBox2: TDBLookupComboBox; |
DBLookupComboBox3: TDBLookupComboBox; |
TrackBar1: TTrackBar; |
ADOConnection1: TADOConnection; |
dsBugs: TDataSource; |
tblMitarbeiter: TADOTable; |
dsMitarbeiter: TDataSource; |
Label1: TLabel; |
Label2: TLabel; |
MainMenu1: TMainMenu; |
Stammdaten1: TMenuItem; |
Mitarbeiter1: TMenuItem; |
Projekte1: TMenuItem; |
Module1: TMenuItem; |
Versionen1: TMenuItem; |
Projektwechseln1: TMenuItem; |
XPManifest1: TXPManifest; |
qryBugs: TADOQuery; |
DBEdit2: TDBEdit; |
DBEdit3: TDBEdit; |
Label3: TLabel; |
Label4: TLabel; |
tblVersionen: TADOTable; |
dsVersionen: TDataSource; |
tblProjekte: TADOTable; |
60,188 → 37,75 |
dsProjekte: TDataSource; |
tblModule: TADOTable; |
dsModule: TDataSource; |
Timer1: TTimer; |
Splitter1: TSplitter; |
Hilfe1: TMenuItem; |
ber1: TMenuItem; |
btnFixedToggle: TButton; |
btnBearbeitungsnotiz: TButton; |
qryBugsid: TAutoIncField; |
qryBugstitel: TStringField; |
qryBugsbeschreibung: TMemoField; |
qryBugserstellt: TDateTimeField; |
qryBugswichtigkeit: TIntegerField; |
qryBugsbearbeiter: TIntegerField; |
qryBugsfixdatum: TDateTimeField; |
qryBugsversion_release: TIntegerField; |
qryBugsmodul: TIntegerField; |
qryBugsprojekt: TIntegerField; |
Versionen1: TMenuItem; |
DBLookupComboBox2: TDBLookupComboBox; |
Label5: TLabel; |
DBLookupComboBox3: TDBLookupComboBox; |
Label6: TLabel; |
TrackBar1: TTrackBar; |
ComboBox1: TComboBox; |
procedure Mitarbeiter1Click(Sender: TObject); |
procedure DateTimePicker1CloseUp(Sender: TObject); |
procedure qryBugsAfterScroll(DataSet: TDataSet); |
procedure Module1Click(Sender: TObject); |
procedure Projekte1Click(Sender: TObject); |
procedure Versionen1Click(Sender: TObject); |
procedure TrackBar1Change(Sender: TObject); |
procedure Timer1Timer(Sender: TObject); |
procedure ComboBox1Change(Sender: TObject); |
procedure Projektwechseln1Click(Sender: TObject); |
procedure qryBugsAfterInsert(DataSet: TDataSet); |
procedure ber1Click(Sender: TObject); |
procedure btnFixedToggleClick(Sender: TObject); |
procedure qryBugsversion_releaseValidate(Sender: TField); |
procedure FormCreate(Sender: TObject); |
private |
{ Private-Deklarationen } |
public |
{ Public-Deklarationen } |
eingeloggtMitarbeiter: integer; |
aktuellesProjekt: integer; |
procedure NeuFiltern; |
end; |
var |
frmBugtracker: TfrmBugtracker; |
Form1: TForm1; |
implementation |
uses Mitarbeiter, Module, Versionen, Projekte, Login, About, inifiles; |
uses Mitarbeiter, Module, Versionen, Projekte; |
{$R *.dfm} |
procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet); |
procedure TForm1.qryBugsAfterScroll(DataSet: TDataSet); |
begin |
// Standardwerte für einen neuen Bug |
qryBugs.FieldByName('wichtigkeit').AsInteger := 5; |
// qryBugs.FieldByName('bearbeiter').AsInteger := eingeloggtMitarbeiter; |
qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt; |
// DateTimePicker1.DateTime := qryBugs.FieldByName('fixdatum').AsDateTime; |
// TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger; |
end; |
procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet); |
var |
bakEvent: TNotifyEvent; |
procedure TForm1.TrackBar1Change(Sender: TObject); |
begin |
bakEvent := TrackBar1.OnChange; |
TrackBar1.OnChange := nil; |
try |
TrackBar1.Position := qryBugs.FieldByName('wichtigkeit').AsInteger; |
finally |
TrackBar1.OnChange := bakEvent; |
end; |
end; |
procedure TfrmBugtracker.qryBugsversion_releaseValidate(Sender: TField); |
begin |
if qryBugs.FieldByName('fixdatum').IsNull then |
begin |
raise Exception.Create('Vor einer Veröffentlichung muss der Bugfix erst als gefixt markiert werden.'); |
end; |
end; |
procedure TfrmBugtracker.Timer1Timer(Sender: TObject); |
begin |
Timer1.Enabled := false; |
if frmLogin.ShowModal = mrCancel then Close; |
end; |
procedure TfrmBugtracker.TrackBar1Change(Sender: TObject); |
begin |
if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit; |
qryBugs.FieldByName('wichtigkeit').AsInteger := TrackBar1.Position; |
end; |
procedure TfrmBugtracker.Versionen1Click(Sender: TObject); |
procedure TForm1.Versionen1Click(Sender: TObject); |
begin |
frmVersionen.ShowModal; |
end; |
procedure TfrmBugtracker.ber1Click(Sender: TObject); |
procedure TForm1.DateTimePicker1CloseUp(Sender: TObject); |
begin |
AboutBox.ShowModal; |
end; |
procedure TfrmBugtracker.btnFixedToggleClick(Sender: TObject); |
begin |
(* |
LockWindowUpdate(DBGrid1.Handle); |
if not (qryBugs.State in [dsEdit, dsInsert]) then qryBugs.Edit; |
if qryBugs.FieldByName('fixdatum').IsNull then |
qryBugs.FieldByName('fixdatum').AsDateTime := Now |
else |
qryBugs.FieldByName('fixdatum').Clear; |
qryBugs.FieldByName('fixdatum').AsDateTime := DateTimePicker1.DateTime; |
LockWindowUpdate(0); |
*) |
end; |
procedure TfrmBugtracker.ComboBox1Change(Sender: TObject); |
procedure TForm1.Mitarbeiter1Click(Sender: TObject); |
begin |
case ComboBox1.ItemIndex of |
0: |
begin |
// Meine offenen Bugs (nach Wichtigkeit) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NULL AND bearbeiter = '+IntToStr(eingeloggtMitarbeiter)+' ORDER BY wichtigkeit DESC'; |
end; |
1: |
begin |
// Alle offenen Bugs (nach Wichtigkeit) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NULL ORDER BY wichtigkeit DESC'; |
end; |
2: |
begin |
// Gelöst ohne Veröffentlichung (nach Lösungsdatum) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NOT NULL ORDER BY fixdatum DESC'; |
end; |
3: |
begin |
// Gelöst und Veröffentlicht (nach Version und Lösungsdatum) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' AND fixdatum IS NOT NULL ORDER BY version_release DESC, fixdatum DESC'; |
end; |
4: |
begin |
// Alle Bugs (nach Eröffnungsdatum) |
qryBugs.SQL.Text := 'SELECT * FROM bugs WHERE projekt = '+IntToStr(aktuellesProjekt)+' ORDER BY erstellt DESC'; |
end; |
end; |
qryBugs.Active := true; |
end; |
procedure TfrmBugtracker.FormCreate(Sender: TObject); |
var |
ini: TMemIniFile; |
begin |
ini := TMemIniFile.Create('bugtracker.ini'); |
try |
ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', ''); |
finally |
ini.Free; |
end; |
ADOConnection1.Connected := true; |
qryBugs.Active := true; |
tblMitarbeiter.Active := true; |
tblVersionen.Active := true; |
tblProjekte.Active := true; |
tblModule.Active := true; |
end; |
procedure TfrmBugtracker.Mitarbeiter1Click(Sender: TObject); |
begin |
frmMitarbeiter.ShowModal; |
end; |
procedure TfrmBugtracker.Module1Click(Sender: TObject); |
procedure TForm1.Module1Click(Sender: TObject); |
begin |
frmModule.ShowModal; |
end; |
procedure TfrmBugtracker.NeuFiltern; |
procedure TForm1.Projekte1Click(Sender: TObject); |
begin |
ComboBox1Change(ComboBox1); |
end; |
procedure TfrmBugtracker.Projekte1Click(Sender: TObject); |
begin |
frmProjekte.ShowModal; |
end; |
procedure TfrmBugtracker.Projektwechseln1Click(Sender: TObject); |
begin |
frmLogin.ShowModal; |
end; |
end. |
/trunk/. |
---|
Property changes: |
Modified: svn:ignore |
*.exe |
__history |
*.local |
-*.identcache |