Forum: Datenbanken
Delphi
by Hansa,
2. Jan 2003
ursprünglicher Code :
procedure TLiefStamm.Button2Click(Sender: TObject);
begin
IF NOT LiefModul.LiefDS.IsEmpty THEN BEGIN
IF LiefModul.LiefDS.Modified THEN BEGIN
if MessageDlg('Soll der Datensatz gespeichert werden ?',
mtInformation, , 0) = mrYes then begin
LiefModul.LiefDS.post;
LiefModul.TransAction.Commit;
Forum: Datenbanken
Delphi
by Hansa,
2. Jan 2003
Hi,
ich glaube, ich habe das etwas irreführend erklärt. So wie es oben steht, also mit Showmessage, geht alles richtig, nur steht dann die Showmessage im Weg. Mache ich diese weg, kommt der beschriebene Effekt. Die Message kam durch Zufall ins Spiel, weil ich auf die Schnelle sehen wollte, ob ein Programmteil durchlaufen wird. Und sieh an, ohne weitere Änderung war das Programm (bis auf die...
Forum: Datenbanken
Delphi
by Hansa,
1. Jan 2003
Hi,
ich habe Forms mit 3 Seiten voler Datenfeldern. Dann müßte man aber eine globale Routine haben, die alle Felder automatisch abcheckt. Würde mich mal interessieren, wie das geht. Aber es geht einfacher : Die DataSets haben eine Funktion "modified" :
procedure Form1.Button2Click(Sender: TObject);
begin
IF NOT LiefModul.LiefDS.IsEmpty THEN BEGIN
showmessage ('LJLÖK');
IF...
Forum: Datenbanken
Delphi
by Hansa,
1. Jan 2003
Hi,
habe hier ein Problemchen. Beim Beenden der Bearbeitung habe ich eine Box, wo drin steht :"Soll der Datensatz gespeichert werden ?".
Wenn ich einen Datensatz ändern will und z.B. die falsche Nr. erwischt habe, verlasse ich die Form und gebe die richtige Nr. ein. Da ich nichts geändert habe ist obige Box wohl überflüssig. Wo kriege ich nun ein Entscheidungsmerkmal her, ob etwas geändert...