Anfänger braucht Vorschläge für Programmrealisation

crashboy · Beiträge: 23

Moin Moin erstmal,

als Anfänger will ich mich mal mit einem kleinen Datenbank-Proggi beschäftigen. Dafür benötige ich von Profis einige Infos zur effektivsten Umsetzung.

Ziel: Mittels eines Barcode-Scanners wird ein Artikel eingescannt, der dazugehörige EAN-Code in einer Tabelle gesucht, vollständig mit Bezeichnung angezeigt und durch Eingabe einer Stückzahl vervollständigt. Anschließend soll dieser Artikel ein einer weiteren Tabelle abgespeichert werden.
Die zu scannenden Artikel liegen vollständig in der ersten Tabelle vor (manuell eingetragen).

System: normaler PC, Handscanner- der in Tastatur eingeschliffen ist und die EAN-Codes in Form von Strings ausgiebt.

Frage: Welches DB-System sollte ich nehmen und wie gehe ich am besten vor.

Habe schonmal angefangen mit dBase. Scheint mir aber zu unflexibel und der Locate-Befehl will sich nicht so richtig mit mir anfreunden. Zumindest sollte doch nach dem Locate der Satzzeiger auf den gescannten Wert zutreffen, wa er jedoch nicht macht.

Danke für jede Hilfe
crashboy

BeniSchindler · Beiträge: 82 Win 2k / suse9.1 D7 Prof / Kylix 3

Was man am besten nehmen sollte, kann man glaube ich nicht so einfach beantworten. Ich selber benutze jedoch eigentlich immer die Opensource-Interbase-Datenbank : Firebird.
Vorteile von Firebird: schnell, sehr klein, Linux und Windows fähig.

Das ist jedoch blos meine Persönliche erste wahl. Das kommt ganz auf einen selber an. Ich würde jedoch immer eine SQL-Datenbank nehmen.

Interbase/Firebird/MySQL/MSSQL/Oracel/etc.

Das einzige von dem ich abrate ist eine Access-Datenbank. Die sind mir einfach zu oft und zu schnell um die Ohren geflogen.

mfg Karr.

_________________
Result := 42; Application.ProcessMessages;

hwb · Beiträge: 91 Win98 SE, Win2000 D5 Prof

Schau erst mal hier nach:

www.delphi-forum.de/viewtopic.php?t=160

Und daß dein Programm mit DBase nicht funktioniert liegt aber am Programmierer. Wobei allerdings die große Zeit von DBase vorbei ist.
Auf jeden Fall wurde ich auf die BDE verzichten.

HWB

grayfox · Beiträge: 800 win98, winXP D4 Standard; D6 Personal

halo crashboy!

Zitat:

...als Anfänger will ich mich mal mit einem kleinen Datenbank-Proggi beschäftigen...

dann würd ich dir paradox 7.0 & die BDE empfehlen. das ganze ist bei delphi dabei, ist einfach handzuhaben und hier im forum gibts schon jede menge tipps zum nachlesen wenn du mal nicht weiterweisst.

locate stellt den satzzeiger immer auf den gefundenen datensatz, lookup liefert nur den inhalt zurück
wenn du nach 'ausgibst' suchst, aber 'ausgiebst' in der tabelle erfasst hast, dann kanns vorkommen, dass du nicht das gewünschte ergebnis erhältst

mfg, stefan

Klabautermann · Verfasst: Mo 07.07.03 16:53

Hallo,

vonn der BDE würde ich abraten, sie ist veraltet und wird nciht mehr weiterentwickelt. Außerdem macht sie sobald die Anforderungen etwas höher sind Probleme. Besonders im Netzwerk.

Gruß
Klabautermann

crashboy · Beiträge: 23

erstmal für Eure Tips.
Nun sieht es so aus, dass das Programm zur simplen Vereinfachung meines Jobs dienen soll.
Ich scanne für ein Marktforschungsinstitut vorgegebene Waren in Supermärkten und vervollständige die Daten manuell mit der vorhandenen Verkaufszahl.
Mehr nicht! Hört sich so simpel an wie es ist und genauso soll das Proggi werden.
Aus diesem Grund will ich mich nicht weiter in die Tiefe der Materie reinsteigern. Letztendlich soll noch ein Ausdruck mit QR der gescannten Daten erfolgen.
Muss ich hierfür extra SQL oder dergleichen lernen?
Ich denke das ich für diese Aufgabe mit Kanonen nach Spatzen schiessen würde.
Wenn möglich, würde ich mal meinen bisherigen Source hier uppen und jemand verrät mir, wie das dann genau mit Locate funktioniert.

Gruss
crashboy

grayfox · Beiträge: 800 win98, winXP D4 Standard; D6 Personal

hallo crashboy!

Zitat:

Muss ich hierfür extra SQL oder dergleichen lernen?

ja und nein. es kommt drauf an, für welches system du dich entscheidest.
bei paradox7 & BDE brauchst du es nicht umbedingt zu lernen. und für die erstellung eines berichtes mit QuickReport ist es auch nicht zwingend notwendig.

das locate bereitet dir noch kopfzerbrechen, gell?

schlag die suchfunktion auf, tipp 'locate' ein und du findest jede menge tipps zu diesem thema.

mfg, stefan

Klabautermann · Verfasst: Mo 07.07.03 17:32

Hallo,

du kannst unter Delphi recht gut mit Datenbanken Arbeiten ohne SQL zu können. Erst wenn die aufgabe komplexer wird solltest du SQL lernen (ist sehr einfach und daber unheinmlich flexibel).
Auf dieser Seite findest du ein NoCodeExcampel. Das ist eine kleine datenbankanwendung, die ohne eine Zeile (getippten) Quelltext erstellt wurde. Nur mit der Maus. Wenn du dieses verstanden hast, dann solltest du noch das hier lesen und kannst alles was du kennen musst. Nur würde ich dir wie gesagt zu einer anderen DB (z.B. Advantage) raten. Die funktionieren in aller regel genau so, sind aber zuverlässiger.

Gruß
Klabautermann

crashboy · Beiträge: 23

Wiederum Danke für die schnelle Antwort.
Soweit habe ich die Problematik mit DB's verstanden. Habe ja auch selber schon rumexperimentiert und gelesen.
Ich komme halt "nur" mit dem Locate-Befehl nicht zurecht.
Die EAN wird gescannt und im DBEdit eingetragen, dann folgt Locate und er sollte dann den richtigen Datensatz finden. Macht er aber nicht. Habe mir ein DBGrid zu Hilfe genommen, um verfolgen zu können, wo der Satzzeiger steht.
Desweiteren kommt die Fehlermeldung " Ungültige Variant-Typumwandlung".

Ich hänge mal die eine Zeile an:

markieren

Quelltext

1:	Table1.Locate('Artnummner', VarArrayOf([DBEdit1.Text]), []);

Diese Zeile folgt auf ein OnExit-Ereignis im DBEdit.

Gruss
Mario

grayfox · Beiträge: 800 win98, winXP D4 Standard; D6 Personal

hallo crashboy!

genau. wieso einfach, wenns umständlich auch irgendwie vielleicht doch geht?

wie wärs mit:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  if Table1.Locate('Artnummner', Edit1.Text, []) then
    .....
  else
    .....  ;

- bist du sicher, dass dein feld 'Artnummner' heisst?
- in welches DBEditFeld welchen Datensatzes liest ihn denn ein?
einfacher gehts mit einem TEdit.Feld. diesen eintrag suchst dann in der tabelle und du hast schon den richtigen datensatz gefunden, falls es ihn gibt.

mfg, stefan

Klabautermann · Verfasst: Di 08.07.03 09:53

Hallo,

ansonsten kannst du es auch mit der Filter funktion versuchen, die ist glaube ich einfacher zu verstehen (aber nicht umbedingt so schnell).

Gruß
Klabautermann

crashboy · Beiträge: 23

Danke erstmal.

Ja das Feld heisst artnummner. Hab die Tabelle jetzt aber nochmal neu erstellt. Werds gleich mal ausprobieren.

Gruss
crashboy

So, entweder bin ich zu blöd oder es ist einfacher wie ich denke:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.DBEdit1Change(Sender: TObject);
begin

  if Table1.Locate('Artikelnr', DBEdit1.Text, []) then
  begin
        //hier soll Anweisung rein, in nächste DBEdit zu springen
        end
  else  
        //hier soll Anweisung rein den Tab auf Button3 zu legen

end;

Soweit ich die Locate-Anweisung verstanden habe, wird der Datensatz, falls gefunden, als aktiv markiert. Habe mir ja ein DBGrid dafür draufgesetzt um das verfolgen zu können. Der Datensatzzeiger springt aber immer auf den ersten Satz, egal ob gefunden oder nicht.

Gruss
crashboy

grayfox · Beiträge: 800 win98, winXP D4 Standard; D6 Personal

hallo crashboy!

hast deine lesebrille verlegt? vergleich mal die beiden zeilen:
deine version:

markieren

Delphi-Quelltext

1:	if Table1.Locate('Artikelnr', DBEdit1.Text, []) then

meine version

markieren

Delphi-Quelltext

1:	if Table1.Locate('Artikelnr', Edit1.Text, []) then

Zitat:

Der Datensatzzeiger springt aber immer auf den ersten Satz, egal ob gefunden oder nicht.

na no na logisch!

überleg mal. der datensatzzeiger steht nach dem öffnen der tabelle auf dem ersten datensatz. jetzt beauftragst du locate nach dem inhalt des feldes DBEdit1 zu suchen. in diesem müsste ein eintrag es ersten datensatzes zu finden sein. richtig? daher lies den code des scanners in ein editfeld ein und dann such danach in der tabelle. das ist viel einfacher...

mfg, stefan

crashboy · Beiträge: 23

Funzt

Letzte Frage: Wie bekomme ich die gescannten Datensätze, also die, die er gefunden hat, in eine 2. existierende Tabelle.
Soll heissen, die Daten in der 1. Tabelle bleiben unverändert und die Felder Artikelnummer und -name sowie ein DBEdit namens Stück sollen in die 2. rein.
Unter Clipper kannte ich den Befehl Replace. Laut Onlinehilfe hat der aber wenig damit zu tun.
Und zweite Frage, in der else anweisung soll ein Sprung auf einen Button erfolgen, wenn der EAN nicht gefunden wurde.

Danke Danke
für Eure Hilfe
Gruss
crashboy

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

hallo,
ich habe mal ne ganz andere frage, was für einen handscanner verwendest du? Und wie steuerst du den an?

Gruß
Ken

_________________
Eine Klasse beschreibt die Struktur und das Verhalten einer Menge gleichartiger Objekte.

crashboy · Beiträge: 23

Das ist so ein Billigteil von aus dem akt. Conrad Katalog. 69 €, Made in TW und frisst jeden Barcode. Programmierbar über beiliegende Barcodes. Anschluss mittels Y-Kabel an Tastatur.
Funzt tadellos.

Gruss
crashboy

hwb · Beiträge: 91 Win98 SE, Win2000 D5 Prof

Nochmal zurück zu deinem ersten Posting:

Warum arbeitest du mit LOCATE ? Ich geh mal davon aus, daß dei Tabelle in der gesucht wird auch von dir ist. Also was hindert dich daran auf das Feld mit dem EAN-Code einen Index zu setzen und mit FINDKEY zu arbeiten ? Da doch jeder Code einmalig ist, sollte das die bessere Möglichkeit sein.

HWB

grayfox · Beiträge: 800 win98, winXP D4 Standard; D6 Personal

hallo crashboy!

na siehst, so schlecht war mein vorschlag gar nicht

Zitat:

Soll heissen, die Daten in der 1. Tabelle bleiben unverändert und die Felder Artikelnummer und -name sowie ein DBEdit namens Stück sollen in die 2. rein.

mal ein ganz einfaches beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

{$UNTESTED}
  if quelltable.locate('Artikelnr', ScanCode.Text, []) then begin
    with zieltable do begin
      append;
      FieldByName('Artikelnr').asString:= ScanCode.Text;
      FieldByName('Bezeichnung').asString:= quelltable.FieldByName('Bezeichnung').asString;
      FieldByName('Anzahl').asInteger:= StrToInt(Anzahl.Edit);
      post
    end;
  end else
   ShowMessage('EAN-Code noch nicht angelegt');
  end;

das wäre das grundprinzip des datensatzanlegens, unter der voraussetzung, dass beide tabellen vorhanden und offen sind.

mit dem anzahlfeld als DBEdit könnte sich ein problem ergeben, sobald der EAN-Code nicht gefunden wird. daher würde ich ein normales Edit-Feld verwenden und im OnExitEvent den feldinhalt auf gültigkeit überprüfen. dafür findest hier im forum beispiele zur genüge.

was meinst denn damit?

Zitat:

in der else anweisung soll ein Sprung auf einen Button erfolgen

auf einen button bin ich noch nie gesprungen

mfg, stefan

crashboy · Beiträge: 23

Danke erstmal für Deinen Tip. Learning by doing macht richtig Spass.

Habe Deinen Vorschlag mal folgendermaßen umgesetzt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Edit1Exit(Sender: TObject);
begin

  if table1.locate('Artikelnr', Edit1.Text, []) then begin
    with Table2 do begin
     Append;
      FieldByName('Artikelnr').asInteger:= Table1.FieldByName('Artikelnr').AsInteger;
      FieldByName('Artikelnam').asString:= Table1.FieldByName('Artikelnam').asString;
      FieldByName('Anzahl').asInteger:= StrToInt(DBEdit2.Text);
      post
    end;
  end else
   ShowMessage('EAN-Code noch nicht angelegt');
  end;

Wie nicht anders zu erwarten funzt es net.

Noch zur Erläuterung: Der gescannte Code ist vom Typ numerisch, in der 2. Tabelle soll er praktischerweise auch numerisch abgelegt werden. Wenn ich nun aber das Edit1.Exit auslöse, d.h. Artikel wurde gescannt und gefunden, kommt die Fehlermeldung:

Zitat:

"" ist kein Integerwert.

Logisch, Nichts kann nicht Integer sein. Warum ist da aber nichts? Ausserdem darf doch ne Integer nicht mehr als 10 Stellen haben. Da denke ich nur an der EAN13. Hier müsste doch dann ein Int64 rein. Nur wie?

In der else-Anweisung soll nicht extra ne ShowMessage erscheinen, sondern der Tab gleich auf den "NEU"-Button erfolgen.

Danke für Deine Hilfe

Gruss
crashboy

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

crashboy hat folgendes geschrieben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Edit1Exit(Sender: TObject);
begin

  if table1.locate('Artikelnr', Edit1.Text, []) then begin
...
  end;

Zitat:

"" ist kein Integerwert.

Logisch, Nichts kann nicht Integer sein. Warum ist da aber nichts?

hallo,

ich habe den gesamten thread nicht mit vollem fleiß gelesen, aber wann füllst du denn Edit1? Ich meine, wenn du bsp bei programmstart nichts drin hast und dann das edit verlässt, dann steht doch noch immer nichts drin, oder?

Du könntest vorher noch eine überprüfung einbauuen, ob edit1.text <> '' wenn der text nicht leer ist, kannst du mit deinem locat weiter machen.

Gruß
Ken

_________________
Eine Klasse beschreibt die Struktur und das Verhalten einer Menge gleichartiger Objekte.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme