-
Forum: Datenbanken
by Luckner,
11. Jun 2019
Hallo,
also ich versuche es jetzt mein Problem verständlich zu machen.
Die Tabellen der Datenbank sind in MS-Access. Die Hauptanwendung ebenfalls. Die zusätzliche Tools in Delphi. Als Zugriff auf die Datenbank benutze ich ADOQuery.
In diesem Fall werden 3 Tabellen angesprochen.
1. , mit .LieferantNr und .LieferantName
2. , mit den Feldern: ., .Bezeichnung, ., .aktuell.(Wenn .aktuell = -1...
-
Forum: Datenbanken
by Luckner,
9. Jun 2019
Hallo,
ok, ich werde mal die Strukturen der entsprechenden Tabellen liefern. Meine weitere Überlegung ist, ob man diese Daten nicht in einem Stringrid unterbringen kann. Dann könnte man die Felder dann mit "while-Schleifen" befüllen. Es würde den lokalen Rechner etwas mehr belasten, aber diese Tabelle wird meisten nur einmal die Woche benötigt. Ich muß jedoch erst testen, ob ich ein Stringrid...
-
Forum: Datenbanken
by Luckner,
7. Jun 2019
Hallo Delphi.Narium, hallo jobo,
die Aufgabenstellung ist folgende: Ein Lieferant liefert "." verschiedene Papiersorten. Das Material (Papiersorten) liegt bei uns als Rollen von verschiedenen Grössen und Breiten auf Lager.
Aufgabe: Zeige die markierten Materialien ".aktuell = -1" des Lieferanten die eine Breite > 179mm haben, die kein Abgangsdatum "Materialrollen.DatumAb" und berechne die...
-
Forum: Datenbanken
by Luckner,
7. Jun 2019
Hallo Delphi.Narium,
habe beide Versionen ausprobiert. Bei Version 2 (ohne UNION) gibt es gleich einen "unbekannten Fehler". Bei der Version 1 sieht erstmal gut aus. Das Produkt aus der Muliplikation stimmt auch. Aber dann! Habe den entsprechenden Materialrollen, die > 179 sind, ein Materialrollen.DatumAb eingetragen und dann wird dieses Material gar nicht mehr in der Tabelle angezeigt....
-
Forum: Datenbanken
by Luckner,
6. Jun 2019
Hallo Delphi.Narium,
habe beide Versionen ausprobiert. Die 2. Select-Anweisung liefert ersmal einen unbekannten Fehler. Werde versuchen ihn, mit meinen Kenntnissen, zu korrigieren.
Die 1.-te, längere Anweisung liefert folgendes:
Material-Nr: / Bezeichnung / Bestand / aufgebraucht
265627 / schreib-weiß, permanent / 1300465,5 / ja
265627 / schreib-weiß,...
-
Forum: Datenbanken
by Luckner,
6. Jun 2019
Hallo Delphi.Narium,
:shock: Hut ab von meiner Seite. Ich werde versuchen diese Anweisung zu übertragen und auszuprobieren. Wenn mein Kopf dann etwas freier ist, dann werde ich versuchen diese Anweisung auch zu verstehen. Dieses sprengt meine Grenzen. Vielen Dank für die Mühe.
Gruß, Luckner
-
Forum: Datenbanken
by Luckner,
6. Jun 2019
Hallo jobo,
Ergebnis: selbe Anzahl des Materials und die selben Ergebnisse aus der Multiplikation.
Wenn Material aufgebraucht ist, merke ich, wenn alle (Materialrollen.DatumAb <> NULL)ist. Also alle Materialrollen ein Abgangsdatum haben. Andererseits könnte es auch funktionieren, wenn man herausfindet, dass wenn das Produkt aus der Multiplikation = 0 ist. Irgendwas in dieser Richtung.
...
-
Forum: Datenbanken
by Luckner,
5. Jun 2019
Hallo jobo,
habe ich geändert, jedoch ohne Veränderung in der Tabelle.
Gruß, Luckner
-
Forum: Datenbanken
by Luckner,
5. Jun 2019
Hallo,
habe mir alle Vorschläge zu Herzen genommen, vor allem die von Delphi.Narium und folgende SELECT-Abfrage gebastelt:
SELECT Materialrollen., sum((Materialrollen. / 1000) * Materialrollen.lfm) as BESTAND, .Bezeichnung
FROM Materialrollen
LEFT JOIN ON Materialrollen. = .
WHERE ((. = ' + Lieferantennr.Text + ') AND (.aktuell= -1)
AND (Materialrollen.DatumAb is NULL) AND...
-
Forum: Datenbanken
by Luckner,
3. Jun 2019
Ach so, eher Punkt 1. am Ende muss die Tabelle auf einem Drucker raus.
Luckner
-
Forum: Datenbanken
by Luckner,
3. Jun 2019
Hallo jobo,
es reicht nur eine Anzeige. Mir fällt noch die Möglichkeit die Daten in ein Stringgrid zu schreiben. Wa ich nicht weiß, ob ich die Daten aus dem Stringgrid im Fastrepport verwenden kann:
Luckner
-
Forum: Datenbanken
by Luckner,
3. Jun 2019
Wenn ich an der Stelle 'Datamodule1.ADOQueryGejoliste.Post;' das Grid updatete mit 'GridGejo.Update;', dann sehe ich nur ganz kurz, dass in die entsprechenden Zeile die Zahl eingetragen wird, aber dann sofort wieder gelöscht, wenn die nächste Zeile angesprochen wird.
Luckner
-
Forum: Datenbanken
by Luckner,
3. Jun 2019
Ich dachte, dass man gerade diese Felder manipulieren kann.
Luckner.
-
Forum: Datenbanken
by Luckner,
3. Jun 2019
Hallo,
folgende Procedure:
procedure TForm1.ButtonMaterialSuchenClick(Sender: TObject);
var BestandMaterialNummer, BestandMaterial : real;
begin
Datamodule1.ADOQueryGejoliste.Close;
Datamodule1.ADOQueryGejoliste.SQL.Clear;
