Hallo,
ich habe folgendes Problem. Ich möchte mir einer ComboBox auf eine Datenbank zugreifen, nur funktioniert das nicht. In der Normalrechnung ohne ComboBox geht es. Hier ist der Quellcode, vielleicht kann mir jemand helfen.
Delphi-Quellcode:
Case Combobox2.ItemIndex
of
-1: ShowMessage('
Bitte wählen Sie das Geschlecht aus.');
0: weiblich :=StrToInt(
db.DBEdit4.Text);
1: maennlich :=StrtoInt(
db.DBEdit3.text) ;
end;
Case Combobox3.ItemIndex
of
-1: ShowMessage('
Bitte wählen Sie aus, ob sie Raucher sind!');
0: Ja:=StrtoInt(
db.DBEdit2.Text);
1: Nein:=StrtoInt(
db.DBEdit1.Text);
end;
Case Combobox4.ItemIndex
of
-1: ShowMessage('
Bitte wählen Sie die Zahlungsart aus!');
0: monatlich:=StrtoInt(
db.DBEdit5.Text);
1: halbjaehrlich:=StrtoInt(
db.DBEdit6.Text);
2: jaehrlich:=StrtoInt(
db.DBEdit7.Text);
end;
Case Combobox6.ItemIndex
of
-1: ShowMessage('
Bitte wählen Sie die Fond-Art aus!');
0: sicherheitsorientiert:=StrToInt(
db.DBEdit9.Text);
1: chancenorientiert:=StrToInt(
db.DBEdit8.Text);
end;
Case Combobox8.ItemIndex
of
-1: ShowMessage('
Bitte wählen Sie das Todesfallkapital aus!');
0: Sechzig:=StrToInt(
db.DBEdit10.Text);
1: Einhundert:=StrToInt(
db.DBEdit11.Text);
2: Zweihundert:=StrToInt(
db.DBEdit12.Text);
end;
G:= Combobox2.ItemIndex;
R:= Combobox3.ItemIndex;
Z:= Combobox4.ItemIndex;
F:= Combobox6.ItemIndex;
T:= Combobox8.ItemIndex;
EK:=G*R+Z+F+T;
kapital.edtest.Text:=InttoStr(EK);
Mit EK soll ein Endbetrag für ein Kapital errechnet werden.