Freigeben über

Datenraster-Steuerelement (Grid)

  • Artikel

Erzeugt ein Datenraster.

Grid

Hinweise

Ein Datenraster ist ein Container-Objekt, das Daten in Zeilen und Spalten darstellt und einem Datenblattfenster ähnlich sieht. Ein Datenraster ist darüber hinaus ein Container-Objekt, das Spaltenobjekte enthält. Eine Spalte kann ein Spaltenkopf-Objekt und Steuerelemente enthalten. Sie haben vollständige Kontrolle über jedes Element im Datenraster, da das Datenraster und seine Spalten, Spaltenköpfe und Steuerelemente alle ihren eigenen Eigenschaften haben. Sie können ein Datenraster interaktiv mit Hilfe des Datenraster-Steuerelement-Assistenten erstellen.

Weitere Informationen zum Erstellen von Datenrastern finden Sie unter Verwenden von Steuerelementen.

Beispiel

Das folgende Beispiel platziert ein Datenraster-Steuerelement (Grid) in einem Formular. Die Tabelle customer wird geöffnet und ihr Inhalt im Datenraster angezeigt. Mit der Caption-Eigenschaft wird eine andere Spaltenkopfbeschriftung (Customer ID) für das Feld CUST_ID festgelegt. Zum Schließen des Formulars wird eine Befehlsschaltfläche auf dem Formular eingefügt.

Die SetAll-Methode wird zusammen mit der DynamicBackColor-Eigenschaft verwendet, um die Hintergrundfarben für die Datensätze anzugeben. Wenn die Nummer des im Datenraster dargestellten Datensatzes gerade ist, dann ist DynamicBackColor für diesen Datensatz Weiß, ansonsten Grün.

CLOSE ALL  && Close tables and databases
OPEN DATABASE (HOME(2) + 'data\testdata')

USE customer  IN 0  && Opens Customer table

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the window pop-up menu

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')  && Add Command button
frmMyForm.AddObject('grdGrid1','Grid')  && Add Grid control

frmMyForm.grdGrid1.Left = 25  && Adjust Grid position

frmMyForm.grdGrid1.SetAll("DynamicBackColor", ;
   "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) ;
   , RGB(0,255,0))", "Column")  && Alternate white and green records

frmMyForm.grdGrid1.Visible = .T.  && Grid control visible
frmMyForm.cmdCommand1.Visible =.T.  && "Quit" Command button visible
frmMyForm.grdGrid1.Column1.Header1.Caption = 'Customer ID'

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS cmdMyCmdBtn AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 210  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close form
      CLOSE ALL  && Close table and database
ENDDEFINE

Siehe auch

Eigenschaften, Methoden und Ereignisse des Datenraster-Steuerelements | Spaltenobjekt | CREATE CLASS | CREATE FORM | DEFINE CLASS | Header-Objekt