Datenbank- Quiz programmieren

[Klaus01]

Zitat von haentschman:

Moin...
...ob das so gemeint ist?

Du holst dir in jedem ButtonNext Click die kompletten Daten, läufst die Schleife bis zum Ende durch...und dann?

Ähm welche Schleife.
Ich sehe keine in der ButtonNext Methode.
Die Methode ist aus dem Projekt des TE.

Es ist richtig, dass bei jedem click die Datensätze neu eingelesen werden.
Der erste wird angezeigt.
AdoQuery6.Next hat keine Auswirkungen, da die Routinegleich danach verlassen wird.

Ich habe auch nicht geschrieben, dass meine Korrekturen das ganze Problem lösen soll.

Grüße
Klaus

[haentschman]

Ok,Ok...ich hatte das if beim .Eof übersehen. Ich benutze Eof immer in einer while Schleife. Trotzdem steht der Datensatzzeiger nach dem Open immer auf dem ersten Datensatz.

Zitat:

Die Methode ist aus dem Projekt des TE.

...sorry, daß ich dir das angedichtet habe.

[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.

[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

[DieDolly]

Zitat:

Guten Morgen,

Ich würde hier keine Hausaufgaben für jemanden machen, der nicht einmal einen PAP erstellen möchte.

Zitat:

So, die Fragen auslesen klappt nun.

Ist ja logisch, wurde ja vorgekaut.

Zitat:

Wie kann ich nun erreichen,

Ich finde, so langsam solltest du dich mal etwas bemühen und eigene Ideen einbringen.
Einfach austesten. Man lernt auch, indem man Fehler macht.