DB-Login-Namen automatisch in Tabelle eintragen lassen

peppi · Beiträge: 65 delphi 7

Hallo,

ich hab ein Programm an dem verschiedene Mitarbeiter arbeiten. Um Daten eintragen zu können müssen sich die Mitarbeiter natürlich vorher bei der DB anmelden. In der Tabelle in der sie die Daten eingeben, ist ebenfalls eine Spalte "MITARBEITER" in der nun automatisch der jeweilige Login-Name eingetragen werden soll. Gibts da irgendwie ne Prozedur oder sowas für?? Wäre für jeden Tip dankbar!!

LG

Jana!

LCS · Verfasst: Mo 25.11.02 12:40

Hi
du könntest z. B. das OnNewRecord Ereigniss dazu verwenden, den aktuellen Login-Namen in das entsprechende Tabellenfeld zu schreiben.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

peppi · Beiträge: 65 delphi 7

Hi Lothar,

also die Online-Hilfe dazu find ich ehrlich gesagt nicht unbedingt hilfreich ... wie soll das denn in der Anwendung aussehen?? Also der Anfang sicher so ...

markieren

Quelltext

1:
2:
3:
4:

procedure TForm1.table1NewRecord(DataSet: TDataSet);
begin
 table1.active := false
 ...

aber wie selektiere ich dazwischen nun den Login-Namen??

LCS · Verfasst: Mo 25.11.02 14:45

Hi
OnNewRecord wird jedesmal dann ausgelöst, wenn ein neuer Datensatz für die Tabelle erzeugt wird. Innerhalb der Routine hast du die Möglichkeit die Felder des neuen Satzes zu füllen bzw. zu initialisieren bevor ihn der Anwender überhaupt zu Gesicht bekommt.

markieren

Quelltext

1:
2:
3:
4:

procedure TForm1.table1NewRecord(DataSet: TDataSet); 
begin 
  table1.FieldByName('Mitarbeiter').Value := Mitarbeiterkennung;
end;

Die Mitarbeiterkennung wäre die Eingabe des Mitarbeiters von der Anmeldung.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme