![]() |
|
#1
|
|||
|
|||
![]() Здравствуйте!
Имею такой вот элементарный код записи строки в таблицу access-овской базы данных: Код:
procedure TForm2.SpeedButton1Click(Sender: TObject); begin form4.Table_Rab.Insert; form4.Table_Rab.Edit; form4.Table_Rab.FieldValues['n_r'] := form2.Memo1.Text; form4.Table_Rab.FieldValues['obgr'] := form2.Memo2.Text; form4.Table_Rab.FieldValues['ur1'] := ur1; form4.Table_Rab.FieldValues['ur2'] := ur2; form4.Table_Rab.FieldValues['ur3'] := ur3; form4.Table_Rab.FieldValues['ur4'] := ur4; form4.Table_Rab.FieldValues['kto'] := form2.ComboBox1.Text; form4.Table_Rab.FieldValues['v_r'] := form2.ComboBox2.Text; form4.Table_Rab.FieldValues['dk'] := form2.Edit5.Text; form4.Table_Rab.FieldValues['tz_GS'] := StrToFloat(form2.Edit1.Text); form4.Table_Rab.FieldValues['kil_GS'] := StrToInt(form2.Edit2.Text); form4.Table_Rab.FieldValues['obs_PS_r'] := StrToFloat(form2.Edit3.Text); form4.Table_Rab.FieldValues['kil_PS_r'] := StrToInt(form2.Edit4.Text); form4.Table_Rab.FieldValues['mat_PS'] := StrToFloat(form2.Edit6.Text); form4.Table_Rab.FieldValues['obs_PS_i'] := StrToFloat(form2.Edit7.Text); form4.Table_Rab.FieldValues['kil_PS_i'] := StrToFloat(form2.Edit8.Text); form4.Table_Rab.FieldValues['naim'] := form2.Edit9.Text; form4.Table_Rab.FieldValues['isp'] := polz; form4.Table_Rab.FieldValues['tim'] := now; form4.Table_Rab.Post; end; |