Datenbank Rechner in Delphi

[Jack23]

Hallo

auf Wunsch von Sharky erstelle ich hier ein neues Thema für mein Programm.

Ich möchte ein Programm schreiben das verschiedene Namen und dazugehörige Werte aus einer Access Datenbank ausliest so das man sie auswählen kann. Und dann sollen die Werte addiert werden.

Ich erkläre mal was ich schon habe:

Ich habe eine ADOQuery für die Abfragen. Dann habe ich 5 ComboBoxen mit folgenden Code im onChange:

Delphi-Quellcode:

procedure TForm1.DBBox(Sender: TObject);
begin
ComboBox.Items.Clear;
ADOQuery.First;
    while not ADOQuery.EOF do begin
        ComboBox.Items.AddObject(ADOQuery.FieldbyName('name').AsString,TObject(ADOQuery.FieldByName('wert').AsString));
              ADOQuery.Next;

end;
end;

Vor diesen Boxen sind immer kleine Edit Felder in die man angeben kann wie viel mal man das haben will. Also ob diesen wert 1x oder 2x...

So nun mein Tabellen aufbau:

name | wert
Test1| 23M Kabel, 50 Karten, 50K Gewicht
Test2| 20M Kabel, 12CM Karten, 10K Gewicht
...

Dann wähle ich in den 5 ComboBoxen 5 verschiedene Werte aus ich kann aber auch nur 3 oder 2 auswählen.

Dann werden die Werte auf Knopfdruck addiert.

Rechnen wir Test 1 und test 2:

43M Kabel, 50 Karten, 12CM Karten, 60KG Gewicht

Wenn ich jetzt ins eins der Edit Felder für Wert2 zum Beispiel 2x eingetippt hätte würde Wert2 zwei mal genommen werden. Das Ergebnis soll dann in einem Memo angezeigt werden.


Ich hoffe ihr habt ein paar Ideen und könnt mir helfen.