Редактирование после поиска

[TYMON]

Делаю такой алгоритм:

1. Нашли данные по нажатию:

void __fastcall Tfrm_category::Button_poiskClick(TObject *Sender)
{
String poisk_cat=" ";
DataSource_category->DataSet=ADOTable_category;
//задаем условие для поля "nazvanie"
if (!Edit_cat->Text.IsEmpty())
 {
 if (poisk_cat!=" ")
 {
  poisk_cat=poisk_cat+"AND category LIKE '%"+Edit_cat->Text+"%' ";
  }
	  else
   {
	poisk_cat=poisk_cat+"category LIKE '%"+Edit_cat->Text+"%' ";
    }
  }

	 if (poisk_cat!=" ")
{
    //формируем текст запроса
	ADOQuery_category->Active=false;
	ADOQuery_category->SQL->Clear();
	ADOQuery_category->SQL->Add("select category.* from acz.category where "+poisk_cat);
	//активируем запрос (отбираем данные)
	ADOQuery_category->Active=true;
    //соединяем запрос с сеткой (для отображения найденных данных)
	DataSource_category->DataSet=ADOQuery_category;
	  ADOTable_category->Active=false;
		ADOTable_category->Active=true;
	  Button_dobavit->Enabled=false;
		  DBGrid_category->ReadOnly=true;
			  DBGrid_category->Columns->Items[0]->Visible=false;
	DBGrid_category->Columns->Items[1]->Title->Caption="Категория";
	 DBGrid_category->Columns->Items[1]->Alignment=taCenter;
	 DBGrid_category->Columns->Items[1]->Width=484;


	 }
}

2. Пытаемся отредактировать:

void __fastcall Tfrm_category::Button_izmenitClick(TObject *Sender)
{
//редактирование данных
ADOTable_category->Edit();
	frm_dobavlenie_category = new Tfrm_dobavlenie_category(Application);
   frm_dobavlenie_category->ShowModal();
	frm_dobavlenie_category->Repaint();
}

3. Открывается форма для редактирования, вводим данные в DBEdit и жмем сохранить.

void __fastcall Tfrm_dobavlenie_category::Button_sohrClick(TObject *Sender)
{
if (DBEdit1->Text.IsEmpty())
{
	   Application->MessageBoxW((const wchar_t*) L"Поле не может быть пустым!! Введите пожалуйста данные ", (const wchar_t*) L"Ошибка ввода!",MB_OK+MB_ICONSTOP);
   
	}
     //если все заполнены
    else
    {
	  //сохраняем запись
	  frm_category->ADOTable_category->Post();

        //закрываем страничную форму
	 frm_dobavlenie_category->Close();
	}
	frm_category->Button_poiskClick(Sender);
}

Так вот не сохраняются данные в режиме поиска. Как сделать правильно?

[Stilet]

ADOTable_category->Edit();
frm_dobavlenie_category = new Tfrm_dobavlenie_category(Applicatio n);

Я бы вызов Edit переместил в frm_dobavlenie_category.
Скажем в OnCreate. Но это так. Косметика, не факт что даст результат, просто когда-то я с подобной болячкой DB компонент сталкивался, когда режим редактирования при определенных условиях отключался.

frm_category->ADOTable_category

А вот этот компонент я бы вынес в DataModule. В Билдере по идее тоже должен быть как и в Делфи такой тип модуля. И уже к нему бы настроил обращение из форм.

[TYMON]

Так а как тогда быть с методом Insert() если идет просто добавление данных? Ну хотя можно конечно передавать данные но надо проверить поможет оно или нет

[Stilet]

Я не знаю как тебе с чем быть. Я знаю только то, что у тебя что-то не правильно. Кода твоего я не видел.