Ergebnis der Suchanfrage

• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 22. Apr 2017
  Ok. Hobbycoder einiges sicher schon. Einiges ist der Situation geschuldet,möglichst zeitnah Antworten zu geben, die dann doch zu unüberlegt waren und einiges kann ich bislang wirklich noch nicht überblicken, weil mir das Wissen noch fehlt. Ok, mein Problem. Ich arbeite daran.
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 22. Apr 2017
  nimm mir doch bitte nich die Freude darüber, dass es funktioniert. Ich sollte doch der Querry eine connection zuweisen, damit das Löschen funktioniert. Wohl doch der Abstieg in die 6. grand-Oldi-Liga?!:)
  war all das doch Quatsch?
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 22. Apr 2017
  so sieht nun die löschen-Methode aus:
  procedure TFRMMainCustomer.btnDeleteClick(Sender: TObject);//löschen (update)
  var zqyMain: TZQuery;
  begin
  zqyMain:=TZQuery.Create(nil);
  zqyMain.connection:=conMain;
  
  if lvCustomer.Selected<>nil then
  begin
  CustomerList.RemoveFromDB(conMain);
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 22. Apr 2017
  Die removeFromDB-Methode:
  function TCustomer.RemovefromDB(con: TZConnection):integer;
  var
  q: TZQuery;
  begin
  q:=TZQuery.Create(nil);
  q.connection:=con;
  try
  q.sql.Text:='Delete from Warenverkauf1 where id= :id';
  q.params.parseSQL(q.sql.text, True);
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 22. Apr 2017
  Ich poste mal die maßgebliche Procedure löschen: procedure TFRMMainCustomer.btnDeleteClick(Sender: TObject);//löschen (update)
  var zqyMain: TZQuery;
  begin
  zqyMain:=TZQuery.Create(nil);
  zqyMain.connection:=conMain;
  if lvCustomer.Selected<>nil then
  begin
  CustomerList.RemoveFromDB(conMain);
  Customerlist.Free;
  CustomerList.Delete(LVCustomer.Selected.Index);
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 22. Apr 2017
  es ist mir wirklich peinlich, doch es soll wohl nicht sein. Ich habe nun dem Vorschlag von Hobbycoder folgend die Function:
  function RemovefromDB(con: TZConnection):integer; mit einem Rückgabewert Integer ausgerüstet und in Tcustomer aufgenommen. Die Function so geschrieben, wie vorgegeben und beim Aufruf "löschen" ebenfalls den nachfolgenden Code eingefügt:
  if lvCustomer.Selected<>nil then
  ...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 22. Apr 2017
  Nochmals Danke. Deine Antwort enthielt mehr als ich erwartet hatte. Ich habe nach dem nochmaligen Durchsehen der Posts viel dazugelernt, vor allem in der Praxis selbst. Die vielen Abhandlungen über die Grundsatzfragen zu OOP sind durchaus verständlich, doch wenn es dann praktisch wird, kommt das Grübeln. Auch hätte ich nie gedacht, dass so ein überschaubares Projekt so viel Potential enthält.
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 21. Apr 2017
  Also war doch Mist, oder was bedeutet Jupp?
  Neustart: myList(oder wie auch immer) leite ich von meiner TCustomerList ab. Also wie ihr geschrieben habt, da ich ja, wie aus meinem Programm ersichtlich bereits eine CustomerList.Delete(lvCustomer.Selected.Index); habe, mit der ich den DS aus der objectlist gelöscht habe. Nun geht es also an das Überschreiben dieser Delete-Methode in der Form wie...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 21. Apr 2017
  bedeutet das, dass ich die procedure Delete(idx:integer); in meiner bestehenden CustomerList deklarieren sollte, etwa so:
  type
  TCustomerlist : Class(Tobjectlist); //also die bei mir bestehende TCustomerlist?
  
  procedure Delete(idx:integer); //neu aufnehmen
  
  end;
  
  procedure TCustomerList.Delete(idx:integer); { lÖSCHEN DES DATENSATZES AUS DER lISTE }
  begin
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 21. Apr 2017
  Ralf, in #44 hast Du geschrieben: Da hast Du bereits meine späteren Qualen vorausgesagt. Aber das überschreiben der Funktion Delete in der CustomerList ist mir nicht klar, da ich dort nie eine Funktion Delete aufgenommen habe oder ist die bereits Bestandteil der objectlist oder gar der generischen List? Wie und wo sollte man sie überschreiben? In der CustomerList mit dem Ziel, den Datensatz aus...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 21. Apr 2017
  Danke Ralf (Jumpy). All das hat bei mir doch eine ganze Menge Licht ins Dunkele gebracht, einschließlich DRY:), das kannte ich nicht und wollte aber nicht fragen. Ich habe Dein Statement verstanden. Auch glaube ich den von Dir angesprochenen Punkt d) aus #64 jetzt zu verstehen ohne dabei ins Detail zu gehen, denn das will ich erst einmal ganz allein für mich probieren.
  Auch Punkt a) sehe ich...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 20. Apr 2017
  Ralf (Jumpy) ich bin sowas von glücklich, dass es jetzt mit deinem Codevorschlag genau so funktioniert, wie ich es mir vorgestellt habe. Er tut all das, was ich zurückliegend beschrieben habe, sogar ohne zu murren.
  Gestatte mir bitte einige Fragen dazu:
  1.) Das Löschen aller Datensätze mit zqryMain.SQL.Text:='Delete From WARENVERKAUF1';
  zqryMain.ExecSQL; ist offensichtlich auf dem...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 20. Apr 2017
  Vielen Dank für Eure Geduld und Hilfe. Mir ist nicht entgangen, dass ich versucht habe in einer Liga mitzuspielen, die nicht meine ist. Meine Defizite sind mir bewußt und ich habe bereits darauf hingewiesen, dass ich erst einmal untertauchen werde, um mein Wissen zu vervollkommnen. Hoffentlich finde ich entsprechende Tutorials in deutsch, die mich voranbringen.
  Mit entsprechenden Büchern werde...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 20. Apr 2017
  Habe die Variante von K-H (p80286) ohne die Zeilen zqryMain.params.parseSQL(zqryMain.sql.text, True); eingefügt und geprüft.
  Hinzufügen- DS erhält ID -1 und wird gespeichert danach ID der DB, also nicht mehr -1 , also ok.
  Bearbeiten- DS wird verändert und nach Speichern und laden ist der veränderte DS in der veränderten Form vorhanden, also auch ok.
  löschen- DS wird gelöscht und erscheint...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 19. Apr 2017
  ich verzweifele: obwohl beim Hinzufügen die ID mit -1 ausgewiesen wird geht das Programm (Debugger) beim Speichern (SavetoDB) in den Bereich UPDATE????
  Was ist hier los? Es sollte doch bei -1 nach INSERT gehen. Was mache ich wohl falsch??? Stimmt die Procedure SaveToDB???????
  Habe es jetzt neu gefasst:
  procedure TCustomerList.SavetoDB(con: TZConnection);
  var
  zqryMain: TZQuery;
  i:...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 19. Apr 2017
  Aus der objectlist ist er wohl gelöscht worden. Nun gehe ich davon aus (vermutlich ist das falsch) dass er mit SaveToDB dann auch in der Datenbank gelöscht gespeichert wird. Das ist wohl nicht der Fall, sonst würde er nach LoadformDB nicht wieder erscheinen. Er wird also nicht gelöscht. Mit meinen bescheidenen Debuggerversuchen habe ich festgestellt, dass die INSERT-Zeile nie angesprugen wird...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 19. Apr 2017
  Vielen Dank für die vielen Hinweise, die ich z.T. jedoch noch nicht verarbeiten kann. Ich konzentriere mich zunächst darauf die SaveToDB-procedure ordentlich zum laufen zu bekommen und dann werde ich mich an die Hinweise zur Verbsserung des Programms machen. Meine Versuche mit dem Debugger zu arbeiten waren durchwachsen. Ich habe den Hinweis mit dem Haltepunkt beachtet und mit F8 Zeile für Zeile...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 18. Apr 2017
  Ich bin da erst einmal ratlos. Man kann es drehen und wenden, die procedure SaveToDB stimmt irgenwie nicht. Weder mit for I:= Self.Count-1 downto 0 do noch mit for I:=0 to Self.count-1 do läuft die Sache rund.
  Es ist doch nicht normal, dass ein Speichervorgang von ca. 1000 Datensätzen gut 5 Minuten dauert und im Ergebnis dann 2000 Datensätze vorhanden sind, obwohl überhaupt keine Veränderung...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 18. Apr 2017
  Habe mir nun die procedure SaveToDB vorgenommen. Wenn ich sie aufrufe speichert er unendlich lange und die Datenbank wird immer größer. Er addiert vermutlich die besthenden Datensätze bis ich das Programm gewaltsam abbreche. Habe dann gesondert nur Insert mit den entsprechenden Werten aufgerufen, mit dem gleichen Ergebnis. Zwischenzeitlich wieder eine frühere Version der DB eingespielt mit...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 18. Apr 2017
  vielen Dank erst einmal. Die connect-procedure sieht nun ganz kurz so aus:
  procedure TFRMMainCustomer.connect;
  begin
  conMain.LibraryLocation:=ExtractFilePath(application.ExeName)+'sqlite3.dll';
  conMain.Database:=ExtractFilePath(application.ExeName)+'WarenVK.sqlite';
  conMain.Connected:=true;
  
  btnloadDBClick(self);
  end;
  Somit kann ich Hinzufügen bearbeiten und löschen. Nur das...
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 18. Apr 2017
  Das ist der Stand der Dinge:
  unit UCustomerList;
  
  interface
  
  uses
  classes, system.Types, system.SysUtils, ZAbstractRODataset, ZAbstractDataset,
  ZDataset, ZAbstractConnection, ZConnection ,contnrs, System.Generics.Collections;
  
  type
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 18. Apr 2017
  vielen Dank. Habe nun die else-Bedingung auch eingefügt und so sieht nun die SaveToDB-Methode aus:
  procedure TCustomerList.SavetoDB(con: TZConnection);
  var
  zqryMain: TZQuery;
  i: Integer;
  begin
  zqryMain:=TZQuery.Create(nil);
  try
  zqryMain.connection:=con;
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 17. Apr 2017
  Ich verzweifele fast: Hoffentlich ist das nicht großer Blödsinn:
  procedure TCustomerList.SavetoDB(con: TZConnection);
  var
  zqryMain: TZQuery;
  i: Integer;
  begin
  zqryMain:=TZQuery.Create(nil);
  try
  zqryMain.connection:=con;
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 17. Apr 2017
  Wo 8?
• Forum: Datenbanken

  AW: Kundenliste

   
    by EdAdvokat, 17. Apr 2017
  ich zähle 7 KDNR,Name,Vorname,Firma,Produkt,Anzahl,Preis.
  Was ist da falsch?