Найти запись и добавить в таблицу

[nick42]

Сообщение от Марат05

Я знаю как это делать, но там придется переменные подключать. Через Unit1.h, Private и Public, между ними прописать и добавить, уже код.

Интересно; что-то наподобие #pragma push.. #pragma pop ?

[Марат05]

Сообщение от nick42

Интересно; что-то наподобие #pragma push.. #pragma pop ?

#pragma hdrstop - вот

[StudUL]

Можете по шагам расписать как это сделать.

[StudUL]

Спасибо!!! Неплохая идея, так даже лучше будет, если информацию из комбобоксов тоже запишется в соответствующие поля таблицы Plan. Там нужно что-то дополнительно прописывать в кнопке?

[nick42]

Ну, я могу расписать только свое дилетантское видение этого вопроса, а Вы сами смотрите... . С комбобоксами и прочими элементами управления у меня ничего путного не получилось. Пришлось использовать таблицы. То-есть для каждой связанной с Plan таблицей базы создается DataSource, ADOTable и DBGrid; коннектор общий; у ADOTable в качестве TableName выбираются те связанные таблицы из базы данных. DBNavigator нужно переключать на различные DataSource, чтобы можно было корректировать или добавлять записи в поля таблиц. Далее выбирается по полю КО запись из табл. Osnastka (это мы уже проходили), в связанных таблицах выбираются соотв. параметры (щелчком мышки) и на кнопку Insert пишется примерно такой код:

    AnsiString ko1, kz1, osn1, no1, cd1, cp1 ;
       cp1 = DBGrid6->Fields[0]->AsFloat ;
       kz1 = DBGrid5->Fields[0]->AsFloat ;
       ko1 = DBGrid1->Fields[0]->AsString ;
      osn1 = DBGrid1->Fields[1]->AsString ;
       no1 = DBGrid1->Fields[2]->AsString ;
       cd1 = DBGrid1->Fields[3]->AsString ;

    ADOQuery1->SQL->Clear();
    ADOQuery1->SQL->Add("INSERT INTO Plan "
      "([CP],[CI],[KZ],[KO]) "                //  ,[OSN],[NO],[CD]
      "VALUES (:CP,'143',:KZ,:KO)");        //  ,:OSN,:NO,:CD
    ADOQuery1->Parameters->ParamByName("CP") ->Value = cp1;
    ADOQuery1->Parameters->ParamByName("KZ") ->Value = kz1;
    ADOQuery1->Parameters->ParamByName("KO") ->Value = ko1;
//    ADOQuery1->Parameters->ParamByName("OSN")->Value = osn1;
//    ADOQuery1->Parameters->ParamByName("NO") ->Value = no1;
//    ADOQuery1->Parameters->ParamByName("CD") ->Value = cd1;
//    ADOQuery1->Open();
     ADOQuery1->ExecSQL() ;

Вместо ADOQuery1->Open() пишем ADOQuery1->ExecSQL() , тогда ошибка не выскакивает.

[StudUL]

Спасибо!!!! Можете прислать программку, что получилось, попытаюсь разобраться что к чему?

[nick42]

попробуйте разобраться

[StudUL]

Получается в план добавляется OSN, не из Грида 1, а из 7 Грида. А должна, в принципе из1 грида. В 7 гриде нет такой. CI для всех 143 выбирает, но это потому, что в запросе так. Наверное, аналогично нужно будет вывести таблицу Izg, как и Zak и др. на форму. После нажатия на Insert, запись в Plan (в гиде 4) ни сразу отображается, а после закрытия базы, а потом нужно снова её открыть, чтобы увидеть добавленную запись.
Но всё равно, очень Вам благодарна, очень мне помогли.

[nick42]

Сообщение от StudUL

Получается в план добавляется OSN, не из Грида 1, а из 7 Грида.

А это в Вашей базе так связи установлены. Я тоже считаю, что с OSN надо бы переделать. В отношении CI Вы все правильно поняли... .

[StudUL]

Я поняла, он из грид7 поле TP вытаскивает в таблицу Plan, т.к. в таблице Trud поле Osn связано с Osn в таблице Planб так и будет. Связи что ли придётся менять.