Allgemeine Fragen zu Access + Delphi

[Sharky]

Hai Saulo,

hier ersteinmal der "wichtigste" Teil:

Delphi-Quellcode:

function username: boolean;
begin
  Datamodule2.qryUser.Close;
  DataModule2.qryUser.SQL.Clear;
  DataModule2.qryUser.SQL.Add('SELECT Username FROM TUser WHERE Username =' + QuotedStr(Form3.Edit1.Text));
  DataModule2.qryUser.Open;
  if (DataModul2.qryUser.RecordCount = 0) then
   begin
    result := false;
   end
  else
   begin
    result := true;
   end;
  // Als Alternative zu der if Abfrage kannst Du auch:
  // result := Not (DataModul2.qryUser.RecordCount = 0);
  // schreiben.
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
 if (username) then
  begin
   ShowMessage('Der Username ist bereits vergeben!')
  end
 else
  begin
  end;

result enthält den Rückgabewert einer Funktion.

Den Rest habe ich ersteinmal weg gelassen.

Frage: Wie gibt der Anwender Name, Telefon usw. ein?
Werden die Daten in "einfache" TEdit eingegeben?

Deinen code kann man dann nämlich noch um einiges leichter und übersichtlicher machen!