lue=laquo;raquo;.text9.Value=laquo;raquo;
Кнопка «Вийти» (click):
CLOSE TABLES.Release ()
Рис. 2.13 - Форма: redsprav_sotr.scx
Кнопка «Змінити» (click): MESSAGEBOX ( Ви дійсно хочете змінити запис ??? , 4, Внимание !!! )=6табліца1=tn
fio1=fio=dol=kold=stz=adr=obr.Text1.Value=tn1.Text2.Value=fio1.Text3.Value=dol1.Text4.Value=kold1.Text5.Value=stz1.Text7.Value=adr1.Text8.Value=obr1thisform
. Text1.readonly=.f.
. Text2.readonly=.f.
. Text3.readonly=.f.
. Text4.readonly=.f.
. Text5.readonly=.f.
. Text7.readonly=.f.
. Text8.readonly=.f.
. refresh.Refresh
Кнопка «Видалити» (click):
IF MESSAGEBOX ( Ви хочете видалити запис? , 4, УВАГА !!! )=6
SELECT Таблица1.grid1.RecordSource=.null..grid1.RecordSource=laquo;Таблица1raquo;.grid1.column1.Width=100.grid1.column2.Width=300.grid1.column3.Width=100.Grid1.ReadOnly=.T..text1.ReadOnly=.T..text2.ReadOnly=.T..text3.ReadOnly=.T..text4.ReadOnly=.T..text5.ReadOnly=.T..text7.ReadOnly=.T..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()Таблица1.grid1.ReadOnly=.T..text1.ReadOnly=.T..text2.ReadOnly=.T..text3.ReadOnly=.T..text4.ReadOnly=.T..text5.ReadOnly=.T..text7.ReadOnly=.T..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()
Кнопка «Скасувати» (click) :. 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;.text9.Value=laquo;raquo;
Кнопка «Застосувати» (click): EMPTY (thisform.Text1.Value) =. t. AND thisform.Text1.ReadOnly=.T.
MESSAGEBOX ( Немає об'єкта для збереження ... Натисніть змінити !!! , 0, УВАГА !!! ) MESSAGEBOX ( Ви хочете застосувати зміни? , 4, Увага ... )=6
SELECT Табліца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.Valuethisform
. Text1.value=0
. Text2.value=
. Text3.value=
. Text4.value=0
. Text5.value=0
. Text7.value=
. Text8.value=
. Text1.readonly=.t.
. Text2.readonly=.t.
. Text3.readonly=.t.
. Text4.readonly=.t.
. Text5.readonly=.t.
. Text7.readonly=.t.
. Text8.readonly=.t.
. refreshthisform
. Text1.value=0
. Text2.value=
. Text3.value=
. Text4.value=0
. Text5.value=0
. Text7.value=
. Text8.value=
. Text1.readonly=.t.
. Text2.readonly=.t.
. Text3.readonly=.t.
. Text4.readonly=.t.
. Text5.readonly=.t.
. Text7.readonly=.t.
. Text8.readonly=.t.
. refresh.Refresh
Кнопка «Вихід» (click):
CLOSE TABLES.Release (
Рис. 2.14 - Форма: narad.scx
Формa INIT:
PUBLIC put=SYS (5) + ALLTRIM (SYS (2003)) PATH TO amp; putTALK OFFDATABASE 1table2 EXCLUSIVE.Closable=.F.thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table2
. txttn.value=0
. txtcex.value=0
. txtrab.value=
. txtpr.value=
. txtraz.value=0
. txtn.value=0
. txtrabo.value=
. txted.value=
. txtkol.value=0
. txtdt.value={}
....
