5.1 Разработка руководства системного программиста

Состав технических средств:

- каждый документ в АРМ имеет некоторый уникальный номер, по которому осуществляется доступ к странице. Например <Default1.aspx>, где 1 номер документа(ноды). Для каждого добавляемого на сайт документа надо указать флажок "опубликовано".

- при создании страницы в нижней части выводится рамочка “Прикрепления”. С помощью кнопки “Choose” выбирается файл, который необходимо закачать на сервер. Список расширений файлов, которые можно закачивать на сервер и некоторые другие настройки можно изменить.

- после выбора файла необходимо нажать на кнопку “Прикрепить”. После создания страницы файл будет доступен по адресу <App_Data\>. Соответственно, можно поставить ссылку на файл на нужной странице.

- визуальный редактор, используемый на сайте очень похож по оформлению на MS Word. Это очень упрощает создание страниц. При использовании визуального редактора(включено по-умолчанию) необходимо указывать формат ввода “Full HTML”. Иначе многие теги форматирования будут вырезаны.

Основное меню программы:

- для изменения страницы необходимо, находясь в режиме администрирования, нажать вкладку "Изменить" в верхней части страницы. Остальные действия аналогичны созданию страницы.

Регистрация пользователей:

- регистрация пользователей происходит после того как пользователь заполнит форму регистрации, на адреса электронной почты администраторов отправляются письма о подтверждении аккаунтов. Учетная запись пользователя является заблокированной до тех пор, пока администратор не активирует ее. Далее пользователь получает доступ к разделам сайта, которые заблокированы для анонимных пользователей.

5.2 Разработка руководства пользователя

Запуск программы:

- для запуска АРМ дважды щелкните мышкой на файл Default.aspx или перейдиете по ссылке сервера.

- после запуска появится основное окно АРМа (Приложение Б, рис. Б.6).

- для выбора таблицы нажмите кнопку с названием таблицы. Появится страничка с нужнай вам справочной или с таблицей ввода данных.

Основное меню программы:

- после введения информации и проведения нужных запросов, есть возможность нажать на кнопку Печать (Приложение Б, рис. Б.18) .

- изменения необходимо сохранять для каждого предприятия в списке. Сохранить изменения можно также с помощью кнопки Изменить.

- иереход с таблицы на таблицу осуществляется нажатием соответству-ющей кнопки таблицы или щелчком мыши на нужной таблице. Переход между полями одной таблицы осуществляется с помощью клавиш управления курсором или с помощью мышки.

Описание операций:

- после того, как отредактировали в выбранном файле, Вы можете посмотреть всю информацию в Excel. Если уже запущен Excel, то закройте его, потом нажмите кнопку в АРМе Печать. После нажатия этой кнопки запустится Excel и откроется документ, который можете распечатать. Если при открытии файла в Excel появляется окно Преобразование файла , то выберите в нем строчку Только Текст и нажмите ОК. Изменения в открытый документ вы вносить сможете. Если вы увидели, что информация введена неправильно, вернитесь в основное окно программы, отредактируйте данные в АРМе.

- в состав возможностей АРМ входит и просмотр стандартных форм и документов рекомендуемых сайтом государственной статистики. А также на странице находится авторизация и календарь для удобства работы с АРМ.

Рекомендуемые технические характеристики аппаратного обеспечения компьютера для функционирования программы:

- процессор с тактовой частотой 233 MHz и выше;

- объем оперативной памяти 128 Мб;

- свободное пространство на диске ? 300 Мб, в том числе для запуска операционной системы - 256 Мб, СУБД - 30 Мб и для развертывания приложения - 10 Мб.

Назначение и условия применения

- для работы с разработанным приложением необходимо, Установить Microsoft Visual Studio .NET версией не ниже 1.10, Access версией не ниже 11.56, Microsoft Windows. Данные программы занимают в памяти приблизительно 64Мб, и более в зависимости от количества подключенных пользователей.

Подготовка к работе:

- для начала работы с Системой в адресной строке интернет-браузера (Internet Explorer, Opera, Netscape Navigator и др.) нужно ввести адрес АРМ сайта. После этого Вам будет предложено ввести имя пользователя и пароль. Введите Ваши данные и нажмите кнопку Вход.

- при вводе верных имени и пароля Вы будете перенаправлены на главную страницу и получите доступ к панели управления системой.Панель управления обеспечивает доступ ко всем разделам, необходимым для управления и изменения АРМ.

- ввод и корректировка информации по показателям АРМ производится с помощью клавиатуры.

- управление выполнением задач реализовано с помощью стандартного интерфейса Windows-приложений: окон, экранных форм, строк меню, кнопок и не требует от пользователя специальных знаний в области информационных технологий.

- формирование списка пользователей АРМ, имеющих доступ к информации из базы данных; задание разрешений на редактирование ранее введенных данных за прошедшие отчетные периоды для этих пользователей;

- формирование сквозной по отчетности за требуемый период (год, месяц, квартал), включающей автоматическое вычисление итоговых данных ТЭР , суммирование показателей по одинаковым статьям учета;

- вывод на экран и на принтер данных АРМ, формируемых на основе ранее внесенных и вычисленных данных.

Функции задачи:

- работа с задачей предполагает наличие у пользователя базовых навыков работы в операционной системе Windows XP и с программой MS Access (ввод данных в экранные формы).

- инженер, работающий с задачей ТЭР, имеет доступ к данным и функциям системы с учетом статуса пользователя. Ограничения доступа к системе устанавливает администратор задачи. При запуске программы через ярлык на рабочем столе Windows необходимо ввести имя пользователя и пароль. При этом загружается основное окно программы.

Основное меню программы:

- основное меню программы содержит пункты: Файл, Записи, Справочники, Предприятия, Форма отчетности ТЭР.

- подпункт меню Сортировка по возрастанию позволяет сортировать записи (строки) выделенного или указанного поля (графы) в алфавитном порядке (по возрастанию для числовых граф). Подпункт меню Фильтр по выделенному позволяет фильтровать записи любого поля по выделенной записи или фрагменту записи. Подпункт меню Применить фильтр позволяет включать или отключать фильтр по выделенному (Приложение Б, рис. Б.16)..

- до заполнения форм статистической отчетности необходимо заполнить набор справочных таблиц _ справочников. Справочники - вспомогательный набор медленно изменяющейся информации (как правило, не зависящей от периода отчетности), необходимой для отображения и обработки оперативной информации (зависящей от периода отчетности). Справочники вызываются при выборе пунктов основного меню Предприятия, а также соответствующих подпунктов основного меню Справочники.

Экранная форма:

- вызываемая пунктом основного меню Предприятия, служит для заполнения, отображения и редактирования реквизитов филиалов предприятий.

- исполнитель (фамилия исполнителя, телефоны) - заполняется вручную;

- примечание (примечания для некоторой информации, относящейся к филиалу) - заполняется вручную.

Органы управления:

- экранная форма, вызываемая подпунктом меню Органы управления пункта меню Справочники, служит для заполнения, отображения и редактирования наименований органов управления и вышестоящих организаций (Приложение Б, рис. Б.16).

- поле Предприятие заполняется путем выбора из таблицы Предприятия , поля Месяц от, Месяц до - выбором из списка номеров месяцев, Квартал от, Квартал до - выбором из списка номеров кварталов, остальные поля заполняются вручную. Поля Месяц от, Месяц до, Квартал от, Квартал до, Год служат для задания периодов отчетности, данные по которым могут редактироваться пользователями филиалов.

АРМ позволяет заносить новые (редактировать существующие) данные формы 12-тэк для предприятий, выполнять автоматическое вычисление итоговых показателей в целом.

Для редактирования числовых данных формы 12-тэк нужно выбрать пункт меню РасходТЭР, в появившейся экранной форме задать отчетный период (номер месяца, год), наименование отчитывающейся организации (выбором из списка). Затем редактируются числовые данные экранной формы на вкладке Раздел I.

До заполнения (вычисления) данных раздела II формы ЦПЭ необходимо заполнить (либо убедиться в наличии соответствующих данных) экранную форму Коэффициенты.Форма отображает значения коэффициентов 12-тэк для каждого предприятия (филиала) и периода отчетности (год, месяц). Данная информация может заноситься как на АРМ, так и на АРМ филиалов. (Приложение Б, рис. Б.16). При работе с формой «Коэффициенты 12-тэк» задаются значения полей «Месяц», «Год»; «Предприятие» - выбором из списка. При ошибочном (повторном) вводе данных для одинаковых предприятий (филиалов) за один и тот же отчетный период появляется предупреждающее сообщение: «Данные для такого предприятия уже заданы», и ошибочно введенные данные не сохраняются.

Заполнение раздела II формы 12-тэк происходит автоматически при выборе вкладки Раздел II и нажатии кнопки Вычислить. При отсутствии значений коэффициентов 12-тэк для выбранного предприятия (филиала) и периода отчетности (год, месяц) появляется предупреждающее сообщение: «Нет значений К1, К2, К3, К4 за этот период для заданного предприятия», и заполнение раздела II не происходит.

Предварительный просмотр:

- для предварительного просмотра формы перед печатью используется кнопка Отчет.

- при работе с экранной формой сначала заполняются поля "Месяц" (выбирается номер месяца), "Год", "Наименование предприятия" (Приложение Б, рис. Б.16). Поле "Наименование предприятия" заполняется выбором из списка, вызываемого при щелчке по кнопке в этом поле. При отсутствии данных в одном из полей "Месяц", "Год", "Наименование предприятия" дальнейшая работа с формой невозможна и выдается предупреждающее сообщение о том, что не задан месяц, год или наименование предприятия.

- кнопка Печать служит для вызова автоматически заполняемого шаблона MS Excel (xlt-файла), используемого для печати формы 12-тэк за заданный отчетный период для заданного филиала. В результате автоматически загружается приложение MS Excel и открывается файл отчета. При необходимости, полученный файл форматируется стандартными средствами MS Excel. Настройки печати и печать выполняются стандартными средствами MS Excel.

- пункт меню Сервис содержит 3 подпункта: Резервное копирование, Сжать базу данных, Восстановить базу данных. Подпункт меню Резервное копирование копирует базу данных в каталог App_Data. Подпункт меню Сжать базу данных уменьшает размер файла базы данных, который при работе постоянно увеличивается в размере. Подпункт меню Восстановить базу данных копирует базу данных из каталога App_Data и замещает текущую базу данных резервной копией.

Контекстное меню представляет собой панель инструментов, вызываемую при нажатии правой клавиши мыши. Контекстное меню описываемого приложения может содержать следующие команды:

Режим формы - отображение открытой экранной формы в виде карточки - видны поля (графы) только одной записи (строки);

Режим таблицы - отображение открытой экранной формы в виде таблицы - видны поля (графы) многих записей (строк);

Сортировка по возрастанию - отсортировать данные в таблице или экранной форме по активному полю в порядке возрастания (алфавитном порядке);

Сортировка по убыванию - отсортировать данные в таблице или экранной форме по активному полю в порядке убывания (обратном алфавитному порядке);

Фильтр по выделенному - отобразить только те данные, записи которых имеют в текущем поле выделенный фрагмент;

Применить фильтр - применение (отмена применения) фильтра.

Во избежание потери и повреждения баз данных задачи при аварийных ситуациях рекомендуется проводить резервное копирование и периодически сохранять базы данных (файлы с расширениями mdb) на гибких магнитных дисках, оптических дисках или в специально выделенной директории сетевого диска.

Аварийные ситуации:

- категорически запрещаются всевозможные действия с базами данных, кроме действий, описанных в данном Руководстве (в частности, запрещается корректировка баз данных из СУБД, из программы-оболочки ).

- пользователи задачи первоначально должны ознакомиться с настоящим Руководством пользователя, внимательно изучив те разделы, которые связаны с их непосредственной работой с задачей.

6. Верификация работы АРМ

Верификация АРМ состоит в проверке и доказательстве корректности разработанной программы по отношению к совокупности формальных утверждений, представленных в спецификации и полностью определяющей связь между входными и выходными данными этой программы. При этом отношения между переменными н входе и выходе программы анализируется не в виде значений, как при тестировании, а в виде описаний их свойств, проявляющихся при любых процессах обработок этих переменных контролируемой в программе (Приложение Б, рис. Б.16).Верификация программы в принципе исключает необходимость её тестирования и отладки, так как при этом на более высоком уровне понятий и описаний всех переменных, устанавливается корректность процессов, их обработка и преобразования.

Сущность АРМ представлена описаниями отношений между входными и выходными данными. Только при полной и точной формализации всех условий и связей между входными и результирующими данными появляется возможность их использования для автоматической верификации.

Метод индуктивных утверждений (Приложение Б, рис. Б.16):

- входные переменные не меняются в процессе исполнения программ;

- описываются состояния переменных в промежуточных точках;

- выходные переменные описываются с помощью отношениями между переменными после завершения программы.

Верификация состоит в последовательной демонстрации АРМ (Приложение Б, рис. Б.16), что из входных переменных и преобразований, выполненных на первом шаге следует истинность утверждения, сформированного в следующей промежуточной точке.

Для верификации программ используется три языка:

- язык записи текстов программ (Приложение А);

- язык формирования и доказательства корректности (Приложение Б, рис. Б.16).

Доказательство корректности имеет следующие преимущества:

- представляет собой чёткий формализованный процесс.

- требует анализа. Процесс доказательства корректности дает возможность рассматривать части программ, которое в противном случае анализируется лишь случайно.

- проясняет промежуточные результаты вычислений. Выписывании выражений заставляет программиста четко сформировать свои предположения о результатах вычислений в выбранных точках программы.

- выявляет зависимости. В процессе доказательства программ начинает понимать какие предположения о входных данных не явно испытывается в различных частях программы.

ЗАКЛЮЧЕНИЕ

В результате проведенного анализа существующих моделей интерфейсов и их реализаций для проектируемой информационной системы был выбран WEB-интерфейс, а в качестве средства реализации - сценарии ASP.NET. Это позволило организовать простое многопользовательское приложение для работы с данными формы государственной статистической отчетности 12-тэк через WEB-протоколы. Таким образом, это даёт возможность удаленной работы и работы с общим сервером для АРМ (Приложение Б, рис. Б.16).

Проектируемое АРМ стало универсальным средством, которое можно использовать практически в любом Web-браузере. В этом заключено преимущество приложения для Internet по сравнению с приложениями для настольных систем - существование общепринятого «языка общения», HTML кода. Для того, чтобы развернуть Web-приложение достаточно установить его на сервер, после чего приложение может быть доступно любому клиенту с установленным Web-браузером.

Выполненная работа позволила автоматизировать деятельность специалиста предприятия, ведущего отчетность по форме 12-тэк.

СПИСОК ЛИТЕРАТУРЫ

1. Информационные системы (Электронный ресурс): Свободная энциклопедия - тип доступа: http://wikipedia.org - дата доступа: 20.12.2009г.

2. Информационные системы (Электронный ресурс): Информационные системы - тип доступа: http://belstat.gov.by/ - дата доступа: 24.12.2009г.

3. Указания позаполнению формы государственной статистической отчетности 12-тэк «Отчет о расходе топливно-энергетических ресурсов», Постановление Национального статистического комитета Республики Беларусь.

4. Ю. Е. Купцевич, Альманах программиста том 2 ASP.NET .-СПб.: БХВ-Петербург, 2002. - 234 с.

5. Дж. Рейли, Создание приложений Microsoft ASP.NET - Спб.: «БХВ-Петербург», 2006. - С. 1024.

6. Майкл Грох, Microsoft Office Access 2007. Библия пользователя - Спб.: «БХВ-Петербург», 2006. - С. 465.

7. Роберт Э. Уолтерс, Майкл Коулс SQL Server 2008: ускоренный курс для профессионалов = Accelerated SQL Server 2008. - М.: «Вильямс», 2008. - С. 768. - ISBN 978-5-8459-1481-1

8. Технологии создания ифнормационных систем (Электронный ресурс): Российская независимая частная компания DataX/FLORIN - тип доступа: http://www.florin.ru/services/services_is.html -дата доуступа: 25.01.2009г.

9. «Интеллектуальные информационные системы в экономике», Романов В. П. Изд. Экзамен, 2003 г.

ПРИЛОЖЕНИЕ А

ИСХОДНЫЕ ТЕКСТЫ И ОТЛАДОЧНЫЕ ДАННЫЕ ASP.NET СИСТЕМЫ БАЗЫ АРМ

Приложение А.1

Исходный текст модуля «Default.aspx»

<%@ Page Language="C#" %>

//начало кода документа

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

// скрипт сервера

<script runat="server">

protected void SqlDataSource1_Selecting(object sender, SqlDataSourceSelectingEventArgs e)

{

}

</script>

//регистрация домена

<html xmlns="http://www.w3.org/1999/xhtml" >

<head id="Head1" runat="server">

//загаловок страницы АРМ

<title>Untitled Page</title>

//начало javascript

<script language="javascript" type="text/javascript">

<!--

<asp:LoginName ID="LoginName1" runat="server" />

&nbsp;<asp:LoginStatus ID="LoginStatus1" runat="server" />

<asp:LinkButton ID="LinkButton1" runat="server" PostBackUrl="~/Default18.aspx">Регистрация</asp:LinkButton>

<asp:Login ID="Login1" runat="server" EnableTheming="True" VisibleWhenLoggedIn="False">

</asp:Login>

//подключение-БД

<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:diplombdConnectionString3 %>"

DeleteCommand="DELETE FROM (РасходТЭР) WHERE (КодОТЭО) = ?" InsertCommand="INSERT INTO (РасходТЭР) ((КодОТЭО), (КодТЭР), (КодРесп), (Номерстроки), (КПТвсегоНГ), (КПТотходыНГ), (ТепловаяэнергияНГ), (Датаотчетности), (ЭЭНГ)) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?)" ProviderName="<%$ ConnectionStrings:diplombdConnectionString3.ProviderName %>"

SelectCommand="SELECT (КодОТЭО), (КодТЭР), (КодРесп), (Номерстроки), (КПТвсегоНГ), (КПТотходыНГ), (ТепловаяэнергияНГ), (Датаотчетности), (ЭЭНГ) FROM (РасходТЭР)"

UpdateCommand="UPDATE (РасходТЭР) SET (КодТЭР) = ?, (КодРесп) = ?, (Номерстроки) =?,(КПТвсегоНГ) = ?, (КПТотходыНГ) = ?, (ТепловаяэнергияНГ) = ?, (Датаотчетности) = ?, (ЭЭНГ) = ? WHERE (КодОТЭО) = ?">

<DeleteParameters>

//задание строк таблицы БД

<asp:Parameter Name="КодОТЭО" Type="Int32" />

</DeleteParameters>

<UpdateParameters>

<asp:Parameter Name="КодТЭР" Type="Int32" />

<asp:Parameter Name="КодРесп" Type="Int32" />

<asp:Parameter Name="Номерстроки" Type="Int32" />

<asp:Parameter Name="КПТвсегоНГ" Type="Int32" />

<asp:Parameter Name="КПТотходыНГ" Type="Int32" />

<asp:ParameterName="ТепловаяэнергияНГ" Type="Int32"/>

<asp:Parameter Name="Датаотчетности" Type="Int32" />

<asp:Parameter Name="ЭЭНГ" Type="Int32" />

<asp:Parameter Name="КодОТЭО" Type="Int32" />

</UpdateParameters>

<InsertParameters>

<asp:Parameter Name="КодОТЭО" Type="Int32" />

<asp:Parameter Name="КодТЭР" Type="Int32" />

<asp:Parameter Name="КодРесп" Type="Int32" />

<asp:Parameter Name="Номерстроки" Type="Int32" />

<asp:Parameter Name="КПТвсегоНГ" Type="Int32" />

<asp:Parameter Name="КПТотходыНГ" Type="Int32" />

<asp:ParameterName="ТепловаяэнергияНГ"Type="Int32" />

<asp:Parameter Name="Датаотчетности" Type="Int32" />

<asp:Parameter Name="ЭЭНГ" Type="Int32" />

</InsertParameters>

</asp:SqlDataSource>

//конец документа

Приложение А. 2

Исходный текст модуля web.config

//xml документ настройки работы сервера АРМ

<?xml version="1.0"?>

<!--

\Windows\Microsoft.Net\Framework\v2.x\Config

-->

<configuration>

<appSettings/>

<connectionStrings>

<add name="diplombdConnectionString"

\\путь к БД

connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;C:\Users\Icipher\Documents\VisualStudio 2005\WebSites\WebSite1\App_Data\diplombd.mdb&quot;"

providerName="System.Data.OleDb" />

//имя БД

<addname="diplombdConnectionString2" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;C:\Users\Icipher\Documents\VisualStudio 2005\WebSites\WebSite1\App_Data\diplombd.mdb&quot;"

providerName="System.Data.OleDb" />

<addname="diplombdConnectionString3" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;C:\Users\Icipher\Documents\VisualStudio 2005\WebSites\WebSite1\App_Data\diplombd.mdb&quot;"

providerName="System.Data.OleDb" />

</connectionStrings>

<!--

//генерация кода ошибки в АРМ

<customErrors mode="RemoteOnly" defaultRedirect="GenericErrorPage.htm">

<error statusCode="403" redirect="NoAccess.htm" />

<error statusCode="404" redirect="FileNotFound.htm" />

</customErrors>

-->

</system.web>

</configuration>

//Конец

Приложение А. 3

Исходный текст модуля VBScript.vbs

Dim oShell

Set oShell = CreateObject ("WSCript.shell")

//путь к загрузке модуля VBA

oShell.Run("""C:\Users\Icipher\Documents\Visual 2005\WebSites\WebSite1\diplombd.mdb""")

Set oShell = Nothing

Приложение А. 4

Исходный текст модуля VBS.vbs

Dim oShell1

Set oShell1 = CreateObject ("WSCript.shell")

//путь к загрузке

oShell1.Run("""C:\Users\Icipher\Documents\Visual 2005\WebSites\WebSite1\pl_12tek.doc""")

Set oShell1 = Nothing

Dim oShell2

Set oShell2 = CreateObject ("WSCript.shell")

//путь к загрузке

oShell2.Run("""C:\Users\Icipher\Documents\Visual 2005\WebSites\WebSite1\pt_12tek.doc""")

Set oShell2 = Nothing

Dim oShell3

Set oShell3 = CreateObject ("WSCript.shell")

//путь к загрузке

oShell3.Run("""C:\Users\Icipher\Documents\Visual 2005\WebSites\WebSite1\uk_12tek.doc""")

Set oShell3 = Nothing

Приложение А. 5

Исходный текст модуля ВставкаДанныхИзExcel.bas

Option Compare Database

Option Explicit

Private Sub ZapFromYach(XlWrksht As Object, row_end As Byte, col_end As Byte, rst As DAO.Recordset)

Dim i As Integer

Dim j As Integer

For i = 2 To row_end

rst.AddNew

For j = 0 To rst.Fields.Count - 1

rst.Fields(j) = XlWrksht.Cells(i, j + 1)

Next j

rst.Update

Next i

End Sub

Public Sub DataInsert(strTableName As String)

Dim xl As Object

Dim XlWrksht As Object

Dim row_end As Byte

Dim col_end As Byte

Dim dbs As DAO.Database

Dim rst As DAO.Recordset

Dim i As Byte

Dim j As Byte

//путь к загрузке Excel

GetExcel (path & "Печать.xls")

Set xl = GetObject(, "Excel.Application")

Set XlWrksht = xl.ActiveWorkbook.Worksheets[1]

XlWrksht.Activate

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset("SELECT * FROM " & strTableName & ";")

row_end = 4

col_end = 5

Call ZapFromYach(XlWrksht, row_end, row_end, rst)

rst.Close

dbs.Close

End Sub

Приложение А. 6

Исходный текст модуля ГлобальныеПеременныеИКонстанты.bas

Option Compare Database

Option Explicit

//путь к загрузке БД

Public Const path = "E:\diplombd\"

Public CurYear As Integer

Public CurQuart As Integer

Public gN As Long

Public CurQ As Byte

Приложение А. 7

Исходный текст модуля ПечатьФормы12тэk.bas

Option Compare Database

Option Explicit

Private Sub AttachTer_dat(ByRef dbs As DAO.Database, wrkJet As DAO.Workspace)

On Error Resume Next

Set wrkJet = DBEngine.CreateWorkspace("f2terprint", "admin", "")

//путь к загрузке БД

Set dbs = wrkJet.OpenDatabase(path & "diplombd.mdb")

End Sub

Private Sub ZapYach(XlWrksht As Object, row_init As Byte, col_init As Byte, rst As DAO.Recordset)

Dim i As Integer

Dim j As Integer

i = row_init

With rst

If .RecordCount = 0 Then

For j = 0 To .Fields.Count - 1

XlWrksht.Cells(i, j + col_init) = ""

Next j

Exit Sub

End If

While Not .EOF

For j = 0 To .Fields.Count - 1

XlWrksht.Cells(i, j + col_init) = .Fields(j)

If XlWrksht.Cells(i, j + col_init) = "0" Then _

XlWrksht.Cells(i, j + col_init) = ""

Next j

i = i + 1

.MoveNext

Wend

End With

End Sub

Public Sub printForm2ter(lngCodePredpr As Long, strPredpr As String, intGog As Integer)

Dim xl As Object

Dim XlWrksht As Object

Dim row_init As Byte

Dim col_init As Byte

Dim dbs As DAO.Database

Dim rst As DAO.Recordset

Dim i As Byte

Dim j As Byte

GetExcel (path & "Печать.xlt")

Set xl = GetObject(, "Excel.Application")

Set XlWrksht = xl.ActiveWorkbook.Worksheets[1]

XlWrksht.Activate

Set dbs = CurrentDb

rst.Close

XlWrksht.Cells(17, 9) = intGog

'With rst

//задание ячеек таблиц

'XlWrksht.Cells(28, 9) = .Fields(0)

'XlWrksht.Cells(32, 9) = .Fields[3]

'End With

'rst.Close

row_init = 46

col_init = 2

Call ZapYach(XlWrksht, row_init, col_init, rst)

rst.Close

dbs.Close

End Sub

//конец кода

ПРИЛОЖЕНИЕ Б.

ИНТЕРФЕЙС СУБД MS Access, шаблон Excel (с модулем VBA), ASP.NET-СИСТЕМЫ БД АРМ

Рисунок Б.1 - Интерфейс АРМ схема данных СУБД Access



Рисунок Б.2 -шаблон Excel часть 1

Рисунок Б.3 - шаблон Excel часть 2



Рисунок Б.4 - таблица Предприятия

Рисунок Б.5 - форма отчета 12-тэк через Access



Рисунок Б.6 - Интерфейс авторизации пользователя АРМ

Рисунок Б.7 - Интерфейс авторизированного пользователя АРМ.



Рисунок Б.8 - Интерфейс работы с таблицей Расход ТЭР АРМ

Рисунок Б.9 - Интерфейс работы с запросом талицы Расход ТЭР АРМ



Рисунок Б.10 - Интерфейс регистрации нового пользователя АРМ

Рисунок Б.11- Интерфейс форума АРМ , созданного для общения удаленных пользователей



Рисунок Б.12 - редактирование CSS стилей АРМ

Рисунок Б.13 -редактирование файла (.aspx)



Рисунок Б.14 -визуальное редактирование настроек сервера АРМ

Рисунок Б.15 -размещение файлов АРМ в директории сервера MS IIS



Рисунок Б.16 - Интерфейс таблицы ПОЭЗ

Рисунок Б.17 - Интерфейс таблицы ПЭ



Рисунок Б.18 - Интерфейс таблицы Органы управления ВО

Рисунок Б.20 - Интерфейс таблицы Коэффициенты 12-тэк



Рисунок Б.24 - Интерфейс таблицы Предприятия

Размещено на Allbest.ru