Subversion Repositories winbugtracker

Rev

Rev 3 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 4
1 
unit Login;
 1 
unit Login;
2 
 
 2 
 
3 
interface
 3 
interface
4 
 
 4 
 
5 
uses
 5 
uses
6 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 6 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 
  Dialogs, StdCtrls, DBCtrls, DB, DBClient;
 7 
  Dialogs, StdCtrls, DBCtrls, DB, DBClient;
8 
 
 8 
 
9 
type
 9 
type
10 
  TfrmLogin = class(TForm)
 10 
  TfrmLogin = class(TForm)
11 
    Label1: TLabel;
 11 
    Label1: TLabel;
12 
    GroupBox1: TGroupBox;
 12 
    GroupBox1: TGroupBox;
13 
    GroupBox2: TGroupBox;
 13 
    GroupBox2: TGroupBox;
14 
    Label2: TLabel;
 14 
    Label2: TLabel;
15 
    Label3: TLabel;
 15 
    Label3: TLabel;
16 
    Button1: TButton;
 16 
    Button1: TButton;
17 
    cbxMitarbeiter: TDBLookupComboBox;
 17 
    cbxMitarbeiter: TDBLookupComboBox;
18 
    cbxProjekt: TDBLookupComboBox;
 18 
    cbxProjekt: TDBLookupComboBox;
19 
    procedure Label2Click(Sender: TObject);
 19 
    procedure Label2Click(Sender: TObject);
20 
    procedure Label3Click(Sender: TObject);
 20 
    procedure Label3Click(Sender: TObject);
21 
    procedure Button1Click(Sender: TObject);
 21 
    procedure Button1Click(Sender: TObject);
22 
  private
 22 
  private
23 
    { Private-Deklarationen }
 23 
    { Private-Deklarationen }
24 
  public
 24 
  public
25 
    { Public-Deklarationen }
 25 
    { Public-Deklarationen }
26 
  end;
 26 
  end;
27 
 
 27 
 
28 
var
 28 
var
29 
  frmLogin: TfrmLogin;
 29 
  frmLogin: TfrmLogin;
30 
 
 30 
 
31 
implementation
 31 
implementation
32 
 
 32 
 
33 
uses
 33 
uses
34 
  WuLiMain, Mitarbeiter, Projekte;
 34 
  BugtrackerMain, Mitarbeiter, Projekte;
35 
 
 35 
 
36 
{$R *.dfm}
 36 
{$R *.dfm}
37 
 
 37 
 
38 
procedure TfrmLogin.Button1Click(Sender: TObject);
 38 
procedure TfrmLogin.Button1Click(Sender: TObject);
39 
begin
 39 
begin
40 
  if VarIsNull(cbxMitarbeiter.KeyValue) then
 40 
  if VarIsNull(cbxMitarbeiter.KeyValue) then
41 
  begin
 41 
  begin
42 
    ShowMessage('Bitte Mitarbeiter auswählen.');
 42 
    ShowMessage('Bitte Mitarbeiter auswählen.');
43 
    cbxMitarbeiter.SetFocus;
 43 
    cbxMitarbeiter.SetFocus;
44 
    Exit;
 44 
    Exit;
45 
  end;
 45 
  end;
46 
  if VarIsNull(cbxProjekt.KeyValue) then
 46 
  if VarIsNull(cbxProjekt.KeyValue) then
47 
  begin
 47 
  begin
48 
    ShowMessage('Bitte Projekt auswählen.');
 48 
    ShowMessage('Bitte Projekt auswählen.');
49 
    cbxProjekt.SetFocus;
 49 
    cbxProjekt.SetFocus;
50 
    Exit;
 50 
    Exit;
51 
  end;
 51 
  end;
52 
  frmBugtracker.eingeloggtMitarbeiter := cbxMitarbeiter.KeyValue;
 52 
  frmBugtracker.eingeloggtMitarbeiter := cbxMitarbeiter.KeyValue;
53 
  frmBugtracker.aktuellesProjekt := cbxProjekt.KeyValue;
 53 
  frmBugtracker.aktuellesProjekt := cbxProjekt.KeyValue;
54 
  frmBugtracker.NeuFiltern;
 54 
  frmBugtracker.NeuFiltern;
55 
  ModalResult := mrOk; // Das schließt den Dialog
 55 
  ModalResult := mrOk; // Das schließt den Dialog
56 
end;
 56 
end;
57 
 
 57 
 
58 
procedure TfrmLogin.Label2Click(Sender: TObject);
 58 
procedure TfrmLogin.Label2Click(Sender: TObject);
59 
begin
 59 
begin
60 
  frmMitarbeiter.ShowModal;
 60 
  frmMitarbeiter.ShowModal;
61 
end;
 61 
end;
62 
 
 62 
 
63 
procedure TfrmLogin.Label3Click(Sender: TObject);
 63 
procedure TfrmLogin.Label3Click(Sender: TObject);
64 
begin
 64 
begin
65 
  frmProjekte.ShowModal;
 65 
  frmProjekte.ShowModal;
66 
end;
 66 
end;
67 
 
 67 
 
68 
end.
 68 
end.
69 
 
 69