Datenbank- Quiz programmieren

[DeddyH]

Bin ich irgendwie unsichtbar oder sowas? Wozu ist die Schleife gut?

[Reedx]

Zitat von DeddyH:

Bin ich irgendwie unsichtbar oder sowas? Wozu ist die Schleife gut?

welche denn? die repeat?

[Reedx]

okay, hier die Zip datei..
die Unit um die es hier geht, nennt sich "Uleicht".
beim Anschauen/Testen bitte folgendes machen:

Als User einloggen --> Daten aus Datenbank entnehmen
Dann auf User Button klicken, auf quiz starten (button) gehen, dann "Leicht" auswählen und dann dort am besten "Deutsch" auswählen (bitte Datenbank zur Hilfe nehmen (beim anschauen)). Dann auf "Nächste Frage" klicken.. hoffe das ist halbwegs verständlich ....

[p80286]

Zitat von DeddyH:

Bin ich irgendwie unsichtbar oder sowas? Wozu ist die Schleife gut?

Zitat:

hab es so programmiert, aber stehe immer noch vor dem gleichen Problem, beim click auf dem button bleibt die frage + Antworten immer die gleichen und zeigt nicht die nächsten an..

Ich vermute das der Buttonclick in die Schleife gehören soll

Code:

repeat
  hole Frage
until button=Abbruch

Hat da nicht jemand etwas von Struktogramm geschrieben??

Es gibt zwei Möglichkeiten.
a) Alle Fragen/Antworten aus der DB in eine Liste/Array... laden und die Fragen dann nacheinander aus der Liste laden.
b) Jeweils eine Frage aus der DB laden, wobei es dann eine Numerierung oder ähnliches der Fragen geben mßte.
(select irgendwas where Fragenr=x and .....)

So mal ganz grob skizziert.

Gruß
K-H

[mmw]

ich habs mal so versucht, im prinzip habe ich nicht viel verändert


procedure TFormle.ButtonnextClick(Sender: TObject);

function ist_leer: boolean;

begin
result := datamodule1.ADOQuery6.IsEmpty;
end;

function open_query: boolean;

begin
try
if datamodule1.ADOQuery6.Active = true then
result := true
else

begin
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.Active := true;
datamodule1.ADOQuery6.First;

first_open := true;//TFormle private deklariert

result := true;
end;

except
result := false;
end;
end;

procedure set_caption;

begin
rg.caption := '';
rg.caption := datamodule1.ADOQuery6.Fields[0].AsString;
// Antworten in Radiobuttons
rg.Items.Clear;
rg.Items.Add(datamodule1.ADOQuery6.Fields[1].AsString);
rg.Items.Add(datamodule1.ADOQuery6.Fields[2].AsString);
rg.Items.Add(datamodule1.ADOQuery6.Fields[3].AsString);
end;


begin

if Lb.ItemIndex >= 0 then

begin

if open_query = false then exit

else

if ist_leer = true then begin
showmessage('Keine Daten');
exit
end

else

begin

rg.Visible := true;
if first_open = true then

begin
set_caption;
first_open := false;
end

else

begin
datamodule1.ADOQuery6.Next;
set_caption;
end;
end;
end

else

application.MessageBox('Auswahlfehler!', 'Fehler');

end;

keine Garantie

Gruß