Datensatz Sortierreihenfolge ändern und verschieben

[DevStar]

Hallo,

ich habe ein dbGrid mit einer Spalte "Sortorder", d.h. in dieser Reihenfolge werden die Datensätze angezeigt.

SQL-Code:

Lfd. Nummer     Name         Vorname     Sortorder
1               Müller       Lieschen    1
2               Maier        Peter       5         <---------
3               Schulze      Jan         2
4               Werner       Otto        3
5               Ellenberger  Markus      4

Jettz möchte ich die Reihenfolge eines Datensatz verschieben, indem ich ihn nach oben oder unten verschiebe. Am besten über einen Button bzw. zwei Button.

In diesem Fall müssten sich die nachfolgenden Werte von Sortorder aber auch immer mitändern.

Ich habe das mal bei einer Paradox-DB gesehen und das ging dort sehr schnell.

Gruß DEVSTAR

[mkinzler]

Erweitere die Tabelle um ei entsprechendes Feld, nachdem du dann sortierst

[DevStar]

Ja, das Feld Sortorder gibt es ja schon.

[Sharky]

Zitat von DevStar:

Ja, das Feld Sortorder gibt es ja schon.

Das dürfte nicht so leicht sein.
Wenn Du einen Datensatz verschieben möchtest musst Du ja bei allen Datensätzen das "Sortierfeld" in der Tabelle updaten.

[Angel4585]

Ich mach das so, dass dieses Sortfeld ein flieskommafeld ist. wenn ich jetz en datensatz verschiebe nimm ich einfach den wert der nächsten und übernächsten und gib dem eintrag die hälfte davon.
Irgendwann gibts dann aber ne berechnungsgrenze, dann muss man einfach einmal mit ner funktion drüber und alles durchnummerieren.

[DeddyH]

Wieso bei allen? IMHO dürften doch die beiden auszutauschenden genügen, oder irre ich mich? Beispiel:

Code:

1 Erster DS
2 Zweiter DS
3 Dritter DS
4 Vierter DS

Wenn man nun z.B. 2 und 3 tauschen möchte, könnte das doch so funktionieren (erstes Update):

Code:

1 Erster DS
0 Zweiter DS //temporär auf 0 oder eine andere nicht existente Zahl
3 Dritter DS
4 Vierter DS

Zweites Update:

Code:

1 Erster DS
0 Zweiter DS 
2 Dritter DS //alter Wert des "0"-DS
4 Vierter DS

Drittes Update:

Code:

1 Erster DS
3 Zweiter DS //alter Wert des anderen DS 
2 Dritter DS
4 Vierter DS

In Reihenfolge dann:

Code:

1 Erster DS
2 Dritter DS
3 Zweiter DS 
4 Vierter DS

[Sharky]

Zitat von DeddyH:

Wieso bei allen? IMHO dürften doch die beiden auszutauschenden genügen, oder irre ich mich? ...

Im zweifell irrst immer Du
Ne, ich hatte erst einen halben Kaffee und da war mein "Gehirn" noch nicht auf voller Leistung.

Sharky meint dazu

DeddyH hat recht

[DeddyH]

Zitat von Sharky:

Ne, ich hatte erst einen halben Kaffee und da war mein "Gehirn" noch nicht auf voller Leistung.

Verständlich, da war ich Dir 1 1/2 Tassen voraus

[DevStar]

Zitat von DeddyH:

Wieso bei allen? IMHO dürften doch die beiden auszutauschenden genügen, oder irre ich mich?

Stimmt, 2 reichen.

Klappt nur nicht.....

Code für "Nach-Oben-Schieben" im Grid

Delphi-Quellcode:

      with DataModule.DataSet do
        begin
          Open;
          if Locate('SORTORDER', IntToStr(iSortorder), [loCaseInsensitive]) then
            iSortorder := FieldByName ('SORTORDER').AsInteger;


          iOldSortorder := iSortorder;
          iNewSortorder := iSortorder-1;

          sSQL_Befehl1 := 'UPDATE kunden SET sortorder = ' + IntToStr(iNewSortorder) + ' '+   
                          'WHERE sortorder = ' + IntToStr(iOldSortorder) + '';

          sSQL_Befehl2 := 'UPDATE kunden SET sortorder = ' + IntToStr(iOldSortorder) + ' '+
                          'WHERE sortorder = ' + IntToStr(iNewSortorder) + '';
        end;

[Angel4585]

vor dem zweiten update bzw nach dem ersten dürften die zahlen gleich sein, weswegen das zweite dann beide wieder auf das andere macht.