реалізованій програмі для доступу до даних застосовується ADO. За допомогою ADO можна отримати доступ до даних, але не можна зчитувати структуру БД. Для цього, застосовується ADOX за допомогою якого, можна вирішувати різні завдання, недоступні за допомогою звичайних об'єктів ADO. SQL Script доповнює і створює БД.
5. Вироблено обгрунтування вибору інструментальних засобів, рассмот рена характеристика реалізації. Розроблено програму для автоматизації оновлення структури баз даних програмного забезпечення ТПС. Призначення програми полягає в тому, що б максимально звільнити користувача від необхідності знання програмування і теорії систем БД, а також дозволяє вирішувати конкретні завдання в області розрахунку та оптимізації ТПС. Оновлювати структуру БД, а також дані.
Список літератури
1. Громов Н. К. Міські теплофікаційні системи. М.: Енергія, 1974.
. Сафонов А. П. Автоматизація систем централізованого теплопостачання.-М., 1974.
. Соколов Є. Я. Теплофикация та теплові мережі, 4 видавництва.- М., 1975.
. Зінгер І. ??М. Гідравлічні і теплові режими теплофікаційних систем.-М .: Енергія, 1976.
. Чистович С.А., Авер'янов В.К., Темпель Ю.Я. та ін. Автоматизовані системи теплопостачання та опалення. Л .: Стройиздат., 1987.
. Гірські Н. І. Автоматизація виявлення пошкоджень в теплових мережах.- Новосибірськ: Наука, 1987.
. Сеннов Є. В., Сідлер В. Г. Математичне моделювання та оптимізація розвиваються теплопостачальних систем.- Новосибірськ: Наука, 1987.
. Сеннов Є.В. Оптимізація розвитку та реконструкції теплопостачальних систем.- Новосибірськ: Наука, 1987.
. Меренков А. П., Сеннов Є. В., Сумароков С. В. та ін. Математичне моделювання та оптимізація систем тепло-, водо-, нафто- і газопостачання.- Новосибірськ: ВО Наука, 1992.
. Розробка і розвиток методичних основ та алгоритмічної бази для комплексного вирішення завдань управління функціонуванням сучасних трубопровідних систем енергетики. Звіт про комплексну науково-дослідній роботі; керівник А. П. Меренков, відповідальний виконавець Н. Н. Новицький. Іркутськ: ІСЕМ СО РАН, 1993.
11. Сеннов Є. В., Каганович Б. М., Ощепкова Т. Б. Дослідження надійності при оцінці різних принципів побудови теплофікаційних систем//Методичні питання дослідження надійності великих систем енергетики.- 1975.
12. Розробити науково-методичні матеріали з розробки ТЗ на АСУТП систем теплопостачання. Науковий звіт. М .: ВНІПІЕнергопром, 1988.
. Про розробку основних положень щодо управління функціонуванням систем централізованого теплопостачання великих міст. Науковий звіт.-Новосибірськ: Сібтехенерго, 1986.
. Сідлер В. Г. Лінійна і нелінійна моделі для оцінювання параметрів гідравлічних мереж.- Іркутськ: ІСЕМ СО РАН, 1977.
. Сідлер В. Г., Новицький Н. М. Ідентифікація трубопровідних систем як гідравлічних ланцюгів із змінними параметрами.- Іркутськ: ІСЕМ СО РАН, 1984.
. Гарсія-Моліна Г., Ульман Дж., Уідом Дж. Системи баз даних. Повний курс: Пер. з англ.- М .: Вільямс, 2003. - тисячі вісімдесят вісім с.
. Дейт К. Введення з системи баз даних. Шосте видання. Київ: Діалектика, 1998. - 784 с.
. Мартін Дж. Організація баз даних в обчислювальних системах.- М .: Світ, 1980. - 662 с.
. Массел Л.В., Болдирєв Е.А., Горнів А.Ю. Інтеграція інформаційних технологій в системних дослідженнях енергетики.- Новосибірськ: Наука, 2003. - 320 с.
. Харріштон Д. Проектування об'єктно-орієнтованих баз даних: Пер. з англ.- М .: ДКМ Пресс, 2001. - 272 с.
. # justify gt; Додаток
Автоматичний режим
1.1 Звірка структуру БД
procedure TFDiplomADOX.BCheckStrucClick (Sender: TObject) ;, j, IZcount, Vcount, IZlevel: integer;, Vtext: string; (PM.Handle) ;. Cursor:=crHourGlass;.Items.BeginUpdate;.FullExpand;.FullExpand;:=TVIZ.Items.Count;:=TVV.Items.Count;:=IZcount- 1; (IZcount gt; 1) and (Vcount gt; 1) thenwhile i lt; gt; 1 doTVIZ.Items.Item [i] .Selected:=true;:=TVIZ.Items.Item [i] .Text;:=TVIZ.Items.Item [i] .Level;:=Vcount - 1; j lt; gt; 1 doTVV.Items.Item [j] .Selected:=true;:=TVV.Items.Item [j] .Text; (IZlevel=4) and (GetStrItemsName (IZtext)=Vtext) then.Items.Item [i].Delete ;; end; dec (j); end; dec (i); end; end;:=TVIZ.Items.Count;:=TVV.Items.Count;:=IZcount - 1; (IZcount gt; 1) and (Vcount gt; 1) thenwhile i lt; gt; 1 do.Items.Item [i] .Selected:=true;:=TVIZ.Items.Item [i] .Text;:=TVIZ.Items.Item [i] .Level;:=Vcount - 1; j lt; gt; 1 do.Items.Item [j] .Selected:=true;:=TVV.Items.Item [j] .Text; (IZlevel=3) and ((IZtext= Columns ) or (IZtext= Keys raquo ;)) and (not TVIZ.Items.Item [i] .HasChildren) then.Items.Item [i] .Delete ;; end; dec (j); end; dec (i); end; end;:=TVIZ.Items.Count;:=TVV...
