Реферат Система обліку громадян, які потребують житло

ery1. Parameters.ParamByName ('name'). DataType: = ftString;. ADOQuery1.Parameters.ParamByName ('name'). Value: = Edit2.Text; Form1.ADOQuery1.Parameters.ParamByName ('otch'). DataType: = ftString ;. ADOQuery1.Parameters.ParamByName ('otch'). Value: = Edit3.Text; Form1.ADOQuery1.Parameters.ParamByName ('day'). DataType: = ftDate;. ADOQuery1.Parameters.ParamByName ('day'). Value: = FormatDateTime ('dd.mm.yyyy', DateTimePicker1.Date);. ADOQuery1.Parameters.ParamByName ('sost'). DataType: = ftString;. ADOQuery1.Parameters.ParamByName ('sost'). Value: = Edit12.Text; Form1.ADOQuery1.Parameters.ParamByName ('city'). DataType: = ftString; ComboBox1.ItemIndex = 0 then.ADOQuery1.Parameters.ParamByName ('city'). Value: = ComboBox1.Items [0]; Form1.ADOQuery1.Parameters.ParamByName ('street'). DataType: = ftString; Form1.ADOQuery1.Parameters.ParamByName ('date_u'). Value: = FormatDateTime ('dd.mm.yyyy', DateTimePicker4.Date) CheckBox2.Checked = true then Form1.ADOQuery1.Parameters.ParamByName ('preg'). Value : = FormatDateTime ('dd.mm.yyyy', then Form1.ADOQuery1.Parameters.ParamByName ('grup'). DataType: = ftString;. ItemIndex = 0 then form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Аварійники'; RadioGroup1.ItemIndex = 1 then form1 . ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Без пільг'; RadioGroup1.ItemIndex = 2 then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Інваліди I групи'; RadioGroup1.ItemIndex = 4 then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Інваліди II групи' ; RadioGroup1.ItemIndex = 5 then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Інваліди війни'; RadioGroup1.ItemIndex = 6 then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Інваліди дитинства'; RadioGroup1.ItemIndex = 7 then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Незаможні'; RadioGroup1.ItemIndex = 8 then then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Молоді сім'ї'; RadioGroup1.ItemIndex = 10 thenForm1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'По захворюванню'; RadioGroup1. ItemIndex = 11 then.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'СПК'; RadioGroup1.ItemIndex = 13 thenForm1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Північ'; RadioGroup1.ItemIndex = 14 theForm1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Сироти'; RadioGroup1.ItemIndex = 15 then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Учасники ВВВ'; RadioGroup1.ItemIndex = 16 then Form1.ADOQuery1.Parameters.ParamByName ('grup'). Value: = 'Учасники лок. воєн';. ADOQuery1.ExecSQL;. SQL.Clear;. SQL...