Новости



Visual FoxPro 9 позволяет создавать ещё более производительные приложения баз данных.
Двадцатиление FoxPro! Microsoft принимает поздравления.
Visual FoxPro Toolkit for .NET - более 225 функций VFP 7.0, для языков .NET (подробнее)

fox00020.gif

* В следующем примере метод SetAll используется для свойства
* DynamicBackColor, чтобы задать цвета фона в записях элемента
* управления Grid. Если запись, отображенная в сетке, имеет четный
* номер, для ее свойства DynamicBackColor устанавливается белый цвет, в
* противном случае fox90001.gif зеленый.

* Элемент управления Grid помещается в форму, открывается таблица
*
customer и ее содержимое отображается в сетке. Свойство Caption
* используется для того, чтобы задать другое название заголовка
* (Customer ID) для поля CUST_ID. В форму включается командная кнопка,
* закрывающая ее.

CLOSE ALL && Close tables and databases

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer IN 0 && Opens Customer table

frmMyForm = CREATEOBJECT('Form') && Create a Form

frmMyForm.Closable = .f. && Disable the Control menu box

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



Новое на сайте

  • Обновлен портфель программиста

    Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский)
  • Новые примеры программ

    Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2)
  • Обновленна справка

    Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.