Datenbank- Quiz programmieren

[Klaus01]

so das ganze auf zwei Buttons verteilt.

Delphi-Quellcode:

procedure TFormle.ButtonstartClick(Sender: TObject);
begin
  if lb.ItemIndex >= 0 then
    begin
     rg.Visible:=true;
     Datamodule1.ADOQuery6.SQL.Clear;
     Datamodule1.ADOQuery6.SQL.Text:='SELECT Frage, L1, L2, L3 FROM Fragen WHERE Fach = ' +#39+lb.Items.Strings[lb.ItemIndex]+#39 +
                                    ' AND Schwierigkeit="1";';
     Datamodule1.ADOQuery6.Open;
    end
  else
    begin
      application.MessageBox('Auswahlfehler!','Fehler');
    end;
end;

procedure TFormle.ButtonnextClick(Sender: TObject);
var
  rb: TRadioButton;
begin
  if not Datamodule1.ADOQuery6.Eof then
    begin
      //Frage in "Titel"
      rg.Caption:= trim(Datamodule1.ADOQuery6.FieldByName('Frage').AsString);
      //Antworten in Radiobuttons
      rg.Items.Clear;
      rg.Items.Add(trim(Datamodule1.ADOQuery6.FieldByName('L1').AsString));
      rg.Items.Add(trim(Datamodule1.ADOQuery6.FieldByName('L2').AsString));
      rg.Items.Add(trim(Datamodule1.ADOQuery6.FieldByName('L3').AsString));
      Datamodule1.ADOQuery6.Next;
    end
  else
    begin
      application.MessageBox('Auswahlfehler!','Fehler');
    end;
end;

Dann muss zuerst der Start-Knopf betätigt werden (sieht optisch noch nicht gut aus)
Auch könnte man beim Start schon den ersten Datensatz anzeigen lassen.

Danach sollte dann erst der nächste Frage-Knopf aktiviert werden.

Grüße
Klaus

[DeddyH]

Wenn man jetzt noch SQL-Parameter verwendet, kann man sich das ganze "Clear und SQL neu belegen"-Geraffel auch sparen

[Reedx]

Zitat von Klaus01:

so das ganze auf zwei Buttons verteilt.

Delphi-Quellcode:

procedure TFormle.ButtonstartClick(Sender: TObject);
....
end;

Dann muss zuerst der Start-Knopf betätigt werden (sieht optisch noch nicht gut aus)
Auch könnte man beim Start schon den ersten Datensatz anzeigen lassen.

Danach sollte dann erst der nächste Frage-Knopf aktiviert werden.

Grüße
Klaus

DANKE DANKE DANKE!!!! Jetzt funktioniert wenigstens, dass nacheinander mit Click auf dem Button, dass diese 10 Fragen angezeigt werden!!! DANKE

[DeddyH]

Ist ja nicht so, dass ich das nicht schon vor ein paar Seiten angesprochen hätte

[Reedx]

Zitat von DeddyH:

Ist ja nicht so, dass ich das nicht schon vor ein paar Seiten angesprochen hätte

ja, aber tut mir leid, dass ich das nicht verstanden habe! Bin kein profi im programmieren und will es auch nicht werden. Mache das "nur" für eine gute Note.

[Moombas]

Zitat von Reedx:

Mache das "nur" für eine gute Note.

ehm sry, dann kann ich meinerseits nur sagen DIY und wenn es in deinem Code Probleme gibt, melde dich damit wieder... quasi die Lösungen von anderen zu nehmen und dann als die eigene beim Lehrer verkaufen kann ich nicht leiden

[Reedx]

So, die Fragen auslesen klappt nun. Wie kann ich nun erreichen, dass nur 10 fragen ausgelesenw erden? FOR Schleife und i bis 10 zählen lassen?

[Klaus01]

.. nimmst eine Variable (Form private) setzt diese pro Knopfdruck um eins höher.
Den Stand der Variable musst Du dann im "nächste Frage" Knopf abfragen und etnsprechend reagieren.

Grüße
Klaus