| 0,0 → 1,68 |
|---|
| unit Login; |
| |
| interface |
| |
| uses |
| Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
| Dialogs, StdCtrls, DBCtrls, DB, DBClient; |
| |
| type |
| TfrmLogin = class(TForm) |
| Label1: TLabel; |
| GroupBox1: TGroupBox; |
| GroupBox2: TGroupBox; |
| Label2: TLabel; |
| Label3: TLabel; |
| Button1: TButton; |
| cbxMitarbeiter: TDBLookupComboBox; |
| cbxProjekt: TDBLookupComboBox; |
| procedure Label2Click(Sender: TObject); |
| procedure Label3Click(Sender: TObject); |
| procedure Button1Click(Sender: TObject); |
| private |
| { Private-Deklarationen } |
| public |
| { Public-Deklarationen } |
| end; |
| |
| var |
| frmLogin: TfrmLogin; |
| |
| implementation |
| |
| uses |
| WuLiMain, Mitarbeiter, Projekte; |
| |
| {$R *.dfm} |
| |
| procedure TfrmLogin.Button1Click(Sender: TObject); |
| begin |
| if VarIsNull(cbxMitarbeiter.KeyValue) then |
| begin |
| ShowMessage('Bitte Mitarbeiter auswählen.'); |
| cbxMitarbeiter.SetFocus; |
| Exit; |
| end; |
| if VarIsNull(cbxProjekt.KeyValue) then |
| begin |
| ShowMessage('Bitte Projekt auswählen.'); |
| cbxProjekt.SetFocus; |
| Exit; |
| end; |
| frmBugtracker.eingeloggtMitarbeiter := cbxMitarbeiter.KeyValue; |
| frmBugtracker.aktuellesProjekt := cbxProjekt.KeyValue; |
| frmBugtracker.NeuFiltern; |
| ModalResult := mrOk; // Das schließt den Dialog |
| end; |
| |
| procedure TfrmLogin.Label2Click(Sender: TObject); |
| begin |
| frmMitarbeiter.ShowModal; |
| end; |
| |
| procedure TfrmLogin.Label3Click(Sender: TObject); |
| begin |
| frmProjekte.ShowModal; |
| end; |
| |
| end. |