Показать сообщение отдельно
  #5  
Старый 17.05.2012, 15:16
AlexGTX AlexGTX вне форума
Прохожий
 
Регистрация: 19.04.2012
Сообщения: 24
Репутация: 10
По умолчанию

В моем проэкте таблицы в Парадоксе, сделал так, для Аксеса аналогично.
Код:
//Добавление в таблицу Магазин 1
        FormMag.DSMag1.DataSet:=FormMag.TabMag1;
        FormMag.TabMag1.Last;
    try
       FormMag.TabMag1.AppendRecord([
       DateTimePicker1.Date,            //Дата
       Edit7.Text,                      //Артикул
       Edit1.Text,                      //Название
       ComboBox1.Text,                  //Сезон
       ComboBox2.Text,                  //Пол
       Edit2.Text,                      //Материал
       Edit3.Text,                      //Фирма
       Edit4.Text,                      //Страна
       StrToInt(Edit5.Text),            //Количество
       StrToInt(Edit6.Text)]);          //Цена
       except
      MessageDlg('В поля формы введены недопустимые данные',
          mtError,[mbOK],0);
       Exit;
    end;
Админ: Пользуемся тегами, при рецедиве последует БАН.
Ответить с цитированием