überfordert ~.~

[SubData]

@Perlsau, @Delphi-Laie

Sorry für das OT, aber ich möchte euch beide mal daran erinnern, dass auch ihr mal Anfänger wart und viele Dinge,
die für uns "alte Hasen" absolut selbstverständlich sind, für Neulinge eben nicht so selbstverständlich rüber kommen.
Ihr habt beide manchmal eine sehr harsche und direkte Schreibweise, die viele mit Sicherheit auch abschrecken wird.
Ob gerechtfertigt oder nicht, lass ich einfach mal im Raum stehen.

Ich möchte einfach kurz daran appelieren, dass ihr vielleicht ein wenig vorsichtiger und verständnisvoller an neue
Poster herangeht und nicht gleich das schlechteste annehmt bzw. ein wenig sanfter mit euren Formulierungen umgeht.

Sorry, wollte ich einfach mal los werden.


Kleiner Nachtrag: Ja, ich hätte das auch per PN machen können, da mir in einzelnen Fällen auch schon andere aufgefallen
sind, auf die das ebenso zutrifft, ist das eher ein Hinweis an die Allgemeinheit. Nicht nur auf die beiden persönlich
bezogen. Ausserdem soll das kein Angriff, sondern ein gut gemeinter Rat sein

[Delphi-Laie]

Zitat von SubData:

@Perlsau, @Delphi-Laie

Sorry für das OT, aber ich möchte euch beide mal daran erinnern, dass auch ihr mal Anfänger wart und viele Dinge,
die für uns "alte Hasen" absolut selbstverständlich sind, für Neulinge eben nicht so selbstverständlich rüber kommen.
Ihr habt beide manchmal eine sehr harsche und direkte Schreibweise, die viele mit Sicherheit auch abschrecken wird.
Ob gerechtfertigt oder nicht, lass ich einfach mal im Raum stehen.

Ich motze aber niemanden voll (was allerdings nicht implizit bedeutet, daß ich es Perlsau in dieser Diskussion unterstelle). Ich weiß, daß aller Anfang schwer ist und bin immer noch nur mittelleicht fortgeschrittener.

Und eines wirst Du bei mir nirgendwo finden: Daß ich mein Selbstwertgefühl daran aufpoliere, daß ich vermeintliche oder tatsächliche (in jedem Falle aber unbewiesene) "Crossposter" jage und erlege.

An Sergejs Reaktion ist ja wohl abzulesen, daß ich mich eher gemäßigt ausdrückte (und es zudem auch so meinte)

[p80286]

Manno Mann,
Jetzt ist aber langsam gut!
Ein bischen krabitzig ist ja gut aber so helfen wir sergej nicht unbedingt weiter.

Gruß
K-H

[Aviator]

Hallo Sergej,
bin auch gerade mal über dein Programm drübergeflogen. Mir sind einige Dinge aufgefallen, die auch die Stabilität des Programms in Frage stellen könnten. Du benutzt z.B. als Name deines TPageControl das Wort "register". Register ist allerdings in Delphi ein reservierter Begriff und im falschen Kontext durchaus auch falsch zu verstehen.
Des Weiteren schließe ich, bevor ich einer Query einen neuen SQL.Text zuweise, immer zuerst die Query, weiße dann den String zu und öffne sie dann erst wieder.

Das hier:

Delphi-Quellcode:

For zeile := 1 to 20 DO                      //Zeilen im DBGrid hochzaehlen
      begin
       with DBGrid1.DataSource.DataSet do
         begin
          RecNo := Zeile;
          s:= Fields[spalte-1].AsString;
         end;
         b:=strtoint(s);
      end;

solltest du vielleicht in eine

Delphi-Quellcode:

while NOT ADOQuery_Buchen2.EOF do begin
...
  ADOQuery_Buchen2.Next;
end;

Schleife verpacken. Somit kannst du sicher sein, dass immer alle Datensätze ausgelesen werden. Sollten mal weniger DS in der DB vorhanden sein, wird dir dein Programm einen Fehler melden. Sind mehr drin, werden diese nicht ausgelesen.

Die Daten solltest du wie auch schon von "nahpets" beschrieben, direkt vergleichen und nicht erst in einen String umwandeln. Des Weiteren übergibst du bei deinem SQL-Statement die Daten in Form eines Strings. In der DB ist das Feld aber als DateTime Feld angelegt. Warum sind die "#"-Zeichen vor und hinter dem jeweiligen Datum angebracht? Sollten das Hochkommata " ' " sein? Wenn ja, schau dir bitte mal die Funktion QuotedStr() an. Die erledigt genau das. Wobei das in diesem Fall nicht benutzt werden soll. DateTime Werte können direkt an eine DB per SQL-Statement übergeben werden.

Zu deinem Problem mit dem Einfügen in die Datenbank beim Klick auf "Buchen".
Ein Hinweis noch wenn ihr mir den erlauben darf. Lagere doch Speicherprozeduren aus und durchlaufe nicht alles im OnButtonClick Event. Das kann dir auch beim Finden deiner Fehler helfen.

Das Hinzufügen der Werte in die DB musst zu nicht zwingend über das "INSERT INTO" Statement machen. Du kannst über deine ADOQuery_Buchen auch in etwa so etwas machen:

Delphi-Quellcode:

with ADOQuery_Buchen do begin
  Append;
  FieldByName('Pass_Nr').AsInteger := NaechtePassNr;
  FieldByName('Zimmer_Nr').AsInteger := ZimmerNr;
  ...
  Post;
end;

Alternativ zu FieldByName() kannst du auch Fields[I] benutzen. Bei C ist Fields[I] zumindest als schneller angegeben. Wie es bei Delphi aussieht weiß ich nicht genau.
Wenn du das Eintragen in die DB per "INSERT INTO" machen willst, dann sag nochmal bescheid. Dann müssen wir uns dein SQL-Statement mal genauer ansehen.

[kwhk]

Zitat:

anreise:=(DatetoStr(bu_anreise.Date));
abreise:=(DatetoStr(bu_abreise.Date));

if (anreise >= abreise) then

Hierbei werden die Datum-Angaben jeweils in Strings des Formates TT/MM/JJJJ gewandelt und so verglichen.
Datum-String-Vergleiche sollte man aber immer im Format JJJJ/MM/TT durchführen, andernfalls ist der 02/04/2013 kleiner als der 31/03/2013.

[DeddyH]

Wieso eigentlich Datumswerte als String vergleichen statt gleich als TDate(Time)?

[kwhk]

Dazu hat er etwas gesagt

Ich hab auch ein Teil des Quelltextes als Kommentar gesetzt, da ich zu Hause mit Turbo Delphi und in der Schule mit Delphi 6 arbeite. Bsp. das Datum dass ich benutze ...in Turbo Delphi klappt es ganz normal und Delphi 6 muss ich es erst zwerlegen und dann wieder zusammenfügen und wenn ich die Version von Delphi 6 zu Hause mache, dann gehts nicht.