Добавляем последовательно два новых метода для нашего класса, my show s u и myrefresh, выбрав в меню Form команду New Method.

В код метода my show s u запишем следующие строчки:

ThisForm.mygo1.Com8.Enabled = .F. ThisForm.mygo1.Com9.Enabled = .F. MyUpdate = 0 IF Del = 0

ThisForm.mygo1.Myrefresh

ELSE

Del = 0 ENDIF

В код метода myrefresh запишем: ThisForm.Text1.Refresh ThisForm.Text2.Refresh ThisForm.Text3.Refresh ThisForm.Text4. Refres h ThisForm.Refresh list

В код события Click для кнопки Com1 запишем:

GO TOP

ThisForm.mygo1.Com1.Enabled = .F. ThisForm.mygo1.Com2.Enabled = .F. ThisForm.mygo1.Com4.Enabled = .T. ThisForm.mygo1.Com5.Enabled = .T. ThisForm.mygo1.MyRefresh

В код события Click для кнопки Com2 запишем:

IF BOF()=.F.

SKIP -1

ThisForm.mygo1.Com4.Enabled = .T. ThisForm.mygo1.Com5.Enabled = .T.

ELSE

ThisForm.mygo1.Com1.Enabled = .F. ThisForm.mygo1.Com2.Enabled = .F.

GO TOP ENDIF

ThisForm.mygo1.MyRefresh

В код события Click для кнопки Com3 запишем: DO FORM Find ord.scx

В код события Click для кнопки Com4 запишем:

IF EOF()=.F.

ThisForm.mygo1.Com1.Enabled = .T. ThisForm.mygo1.Com2.Enabled = .T.

SKIP 1

IF EOF() = .T.

ThisForm.mygo1.Com4.Enabled=.F.

ThisForm.mygo1.Com5.Enabled=.F.

GO BOTTOM ENDIF ELSE

ThisForm.mygo1.Com4.Enabled=.F. ThisForm.mygo1.Com5.Enabled=.F. GO BOTTOM ENDIF

ThisForm.mygo1.MyRefresh

В код события Click для кнопки Com5 запишем:

GO BOTTOM

ThisForm.mygo1.Com1.Enabled=.T. ThisForm.mygo1.Com2.Enabled=.T. ThisForm.mygo1.Com4.Enabled=.F. ThisForm.mygo1.Com5.Enabled=.F. ThisForm.mygo1.MyRefresh

В код события Click для кнопки Com6 запишем: INSERT INTO order view (key salman, key customer, key model) ; VALUES (order view.key salman, order view.key customer, order view.key model)

MyUpdate=1

ThisForm.mygo1.Com8.Enabled=.T.

ThisForm.mygo1.Com9.Enabled = .T.

ThisForm.Text1.Visible=.F.

ThisForm.mygo1.MyRefresh

В код события Click для кнопки Com7 запишем: Answer d = MESSAGEBOX("Удалить данную запись ?", 4+32+256, "Вопрос") IF Answer d=6

DELETE

Del =1

SKIP 1

IF EOF() = .T.

GO BOTTOM ENDIF

MyUpdate=1

ThisForm.mygo1.Com8.Enabled=.T. ThisForm.mygo1.Com9.Enabled=.T. ThisForm.mygo1.MyRefresh ENDIF

В код события Click для кнопки Com8 запишем:

=TABLEUPDATE(.T.,.T.) ThisForm.mygo1.My Show s u

В код события Click для кнопки Com9 запишем:

=TABLEREVERT(.T.)

ThisForm.mygo1.My Show s u

В код события Click для кнопки Com10 запишем:

IF MyUpdate=1

Answer s u = MESSAGEBOX("Сохранить изменения ?", 4+32, "Вопрос")

DO CASE

CASE Answer s u=6 &&Да

=TABLEUPDATE(.T.,.T.)

CASE Answer s u=7 &&Нет =TABLEREVERT(.T.) ENDCASE

ThisForm.mygo1.My Show s u

ENDIF

ThisForm.Release

Далее приведен программный код для событий проектируемой формы. На рис. 9.9 показан внешний вид разрабатываемой формы и отношения между описанными ниже объектами, событиями и методами.

\Ц1упа »ф>ид

Tri±mjMil

Нпиер заказа: pj

L[?rAI]TO:

Click!

ТВОТ ЫСЩ

kapaWepHcmisi модели автомобиля:

Cn»ic:DK а?т11маБнл?й

Клиент:

J]rat

Модель:

Тпк1

CULk: CliLk

CLLtik

Click

FIND ODD

CHLt I Clicfe:

С*<ьатп

Рис. 9.9. Отношения между объектами, событиями и методами в разрабатываемой форме Код для события Load формы: && В администраторе ODBC необходимо иметь соединение auto к БД Auto store

OPEN DATABASE Auto store EXCLUSIVE

CREATE CONNECTION remote 01 DATASOURCE auto

DO CASE

CASE LevDostup=1

= DBSETPROP(remote 01, CONNECTION, ConnectString, ; DSN=auto;UID=login lev1;PWD=lev1)

CASE LevDostup=2

=DBSETPROP(remote 01, CONNECTION, ConnectString, ; DSN=auto;UID=login lev2;PWD=lev2) CASE LevDostup=3

=DBSETPROP(remote 01, CONNECTION, ConnectString, ; DSN=auto;UID=login lev3;PWD=lev3) CASE LevDostup=4

=DBSETPROP(remote 01, CONNECTION, ConnectString, ; DSN=auto;UID=login lev4;PWD=lev4) CASE LevDostup=5

=DBSETPROP(remote 01, CONNECTION, ConnectString, ; DSN=auto;UID=login lev5;PWD=lev5) ENDCASE

&& Создаем просмотры a v=ADBOBJECTS(a view, VIEW) IF a v>>0

prm=ASCAN(a view, propmodel view)

lau=ASCAN(a view, lauto view)