[fdaptaciya]

Есть несколько таблиц, как сделать отдельную форму чтобы вписывать в поля данные, чтобы они записывались в таблицу или таблицы?
Таблицы выведены из accsess

Подскажите пожалуйста.

[Ildar-tsr]

Почитайте про компоненты, находящиеся во вкладке Data Controls. В особенности про DBGrid (и DBNavigator для его управления). DBGrid выводит данные в виде таблицы, и при помощи него можно добавлять, редактировать и удалять данные, хранящиеся непосредственно в базе данных.

[fdaptaciya]

нужно на отдельной форме, с помощью полей edit и тд , для записи в таблицу. навигатор есть непосредственно на форме с таблицей

[Ildar-tsr]

Добавляешь проекту новую форму (Form2 например), располагаешь на ней DBEdit'ы (Data Controls). А потом что-то вроде этого:

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(TObject: Sender); begin   ADOQuery1.Insert;   Form2:= TForm2.Create(Application);   Form2.ShowModal;   if Form2.ModalResult = mrOk then     ADOQuery1.Post;   Form2.Free; end;

[AlexGTX]

В моем проэкте таблицы в Парадоксе, сделал так, для Аксеса аналогично.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

//Добавление в таблицу Магазин 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;

Админ: Пользуемся тегами, при рецедиве последует БАН.

[AlexGTX]

Выбор таблицы в которую в данный момент вносятся данные удобнее реализовать с помощью ComboBox, а в программном модуле поставить условие - добавлять данные в таблицу которая выбрана в ComboBox. Удачной компиляции!!!

[Viajero]

Здесь используются обычные Edit (Не DBEdit). Преимущество: я могу данные фильтровать и корректировать как хочу.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

procedure TwCard.fCardSave(Sender: TObject);   {Сохранение карты в базе]} begin      fwBase.ffCards.Append;        idCard:=fwBase.fdbMain.Gen_Id('CARD_SEQ',1);                 sCardOpen:=DateToStr(dNowStored);     eCardOpen.Text:='  '+sCardOpen;       fwBase.ffCards.FieldByName('CARD_ID').AsInteger:=idCard;     fwBase.ffCards.FieldByName('CARD_OPEN').AsString:=sCardOpen;     fwBase.ffCards.FieldByName('BIRTH_DATE').AsString:=eBirthDate.Text;     fwBase.ffCards.FieldByName('PATIENT_FAMILY').AsString:=eFamily.Text;     fwBase.ffCards.FieldByName('TOWN').AsString:=eTown.Text;     fwBase.ffCards.FieldByName('STREET').AsString:=eStreet.Text;     fwBase.ffCards.FieldByName('HOUSE').AsString:=eHouse.Text;     fwBase.ffCards.FieldByName('PATIENT_PHONE').AsString:=ePhone.Text;       fwBase.ffCards.Post;     fwBase.ffCards.ApplyUpdates;     fwBase.ftaMainWrite.Commit;   end;   procedure TwCard.fCardLoad(Sender: TObject);  {Загрузка карты из базы} begin   bCardNew:=false;    bCardSaved:=true;   bCardEdit:=false;   eCardNumber.Text:=nulltoempty(fwBase.ffCards.FieldByName('CARD_ID').AsString);   eCardOpen.Text:=nulltoempty(fwBase.ffCards.FieldByName('CARD_OPEN').AsString);   eBirthDate.Text:=nulltoempty(fwBase.ffCards.FieldByName('BIRTH_DATE').AsString);   eFamily.Text:=nulltoempty(fwBase.ffCards.FieldByName('PATIENT_FAMILY').AsString);   eTown.Text:=nulltoempty(fwBase.ffCards.FieldByName('TOWN').AsString);   eStreet.Text:=nulltoempty(fwBase.ffCards.FieldByName('STREET').AsString);   eHouse.Text:=nulltoempty(fwBase.ffCards.FieldByName('HOUSE_NUMBER').AsString);   eFlat.Text:=nulltoempty(fwBase.ffCards.FieldByName('FLAT_NUMBER').AsString);   ePhone.Text:=nulltoempty(fwBase.ffCards.FieldByName('PATIENT_PHONE').AsString); end;