donly=.t.
. txtrs.readonly=.t.
. txtkr.readonly=.t.
. txtnr.readonly=.t.
. txtgn.readonly=.t.
. txtgb.readonly=.t.
. txtdt.readonly=.t.
. refreshthisform.grid1
. coLUMN1.width=100
. coLUMN2.width=100
. coLUMN3.width=100
. coLUMN4.width=100
. coLUMN5.width=100
. coLUMN6.width=100
. coLUMN7.width=100
. coLUMN8.width=100
. coLUMN9.width=100
. coLUMN10.width=100
Кнопка «Вийти» (click):
IF MESSAGEBOX ( Ви хочете вийти? , 4, Увага )=6
thisform.Release.Refresh
Рис. 2.12 - Форма: sprav_sotr.scx
Формa INIT:
USE Таблица1 EXCLUSIVE.grid1.RecordSource=.null..grid1.RecordSource=laquo;Таблица1raquo;.grid1.column1.Width=100.grid1.column2.Width=300.grid1.column3.Width=160.grid1.column4.Width=160.grid1.ReadOnly=.T..Text1.ReadOnly=.T..Text2.ReadOnly=.T..Text3.ReadOnly=.T..Text4.ReadOnly=.T..Text5.ReadOnly=.T..Text7.ReadOnly=.T..Text8.ReadOnly=.T..Text9.ReadOnly=.f..text1.Value=0.text2.Value=laquo;raquo;.text3.Value=laquo;raquo;.text4.Value=0.text5.Value=0.text7.Value=laquo;raquo;.text8.Value=laquo;raquo;.Refresh()
Кнопка «Пошук» (click): EMPTY (ALLTRIM (Thisform.Text9.Value))=.F.Табліца1INDEXESFILE Табліца1.idxon tn TO Табліца1.idxSEEK (ALLTRIM (Thisform.Text9.Value)).Text9.Value= .Refresh ()
ELSEMESSAGEBOX ( Запис ненайдена (Перевірте регістри символів ...)! Створити новий запис? , 8, внимание !!! )=10.Text1.ReadOnly=.F.
thisform.Text2.ReadOnly=.f..Text3.ReadOnly=.f..Text4.ReadOnly=.f..Text5.ReadOnly=.f..Text7.ReadOnly=.f .. Text8.ReadOnly=.T..Text1.Value=0.Text2.Value=laquo;raquo;.Text3.Value=laquo;raquo;.Text4.Value=0.Text5.Value=0.Text7.Value=laquo;raquo;.Text8.Value=laquo;raquo;.Refresh().Text9.readonly=.F..Text9.Value= Laquo; .Refresh ()
ENDIF ( Запис ненайдена (Перевірте регістри символів ...)! Введіть дані !!! , 0, Внимание !!! )
thisform.Text9.Value=
Кнопка «Нова» (click) :. grid1.ReadOnly=.T..text1.ReadOnly=.f..text2.ReadOnly=.f..text3.ReadOnly=.f..text4.ReadOnly=.f..text5.ReadOnly=.f..text7.ReadOnly=.f..text8.ReadOnly=.f..text9.ReadOnly=.T..text1.Value=0.text2.Value=laquo;raquo;.text3.Value=laquo;raquo;.text4.Value=0.text5.Value=0.text7.Value=laquo;raquo;.text8.Value=laquo;raquo;.Refresh()
Кнопка «Зберегти» (click): EMPTY (Thisform.Text1.Value)=.f.INDEXESFILE Табліца1.idxon tn TO Табліца1.idxSEEK (Thisform.Text1.Value)
IF MESSAGEBOX ( Запис существует !!! Замінити її? , 8, Внимание !!! )=10Табліца1tn WITH thisform.Text1.Value, fio WITH thisform.Text2. Value, dol WITH thisform.Text3.Value, kold WITH thisform.Text4.Value, Stz WITH thisform.Text5.Value, adr WITH thisform.Text7.Value, obr WITH thisform.Text8.Value.grid1.ReadOnly=.T..Text1.Value=0.Text2.Value=laquo;raquo;.Text3.Value=laquo;raquo;.Text4.Value=0.Text5.Value=0.Text7.Value=laquo;raquo;.Text8.Value=laquo;raquo;
MESSAGEBOX ( Запис замінена !!! , 0, Внимание !!! )
thisform.Refresh () Табліца1BLANKtn WITH thisform.Text1.Value, fio WITH thisform.Text2.Value, dol WITH thisform.Text3.Value, kold WITH thisform.Text4.Value, Stz WITH thisform.Text5.Value, adr WITH thisform.Text7.Value, obr WITH thisform.Text8.Value.Refresh (). grid1.ReadOnly=.T..Text1.Value=0.Text2.Value=laquo;raquo;.Text3.Value=laquo;raquo;.Text4.Value=0.Text5.Value=0.Text7.Value=laquo;raquo;.Text8.Value=laquo;raquo;Таблица1BLANKtn WITH thisform.Text1.Value, fio WITH thisform.Text2.Value, dol WITH thisform.Text3.Value, kold WITH thisform.Text4.Value, Stz WITH thisform.Text5.Value, adr WITH thisform.Text7.Value, obr WITH thisform.Text8.Value.grid1.ReadOnly=.T..Text1.Value=0.Text2.Value=laquo;raquo;.Text3.Value=laquo;raquo;.Text4.Value=0.Text5.Value=0.Text7.Value=laquo;raquo;.Text8.Value=laquo;raquo;
MESSAGEBOX ( Запис добавленна !!! , 0, Внимание !!! )
thisform.Refresh () ( Введіть код !!! , 0, Внимание !!! )
Кнопка «Скасувати» (click):
thisform.grid1.ReadOnly=.T..text1.ReadOnly=.T..text2.ReadOnly=.T..text3.ReadOnly=.T..text4.ReadOnly=.T .. text5.ReadOnly=.T..text7.ReadOnly=.T..text8.ReadOnly=.T..text9.ReadOnly=.F..text1.Value=0.text2.Value=laquo;raquo;.text3.Value=laquo;raquo;.text4.Value=0.text5.Value=0.text7.Value=laquo;raquo;.text8.Va...