Auswahlmenü

[marabu]

Kannst du nicht einfach die gleichen Formulare für die Anzeige der Drucker-Detail-Informationen verwenden, die du schon für die Erfassung verwendet hast? Deine Beschreibung ist leider immer noch sehr unverständlich.

marabu

[StoRmtec]

Hallo

Also die Form zum Druckeranlegen ist eine eigene Form. Da das Programm dann noch weiter entwickelt werden soll.

Also in der Druckeranlegenform wird der Druckername die Abteilung hinzugefügt das funktioniert eh.

Jetzt möchte ich das ich bei der Druckerinfo dann die Drucker die ich angelegt habe in der ListBox auflisten lassen kann und mir dann den Drucker aussuchen kann mit dem ich was machen möchte. Also die Druckerinfo hat wieder eine eigene Tabelle wo alles gespeichert wird. Wie gesagt es soll da die möglichkeit sein Reparaturen, Tonerausgabe, Zählerstand und so sachen zum speichern. Wenn ich dann den Drucker auswähle das ich dann mit dem die ganze Zeit was machen kann bis ich wieder einen anderen auswähle. Das heißt das ich den Zählerstand bei den Richtigen Drucker eintrage dann.

Das ganze mach ich über die Interbase Datenbank. Die Infos bzw. die Felder mache ich mit der TDBEdit und TDBText.

Da ich eine genaue Aufstellung immer brauche.

mfg
StoRmtec

[marabu]

Du könntest dir in der Listbox den Schlüssel der dort angezeigten Drucker unsichtbar mitführen und im OnClick-Ereignis der Listbox eine Query ausführen, die dir die Detail-Informationen besorgt.

Query.SQL.Text := Format('SELECT * FROM druckerinfo WHERE id = %d', [idDrucker]); Wenn du die DataSource deiner Info-Felder auf die Query zeigen lässt, dann erscheinen die Infos in deinen Edit-Feldern.

marabu

[StoRmtec]

Kannst du mir das vielleicht verständlicher erklären weil wie gesagt ich habe das noch nie gemacht und bin erst ein Newbie im Programmieren.

Vielleicht ein Beispielcode oder so mit genauer Bezeichnung und so sachen wäre fein.

mfg
StoRmtec

[alcaeus]

Hallo StoRmtec,

was marabu meinte ist folgendes: zur Zeit fuegst du ja z.B. Den Namen des Druckers der Liste hinzu. Du kannst aber mehr abspeichern als nur einen String.
Mal ein Beispiel. So fuegst du einen String hinzu: SomeListBox.Items.Add('SomeString'); Um mehr als nur den Text hinzuzufuegen, verwendest du folgendes: SomeListBox.Items.AddObject('SomeString', SomeObject); wobei SomeObject von TObject abgeleitet sein muss.

Man muss aber nicht zwingend ein Objekt abspeichern. Mit dem folgenden Code fuege ich einfach eine Nummer hinzu, und zeige die Anschliessend wieder an. Beachte dass die Nummer nur zu Kontrollzwecken im Text angezeigt wird:

Delphi-Quellcode:

procedure TSomeFOrm.AddButtonClick(Sender: TObject);
var
   i: Integer;
begin
   i := Random(100);
   SomeListBox.Items.AddObject('Test: '+IntToStr(i), TObject(i));
end;

procedure TSomeForm.ShowButtonClick(Sender: TObject);
begin
   if SomeListBox.ItemIndex < 0 then
      exit;
   ShowMessage(IntToStr(Integer(SomeListBox.Items.Objects[SomeListBox.ItemIndex])));
end;

Beim hinzufuegen generiere ich eine Zufallszahl, caste die Zahl nach TObject und fuege sie hinzu. Beim Auslesen caste ich den Inhalt wieder nach Integer und zeige ihn an. So aehnlich kannst du es auch machen: du fuegst die ID des jeweiligen Datensatzes in der Datenbank hinzu, und beim Klick auf ein bestimmtes Item, fuehrst du ein Query aus, welches den aktuell ausgewaehlten Datensatz aus der Datenbank holt.
Ich hoffe du verstehst worauf das Ganze hinauslaufen soll.

Greetz
alcaeus

[StoRmtec]

Hallo

Danke für die Info. Aber wie kann ich das jetzt mit der Datenbank machen das habe ich noch nicht herausgefunden.

mfg
StoRmtec

[mschaefer]

Hm,Moin: also mal so vom der Thematik her würde ich das mit zwei Formularen machen

1. Formular mit einem DBGrid oder auch DBCtrlGrid zur Datensatzauswahl und mit dem Button neuer Datensatz
Das ganze würde ich als readonly, also ohne Änderungsmöglichkeit halten.

2. Formular mit den Feldern zur eingabe und einem Memo für die Beschreibung

3. Beide Formulare sollten auf die gleich Datasetkomponente in einem Datenmodul zugreifen, sodaß sie den
gleichen Datensatz anzeigen.

Der Weg über Listboxen und Handeinfüllen ist zwar Möglich, aber irgendwie auch etwas hm, ziemlich aufwendig.


Grüße // Martin