dw_1.Update();
dw_1.Retrieve()

if trim(sle_1.text) = '' or IsNull(sle_1.text) or trim(sle_2.text) = '' or IsNull(sle_2.text) or trim(sle_4.text) = '' or IsNull(sle_4.text) or trim(sle_5.text) = '' or IsNull(sle_5.text) or trim(sle_6.text) = '' or IsNull(sle_6.text) or trim(sle_8.text) = '' or IsNull(sle_8.text) then
messagebox('Внимание!', 'Вы не ввели данные!', StopSign!)
else
dw_1.InsertRow(1)
dw_1.SetItem(1, 'name', sle_1.text)
dw_1.SetItem(1, 'sname', sle_2.text)
dw_1.SetItem(1, 'tname', sle_3.text)
dw_1.SetItem(1, 'pol', sle_4.text)
dw_1.SetItem(1, 'dateofbirth', date(sle_5.text))
dw_1.SetItem(1, 'country', sle_6.text)
dw_1.SetItem(1, 'nachaloavtorstva', date(sle_8.text))
end if
if trim(sle_7.text) = '' or IsNull(sle_7.text) then
	dw_1.SetItem(1, 'dateofdeath', sle_7.text)
else
	dw_1.SetItem(1, 'dateofdeath', date(sle_7.text))
end if