Технология строительства метрополитена Оглавление. 1. Аннотация Annotationстр. 22. Общий раздел1. История развития метрополитена. Метрополитен сегодня.2. Введение.3. Горно-геологические условия строительства.4. Выбор и расчет сечения вертикального ствола.10 2.5.
Расчет паспорта буро-взрывных работ.6. Расчет параметров замораживания массива.7. Технология ведения работ по замораживанию породного массива.8. Производство горнопроходческих работ.193. Основная часть.1. Нагрузки от горного давления на обделки вертикальных стволов метрополитенов.2. Проверка несущей способности тюбинговых обделок вертикальных стволов метрополитенов.29 3.3.
Расчет параметров и построение паспорта прочности несущей способности тюбинговых обделок вертикальных стволов метрополитенов.4. Проверка устойчивости тюбинговых обделок вертикальных стволов метрополитенов.354. Приложения.1. Программа для проверки несущей способности и построения паспорта прочности тюбинговых обделок вертикальных стволов метрополитенов.375. Список используемой литературы.2. Общий раздел 1. ИСТОРИЯ РАЗВИТИЯ МОСКОВСКОГО МЕТРОПОЛИТЕНА.
МЕТРОПОЛИТЕН СЕГОДНЯ. Тоннели метрополитенов относятся к категории капитальных сооружений, срок службы которых планируется не менее чем на столетие. Поэтому не случайно теоретик метростроения П.И.Балинский, анализируя факторы, влияющие на жизненность таких внеуличных транспортных систем, зависимых , главным образом, от численности и подвижности населения крупнейших городов, обращается к периодам такого масштаба. К началу прошлого столетия, когда появились метрополитены, население самого крупного
города планеты – Лондона достигло миллиона человек в 1800 г 950 тыс а уже в 1801 г 1 млн.145 тыс.чел и продолжало возрастать. Нашествие Наполеона превратило пылающую столицу в почти безлюдный город. Но всего два года спустя город стал быстро оживать. В английской столице в 1814 году Александру I представили члена Лондонского королевского общества, талантливого военного инженера Марка Брюнеля. Речь зашла о насущной проблеме устройства постоянной шоссейной переправы через р.Неву в Петербурге, в результате чего с Брюнелем был заключен контракт на ее проектирование. Начатую в 1814 г. работу он передал русским заказчикам в начале 20-х гг. в двух вариантах мостовом и тоннельном. Вариант подводного тоннеля возник вследствие опасения разрушения опор моста плывущими льдинами. В основе проекта оказалось замечательное изобретение – тоннелепроходческий щит, ставший впоследствии
наиболее эффективным средством метростроения не только в России и Англии, но и во всем мире. Идея возникла при наблюдении за морским моллюском-древоточцем, пробуривавшим своей раковиной отверстия в обломках затонувшего корабля. В первых эскизах Брюнель представил механическую копию такого цилиндрического червя для бурения тоннелей со сборной тюбинговой обделкой, монтируемой по спирали настоящего предшественника будущих механизированных
щитов. Брюнеля не отпустили в Россию. Страну, с которой он имел официальные деловые связи, и, лишившись поддержки скончавшегося в 1825 г. Александра I, он остался в Лондоне. Брюнель переработал чертежи применительно к местным условия р.Темзы, сходным с Невой. В 1863 г. произошло главное событие в истории метростроения – пуск первого в мире 3,6-километрового подземного участка внеуличной железной дороги в
Лондоне. В 1863 г. парламентская комиссия одобрила сооружение подземной кольцевой линии общей протяженностью 30 км. Она откралась в 1884 г. Большое внимание привлекла постройка первой электрофицированной линии в Париже, с которой могли ознакомиться многочисленные посетители Всемирной выставки 1900 г. Активное участие в создании этой и нескольких последующих линий принимал русский инженер, энтузиаст отечественного метростроения С.Н.Розанов. Наступило время уверенной прокладки подземных линий метрополитенов в Берлине, Гамбурге, Филадельфии, Мадриде, Барселоне, Токио. Началась борьба за метрополитен в Петербурге и Москве. Перед первой мировой войной транспортный кризис в Москве резко обостирлся, в результате чего появилось несколько новых предложений метрополитена, инициированных
Городской Управой. Населенность Москвы к 1915 г. достигла двухмиллионой отметки и, казалось, что проблема приобретает облик реальности, но помешали военные и революционные события, преобразовавшие страну. Для быстрейшего восстановления городского коммунального хозяйства в Москве было создано управление МКХ. Работу в нем возглавили опытные инженеры К.С.Мышенков и С.Н.Розанов, перешедшими в 1931 г. в организованный
Метрострой. Проходка в этом же году началась с опытного участка по рабочим чертежам Технического отдела Управления Метростроя, а затем – Метропроекта, выпущенным под руководством проф.В.Л.Николаи. Постройка первого в мире Лондонского и первого в нашей стране осуществлялась по чертежам, разработанным еще до создания строительных организаций в Лондоне –
Брюнеля, а в Москве – опытного тоннеля С.Н.Розанова. Сооружение линии 1 очереди велось с неподдельным энтузиазмом, а пуск первого в России метрополитена ознаменовался, как подлинный праздник. Сегодня невозможно себе представить нашу столицу без самого быстрого и эффективного городского транспорта – метрополитена. Общая длина подземных магистралей превысила 250 км и продолжает расти.
Ежедневные перевозки достигли 8,7 млн. пассажиров. Все это обеспечивается неустанным трудом 30-тысячного коллектива метрополитена. Московский метрополитен – первенец отечественного метростроения – с момента своего открытия в 1935 году занимает ведущее положение в отрасли, являясь флагманом научно-технического прогресса в системе метрополитенов страны. В жизни крупнейших городов мира, в том числе и Москвы, метрополитен является наиболее удобным для населения видом городского пассажирского транспорта. 15 мая 1995 г. исполнилось 60 лет со дня открытия движения поездов на первой линии Московского метрополитена протяженностью 11,2 км с 13 станциями. С тех пор метрополитен постоянно развивался, совершенствовалось его сложное хозяйство. Сегодня эксплуатационная длина 9 линий достигла 243,6 км со 150 станциями.
С увеличением протяженности трассы постоянно возрастал и объем перевозок пассажиров в 1935 г. среднесуточные показатели составляли 177 тыс а в 1994 г. 8723 тыс.человек. В настоящее время на долю метрополитена приходится 51,7 объема всех пассажирских перевозок города. Максимальная интенсивность движения – 42 пары 8-вагонных составов в час, интервал между поездами 85 секунд Замоскворецкая линия. Такой интенсивности движения нет ни на одном метрополитене мира.
Кроме того, заполняемость вагонов значительно превышает допустимые нормы, что отрицательно сказывается на надежности устройств вагонов, пути и, в конечном счете, на выполнении графика движения поездов. По оценкам специалистов, метрополитену для полного обеспечения потребности столицы в перевозках пассажиров неддостает около 100 км линий, В настоящее время плотность сети метрополитена на 1 км2 площади города составляет 0,26 км, в то время как в Нью-Йорке этот показатель равен 0,5, в
Лондоне – 1,2, в Париже – 2,8 км. За 60 лет перевезено более 86 миллиардов пассажиров пропущено около 111 миллионов поездов, из которых 99,93 проследовало строго по графику сэкономлено электроэнергии 515 миллионов кВтч. Среди метрополитенов Российской Федерации среднесуточная перевозка пассажиров Московского метрополитена составляет около 80 , что почти в 5,4 раза выше среднесуточной перевозки С Петербургского и в 29 раз – Новосибирского метрополитенов. МЕТРОПОЛИТЕН В ЦИФРАХ Показатели15 мая 1935 г.15 мая 1995 г.Протяженность линий,км11,2243,6Их количество19Количество станций в том числе – пересадочных – оборудованных эскалаторами13 – 4150 49 107Количество вестибюлей16232То же, эскалаторных машин15508Протяженность лестничного полотна эскалаторов, км1.555.2Развернутая длина тоннелей, км13.01521.6То же, пути, км30.08703.7Среднесуточная перевозка пассажиров, тыс. чел.1778723Годовой объем перевозки, млн. чел.110.73183.9Удельный вес в общегородских
перевозках, 251.7Количество вагонов584060Максимальное число вагонов в составе48Максимальная частота движения поездов, парчас1542Минимальный интервал между поездами5 мин.85 секПропуск поездов в среднем за сутки проезд4877870Конструктивная скорость движения, кмч5090Средняя эксплуатационная, кмч26.741Удельный расход электроэнергии, кВтчтыс.тн км67.255.5Численность работников по эксплуатации, чел199124615То же на 1 км пути, чел181104.3 2.2. Введение. Вертикальный ствол является вскрывающей горной выработкой для
раскрытия фронта проходческих работ при строительстве станций метрополитена глубокого заложения. В процессе строительства подземного сооружения через вертикальный ствол ведут все строительные работы. Он служит для выдачи породы, подачи материалов, оборудования и элементов обделки, для энергоснабжения, водоотлива и вентиляции при проходке, а так же для спуска и подъема людей. В период эксплуатации станции метрополитена глубокого заложения ствол используют главным образом для
вентиляции сооружения. В отдельных случаях стволы забучиваются. Вертикальный ствол имеет круговое сечение, которое обеспечивает рациональную работу обделки в условиях всестороннего горного давления. 2.3. Горно-геологические условия строительства. Горно-геологический район строительства вертикального ствола круглой формы диаметром в проходке 6 м и глубиной 45 м состоит из водоносных песчаных и глинистых грунтов и известняков – Рыхлые горные породы, галька, щебень, песок Наносы, слежавшиеся грунты, пластичные глины, известняк белый мелкокристаллический. Абсолютная отметка устья ствола 131 м. Глубина ствола 45м. Мощности пластов песка , глины и известняка равны соответственно 10, 15 и 25 м. Пористость песка, глины и известняка равны соответственно 38, 40 и 39, а весовые влажности – 17, 22 и 20. Удельные веса песка, глины и известняка равны соответсвенно 19, 19.6 и 21
Нм3. Начальная температура грунта и температура замерзания равны соответственно 120С и 00С. 2.4. Выбор и расчет сечения вертикального ствола. Для обеспечения рациональной работы материала обделки в условиях всестороннего горного давления принимаем круглую форму сечения ствола. Произведем расчет размеров сечения ствола. Определяем часовую производительность подъема AЧ , тчас, где кр1.5 – коэффициент неравномерности подъема
N300 – число рабочих дней в году t16 – чсут – время работы в сутки АГ – годовой объем грунта выдаваемый из ствола, АГ 10 м3. AЧ тчас. Определяем массу груза выдаваемого за один раз AЧ, т, где – высота подъема, м НСТ45 м – глубина ствола h18.1 м – высота откаточного горизонта м 12 сек – время разгрузки-загрузки клети. т. Определяем объем одновременно поднимаемого груза , м3, где 1.9 2.1
тм3 – средняя плотность выдаваемой породы. м3. По полученной грузоподъемности выбираем – вагонетка УВГ – 1.6 вместимость кузова 1.6 м3 габариты – 85013002700 мм ширина колеи – 600 мм – клеть марки 1УКН3.3Г-2, с размерами ширина – 1000 мм высота – 3040 мм длина – 3300 мм – подъемная машина марки 2БМ-20001030-3А двухбарабанная диаметр каната dК24 мм высота подъема – 170 м потребляемая мощность –
90 кВт масса машины – 31100 кг. Произведем выбор армирующих элементов. В качестве проводников принимаем сосновый брус 160180 мм. Расстрелами принимаем балки из двутавра 24. Учитывая все минимально-допустимые зазоры – зазоры между расстрелами и клетью – 200 мм – зазоры между проводниками и направляющими башмаками клети – 10 мм – зазор между углом клети и обделкой – 150 мм и размеры лесоспуска 1.5 м2, и лестничного отделения – 0.60.7 м, а так же учитывая толщину тюбингового кольца обделки, графически определяем искомое сечение ствола. Ближайшим к типовому сечению ствола является сечение ствола с наружним диаметром по обделке 6.0 м. Принимаем DСТВ6.0 м. 2.5. Расчет паспорта буро-взрывных работ. Определим удельный расход взрывчатого вещества и примем его тип. При данных горно-геологических условиях строительства наиболее целесообразно применить аммонит 6ЖВ,
в патронах диаметром 32 мм. Электродетонаторы типа ЭДКЗ-ПМ-15 с сериями замедления – 0 0.15 0.30 0.45 0.60 сек кгм3, где q10.1f, где f4 – крепость вмещающих пород по профессору Протодьяконову где Sпрох – сечение ствола в проходке ВЧ м2 Sвч28.26 м2 – коэффициент работоспособности кгм3. Определим количество шпуров в сечении , где шпуров.
Определим и зададим остальные параметры буро-взрывных работ глубина шпура – м глубина заходки – м КИШ0.8 Определим расход взрывчатого вещества за цикл , кгцикл. Заряжание шпуров призводится следующим образом в центральный буферный шпур заряжается одна шашка массой 250 грамм, во врубовые – 3 шашки, в отбойные – 2 шашки. Общее число шашек – 98 штук. Взрывание производится методом обратного инициирования.
Материал забойки – песок средних фракций. Взрывание производится с четырьмя степенями замедления. 2.6. Расчет параметров замораживания массива. Расчет ледогрунтового ограждения. Расчет толщины ледогрунтового ограждения производим по формуле Ляме где м – радиус ствола в проходке МПа – допустимый предел прочности замороженных пород на сжатие – коэффициент запаса прочности при сжатии, равный 2-5 давление массива на ледогрунтовое ограждение,
где – удельный вес грунта, тм3 м – глубина замораживания МПа м. Расчет диаметра замораживания и числа замораживающих Число колонок , где м – диаметр ствола – глубина замораживания м колонки, где м – расстояние между колонками. Расчет хладопроизводительности замораживающей станции где ккалчас, где м – диаметр замораживающей колонки – глубина замораживания ккалм2.час ккалчас ккалчас Таким образом исходя из полученной хладопроизводительности принимаем установку замораживания ПХУ-50. Технические характеристики ПХУ-50 – хладопроизводительность при и – 203 ккалчас – общая установленная мощность электродвигателя – 105 кВт – хладагент – фреон – одновременная зарядка хладоном R-22 – 550 кг – рабочее давление охлаждающей воды –
0.4 МПа – зарядка системы CaCl2 – 1.6 т. На время эксплуатации используются четыре станции ПХУ-50, одна из которых резервная, но иногда включается в работу. Расчет времени активного замораживания сут, где , где – объем породного цилиндра м3 , где м3 – пористость ккал0С.кг кгм3 ккалм3 , где ккалкг ккалкг кгм3 ккал0С.кг ккалм3 м3 кгм3 ккал0С.кг ккалм3 ккалм3 ккалм3 ккалм2.час м2 ккал сут Таким образом время активного замораживания равно 23 суткам, так как необходимое
время на подключение и проверку хладопроизводительной станции около 7 дней. Во время пассивного режима замораживания хладопроизводительность станции берется равной 35 от активного режима замораживания, что обеспечивается постоянной работой одной станции ПХУ-50 с периодическим подключением еще одной ПХУ-50. 2.7. Технология ведения работ по замораживанию породного массива.
Сооружение ствола начинается с возведения форшахты, которая выполняет роль оголовка ствола. Сначала отрывается котлован на глубину 4 м и на бетонную подготовку толщиной 15 см водружаются четыре тюбинговых кольца ствола. Далее, предварительно вставив кондуктора под бурение замораживающих скважин, из труб диаметром 219 мм в затюбинговое пространство закачивается бетон марки В25. После схватывания бетона приступают к бурению замораживающих скважин диаметром 300 мм.
Бурение осуществляется станком СБУ-150 с глинистым пригрузом. Замораживающие скважины заглубляются в водоупор не менее чем на 4 метра. Буровые работы производятся в следующей последовательности – бурение замораживающих, дополнительных и термометрических скважин – цементация затрубного пространства замораживающих и термометрических скважин перед опусканием в скважину замораживающей колонки ее обязательно промывают водой – по окончании проходки ствола все пробуренные скважины тампонируются или цементируются. После того как скважины пробурены их оборудуют замораживающими колонками и монтируют рассольную сеть. В качестве колонок используют бесшовные цельнотянутые трубы с наружным диаметром 146 мм, насосно-компрессорная труба диаметром 114 мм и питающая труба диаметром 33.5 мм. При монтаже все замораживающие трубы перед опусканием подвергаются гидравлическому испытанию.
После этого монтируют колонку и опускают ее в скважину, после этого производят контрольное испытание на водонепроницаемость стыков и всей системы в целом. Колонку заливают водой и герметизируют. Если уровень жидкости в течение пяти суток не снизится более чем на два сантиметра на каждые пятьдесят метров глубины, то колонки готовы к эксплуатации. После монтажа замораживающих колонок, обсадные трубы извлекаются, а пространство между колонкой и стенками
скважины забучивается песком. После оборудования замораживающих колонок приступают к монтажу рассольной сети. Для магистральных рассолопроводов применяют стальные трубы диаметром 219 мм. Для снижения теплопотерь рассолопровод укладывают на брусья в траншеи и изолируют. Питающие и отводящие трубы присоединяют одним концом к головке замораживающей колонки, а другим к распределителю и коллектору. После этого по параллельной схеме производим включение замораживающих колонок в рассольную
сеть. Подключив замораживающую станцию к рассольной сети производят пробное включение. Если никаких неисправностей не обнаружено, то приступают к активному замораживанию. За время работы станции, осуществляются следующие виды контроля – контроль за работой замораживающей станции – контроль за работой замораживающих колонок – контроль за процессом формирования ледогрунтового ограждения, который производится с помощью термо- и гидронаблюдательных скважин. В случае обнаружения каких-то неполадок в системе, все неработающие элементы сразу же заменяются или ремонтируются, чтобы не допустить размораживания создавшегося ледогрунтового ограждения. После достижения ледогрунтовым ограждением проектных размеров замораживающую станцию переводят на пассивный режим работы и приступают к ведению горнопроходческих работ по сооружению ствола. 2.8. Производство горно-строительных работ. После создания ледогрунтового ограждения приступают к проходке
ствола. В зоне мягких пород разработка ведется вручную или отбойными молотками МО-10. При пересечении крепких замороженных пород разработку ведут буро-взрывным способом. Шпуры бурят ручными перфораторами марки ПР-30К. Взрывные работы проводятся малыми заходками с максимальной осторожностью, чтобы не повредить ледогрунтовое ограждение и замораживающие колонки. Погрузка породы производится экскаваторным рабочим органом на подвесном проходческом полке в бадьи
объемом 1 м3, которые выдаются на поверхность и разгружаются в породные бункера. После зачистки и проветривания забоя после взрыва приступают к возведению постоянной обделки. В качестве обделки ствола используется сборная обделка из чугунных тюбингов. Монтаж тюбингов производится с помощью тельфера, подвешенного на проходческом полке. После сбора кольца обделки производят нагнетание цементно-песчаной смеси за обделку.
Выполняются гидроизоляционные работы. Гидроизоляция сборных тюбинговых обделок состоит в герметизации швов между элементами обделки, болтовых отверстий и отверстий для нагнетания. Последовательность ведения гидроизоляционных работ в стволе с чугунной тюбинговой обделкой – проверка гидроизоляции болтовых отверстий – изоляция отверстий для нагнетания – чеканка швов между тюбингами. Гидроизоляцию болтовых отверстий выполняют с использованием гидроизоляционных шайб асбобитумных или полимерных , устанавливаемых при сболчивании тюбингов. Отверстия для нагнетания очищают и изолируют постановкой пробки с гидроизоляционной асбобитумной или пластмассовой шайбой. Гидроизоляция швов чугунной тюбинговой обделки осуществляется на расстоянии 30-50 м от забоя путем заполнения чеканочных канавок гидроизоляционными материалами с последующей их чеканкой. Укладку замазки и чеканку швов ведут в два-три слоя толщиной по 2 см участками длиной по 3-4 м.
Гидроизоляционные работы ведут с чеканочной тележки. При большом гидростатическом давлении для чеканки швов применяют свинцовую проволоку или освинцованный шнур. Стыки проволоки или шнура выполняют внахлстку. После чеканки шнура через 8-24 ч поверх свинца укладывают замазку из водонепроницаемого расширяющегося цемента ВНЦ или быстротвердеющего уплотняющего состава
БУС. После этого подвесной полок опускается и производятся работы по монтажу расстрелов и проводников, наращиванию вентиляции, кабелей и направляющих проводников. В случае проникновения в забой воды, производят раскопку приямка и собравшуюся в нем воду откачивают на поверхность. Особое внимание при работе в низких температурах следует уделить пневмоинструменту – перфораторам – отбойным молоткам – болтокрутам – пескоструйным шлифмашинам и т.д.
Необходимо принимать меры по обезвоживанию сжатого воздуха. После проходки ствола на всю глубину производится его металлоизоляция путем обваривания его стальными листами. Далее все проходческое оборудование демонтируется и ствол оборудуется постоянным клетевым подъемом. Для того чтобы ввести обделку ствола в работу рассольную сеть демонтируют, колонки извлекают, скважины цементируют. Таким образом происходит оттаивание ледогрунтового ограждения естественным способом. После проведения всех мер гидроизоляции, армировке и оборудованию ствола, ствол сдается в эксплуатацию. Общие сроки строительства ствола – четыре месяца. После окончания эксплуатации ствола, он или забучивается или служит для вентиляции подземного сооружения. 3. Основная часть 3.1. Нагрузки от горного давления на обделки вертикальных стволов метрополитенов. Расчет обделки вертикальных стволов метрополитенов будем вести на наиболее неблагоприятное сочетание
неравномерных нагрузок по контуру ствола. Неравномерность нагрузок по контуру ствола вызвана неравнокомпонентностью поля напряжений в массиве горных пород, а также дополнительными нагрузками от близрасположенных зданий, сооружений, механизмов, оборудования и т.д. на поверхности. Наиболее неблагоприятными нагрузками по условию прочности и деформируемости обделки являются нормальные к контуру и касательные к контуру нагрузки вида см. лист 1 где – полярный угол см. лист 1, отсчитываемый
от точки приложения максимальных нагрузок . Соотношения между экстремальными нагрузками и см. лист 1 и величинами и определяются выражениями Соотношения между максимальными и минимальными нагрузками по контуру ствола характеризуются коэффициентом неравномерности равным Значения коэффициента неравномерности при обычном способе проходки ствола составляют – на протяженных участках не выше 20 м вблизи сопряжений до 20 м и при наличии геологических нарушений на участках примыкающих
к дневной поверхности Максимальные касательные напряжения на контакте системы порода-обделка определяются по формуле где – коэффициент, зависящий от деформативных свойств системы порода-обделка и отношения наружного радиуса обделки к его внутреннему радиусу . Параметр можно определить по формуле или по таблице 1 , где и – соответственно модуль деформации обделки и породы. Таблица 1. Значения параметра . rrв при G0Gn0.101.010501002505001.002.002.002.00 2.002.002.002.001.052.1612.1622.1672.186 2.2122.2872.4301.102.3502.3522.3882.5552 .7953.7447.1271.152.5822.5842.7033.3987. 744 1.202.8152.8463.1775.751 1. Участки ствола в наносах, слабых сыпучих или выветренных грунтах. Нагрузка от горного давления на обделку ствола в наносах, слабых сыпучих или выветренных коренных породах определяется с использованием методов предельного равновесия без учета коэффициента сцепления породы, что идет в запас прочности. Расчетная максимальная нагрузка на обделку ствола определяется по формуле
, где – коэффициент перегрузки, принимаемый равным – коэффициент, учитывающий неравномерность нагрузки за счет близости рассматриваемого участка с координатой к сопряжению с горизонтальной выработкой при при Нормативная нагрузка от горного давления в выветренных породах определяется по формуле или из таблицы 2 , где – глубина заложения рассматриваемого участка ствола – нормативное значение угла внутреннего трения грунта, принимаемое для песчаных и глинистых грунтов по таблице 3 составлена на основании
СНиП II-15-74 Основания зданий и сооружений. Нормы проектирования. Примечание для промежуточных значений и величина может определяться линейным интерполированием данных по таблице 2. Таблица 2. Значения нормативной нагрузки от горного давления на обделку ствола в наносах, слабых сыпучих или выветренных коренных породах в зависимости от глубины, радиуса и грунтовых условий. Hr r501001502002503003504000.00.0.0.0.0.0.0 .0.0.500.40420.32600.26180.20840.16530.1 2930.09970.07531.000.78430.61320.47670.3 6620.28070.21140.15630.11311.751.32380.9 9650.74480.54770.40310.29020.19190.16132
.501.83631.34050.97000.68880.49060.34110 .23270.15533.752.61781.85401.28450.87010 .59370.39500.25860.16645.004.41982.31491 .54851.02200.66640.42880.27270.17166.254 .16192.73831.77801.12400.72140.45210.281 40.17427.504.88023.13271.98221.21970.794 50.46910.28710.17578.755.57863.50382.167 11.30220.80000.48200.29110.176710.06.260 33.85532.33671.39790.82960.49210.29400.1 77415.08.85745.12132.90691.63020.91310.5 1760.30020.1786 Нормативная нагрузка от горного давления в слабых сыпучих породах определяется по формуле . Нормативная дополнительная нагрузка на обделку ствола, вызванная весом наземных зданий, сооружений или оборудования учитывается, если нагружающий объект отстоит от контура ствола не дальше чем на , см. лист 1. При этом обязательно определение для участка ствола при . Таблица 3. Нормативные значения угла внутреннего трения , град, для песчаных и глинистых грунтов. Виды грунтовЗначения при к – те пористости 0.450.550.650.750.850.951.05Пески гравелистые и крупные430400380 Пески средней крупности400380350 Пески мелкие380360320280 Пески пылеватые360340300260 Супеси консистенция 0 –
0.25300290270 Супеси консистенция 0.25 – 0.75280260240210 Суглинки консистенция 0 – 0.25260250240230220200 Суглинки консистенция 0.25 – 0.5240230220210190170 Суглинки консистенция 0.5 – 0.75 190180160140120Глины консистенция 0 – 0.25 210200190180160140Глины консистенция 0.25 – 0.5 180170160140110Глины консистенция 0.5 – 0.75 15014012010070 Нормативная дополнительная нагрузка по глубине ствола при наличии одной пригрузки
см. лист 1 или нескольких, центры тяжести которых одинаково удалены от ствола и лежат на перпендикулярных друг другу осях, определяются по формуле , где – расстояние от внешнего контура ствола до наиболее удаленной точки нагружающего объекта – средний поперечный размер нагружающего объекта – вес нагружающего объекта. Дополнительную нагрузку можно также определять по данным таблицы 4 в зависимости от глубины ствола, его радиуса и грунтовых условий по формуле, используя для промежуточных значений и линейную интерполяцию
, в которой и где значение безразмерного параметра в зависимости от грунтовых условий и отношения приведены в таблице 4. Таблица 4. Значения безразмерного параметра в зависимости от глубины ствола, его радиуса и грунтовых условий. Hr 501001502002503003504000.000.83960.70410 .58710.49030.40590.33340.27100.21740.500 .78120.60770.46800.35710.27080.20080.145 40.10221.000.74150.54510.39450.28000.197 30.13400.08780.05431.750.69940.48170.324 00.21070.13560.08250.04750.0252.500.6688 0.43760.27800.16850.10060.05580.02880.01 353.750.63170.38730.22800.12580.6800.033 0.01470.00575.000.60460.35230.19540.1002 0.05000.0210.00860.00296.250.58340.32610 .17220.08300.03870.01570.00550.00167.500 .56610.30550.15410.07080.03110.01170.003 80.00108.750.55160.28870.14100.06160.025 80.00910.00270.000610.00.53920.27410.130 00.05400.02180.00730.00200.000415.00.502 20.23520.10060.03720.01290.00360.00080.0 001 При наличии пригрузок с одинаковым весом, центры тяжести которых лежат на перпендикулярных друг другу осях, но находятся на разных расстояниях от контура ствола, в формуле подставляется меньшее из значений . Если же пригрузки имеют различный вес, но расположены на равном расстоянии от контура ствола, в формуле подставляется большее значение . Если же пригрузки имеют различный вес и расположены на различных расстояниях от контура ствола, расчет ведется для каждой пригрузки в отдельности и в расчет принимается наибольшее
из полученных значений . При наличии нескольких пригрузок, центры тяжести которых пересекаются относительно центра сечения ствола под углами меньшими 900 и составляют соответственно углы , наибольшая дополнительная равнодействующая нагрузка определяется по формуле , где – порядковый номер нагружающего объекта – дополнительные нагрузки от – й пригрузки определяемые по формулам при соответствующих значениях – угол, соответствующий расчетному направлению приложения наибольшей равнодействующей нагрузки, определяемой по формуле .
2. Участки ствола в коренных породах. На участках где породы относятся к категории нестойких, нагрузка на обделку определяется в зависимости от способа сооружения ствола, его поперечного сечения, коэффициента крепости пород . Средняя нормативная нагрузка на обделку ствола от горного давления определяется по формуле , где – коэффициент, учитывающий степень разгрузки породной поверхности ствола при принятой технологии крепления, конструкции и материала обделки.
Коэффициент может приниматься по таблице 5. При проходке ствола в водоносных породах имеющих напор , полная средняя нормативная нагрузка на обделку принимается равной сумме нагрузок и . Расчетные максимальные нагрузки , минимальные нагрузки , а также расчетные значения и определяются как произведение средней нормативной нагрузки и соответствующих коэффициентов, приведенных при проходке ствола обычным способом в таблице 6 и при проходке ствола бурением – в таблице 7. Таблица 5. Значения коэффициента . Тип и способ сооружения ствола Монолитная при совмещенной схеме проходке5То же при параллельной и параллельно-щитовой схеме проходки3Тюбинговая, вводимая в работу на расстоянии от забоя не менее 20 м при обычном способе проходки1.1То же при возведении крепи с предварительной откачкой раствора и полной разгрузкой породных стенок при проходке стволов бурением0.8 Таблица 6. Соотношения между расчетными значениями и средней нормативной нагрузкой при обычном способе
проходки. Участок стволаХарактеристики нагрузокPmax Pmin P0 P2 P2 P0Протяженный2.80.331.561.240.8Вблизи сопряжения до 20 м3.10.171.641.460.9На участке пересечения геологического нарушения 3.30.171.741.560.9 Таблица 7. Соотношения между расчетными значениями и средней нормативной нагрузкой при проходке ствола бурением. Участок стволаХарактеристики нагрузокPmax Pmin P0
P2 P2 P0Протяженный1.40.61.00.40.4Вблизи сопряжения1.50.30.90.60.6 3.2. Проверка несущей способности тюбинговых обделок вертикальных стволов метрополитенов. Расчет тюбинговой обделки вертикальных стволов метрополитенов будем производить как для двухслойного состава кольца см. лист 1, наружным слоем которого является оболочка из спинок тюбингов, внутренним – кольцевые ребра жесткости. Проверку несущей способности тюбинговой обделки будем производить из условия,
при котором максимальные напряжения растяжения и сжатия в ребре и спинке не превышали расчетных сопротивлений материала обделки , где – расчетное сопротивление материала обделки железобетона или чугуна принимаемое по СНиП II-21-75 Бетонные и железобетонные конструкции. Нормы проектирования. или СНиП II-8.3-72 Стальные конструкции. Нормы проектирования. Несущая способность тюбинговой обделки с расчетными характеристиками материала и обеспечена если выполняются условия для ребра сечение Б-Б на листе 1 для спинки сечение В-В на листе 1 где знак относится в зависимости от материала конструкции к расчетным характеристикам железобетона, а к расчетным характеристикам чугуна – радиус конструкции тюбинговой обделки по спинке тюбинга см. лист 1 – внутренний радиус тюбинговой обделки по кольцевому ребру см. лист 1 – расстояние в свету между кольцевыми ребрами тюбинга см. лист 1 – высота кольцевого
ребра тюбинга см. лист 1 коэффициенты передачи нагрузок через наружний слой, в зависимости от геометрических размеров конструкции и определяемые по формулам – коэффициент Пуассона материала обделки, принимаемый равным 0.25 для бетонной и железобетонной, 0.23 – 0.27 – для чугунной и 0.3 – для остальных. При определении области применения типовой тюбинговой обделки ствола на различное сочетание нагрузок
следует построить паспорт прочности конструкции в координатах Несущая способность конструкции будет обеспечена если комбинации нагрузок , и лежат в области, ограниченной нижними границами линий, характеризующих условия прочности по сжимающим и растягивающим напряжениям в спинке и ребре тюбинга и условия положительности нагрузок по формуле . 3.3. Расчет параметров и построение паспорта прочности несущей способности тюбинговых обделок вертикальных
стволов метрополитенов. Параметры паспорта несущей способности тюбинговой обделки, т.е. координаты точек пересечения линий с осями и , определяются по формулам 1. Железобетонная тюбинговая обделка линия 1 – условие прочности по сжимающим напряжениям в ребре тюбинга линия 2 – условие прочности по растягивающим напряжениям в ребре тюбинга линия 3 – условие положительности нагрузок линия 4 – условие прочности по сжимающим напряжениям в спинке тюбинга линия 5 – условие прочности по растягивающим напряжениям в спинке тюбинга 2. Чугунная тюбинговая обделка линия 1 – условие прочности по сжимающим напряжениям в ребре тюбинга линия 2 – условие прочности по растягивающим напряжениям в ребре тюбинга линия 3 – условие положительности нагрузок линия 4 – условие прочности по сжимающим напряжениям в спинке тюбинга линия 5 – условие прочности по растягивающим напряжениям в спинке тюбинга Примечание при построении паспортов прочности тюбинговых обделок можно использовать программу для
ЭВМ, приведенную в приложении 1. При несущую способность железобетонных обделок конструкции ВНИИМШС, марка бетона 400 для стволов диаметром 4.5 – 8.0 м можно определить по паспортам прочности приведенным на листах 3 и 4. При несущую способность чугунных тюбинговых обделок конструкции Шахтспецстрой, чугун марки СЧ 12-28 для стволов диаметром 6.0 –
7.0 м можно определить по паспортам прочности приведенным на листе 4. 3.4. Проверка устойчивости тюбинговых обделок вертикальных стволов метрополитенов. Проверку устойчивости обделки вертикальных стволов метрополитенов, т.е. способности сопротивляться выпучиванию в сторону ствола, производится исходя из условия где – коэффициент формы упругой линии кольца обделки при потере устойчивости расчетное критическое давление находится как наименьшее значение функции
. 4. Приложения 4.1. Программа для проверки несущей способности и построения паспорта прочности тюбинговых обделок вертикальных стволов метрополитенов. unit Calc1 interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, DBTables, DB, DBFilter, Grids, DBGrids, StdCtrls, RXLookup, ExtCtrls, Buttons type
TForm1 classTForm Panel1 TPanel Panel2 TPanel rxDBLookupCombo1 TrxDBLookupCombo Edit1 TEdit Label1 TLabel Label2 TLabel Edit2 TEdit Label3 TLabel DBGrid1 TDBGrid Label4 TLabel TableSTUFF TTable DataSourceSTUFF TDataSource rxDBFilter1 TrxDBFilter DataSourceDATA TDataSource TableDATA TTable TableDATAR TFloatField TableDATAMass TFloatField TableDATARpress TFloatField TableDATARstretch TFloatField TableDATAPuasson TFloatField TableDATAR1 TFloatField TableDATARb TFloatField TableDATAA TFloatField TableDATAB TFloatField TableDATAStuff TSmallintField BitBtn1 TBitBtn RadioGroup1 TRadioGroup
RadioButton1 TRadioButton RadioButton2 TRadioButton RadioButton3 TRadioButton procedure rxDBLookupCombo1ChangeSender TObject procedure DBGrid1DblClickSender TObject procedure RadioButton1ClickSender TObject procedure RadioButton2ClickSender TObject procedure RadioButton3ClickSender TObject private
Private declarations public Public declarations end var Form1 TForm1 implementation uses Draw R .DFM procedure TForm1.rxDBLookupCombo1ChangeSender TObject var S String begin rxDBFilter1.Deactivate rxDBFilter1.Filter.Clear sStuff TableSTUFF.FieldByNameCode.AsString rxDBFilter1.Filter.AddS rxDBFilter1.Activate end procedure TForm1.DBGrid1DblClickSender
TObject var Mass, Rpress, Rstretch, Puasson, PuassonP, R1, Rb, R, A, B Double P0, P2 Double C1, C2 Double K0, K1, K2, K3, K4 Double L, L1 Double ALFA1, ALFA2 Double BETA, BETA1, BETA2 Double DELTA1, DELTA2 Double GAMMA1, GAMMA2 Double D1, D2 Double F Double SIGMARS,
SIGMARR, SIGMASS, SIGMASR Double i Integer Pkr, PkrOld Double Eo, Ep, J Double procedure Calc begin C1 R1Rb C2 RR1 F C2C2-1C1C1-1C2C2-1C1C1-1 C2C2-1C1C1-11BA D2 C2C21C2C21C2C21Puasson1 D1 C1C1-1C1C1-1Puasson1 DELTA2 C2C2C2C21 DELTA1 C2C23-C2C2 GAMMA2 C2C22C2C2C2C2C2C21
GAMMA1 C2C23C2C2 BETA 3RRbRRb3-RRbRRb BETA2 C2C2C2C2C2C21-D2FC1C11D1 BETA1 3C2C2-1-D2F3-C2C2C1C1C1C1D1 ALFA2 C2C22C2C2C2C2C2C2- D2F2C1C1C1C1C1C11D1 ALFA1 3C2C21D2FC1C13C1C1C1C1-D1 K4 ALFA2DELTA1-ALFA1DELTA2ALFA2BETA1-ALFA1B ETA2 K3 ALFA1GAMMA2-ALFA2GAMMA1ALFA2BETA1-ALFA1B ETA2 K2 BETA2DELTA1-BETA1DELTA2ALFA2BETA1-ALFA1B ETA2 K1 BETA1GAMMA2-BETA2GAMMA1ALFA2BETA1-ALFA1B ETA2 L1 4C2C2C2C21-BETA-K1BETAK2C1C11C1C11 4C2C22K3BETAK4C2C21C2C21-2 L K1BETAK2C1C11-K3BETAK4 K0 3C2C21BAC2C2-1C1C1-12C1C12C2C21 end begin with TableDATA do begin Mass FieldByNameMass.AsFloat Rpress FieldByNameRpress.AsFloat Rstretch FieldByNameRstretch.
AsFloat Puasson FieldByNamePuasson.AsFloat R1 FieldByNameR1.AsFloat Rb FieldByNameRb.AsFloat R FieldByNameR.AsFloat A FieldByNameA.AsFloat B FieldByNameB.AsFloat end if RadioButton1.Checked then begin Calc if TableDATA.FieldByNameStuff.AsInteger 0 Железо-бетон then begin PLinesisP0,1 C1C1-1MassRpress2C1C1K01BA PLinesisP2,1
C1C1-1C1C1-1 MassRpress4C1C1K01BA PLinesisP0,2 -C1C1-1MassRstretch2C1C1K01BA PLinesisP2,2 C1C1-1C1C1-1 MassRstretch4C1C1K01BA PLinesisP0,4 C2C2-1MassRpress2C2C2-K0 C2C21 PLinesisP2,4 C2C2-1C2C2-1MassRpressL1 PLinesisP0,5 -C2C2-1 MassRstretch2C2C2-K0C2C21 PLinesisP2,5 C2C2-1C2C2-1MassRstretchL1 end else begin Чугун PLinesisP0,1
C1C1-1MassRpress2C1K01BA PLinesisP2,1 C2C2-1C2C2-1 MassRpress4C1C1K01BA PLinesisP0,2 -C2C2-1MassRstretch2C1K01BA PLinesisP2,2 C1C1-1C1C1-1 MassRstretch4C1C1K01BA PLinesisP0,4 C2C2-1MassRpress2C2C2-K0 C2C21 PLinesisP2,4 C2C2-1C2C2-1MassRpressL1 PLinesisP0,5 -C2C2-1MassRstretch2C2C2-K0 C2C21 PLinesisP2,5
C2C2-1C2C2-1MassRstretchL1 end DrawForm.ShowModal end else if RadioButton2.Checked then begin Calc P0 StrToFloatEdit1.Text P2 StrToFloatEdit2.Text SIGMARS ABS2C1C1C1C1-11BAP0K02P2L C1C1-1 SIGMARR ABS2C1C1C1C1-11BAP0K0-2P2L C1C1-1 SIGMASS ABSP0C2C2-12C2C2-K0C2C21P2L1 C2C2-1C2C2-1 SIGMASR ABSP0C2C2-12C2C2-K0C2C21-P2L1
C2C2-1C2C2-1 if SIGMARS MassRpress or SIGMARR MassRstretch or SIGMASS MassRpress or SIGMASR MassRstretch then MessageDlgНесущая способность не обеспечена,mtInformation,mbOk,0 else MessageDlgНесущая способность обеспечена,mtInformation,mbOk,0 end else begin i1 PkrOld 0 repeat i i1 Pkr ii-1EoJ1-Puasson1-PuassonRRREp2 1PuassonPi1i1iii-1i-1 i-1iii13-4PuassonP if Pkr PkrOld then PkrOld Pkr else i0 until i 0 P0 StrToFloatEdit1.Text if P0 Pkr then MessageDlgУстойчивость обеспечена,mtInformation,mbOk,0 else MessageDlgУстойчивость не обеспечена,mtInformation,mbOk,0 end end procedure TForm1.RadioButton1ClickSender TObject begin Label2.Visible False Label3.Visible False Edit1.Visible False Edit2.Visible False end procedure TForm1.RadioButton2ClickSender
TObject begin Label2.Visible True Label3.Visible True Edit1.Visible True Edit2.Visible True end procedure TForm1.RadioButton3ClickSender TObject begin Label2.Visible True Label3.Visible False Edit1.Visible True Edit2.Visible False end end. unit Draw interface uses SysUtils, WinTypes,
WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls type TDrawForm classTForm BitBtn1 TBitBtn procedure FormActivateSender TObject private Private declarations public Public declarations end TPaintData isP0,isP2 TDiagramArray ArrayTPaintData,1 5 of
Double var PLines TDiagramArray DrawForm TDrawForm implementation R .DFM procedure TDrawForm.FormActivateSender TObject var R TRect MaxX, MinX Double MaxY, MinY Double Nx, Ny Integer Kx, Ky Double i Byte PointMin, PointMax Double procedure DrawLineX0, k, bDouble begin Canvas.MoveToR.Left60RoundKxX0,R.
Bottom- 30 if k 0 then Canvas.LineToR.Left60,RoundR.Bottom – 33 – Kybk10Kx else Canvas.LineToR.Right-10,RoundR.Bottom – 33 – Ky-bkR.Right-R.Left-70Kx end begin PLinesisP0,3 0 PLinesisP2,3 0 MaxX 0.0 MinX 0.0 MaxY 0.0 MinY 0.0 for i 1 to 5 do begin if PLinesisP0,i MaxX then MaxX PLinesisP0,i if PLinesisP2,i
MaxY then MaxY PLinesisP2,i if PLinesisP0,i MinX then MinX PLinesisP0,i if PLinesisP2,i MinY then MinY PLinesisP2,i end if MaxX 200 then Nx 100 else Nx 10 MaxX RoundMaxXNxNxNx if MaxY 200 then Ny 100 else Ny 10 MaxY RoundMaxYNyNyNy with DrawForm do begin Canvas.Pen.Color clBlack R.Left 10 R.Top 10 R.Right Width – 15 R.Bottom Height – 70 Canvas.FrameRectR Canvas.Brush.Color clBtnFace Kx R.Right – R.Left – 80MaxX Ky R.Bottom – R.Top – 80MaxY Ось Po Canvas.MoveToR.Left10,R.Bottom-30 Canvas.LineToR.Right-10,R.Bottom-30 Ось P2 Canvas.MoveToR.Left60,R.Top30 Canvas.
LineToR.Left60,R.Bottom-30 i 0 while iNx MaxX do begin Inci Canvas.MoveToR.Left60RoundKxiNx,R.Bottom -33 Canvas.LineToR.Left60RoundKxiNx,R.Bottom -27 Canvas.TextOutR.Left50RoundKxiNx, R.Bottom-20, IntToStriNx end i 0 while iNy MaxY do begin Inci Canvas.MoveToR.Left63,R.Bottom-30-RoundK yiNy
Canvas.LineToR.Left57,R.Bottom-30-RoundK yiNy Canvas.TextOutR.Left30, R.Bottom-35-RoundKyiNy, IntToStriNy end if PLinesisP0,1 PLinesisP0,4 then PointMax PLinesisP0,4 else PointMax PLinesisP0,1 if PLinesisP0,2 PLinesisP0,5 then PointMin PLinesisP0,2 else PointMin PLinesisP0,5 if
PointMin 0 then PointMin 0.0 DrawLinePLinesisP0,1, -PLinesisP2,1PLinesisP0,1,PLinesisP2,1 DrawLinePLinesisP0,2, -PLinesisP2,2PLinesisP0,2,PLinesisP2,2 DrawLine0,1,0 DrawLinePLinesisP0,4, -PLinesisP2,4PLinesisP0,4,PLinesisP2,4 DrawLinePLinesisP0,5, -PLinesisP2,5PLinesisP0,5,PLinesisP2,5
Canvas.Brush.Color clGreen Canvas.FloodFillRoundPointMax-PointMin2K xR.Left60, R.Bottom-55, clBlack, fsBorder Canvas.Brush.Color clBtnFace Canvas.TextOutR.Right-80, R.Bottom-50, P0, TCM2 Canvas.TextOutR.Left20, R.Top10, P2, TCM2 end end end. unit Edittub interface uses SysUtils,
WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, DBFilter, DB, DBTables, Grids, DBGrids, RXLookup, ExtCtrls, DBCtrls type TEditDataForm classTForm Panel1 TPanel rxDBLookupCombo1 TrxDBLookupCombo TableSTUFF TTable DataSourceSTUFF TDataSource DBGrid1 TDBGrid DataSourceDATA TDataSource TableDATA TTable TableDATAMass TFloatField TableDATARpress TFloatField TableDATARstretch TFloatField TableDATAPuasson TFloatField TableDATAR1 TFloatField TableDATARb TFloatField TableDATAR TFloatField TableDATAA TFloatField TableDATAB TFloatField rxDBFilter1
TrxDBFilter TableDATAStuff TSmallintField DBNavigator1 TDBNavigator procedure rxDBLookupCombo1ChangeSender TObject procedure DBNavigator1ClickSender TObject Button TNavigateBtn procedure DBGrid1DblClickSender TObject private Private declarations public Public declarations end var
EditDataForm TEditDataForm implementation R .DFM uses EditForm procedure TEditDataForm.rxDBLookupCombo1ChangeSend er TObject var S String begin rxDBFilter1.Deactivate rxDBFilter1.Filter.Clear sStuff TableSTUFF.FieldByNameCode.AsString rxDBFilter1.Filter.AddS rxDBFilter1.Activate end procedure TEditDataForm.
DBNavigator1ClickSender TObject Button TNavigateBtn begin case Button of nbInsert begin EditDataTubTableDATA, True, TableSTUFF.FieldByNameCode.AsInteger end nbEdit begin EditDataTubTableDATA, False, TableSTUFF.FieldByNameCode.AsInteger end end end procedure TEditDataForm.DBGrid1DblClickSender
TObject begin EditDataTubTableDATA, False, TableSTUFF.FieldByNameCode.AsInteger end end. unit Editform interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB, DBTables, Buttons type TEdTubForm classTForm
DataSource1 TDataSource Panel1 TPanel DBEdit1 TDBEdit Label1 TLabel Label2 TLabel Label3 TLabel DBEdit2 TDBEdit DBEdit3 TDBEdit Label4 TLabel Label5 TLabel Label6 TLabel DBEdit4 TDBEdit DBEdit5 TDBEdit DBEdit6 TDBEdit Label7 TLabel DBEdit7 TDBEdit Label8 TLabel Label9 TLabel Panel2 TPanel Panel3 TPanel DBEdit8 TDBEdit DBEdit9 TDBEdit BitBtn1 TBitBtn BitBtn2 TBitBtn Table1 TTable Label10 TLabel DBText1 TDBText DataSource2 TDataSource Query1 TQuery Query1Material TStringField procedure FormCreateSender TObject public FCode Integer function
EditTub Table TTable IsNew Boolean Code Integer Boolean end var EdTubForm TEdTubForm function EditDataTubTable TTable IsNew Boolean Code Integer Boolean implementation R .DFM function EditDataTubTable TTable IsNew Boolean Code Integer Boolean begin Result False with TEdTubForm.
CreateApplication do try FCode Code Result EditTubTable, IsNew, Code finally Free end end function TEdTubForm.EditTubTable TTable IsNew Boolean Code Integer Boolean begin if Table nil then DataSource1.DataSet Table else begin Table1.Open DataSource1.DataSet Table1 end if IsNew then begin
DataSource1.DataSet.Append DataSource1.DataSet.FieldByNameStuff.AsI nteger Code end else DataSource1.DataSet.Edit Result ShowModal mrOk if Result then DataSource1.DataSet.Post else DataSource1.DataSet.Cancel end procedure TEdTubForm.FormCreateSender TObject begin Query1.Active False
Query1.ParamByNameSt.AsInteger FCode Query1.Active True end end. unit EditUser interface uses SysUtils, WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, DBTables type TEditUserDialog classTForm OKBtn TBitBtn CancelBtn
TBitBtn UsersTable TTable dsUsers TDataSource NameEdit TDBEdit FullNameEdit TDBEdit GroupBox TGroupBox PasswordEdit TDBEdit ConfirmPassword TEdit Label1 TLabel Label2 TLabel LevelGroup TDBRadioGroup procedure OKBtnClickSender TObject procedure CancelBtnClickSender TObject procedure FormHideSender TObject private Private declarations public Public declarations function EditUserconst UserName string Table TTable IsNew Boolean Boolean end var EditUserDialog TEditUserDialog function EditUserDataconst UserName string Table TTable IsNew Boolean Boolean implementation uses
Global, Crypt R .DFM const SNotFound Записей не обнаружено SNoConfirmPassword Вы ввели разные пароли. Проверьте правильность ввода function EditUserDataconst UserName string Table TTable IsNew Boolean Boolean var SUName string begin Result False SUName UserName if glUserLevel ulAdministrator then begin
Table nil SUName glUserName end with TEditUserDialog.CreateApplication do try Result EditUserSUName, Table, IsNew finally Free end end TEditUserDialog function TEditUserDialog.EditUserconst UserName string Table Ttable IsNew Boolean Boolean begin NameEdit.Enabled glUserLevel ulAdministrator
LevelGroup.Enabled glUserLevel ulAdministrator if Table nil then begin dsUsers.DataSet Table UsersTable.Close end else begin UsersTable.Open if UserName then begin if not UsersTable.FindKeyUserName then raise Exception.CreateSNotFound end dsUsers.DataSet UsersTable end if IsNew then dsUsers.DataSet.Append else dsUsers.DataSet.
Edit ConfirmPassword.Text PasswordEdit.Text Result ShowModal mrOk end procedure TEditUserDialog.OKBtnClickSender TObject begin if PasswordEdit.Text ConfirmPassword.Text then raise Exception.CreateSNoConfirmPassword dsUsers.DataSet.Post ModalResult mrOk end procedure TEditUserDialog.
CancelBtnClickSender TObject begin dsUsers.DataSet.Cancel ModalResult mrCancel end procedure TEditUserDialog.FormHideSender TObject begin dsUsers.DataSet.Cancel UsersTable.Close end end. unit Global interface type TUserLevel ulInvalid, ulOperator, ulManager, ulAdministrator const InvalidID 0 glUserLevel TUserLevel ulInvalid glUserName string glUserID Longint InvalidID function cUserLevelCode Longint TUserLevel implementation function cUserLevelCode Longint TUserLevel begin Result ulInvalid if Code in IntegerLowTUserLevel IntegerHighTUserLevel then Result TUserLevelCode end end. unit Global interface type
TUserLevel ulInvalid, ulOperator, ulManager, ulAdministrator const InvalidID 0 glUserLevel TUserLevel ulInvalid glUserName string glUserID Longint InvalidID function cUserLevelCode Longint TUserLevel implementation function cUserLevelCode Longint TUserLevel begin Result ulInvalid if Code in IntegerLowTUserLevel IntegerHighTUserLevel then Result
TUserLevelCode end end. unit Main interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, SpeedBar, Menus, ExtCtrls, Placemnt, DB, DBSecur, DBTables type TStaftForm classTForm SpeedBar TSpeedBar ExitItem TSpeedItem MainMenu TMainMenu FileMenu
TMenuItem InsuranceMenuItem TMenuItem FileMenuSeperator TMenuItem PrinterSetupMenuItem TMenuItem ExitMenuItem TMenuItem DictSetupMenu TMenuItem UserMenuItem TMenuItem WindowMenu TMenuItem TileMenuItem TMenuItem CascadeMenuItem TMenuItem MinimizeAllMenuItem TMenuItem ArrangeAllMenuItem
TMenuItem HelpMenu TMenuItem HelpContentsMenuItem TMenuItem HelpMenuSeparator TMenuItem AboutMenuItem TMenuItem ChangePasswordItem TSpeedItem PrintSetupItem TSpeedItem CalcItem TSpeedItem PrinterSetup TPrinterSetupDialog TileWindowsItem TSpeedItem CascadeWindowsItem TSpeedItem
HintPanel TPanel DBSecurity1 TDBSecurity Database1 TDatabase EditItem TMenuItem FormPlacement TFormPlacement procedure ArrangeAllMenuItemClickSender TObject procedure TileMenuItemClickSender TObject procedure CascadeMenuItemClickSender TObject procedure MinimizeAllMenuItemClickSender TObject procedure AboutMenuItemClickSender TObject procedure PrinterSetupMenuItemClickSender TObject procedure ExitMenuItemClickSender TObject procedure FormStorageRestorePlacementSender TObject procedure FormStorageSavePlacementSender TObject function DBSecurity1CheckUserUsersTable TTable const Password String Boolean procedure UserMenuItemClickSender TObject procedure
FormCreateSender TObject procedure FormDestroySender TObject procedure InsuranceMenuItemClickSender TObject procedure ShowHintSender TObject procedure EditItemClickSender TObject private procedure SetUserLevel procedure UpdateMenuItemsSender TObject function ShowFormFormClass TFormClass TForm end var
StaftForm TStaftForm implementation uses About, rxIni, VCLUtils, Global, AppUtils, EditUser, UserList, EditTub, Calc1 R .DFM const siMDIChilds OpenMDIChilds procedure TStaftForm.SetUserLevel begin case glUserLevel of ulOperator begin DictSetupMenu.Visible False DictSetupMenu.Enabled False
UserMenuItem.Visible False UserMenuItem.Enabled False end ulManager begin DictSetupMenu.Visible True DictSetupMenu.Enabled True UserMenuItem.Visible False UserMenuItem.Enabled False end ulAdministrator begin DictSetupMenu.Visible True DictSetupMenu.Enabled True UserMenuItem.Visible True UserMenuItem.Enabled True end end end procedure
TStaftForm.TileMenuItemClickSender TObject begin Tile end procedure TStaftForm.CascadeMenuItemClickSender TObject begin Cascade end procedure TStaftForm.MinimizeAllMenuItemClickSende r TObject var I Integer begin for I MDIChildCount – 1 downto 0 do MDIChildrenI.WindowState wsMinimized end procedure
TStaftForm.ArrangeAllMenuItemClickSender TObject begin ArrangeIcons end procedure TStaftForm.AboutMenuItemClickSender TObject begin ShowAboutDialogРасчет тюбинговой обделки, Королев А.В МГГУ, nil, 1, 0, 1996 end procedure TStaftForm.PrinterSetupMenuItemClickSend er TObject begin PrinterSetup.Execute end procedure TStaftForm.ExitMenuItemClickSender TObject begin Close end function TStaftForm.ShowFormFormClass TFormClass TForm var Form TForm begin Result nil StartWait try Form FindFormFormClass if Form nil then Application.CreateFormFormClass, Form with Form do begin if WindowState wsMinimized then
WindowState wsNormal Show end Result Form finally StopWait end end procedure TStaftForm.FormStorageRestorePlacementSe nder TObject var IniFile TrxIniFile List TStrings I Integer FormClass TFormClass Form TForm begin StartWait try SpeedBar.Visible True IniFile TrxIniFile.CreateFormPlacement.
IniFileNa me try if glUserLevel in ulManager, ulAdministrator then begin List TStringList.Create try IniFile.ReadListsiMDIChilds, List for I 0 to List.Count – 1 do begin FormClass TFormClassGetClassListI if FormClass nil then ShowFormFormClass end finally List.Free end end finally IniFile.Free end finally
StopWait end end procedure TStaftForm.FormStorageSavePlacementSende r TObject var IniFile TrxIniFile List TStrings I Integer begin IniFile TrxIniFile.CreateFormPlacement.IniFileNa me try IniFile.EraseSectionsiMDIChilds List TStringList.Create try for I MDIChildCount – 1 downto 0 do List.AddMDIChildrenI.
ClassName if List.Count 0 then IniFile.WriteListsiMDIChilds, List finally List.Free end finally IniFile.Free end end function TStaftForm.DBSecurity1CheckUserUsersTabl e TTable const Password String Boolean begin Result Password UsersTable.FieldByNamePassword.AsString if Result then begin glUserName
UsersTable.FieldByNameUserName.AsString glUserID UsersTable.FieldByNameID.AsInteger glUserLevel cUserLevelUsersTable.FieldByNameUserLeve l .AsInteger Result glUserLevel ulInvalid end if Result then SetUserLevel end procedure TStaftForm.UserMenuItemClickSender TObject begin ShowFormTUserListForm end procedure TStaftForm.ShowHintSender TObject begin HintPanel.Caption Application.Hint end procedure TStaftForm.UpdateMenuItemsSender TObject begin Enable or disable menu items and buttons CascadeMenuItem.Enabled MDIChildCount 0 TileMenuItem.Enabled MDIChildCount 0 ArrangeAllMenuItem.Enabled
MDIChildCount 0 MinimizeAllMenuItem.Enabled MDIChildCount 0 TileWindowsItem.Enabled MDIChildCount 0 CascadeWindowsItem.Enabled MDIChildCount 0 end procedure TStaftForm.FormCreateSender TObject begin Application.OnHint ShowHint Screen.OnActiveFormChange UpdateMenuItems SetAutoSubClassTrue set wait cursor to
SQL WaitCursor crSQLWait register classes of MDI-child forms RegisterClassesTDictForm, TRatesForm, TItemReportForm end procedure TStaftForm.FormDestroySender TObject begin Screen.OnActiveFormChange nil Application.HelpCommandHELPQUIT,0 end procedure TStaftForm.InsuranceMenuItemClickSender TObject begin Form1.ShowModal end procedure
TStaftForm.EditItemClickSender TObject begin EditDataForm.Show end end. unit UserList interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, ExtCtrls, DBTables, DB, Grids, DBGrids, RXDBCtrl, Placemnt, StdCtrls, Buttons type
TUserListForm classTForm UsersTable TTable dsUsers TDataSource UsersGrid TrxDBGrid UsersTablePassword TStringField Panel1 TPanel DBNavigator TDBNavigator FormPlacement TFormPlacement UsersTableID TFloatField UsersTableUserName TStringField UsersTableFullName
TStringField UsersTableUserLevel TFloatField BitBtn1 TBitBtn procedure DBNavigatorClickSender TObject Button TNavigateBtn procedure UsersGridDblClickSender TObject procedure FormPlacementSavePlacementSender TObject procedure FormPlacementRestorePlacementSender TObject procedure FormCreateSender TObject procedure FormCloseSender TObject var Action TCloseAction end var UserListForm TUserListForm implementation uses EditUser, IniFiles, Global const SAccessDenied Недостаточно прав. Доступ запрещен R .DFM procedure TUserListForm.DBNavigatorClickSender
TObject Button TNavigateBtn begin case Button of nbInsert begin EditUserData, UsersTable, True end nbEdit begin EditUserData, UsersTable, False end end end procedure TUserListForm.UsersGridDblClickSender TObject begin EditUserData, UsersTable, False end procedure TUserListForm.FormPlacementSavePlacement
Sender TObject var IniFile TIniFile I Integer begin IniFile TIniFile.CreateFormPlacement.IniFileName try for I 0 to ComponentCount – 1 do begin if ComponentsI is TrxDBGrid then TrxDBGridComponentsI.SaveLayoutIniFile end finally IniFile.Free end end procedure TUserListForm.FormPlacementRestorePlacem entSender
TObject var IniFile TIniFile I Integer begin IniFile TIniFile.CreateFormPlacement.IniFileName try for I 0 to ComponentCount – 1 do begin if ComponentsI is TrxDBGrid then TrxDBGridComponentsI.RestoreLayoutIniFil e end finally IniFile.Free end end procedure TUserListForm.FormCreateSender
TObject begin if not glUserLevel in ulAdministrator then begin raise Exception.CreateSAccessDenied end UsersTable.Open end procedure TUserListForm.FormCloseSender TObject var Action TCloseAction begin Action caFree end end. program Shaft uses Forms, Main in MAIN.PAS StaftForm, Global in GLOBAL.PAS, EditUser in
EDITUSER.PAS, UserList in USERLIST.PAS UserListForm, Edittub in EDITTUB.PAS EditDataForm, Editform in EDITFORM.PAS EdTubForm, Calc1 in CALC1.PAS Form1, Draw in DRAW.PAS DrawForm R .RES begin Application.CreateFormTStaftForm, StaftForm Application.CreateFormTEditDataForm, EditDataForm Application.CreateFormTEdTubForm, EdTubForm Application.CreateFormTForm1, Form1 Application.CreateFormTDrawForm, DrawForm Application.Run end. 5. Список использованной литературы. 1. Баклашов И.В Картозия Б.А. Механика подземных сооружений и конструкций крепей – М Недра, 1992, 543 с. 2. Насонов И.Д Федюкин В.А Шуплик
М.Н Технология строительства подземных сооружений – М Недра, 1992, 285 с. 3. Насонов И.Д Шуплик М.Н. Закономерности формирования ледопородных ограждений при сооружении стволов шахт – М Недра, 1976, 237 с. 4. Храпов В.Г. Тоннели и метрополитены – М Транспорт, 1989, 383 с. 5. Белый В.В. Справочник инженера шахтостроителя в 2-х томах –
М 1983 6. Туренский Н.Г Ледяев А.П. Строительство тоннелей и метрополитенов – М Транспорт, 1992, 264 с. 7. Богомолов Г.М Голицынский Д.М. Сеславинский С.И. Справочник инженера тоннельщика – М Транспорт, 1993, 389 с.