procedure TFormneuFrag.ButtonhinzuClick(Sender: TObject);
var antw:integer;
begin
if (EditFach.Text='
')
or (EditSchw.Text='
')
or (Editfr.Text='
')
or (Editl1.Text='
')
or (Editl2.Text='
')
or (Editl3.Text='
')
or (Editlr.Text='
')
then
begin
application.MessageBox('
Bitte alle Felder ausfüllen','
Fehler');
end else
begin
antw:= MessageDlg('
Frage wirklich hinzufügen? ',mtConfirmation,[mbyes,mbNo],0);
//Message mit Fragezeichen, Möglk. Ja/Nein
Datamodule1.ADOQuery5.SQL.Clear;
if antw = mrYes
then //mrYes - Benutzer auf yes
begin //Frage hinzufügen //hier direkt in SQL text rein -> Übersichtlicher
Datamodule1.ADOQuery5.SQL.Text := '
INSERT INTO Fragen (Fach, Schwierigkeit, Frage, L1, L2, L3, Lösung) VALUES (FA, SW, FR, L1, L2, L3, LO);';
Datamodule1.ADOQuery5.Parameters.ParamByName('
FA').Value:= Editfach.Text;
Datamodule1.ADOQuery5.Parameters.ParamByName('
SW').Value:= Editschw.Text;
Datamodule1.ADOQuery5.Parameters.ParamByName('
FR').Value := Editfr.Text;
Datamodule1.ADOQuery5.Parameters.ParamByName('
L1').Value := EditL1.Text;
Datamodule1.ADOQuery5.Parameters.ParamByName('
L2').Value := EditL2.Text;
Datamodule1.ADOQuery5.Parameters.ParamByName('
L3').Value := EditL3.Text;
Datamodule1.ADOQuery5.Parameters.ParamByName('
LO').Value := EditLr.Text;
Datamodule1.ADOQuery5.ExecSQL;
application.MessageBox('
Frage wurde hinzugefügt!','
Meldung');
end else
begin
application.MessageBox('
Frage wird nicht hinzugefügt!','
Meldung');
end;
end;
end;