Пояснительная записка (1230040), страница 12
Текст из файла (страница 12)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ADODB, ExcelXP, OleServer, FIBDatabase, pFIBDatabase,
DB, FIBDataSet, pFIBDataSet,ComObj, Grids, DBGrids, DBTables;
type
TForm1 = class(TForm)
pFIBDatabase1: TpFIBDatabase;
pFIBTransaction1: TpFIBTransaction;
ExcelApplication1: TExcelApplication;
ExcelWorkbook1: TExcelWorkbook;
ExcelQueryTable1: TExcelQueryTable;
ExcelWorksheet1: TExcelWorksheet;
Button1: TButton;
OpenDialog1: TOpenDialog;
pFIBDataSet1: TpFIBDataSet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const xlCellTypeLast=$000000B;
var
excel:OLEVariant;
id, i, j :integer;
name, god, a, b, c, d, e,f , k,idauto, g, h, l: string;
begin
excel :=CreateOleObject('Excel.Application');
excel.DisplayAlerts :=False;//îòêëþ÷àåì çàïðîñû Excel
if not OpenDialog1.Execute then Exit;
try
Excel.WorkBooks.Open(opendialog1.FileName); //îòêðûâàåì ôàéë Excel
i :=2; //íà÷èíàåì ñ÷èòûâàòü ñî 2îé ñòðîêè
j := excel.ActiveCell.SpecialCells(xlCellTypeLast).Row;// ïîñëåäíÿÿ íåïóñòàÿ ñòðîêà
// ïðîöåäóðà çàãðóçêè
while i<>j+1 do begin
{id :=excel.cells[i,1].value;}
idauto :=excel.cells[i,1].value;
god:=excel.cells[i,2].value;
a:=excel.cells[i,3].value;
b:=excel.cells[i,4].value;
c:=excel.cells[i,5].value;
d:=excel.cells[i,6].value;
e:=excel.cells[i,7].value;
f:=excel.cells[i,8].value;
g:=excel.cells[i,9].value;
h:=excel.cells[i,10].value;
k:=excel.cells[i,11].value;
l:=excel.cells[i,12].value;
with pFIBDataset1 do
begin
Insert;
pFIBDataset1.insert;
// FieldByName('ID_P').AsInteger :=id;
FieldByName('NAMELINE').AsString :=idauto;
FieldByName('DELX').AsString :=a;
FieldByName('DELY').AsString :=b;
FieldByName('DLINA').AsString :=c;
FieldByName('ENDX').AsString :=d;
FieldByName('ENDY').AsString :=e;
FieldByName('MASHTAB').AsString :=f;
FieldByName('TIP').AsString :=g;
FieldByName('SLOY').AsString :=h;
FieldByName('TOLSHINA').AsString :=k;
FieldByName('COLOR').AsString :=l;
end;
inc(i);
Form1.pFIBDataSet1.post;
form1.pFIBDatabase1.DefaultTransaction.CommitRetaining;
end;
Excel.ActiveWorkBook.Close;
Excel.Quit;
Excel:=Unassigned;
except;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.pFIBDataSet1.edit;
Form1.pFIBDataSet1.ClearFields;
form1.pFIBDatabase1.DefaultTransaction.CommitRetaining;
end;
end.
Приложение Б
Таблица Б.1- Условные обозначения для составления масштабных планов станций
| № п/п | Наименование объекта | Условное обозначение | Цвет | Размер высота/ширина, мм | Тип условного обозначения |
| 1 | 2 | 3 | 4 | 5 | 6 |
| 1 | Группировка основных путей парка |
| черный | толщина линии 0.2, угол 45º | Линейный |
| 2 | Главный путь |
| красный | толщина линии 0.2 | Линейный |
| 3 | Деповской путь локомотивного и вагонного хозяйства |
| синий | толщина линии 0.2 | Линейный |
| 4 | а) Станционный путь б) Станционный путь узкой колеи |
| черный | толщина линии 0.2, вертикаль- ный штрих 3, шаг штрихов 6 | Линейный |
| 5 | а) Электрифициро- ванный путь, постоянный ток б) Электрифициро- ванный путь, переменный ток |
| черный, желтый | толщина линии 0.2, штрих 10, разрыв 10 | Линейный |
| 6 | Законсервированный, недействующий, разбираемый путь |
| черный | толщина линии 0.2, между перекрестиями 15, перекрестия 2/2 | Линейный |
Продолжение таблицы Б.1
| Путь на балансе ветвевладельца | черный | толщина линии 0.2, штрих 5, разрыв 2 | Линейный | ||
| 7 | Ось | черный | толщина линии 0.2, штрих 5, разрыв 2 | Линейный | |
| 8 | Направление |
| черный | 3/33 | Точечный |
| 9 | Стрелочный перевод ручной, механический |
| черный | В зависимости от марки крестовины: 1/6, 1/9, 1/11, штрих - 2 | Точечный |
| 10 | Стрелочный перевод централизованный |
| черный | В зависимости от марки крестовины: 1/6, 1/9, 1/11, 1/18, штрих - 2 | точечный |
| 11 | Стрелочный перевод симметричный централизованный |
| черный | В зависимости от марки крестовины: 2/6, 2/9, 2/11, 2/18 | Точечный |
| 12 | Стрелочный перевод симметричный ручной, механический |
| черный | В зависимости от марки крестовины: 2/6, 2/9, 2/11, 2/18 | Точечный |
Продолжение таблицы Б.1
| 13 | Стрелочный перевод централизованный симметричный, горочный |
| черный | 2/6 | Точечный |
| 14 | Крестовина поворотного круга |
| В зависимости от марки крестовины: 4/6, 4/9, 4/11 (со штрихами) | Точечный | |
| 15 | Стрелочный перевод перекрестный |
| черный | 2/18 | Точечный |
| 16 | Глухое пересечение |
| черный | В зависимости от марки крестовины: 2/12, 2/18, 2/22, перекрестия под углами: 27º, 45º, 90º | Точечный |
| 17 | Сбрасывающий стрелочный перевод централизованный |
| черный | 2/6, штрих - 2 | Точечный |
| 18 | Сбрасывающий стрелочный перевод ручной, механический |
| черный | 2/6, штрих - 2 | Точечный |
| 19 | Сбрасывающий остряк централизованный, ручной, механический |
| черный | 2/6, штрих - 2 | Точечный |
Продолжение таблицы Б.1
| 20 | Сбрасыватель башмаков |
| черный | 2/4 | Точечный |
| 21 | Колесосбрасывающий башмак ручной |
| черный | 2/6, штрих – 2, 1 | Точечный |
| 22 | Колесосбрасывающий башмак централизованный |
| черный | 2/6, штрих – 2, 1 | Точечный |
| 23 | Упор тормозной стационарный ручной |
| черный | 1,штрих 2 | Точечный |
| 24 | Упор тормозной стационарный централизованный |
| черный | 1, штрих2 | Точечный |
| 25 | Вагонный замедлитель |
| черный | 2/5 | Точечный |
| 26 | Горка (ГПМ, ГБМ, ГСМ) |
| черный | 5/15 | Точечный |
| 27 | Горка малой мощности (полугорка, ГММ) |
| черный | 15/2.5 | Точечный |
| 28 | Весы вагонные (не залитые) |
| черный | 5/10 | Точечный |
| 29 | Весы путевые |
| черный | длина 11 (5,6,5) | Точечный |
| 30 | Круг поворотный |
| черный | 25.5 | Точечный |
| 31 | Столбик предельный |
| черный | 1 | Точечный |
| 32 | Изолирующий стык |
| черный | 3/1 | Точечный |
| 33 | Негабаритный изолирующий стык |
| черный | диаметр 4, 3/1 | Точечный |
Продолжение таблицы Б.1
| 34 | Упор |
| черный | 3/1.5 | Точечный |
| 35 | Конец пути без упора |
| черный | 3 | Точечный |
| 36 | Габаритные ворота |
| черный | 5/6 | Линейный |
| 37 | Граница станции |
| черный | 7/4,квадрат 4 | Точечный |
| 38 | Маневровая колонка |
| черный | 6/3 | Точечный |
| 39 | Указатель |
| черный | 5/2 | Точечный |
| 40 | Светофор карликовый двухлинзовый |
| черный | 2/2 | Точечный |
| 41 | Светофор карликовый повторительный /заградительный |
| черный | 2/2 | Точечный |
| 42 | Светофор карликовый двойной четырехлинзовый |
| черный | 2/4 | Точечный |
| 43 | Светофор карликовый двойной пятилинзовый |
| черный | 2,4/4 | Точечный |
| 44 | Светофор карликовый трехлинзовый |
| черный | 4/2 | Точечный |
| 45 | Светофор мачтовый двухлинзовый |
| черный | 5/2 | Точечный |
| 46 | Светофор мачтовый однолинзовый |
| черный | 5/2 | Точечный |
Продолжение таблицы Б.1
| 47 | Светофор мачтовый повторительный /заградительный |
| черный | 5/2 | Точечный |
| 48 | Светофор мачтовый трехлинзовый |
| черный | 5/2 | Точечный |
| 49 | Светофор мачтовый четырехлинзовый |
| черный | 6/2 | Точечный |
| 50 | Светофор мачтовый пятилинзовый |
| черный | 8/2 | Точечный |
| 51 | Светофор подвесной однолинзовый |
| черный | 2/2 | Точечный |
| 52 | Светофор подвесной двухлинзовый |
| черный | 2/2 | Точечный |
| 53 | Светофор подвесной трехлинзовый |
| черный | 4/2 | Точечный |
| 54 | Светофор подвесной четырехлинзовый |
| черный | 6/2 | Точечный |
| 55 | Светофор подвесной пятилинзовый |
| черный | 8/2 | Точечный |
| 56 | Светофор подвесной повторительный |
| черный | 2/2 | Точечный |
| 57 | Указатель роспуска вагонов |
| черный | 8/4 | Точечный |
| 58 | Электронный счетчик осей вагонов |
| черный | 8, 1.5 | Точечный |
| 59 | Опора ж.б. |
| черный | 1.5 | Точечный |
| 60 | Опора ж.б., двойная |
| черный | 1.5 | Точечный |
Продолжение таблицы Б.1
| 61 | Опора металлическая |
| черный | 1.5/1.5 | Точечный | ||
| 62 | Платформа высокая |
| черный, | в масштабе, штриховка 45º, шаг 1.5 | площадной | ||
| 63 | Платформа низкая |
| черный, | -//-, штриховка 45º,шаг 1.5 | площадной | ||
| 64 | Здания, строения |
| черный контур, заливка - серый | в масштабе | площадной | ||
| 65 | Переезд |
| черный | в масштабе | Линейный | ||
| 66 | Мост |
| черный | -//- | площадной | ||
| 67 | Путепровод |
| черный | в масштабе | площадной | ||
| 68 | Галерея |
| черный | в масштабе, штриховка 45º, шаг 1.5, штрихи из углов 1.5 | площадной | ||
| 69 | Стена подпорная |
| черный | толщина линии 0.6, штрих 0.8, промежуток 4 | линейный | ||
| 70 | Лестница |
| черный | в масштабе, шаг 2 | площадной | ||
| 71 | Труба подземная |
| черный | штрих 2, разрыв 2 | площадной | ||
| 72 | Тоннель |
| черный | штрих 2, разрыв 2 | площадной |
Продолжение таблицы Б.1
| 73 | Километры |
| черный | 15/5 | Точечный |
| 74 | Пикет |
| Черный | толщина 0.5, высота 2 | Точечный |
| 75 | Граница подъездного пути |
| Черный | толщина линии 0,2 штрих 2х2 Длина линии 10.0 | Точечный |
| 76 | Колонки громкоговорящей связи |
| Черный | высота 3.5 мм, ширина 1.5 мм | Точечный |
| 77 | Эстакада мостового крана |
| Черный | длина звена 20.0 ширина 3.0 | Линейный |
| 78 | Ограждение ж.б. |
| черный | 8,ширина - 1 | Линейный |
| 79 | Ограждение мет. |
| черный | толщина линии 0,5, квадраты 1, расстояние 5 | Линейный |
| 80 | Пересечение с ЛЭП (ситуация) |
| Черный | 1, длина 15 (всего) | Точечный |
| 81 | Отсутствующий предельный столбик |
| Черный | 1 | Точечный |
| 82 | Гидроколонка |
| Черный | высота 3, ширина 2 | Точечный |
| 83 | Пункт раздачи горюче-смазочных материалов |
| Черный | высота 6, ширина 2, 2 , угол наклона 45º | Точечный |
Таблица Б.2- Текстовые подписи объектов
| № п/п | Подписи объектов | Цвет | Высота шрифта в масштабе 1:1000, мм | Расположение |
| 1 | 2 | 3 | 4 | 5 |
| 1 | Название станции | черный | 9 | Сверху, посередине масштабного плана |
| 2 | Название парка | черный | 5 | Слева/справа линии группировки основных путей парка |
| 3 | Подпись направления на соседнюю станцию | черный | 5 | Над стрелкой направления на соседнюю станцию |
| 4 | Подпись направления (четное, нечетное) | черный | 2 | Под стрелкой направления на соседнюю станцию |
| 5 | Номер главного пути | красный | 2.5 | В разрыве главного пути |
| 6 | Номер станционного пути | черный | 2.5 | В разрыве станционного пути |
| 7 | Междупутное расстояние | черный | 2.5 | Между осями путей, на пикетах, НК, СК, КК |
| 8 | Пикет | черный | 2.5 | Под знаком пикета на главном пути |
| 9 | Километр | черный | 7.5 | Под указателем километра |
| 10 | Полезная длина главного пути | красный | 2.5 | В разрыве главного пути, слева от номера пути |
| 11 | Полезная длина станционного пути | черный | 2.5 | В разрыве главного пути, слева от номера пути |
| 12 | Расстояние до границы полосы отвода | черный | 2.5 | В вершине линии, за границей полосы отвода |
| 13 | Номер и литера стрелочного перевода | черный | 3 | В тупом углу стрелочного перевода |
Продолжение таблицы Б.2
| 14 | Номер и литера светофора | черный | 3 | У основания светофора |
| 15 | Номер и название строения | черный | 3 | Внутри строения, параллельно большей стороне (вдоль оси, рядом с объектом) |
| 16 | Подпись оси | черный | 2 и 2.5 | Слева от оси – название объекта (диаметр отверстия), справа - пикетаж |
| 17 | Номер опоры | черный | 2.5 | Справа от опоры |
| 18 | Надписи в ведомости расстояний | черный | 2.5 | Вертикально, в таблице |
| 19 | Граница подъездного пути (ГПП) | черный | 5 | Над знаком границы подъездного пути |
115
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
