Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var B,P :string
begin
// waqs ist edit2 oder edit1 denn nu loginname oder datum ?? emienr meinung nach weg
if (Edit2.Text <> DateToStr(Date)) or (Edit1.Text <> FormatdateTime('dddd',Now)) then
begin
Table1.Open;
//Benutzer wird gesucht
if Table1.Locate('Benutzername',Edit1.Text, [LoCaseInsensitive])= True then
begin
//lasse dir hier den benutzernamen und dass paswort mal in einem label ausgeben um zu prüfen was er da eigebdlch rausholt
B
Ich werde dir mal ein ganz einfaches loginscript schreiben.. das du denn von dir aus weiterentwickeln kannst....
Es wird im laufe des tages mal hochgeladen