/p>
. txtt.readonly=.t.
. txtinn.readonly=.t.
. txtrs.readonly=.t.
. txtkr.readonly=.t.
. txtnr.readonly=.t.
. txtgn.readonly=.t.
. txtgb.readonly=.t.
. txtdt.readonly=.t.thisform.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.Refresh
Формa KeyPress: nKeyCode, nShiftAltCtrlnKeyCode=27
IF MESSAGEBOX ( Ви хочете вийти? , 4, Увага )=6
thisform.Release.Refresh
Кнопка «Нова» (click): thisform
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
. txtdt.value={}
. txtpr.readonly=.f.
. txtad.readonly=.f.
. txtt.readonly=.f.
. txtinn.readonly=.f.
. txtrs.readonly=.f.
. txtkr.readonly=.f.
. txtnr.readonly=.f.
. txtgn.readonly=.f.
. txtgb.readonly=.f.
. txtdt.readonly=.f.
. refresh
Кнопка «Зберегти» (click): SAFETY OFFthisform.txtpr.ReadOnly=.T.
MESSAGEBOX ( Натисніть кнопку Нова ... , 0, Внимание !!! )
thisform.RefreshEMPTY (thisform.txtpr.Value) =. f. AND EMPTY (thisform.txtad.Value) =. F. AND EMPTY (thisform.txtt.Value) =. F. AND EMPTY (thisform.txtinn.Value) =. F. AND EMPTY (thisform.txtrs.Value) =. F. AND EMPTY (thisform.txtkr.Value) =. F. AND EMPTY (thisform.txtnr.Value) =. F.AND EMPTY (thisform.txtgn.Value) =. F.AND EMPTY (thisform.txtgb.Value) =. F. AND EMPTY (thisform.txtdt.Value) =. F.table1on pr TO table1.idxSEEK (thisform.txtpr.Value)
IF MESSAGEBOX ( Запис існує. Замінити? , 4, Внимание !!! )=6
REPLACE pr WITH thisform.txtpr.Value, ad WITH thisform.txtad.Value,; WITH thisform.txtt.Value, inn WITH thisform.txtinn.Value,; WITH thisform.txtrs.Value, kr WITH thisform.txtkr.Value,; WITH thisform.txtnr.Value, gn WITH thisform.txtgn.Value, gb WITH thisform.txtgb.Value, dt WITH thisform.txtdt.Value.Refreshthisform
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
. txtdt.value={}
. txtpr.readonly=.t.
. txtad.readonly=.t.
. txtt.readonly=.t.
. txtinn.readonly=.t.
. txtrs.readonly=.t.
. txtkr.readonly=.t.
. txtnr.readonly=.t.
. txtgn.readonly=.t.
. txtgb.readonly=.t.
. txtdt.readonly=.t.
. refreshthisform
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtgn.value=
. txtgb.value=
.txtdt.value={}.Refresh=thisform.txtpr.Value=thisform.txtad.Value=thisform.txtt.Value=thisform.txtinn.Value=thisform.txtrs.Value=thisform.txtkr.Value=thisform.txtnr.Value=thisform.txtgn.Value=thisform.txtgb.Value=thisform.txtdt.ValueINTO table1 (pr, ad, t, inn, rs, kr, nr, gn, gb, dt) VALUES (pr1, ad1, t1, inn1, rs1, kr1, nr1, gn1, gb1, dt1) thisform
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. tx...
