Kundenliste

[Jumpy]

Bei Start des Programmes füllst du in der Connect-Funktion über SaveTableData die ListView.
Die CustomerList ist aber noch leer. Somit funktionieren die Delete und Make funktionen nicht.

(Edit: also im Prinzip das, was Hobbycode auch sagt).

Folgende Änderung reicht aber schon:

Delphi-Quellcode:

procedure TFRMMainCustomer.connect;
begin
  conMain.LibraryLocation:=ExtractFilePath(application.ExeName)+'sqlite3.dll';
  conMain.Database:=ExtractFilePath(application.ExeName)+'WarenVK.sqlite';
  conMain.Connected:=true;

  //neu 
  CustomerList.LoadFromDB(conMain);
  FuelleListView;

  //alt kann weg, die ganze Fkt. SaveTableData kann mMn weg
  //zqryMain.SQL.Clear;
  //zqryMain.Params.Clear;
  //zqryMain.SQL.Text:='SELECT * FROM WARENVERKAUF1';
  //zqryMain.Open;
  //while not zqryMain.Eof do
  //begin
  //saveTableData(zqryMain.FieldByName('ID').AsString,
  //              zqryMain.FieldByName('KDNR').AsString,
  //              zqryMain.FieldByName('Name').AsString,    
  //              zqryMain.FieldByName('Vorname').AsString,
  //              zqryMain.FieldByName('Firma').AsString,
  //              zqryMain.FieldByName('Produkt').AsString,
  //              zqryMain.FieldByName('Anzahl').AsString, zqryMain.FieldByName('Preis').AsString);
  //zqryMain.Next
  //end;
  //zqryMain.Close;
end;