4.5 Выходная документация
Выходной документацией моей программы являются отчеты, генерируемые средствами Microsoft Office Access. Отчеты можно получить на формах практически на всех формах данной информационной системы, так что перечислять их не имеет необходимости, т.к. все они будут представлены в приложении Б.
5 Заключение
Разработанная автоматизированная информационная система позволяет предоставлять следующие возможности:
-_информацию о врачах и пациентах,
- полную информацию о структуре регистратуры поликлиники,
- регистрацию пациентов на различные услуги и запись на талоны
- составление и печать отчетов,
- ввод, хранение и обработка информации.
6 Литература
6.1 ГОСТ 2.105-95. Единая система конструкторской документации. Общие требования к текстовым документам. - Введен в действие постановлением Госстандарта РФ от 8 августа 2008 г. N 426.
6.2 ГОСТ 2.301-68. Единая система конструкторской документации. Форматы. - Утв. Госстандартом СССР в декабре 2008 г.
6.3 Крёнке, Д.А., Теория и практика построения баз данных. 9-е изд. / Д.А. Крёнке – СПб.: Питер, 2005 – 859 с.: ил.
6.4 Маленко, Д.Ю., Новые возможности для разработчиков SQL Server / Д.Ю. Маленко – М.: СОЛОН-Пресс, 2006. – 208с.: ил.
6.5 Гурвиц, Г.А., Microsoft Access 2009. Разработка приложений на реальном примере / Г.А. Гурвиц – СПб.: БХВ-Петербург, 2007. – 672 с.: ил.
Приложение А
(Обязательное) Листинг программы
Option Compare Database
Private Sub Кнопка9_Click()
On Error GoTo Err_Кнопка9_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1060) & ChrW(95) & ChrW(1075) & ChrW(1088) & ChrW(1072) & ChrW(1092) & ChrW(1080) & ChrW(1082) & ChrW(1056) & ChrW(1072) & ChrW(1073) & ChrW(1086) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка9_Click:
Exit Sub
Err_Кнопка9_Click:
MsgBox Err.Description
Resume Exit_Кнопка9_Click
End Sub
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.GoToRecord , , acPrevious
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
Private Sub Кнопка13_Click()
On Error GoTo Err_Кнопка13_Click
DoCmd.GoToRecord , , acNext
Exit_Кнопка13_Click:
Exit Sub
Err_Кнопка13_Click:
MsgBox Err.Description
Resume Exit_Кнопка13_Click
End Sub
Private Sub Кнопка14_Click()
On Error GoTo Err_Кнопка14_Click
Dim stDocName As String
stDocName = ChrW(1052) & ChrW(95) & ChrW(1054) & ChrW(50)
DoCmd.RunMacro stDocName
Exit_Кнопка14_Click:
Exit Sub
Err_Кнопка14_Click:
MsgBox Err.Description
Resume Exit_Кнопка14_Click
End Sub
Private Sub Кнопка16_Click()
On Error GoTo Err_Кнопка16_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1060) & ChrW(95) & ChrW(1086) & ChrW(1092)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка16_Click:
Exit Sub
Err_Кнопка16_Click:
MsgBox Err.Description
Resume Exit_Кнопка16_Click
End Sub
Private Sub Кнопка18_Click()
On Error GoTo Err_Кнопка18_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1060) & ChrW(95) & ChrW(1055) & ChrW(1072) & ChrW(1094) & ChrW(1080) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1099)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка18_Click:
Exit Sub
Err_Кнопка18_Click:
MsgBox Err.Description
Resume Exit_Кнопка18_Click
End Sub
Приложение B
Рисунок 9 - отчет по графику работы
Рисунок 10 - отчет по записи на услуги
рисунок 11 - отчет по записям на талоны