2 kleine Datenbank fragen

[ironman139]

So siehts momentan aus:

Delphi-Quellcode:

 v:=v+1;

    Label16.caption:=IntToStr(v);


  SQLQuery1.Close;

  SQLQuery1.SQL.Text:='UPDATE tblvar  SET (Auftragsnummer) VALUES ( :Auftragsnummer)';
  SQLQuery1.ParamByName('Auftragsnummer').AsString:= IntToStr(v) ;
  SQLQuery1.ExecSQL;
  SQLTransaction1.commit;

Bei der OnCreate Methode lass ich v auf den Wert der Tabelle setzten.
Aber irgendwie funktioniert das so nicht

Edit: Ich hab mir gerade einen neuen Ansatz überlegt, da ja die Auftragsnummer mit dem Patient verknüpft werden muss. Anstatt die Auftragsnummer in einer extra Tabelle zu speichern kann ich die ja auch in die Patiententabelle mit reinspeichern und wenn ich dann das Programm wieder öffne, den letzten Eintrag auslesen und dann 'letzter Eintrag +1' Oder geht das so nicht ?



Gruß iron

[Perlsau]

Zitat von ironman139:

Oder geht das so nicht ?

Soweit mir als selbständigem Gewerbetreibenden bekannt, verlangt das Finanzamt, daß Auftragsnummern fortlaufend und lückenlos zu führen sind. Nur so ist für das Finanzamt nachvollziehbar, daß bei der Steuererklärung keine Aufträge unterschlagen bzw. alle Einnahmen angegeben wurden.

Offenbar möchtest du eine Praxis-Verwaltungssoftware schreiben. Da wäre es hilfreich, sich zuerst einmal die bekannten und in scharfer Konkurrenz zueinander stehenden Produkte anzuschauen. Medizinische Betriebe – also Ärzte, Krankengymnastik-Betriebe usw. – unterliegen gewissen Bestimmungen hinsichtlich ihrer Verwaltungssoftware. Dazu gehören u.a. eine übersichtliche Terminverwaltung, Patientenverwaltung, Therapieverwaltung, Auftragsverwaltung, Rechnungsverwaltung, Rezeptverwaltung, Krankenkassen-Abrechnungsverwaltung, Kartenlese-Einheit und vieles mehr. Wie diese Bestimmungen genau sind, solltest du vielleicht vor Entwicklungsbeginn recherchieren.

[ironman139]

Nein nein, so profesionell soll das Programm gar nicht werden, dafür haben wir andere.
Das Programm dient zum ,, Laufzettel" schreiben für ein Produkt was Hausintern gefertigt wird.
Der Zettel dient nur um die Kiste zu beschriften, und eben um ein paar Daten dem Patient zu zu ordnen.
Dieser wird am Ende des Produktionsprozesses wieder entsorgt.

[DeddyH]

Ihr entsorgt Patienten?

[BUG]

Zitat von DeddyH:

Ihr entsorgt Patienten?

Ist vielleicht die Pathologie ... oder es ist der Zettel gemeint

Zitat von ironman139:

Das Programm dient zum "Laufzettel" schreiben für ein Produkt was Hausintern gefertigt wird.
Der Zettel dient nur um die Kiste zu beschriften, und eben um ein paar Daten dem Patient zu zu ordnen.

Klingt ein bisschen wie Kanban.

[ironman139]

Nein wir entsorgen keine Patienten

kann mir jetzt einer verraten, wie der UPDATE befehel aussehen muss , da es so nicht funktioniert wie ich es mache

Delphi-Quellcode:

procedure TForm1.Edit4Change(Sender: TObject);
var nr : String;

begin

  nr:=Edit4.Text;


  {SQLQuery1.Close;

  SQLQuery1.SQL.Text:='UPDATE  tblvar  (Bath) VALUES (NULL, :Bath)';
  SQLQuery1.ParamByName('Bath').AsString:= nr ;

  SQLQuery1.ExecSQL;
  SQLTransaction1.commit;
                           }

Gruß Tim

[DeddyH]

Wozu ist denn das NULL gedacht? Im Übrigen vermischst Du die UPDATE- mit der INSERT-Syntax.
INSERT INTO Tabelle(Feld1, Feld2, ...) VALUES(Wert1, Wert2, ...) UPDATE Tabelle SET Feld1 = Wert1, Feld2 = Wert2, ... [WHERE Bedingung]