password fra database

Sætte noget ind:
DB.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DinDatabase.mdb;Persist Security Info=False';
      DB.Close;
      DB.CommandText := 'Select * from online';
      DB.Open;
      DB.Insert;
      DB.Fields[0].AsString := 'det der skal ind'; // Sætter ind
      DB.Post


Mht. til Logindelen. Så kan du sætte denne funktion ind:
function Tform1.UserOK(Username, Password: string): boolean;
begin
  DB.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dindatabase.mdb;Persist Security Info=False';
  DB.Close;
  DB.CommandText := 'Select * from users where username = ''' + Username + '''';
  DB.Open;
  if (DB.RecordCount = 0) or (DB.Fields[1].Text <> Password) then
  result := false else result := true;
end;
--- og så den linje der kører funktionen.

if UserOK('username', 'password') then
    begin
det som den skal gøre hvis brugeren eksisterede
end
else
begin
// Sender ud til clienten er at hans user og pass ikke er korrekt
showmessage('wrong');
end;
end;   
end;

og lige et svar

Fin kode du har der topsite....

;)

topsite.

Jeg kan ikke lige se hvordan jeg skal gøre. kan du give en mere præsis instruction til det.

michael

Lad du hellere dkn end det ;)
det er mere hans kode end min!
men ellers slask mig din mail, så kan jeg sende nogle los'exemplers

dkn.

Kan du fortælle mig en meget nem måde at lave den login form som køre via en database.
helst helt ned i detaljer så jeg har noget at arbejde efter hvad siger du til det...

-michael-

jeg kan nok godt lave en demo til dig. hvor mange point kan jeg få for det?

dkn.

skal vi sige 60 poit hvis den virker??

-michael-

www.asdev.dk/Files/db_demo.zip

Michael -> ER det okay?

dkn.

Jeg har afprøvet den. Men når jeg åbner selve projectet i delphi så kommer der ingen form eller noget. kun selve text editoren.
hvorfor gør den det??

Hvorfor jeg siger det. er at jeg gerne ville ind og se hvordan du havde bygget den op. Så jeg kunne lære noget af det.

åben filen: Project1.dpr
tryk shift+F12 og så enter, så skulle du kunne se den.

dkn.

desværre så sker der ikke noget. hvad skal man så gøre

har du en mail så jeg kan sende projected til dig? det kan være winzip lavede en fejl...det skulle virke

dkn.

ja min e.mail er postmaster@masterfun.dk

Jeg er dig taknemlig over at du vil hjælpe mig på denne måde..

-michael-

dkn.

Desværre kan jeg stadigvæk ikke se formen. hvad skal jeg så gøre.
Kan du ikke beskrive hvilke data access og data controls du har brugt.
Så kan det jo være jeg kan finde ud af det selv. Men det kræver sikker lidt vejledning endnu. Håber du kan bære over med det...

MvH. Michael

hvilken version har du af delphi?
Det skulle være muligt hvis du går op i menuen -> View -> Forms...

Hvis du klikker der skulle der komme en ny dialog frem hvor du kan vælge hvilken form du vile se, og da der kun er en skal du jo bare klikke Ok. Håber det virker for dig :)

Jeg har Delphi 3. det virker desværre ikke

dkn jeg har lige fået delphi 6 så kan det være at det virker nu...