![]() |
|
|
|
|
#1
|
|||
|
|||
|
поля фио, вариант, дата добавляются при авторизации
Код:
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('INSERT INTO [Таблица1] ([фамилия],[вариант],[дата]) VALUES ('+QuotedStr(edit1.Text)+','+QuotedStr(combobox1.text)+','+QuotedStr(SysUtils.DateToStr(Date))+')');
ADOQuery2.ExecSQL;поле оценка Код:
ADOQuery2.SQL.Add('Update Таблица1 SET Оценка='+IntToStr(oko)+' ');
ADOQuery2.ExecSQL; |