Grafische Darstellung von Platzreservierungen

[Cronen]

Für ein Reservierungssystem will ich die Buchungen aus einer Datenbank grafisch darstellen (ähnlich wie im Theaterplan in der angehängten Grafik).
An der Darstellungen werden folgende Anforderungen gestellt:
1. es sollen 3 Zustände dargestellt werden können (frei/belegt/gesperrt)
2. es werden bis zu 200 Plätze verwaltet
3. die Pläne müssen unregelmäßig sein können (ich kann also kein Grid verwenden)
4. Plätze sollen auf Klick reagieren also buchbar sein

In der Struktur der Datenbank bin ich noch völlig frei.Die Pläne werden programmseitig eingebunden, brauchen also nicht vom User editierbar sein.
Ich habe bereits verschiedenes ausprobiert komme aber zu keiner brauchbaren Lösung;
z.B. hatte ich über jeden Platz ein Label gelegt und entsprechend die Background-Farbe gesetzt.
Hat jemad einen Lösungsansatz für mich?

[Nersgatt]

Ich würde die Pläne trotzdem ein bisschen editierbar machen :-D Vielleicht nicht für den User, aber für Dich.
Leg ne Tabellen an mit folgenden Spalten:

SAELE
SaalID, Bezeichnung

SAELE_PLAETZE
Platz-ID, PosX, PosY, SaalID

Mit PosX und PosY kannst Du den Platz auf Deinem Saalplan angeben. Ich würde die Angabe vielleicht in Pixeln machen. Ist am einfachsten. Die beiden Tabellen kannst Du ja manuell füllen, so dass ordentliche Saalpläne dabei rauskommen.
Bei den Saalplänen musst Du jetzt die Plätze dynamisch erstellen. Die Positionen hast Du ja. Und da nimmst Du einfach ein TImage welches Du im Code dynamisch erstellst. Status (Frei, Belegt, Gesperrt) würde ich über Farben machen.

Nun brauchst Du nur noch Tabellen für Vorstellungen:
VORSTELLUNGEN
ID, Bezeichnung, SaalID, Datum, etc.

VORSTELLUNGEN_PLAETZE
VorstellungID, PlatzID, Status (0, 1, 2)

Und schon kannst Du für jede Vorstellung für jeden Platz den Status pflegen. Die Saalpläne dynamisch erstellen wird meiner Meinung nach nicht mehr Aufwand sein, als wenn man z.B. 5 Saalpläne fest codiert. Und es ist definitiv besser erweiterbar.

[hathor]

TxpButton

http://www.torry.net/vcl/buttons/packs/xpCtrl.zip
oder
http://anigators.com/projekte/TXPButton/index.html

[Bummi]

IMHO am schnellsten umzusetzen, mit Datenbank, gegf. einen kleinen Editor schreiben

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TStuhlInfo=Record
    RGN:HRGN;
    Color:TColor;
    ID:Integer;
    // was auch immer noch benötigt wird
  End;
  TStuhlArray=Array of TStuhlInfo;
  TForm2 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    FStuhlArray:TStuhlArray;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }

  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
type
   pArray=Array[0..3] of TPoint;
var
    p:pArray;
begin

  // hier nur exemplarisch 1 Stuhl  >> wahrscheinlich am besten aus einer Datenbank
  SetLength(FStuhlArray,1);
  p[0].X := 10;
  p[0].y := 10;
  p[1].X := 100;
  p[1].y := 20;
  p[2].X := 90;
  p[2].y := 110;
  p[3].X := 0;
  p[3].y := 100;
  FStuhlArray[0].RGN := CreatePolygonRgn(p,4,WINDING);
  FStuhlArray[0].Color := clRed;
end;

procedure TForm2.FormDestroy(Sender: TObject);
var
 i:Integer;
begin
  for I := Low(FStuhlArray) to High(FStuhlArray) do  Deleteobject(FStuhlArray[i].RGN);
end;

procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
 i:Integer;
begin
  for I := Low(FStuhlArray) to High(FStuhlArray) do
    if PtInRegion(FStuhlArray[i].RGN,x,y) then Showmessage(IntToStr(i));


end;

procedure TForm2.FormPaint(Sender: TObject);
var
 i:Integer;
begin
    for I := Low(FStuhlArray) to High(FStuhlArray) do
      begin
        Canvas.Brush.Color := FStuhlArray[i].Color;
        FillRgn(Canvas.Handle,FStuhlArray[i].RGN,Canvas.Brush.Handle);
      end;
end;

end.

[Cronen]

So, ich habe den Vorschlag von Bummi mal ausprobiert. Das scheint mir eine gangbare Lösung zu sein.
Der Weg mit HRGN mit CreatePolygonRgn oder anderen Create...Rgn -Funktionen ist wohl relativ unproblematisch mit einer Datenbank zu realisieren.
Folgendes Problem stellt sich mir aber noch:
Als Hintergrund habe ich ein TImage mit dem Grundriss. FillRgn zeichnet aber auf dem Form und wird daher
überlagert. (Ich hab versuchsweise mal als Canvas den vom Image angegeben -> funktioniert nicht)

[Ralf Kaiser]

Wäre das HotspotImage von TMS etwas für das Problem?

Damit kann man ein Bild laden und beliebige Bereiche als klickbar definieren.

[Cronen]

@ Ralf Kaiser
Vielen Dank für den Tip.Hab mir die Trial dazu mal runtergeladen.
Das Europa-Quiz bei den Demos könnte in etwa ein Lösung sein.
Ich muss mir aber die Möglichkeiten der DB-Anbindung mal näher
ansehen. Ich werde morgen oder so die Compo mal installieren.
Heute komm ich nicht mehr dazu.

[Popov]

Mal davon abgesehen, dass ich eine Software habe die so was von perfekt für diese Aufgabe geeignet ist, aber sie kostet etwa 10000 Euro pro Lizenz. Also zurück zu Delphi.

Ich habe ein ähnliches Projekt zu lösen gehabt und muß sagen, daß man die Sache mit den Polygonen sehr gut lösen kann. Zwar ist das am Anfang eine Fleißarbeit alle Polygone zu zeichnen, aber dann ist es easy.

Was ich dir aber gleich zu Anfang empfehlen möchte ist: achte auf skalierbarkeit. Das sind paar Minuten mehr Kopfarbeit, die sich später evtl. auszahlen.

[Bummi]

Du kannst die Routine auf jedem beliebigen Canvas malen lassen.
In dem von Dir beschriebenen Fall würde ich eine Paintbox nehmen, im OnDraw zuerst den Grundriss malen lassen und danach die Polygone, Du musst dann natürlich das MouseDown der Paintbox verwenden.

[Dimonka]

Ich habe auch was endliches angefangen zu machen. Als Grundlage habe ich Layers und GR32 genommen. Damit kann man Click Events und auch Skalierung und Zeichnung mit Antialiasing machen. Leider bin ich noch bei Sitzplanung geblieben. Reservierung will ich Online in PHP machen.