Subversion Repositories winbugtracker

Rev

Rev 5 | Rev 7 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line 19... Line 19...
19 
 
 19 
 
20 
interface
 20 
interface
21 
 
 21 
 
22 
uses
 22 
uses
23 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 23 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
24 
  Dialogs, DBXpress, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
 24 
  Dialogs, WideStrings, DB, SqlExpr, StdCtrls, ExtCtrls, DBCtrls,
25 
  ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;
 25 
  ADODB, ComCtrls, Grids, DBGrids, Mask, Menus, XPMan;
26 
 
 26 
 
27 
type
 27 
type
28 
  TfrmBugtracker = class(TForm)
 28 
  TfrmBugtracker = class(TForm)
29 
    Panel1: TPanel;
 29 
    Panel1: TPanel;
Line 82... Line 82...
82 
    qryVersionen: TADOQuery;
 82 
    qryVersionen: TADOQuery;
83 
    qryModule: TADOQuery;
 83 
    qryModule: TADOQuery;
84 
    LblAngemeldet: TLabel;
 84 
    LblAngemeldet: TLabel;
85 
    Label7: TLabel;
 85 
    Label7: TLabel;
86 
    Label8: TLabel;
 86 
    Label8: TLabel;
- 
 
 87 
    DBLookupComboBox4: TDBLookupComboBox;
- 
 
 88 
    qryBugserfasser: TIntegerField;
- 
 
 89 
    qryBugsversion_agenda: TIntegerField;
- 
 
 90 
    Label9: TLabel;
- 
 
 91 
    cbxErfasser: TDBLookupComboBox;
- 
 
 92 
    Label10: TLabel;
87 
    procedure Mitarbeiter1Click(Sender: TObject);
 93 
    procedure Mitarbeiter1Click(Sender: TObject);
88 
    procedure qryBugsAfterScroll(DataSet: TDataSet);
 94 
    procedure qryBugsAfterScroll(DataSet: TDataSet);
89 
    procedure Module1Click(Sender: TObject);
 95 
    procedure Module1Click(Sender: TObject);
90 
    procedure Projekte1Click(Sender: TObject);
 96 
    procedure Projekte1Click(Sender: TObject);
91 
    procedure Versionen1Click(Sender: TObject);
 97 
    procedure Versionen1Click(Sender: TObject);
Line 120... Line 126...
120 
{$R *.dfm}
 126 
{$R *.dfm}
121 
 
 127 
 
122 
procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);
 128 
procedure TfrmBugtracker.qryBugsAfterInsert(DataSet: TDataSet);
123 
begin
 129 
begin
124 
  // Standardwerte für einen neuen Bug
 130 
  // Standardwerte für einen neuen Bug
125 
  qryBugs.FieldByName('wichtigkeit').AsInteger := 5;
 131 
  qryBugs.FieldByName('wichtigkeit').AsInteger := 5; // Mitte
- 
 
 132 
  qryBugs.FieldByName('erstellt').AsDateTime := Now;
- 
 
 133 
  qryBugs.FieldByName('erfasser').AsInteger := eingeloggtMitarbeiter;
126 
  // qryBugs.FieldByName('bearbeiter').AsInteger := eingeloggtMitarbeiter;
 134 
  // qryBugs.FieldByName('bearbeiter').AsInteger := eingeloggtMitarbeiter;
127 
  qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
 135 
  qryBugs.FieldByName('projekt').AsInteger := aktuellesProjekt;
128 
end;
 136 
end;
129 
 
 137 
 
130 
procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);
 138 
procedure TfrmBugtracker.qryBugsAfterScroll(DataSet: TDataSet);
Line 238... Line 246...
238 
var
 246 
var
239 
  ini: TMemIniFile;
 247 
  ini: TMemIniFile;
240 
begin
 248 
begin
241 
  ini := TMemIniFile.Create('bugtracker.ini');
 249 
  ini := TMemIniFile.Create('bugtracker.ini');
242 
  try
 250 
  try
- 
 
 251 
    ADOConnection1.Connected := false;
243 
    ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');
 252 
    ADOConnection1.ConnectionString := ini.ReadString('Database', 'ConnectionString', '');
244 
  finally
 253 
  finally
245 
    ini.Free;
 254 
    ini.Free;
246 
  end;
 255 
  end;
247 
 
 256