Forum: Datenbanken
by EdAdvokat,
12. Apr 2017
Nach all den Mühen versuche ich nun eine Navigation für die Datentabelle zu implementieren. Geht das überhaupt in dem Programm, ähnlich dem DBNavigator. Als Pilotlösung habe ich einen Next-Button auf das Formular gelegt mit folgender Procedure:
procedure TMainFrm.btnNextClick(Sender: TObject);
begin
qryMain.Close;
qryMain.SQL.Clear;
qryMain.SQL.Text:='SELECT * FROM WARENVERKAUF1';
...
Forum: Datenbanken
by EdAdvokat,
12. Apr 2017
vergib es mir, es war schon spät und den Tag über wuseln meine beiden Enkel herum. Meine Konzentration war nicht mehr gegeben. Leider habe ich den Fehler gemacht, die mail auszudrucken und dann die Hinweise per Hand statt copy/paste einzugeben. Die Codevervollständigung habe ich eingeschaltet und benutze sie, doch hier und da habe ich wohl einfach nicht drauf gesehen und weitergeschrieben, stur...
Forum: Datenbanken
by EdAdvokat,
11. Apr 2017
So nun die letzte Variante für heute:
procedure TMainFrm.btnTestInput1Click(Sender: TObject);
var
CurrentCustomerID: string;
begin
//if IsEdit then
begin
CurrentCustomerID := lvProductList.Selected.Caption;
qryMain.SQL.Text:= 'UPDATE WARENVERKAUF1 SET ANZAHL = :ANZ WHERE ID= :CID';
//qryMain.SQL.Text:= 'UPDATE Warenverkauf1 SET KDNR = :KNR, NAME = :NAM, VORNAME = : VNA, FIRMA...
Forum: Datenbanken
by EdAdvokat,
11. Apr 2017
So nun der nächste Versuch Procedure btnTestInput1Click, also der neue Button für das neue InputEdit:
procedure TMainFrm.btnTestInput1Click(Sender: TObject);
var
CurrentCustomerID: string;
begin
//qryMain.SQL.Clear;
//qryMain.Params.Clear;
if IsEdit then
begin
CurrentCustomerID := lvProductList.Selected.Caption;
Forum: Datenbanken
by EdAdvokat,
11. Apr 2017
das qryMain.ExecSQL habe ich reingenommen, um die SELECT - Anweisung auszuführen. Muss man nicht schreiben? Als wieder raus.
Die isEdit Var. dient lediglich der Button-Sichtbarkeit.
Aus der UPDATE Anweisung habe ich schon die Memos rausgenommen. Welche sollten noch raus. Es könnte doch später mal sein, dass auch ein Name oder ein Produkt verändert werden, oder sehe ich das falsch. Nehmt es mir...
Forum: Datenbanken
by EdAdvokat,
11. Apr 2017
nach den Vorschlägen von K.H sieht meine Procedure für den neuen Testbutton so aus:
procedure TMainFrm.btnTestInput1Click(Sender: TObject);
var
CurrentCustomerID: string;
begin
qryMain.SQL.Clear;
qryMain.Params.Clear;
if IsEdit then
begin
CurrentCustomerID := lvProductList.Selected.Caption;
Forum: Datenbanken
by EdAdvokat,
11. Apr 2017
Hoffentlich stelle ich mich nicht zu blöd an. So sieht nun die neue ButtonClick-Procedure aus:
procedure TMainFrm.btnTestInput1Click(Sender: TObject);
var
CurrentCustomerID: string;
begin
qryMain.SQL.Clear;
qryMain.Params.Clear;
if IsEdit then
begin
Forum: Datenbanken
by EdAdvokat,
11. Apr 2017
Danke für die Mühe mit mir. Hoffentlich ist das richtig. Habe jedoch das ListView und die TEdits drin gelassen. Connect in ges. priv. Procedure und in OnCreate aufgerufen.
ConMain auf Inhalte geprüft. Datenbanktabelle wie gehabt. Verbindung besteht.
Forum: Datenbanken
by EdAdvokat,
11. Apr 2017
Danke, das war ein Flüchtigkeitsfehler naürlich muss es ...asInteger heißen.
Fehlermeldung: keine! Er läuft durch wie ein heißes Messer durch die Butter, doch keine Butter da. Also nach Eingabe von beliegigen Zahlen in des Editfeld und buttonClick (jetzt ohne Unterstrich) passiert nichts.
qryMain.ParamByName('Anzahl').asInteger:=strtoint(edtTestInput.text);
In der Liste ändert sich die...