Ну надо же было что-то написать…..
Вот кусок моего исходного кода:
int_wall_id := qTree.FieldByName('Table_ID_Link').AsInteger;
Wall_Dict_Name := InputBox('Введите название стены','Название','Шаблон стены');
Wall_ID_Gen.Open;
new_wall_id := Wall_ID_Gen.FieldByName('Wall_ID').AsInteger;
Wall_ID_Gen.Close;
qWallInsert.Open;
qWallInsert.Insert;
qWallInsert.FieldByName('Wall_ID').AsInteger := new_wall_id;
qWallInsert.FieldByName('WALL_NAME').AsString := Wall_Dict_Name;
qWallInsert.Post;
qWallInsert.Close;
spWallCopy.ParamByName('WALL_ID_SOURCE_IN').AsInteger := int_wall_id;
spWallCopy.ParamByName('WALL_ID_TARGET_IN').AsInteger := new_wall_id;
spWallCopy.ExecProc;
ShowMessage('Данные о стене '+qTree.FieldByName('TITILE').AsString+' сохранены');
Wall_Dict_Modal := TfmDictWall.Create(Application);
Wall_Dict_Modal.Is_Only_Show :=True;
Wall_Dict_Modal.qWall.Locate('Wall_ID',new_wall_id,[]);
Wall_Dict_Modal.ShowModal;
Пусть все знают !!!!!!
января 27, 2010 - 09:54
извращенец! ты посмотри что ты тут написал? все же понятно!
января 27, 2010 - 09:54
хеатлос (как говорит один человек) в топку!
января 27, 2010 - 09:57
Рукописи – НЕ ГОРЯТ !!!!!!!
января 27, 2010 - 09:57
они трутся кнопкой delete!
января 27, 2010 - 10:01
А будешь умничать – забаню, к такой-то матери !!!!
января 27, 2010 - 10:06
хрен там! я тоже админ!
января 27, 2010 - 10:13
Я более администый админ, так что имей в виду, что БАН – это не страшный фантастический зверь, а суровая правда жизни.
января 27, 2010 - 10:20
бань меня, бань!!! у нас один ip с тобой! бань-бань )
января 18, 2022 - 12:30
Боже мой! 12 лет назад и он все еще в первозданном виде! Да вы, батенька, старовер как поискать! )
января 18, 2022 - 16:36
Должен же остаться хоть один уголок постоянства в этом изменчивом море под названием ЖИЗНЬ.
Заходите почаще, мы и дальше ничего менять не будем.