Добавлен: 29.10.2023
Просмотров: 62
Скачиваний: 2
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
:.ADOQuery1.FieldByName('Код заказчика').AsString:=Edit1.Text;.ADOQuery1.FieldByName('Вид поломки').AsString:=Edit2.Text;.ADOQuery1.FieldByName('Заказчик').AsString:=Edit3.Text;.ADOQuery1.FieldByName('Стоимость').AsString:=Edit4.Text;.ADOQuery1.FieldByName('Предприятие').AsString:=Edit5.Text;;
:.ADOQuery1.FieldByName('Код заказчика').AsString:=Edit1.Text;.ADOQuery1.FieldByName('Имя заказчика').AsString:=Edit2.Text;.ADOQuery1.FieldByName('Фамилия заказчика').AsString:=Edit3.Text;.ADOQuery1.FieldByName('Должность').AsString:=Edit4.Text;.ADOQuery1.FieldByName('Отдел').AsString:=Edit5.Text;.ADOQuery1.FieldByName('Номер телефона').AsString:=Edit5.Text;;
:.ADOQuery1.FieldByName('Код специалиста').AsString:=Edit1.Text;.ADOQuery1.FieldByName('Имя специалиста').AsString:=Edit2.Text;.ADOQuery1.FieldByName('Наименование заявки').AsString:=Edit3.Text;.ADOQuery1.FieldByName('Стоимость').AsString:=Edit4.Text;;
:.ADOQuery1.FieldByName('Код специалиста').AsString:=Edit1.Text;.ADOQuery1.FieldByName('Имя специалиста').AsString:=Edit2.Text;.ADOQuery1.FieldByName('Фамилия специалиста').AsString:=Edit3.Text;.ADOQuery1.FieldByName('Номер телефона').AsString:=Edit4.Text;;
:.ADOQuery1.FieldByName('Наименование предприятия').AsString:=Edit1.Text;.ADOQuery1.FieldByName('Адрес').AsString:=Edit2.Text;;;;.Close;.Clear; edit2.Clear; edit3.Clear;.Clear; edit5.Clear; edit6.Clear;;
end.
Размещено на Аllbеst.ru