ustify"> Журнал вхідних документів за день: (Дата)
Вхідний номерОткудаТіп документа № документаДата документаНазваніе документаУстановленная дата ісполненіяІсполнітельДата виконання Рисунок Б.1 - Документ «Журнал вхідних документів за день»
Журнал вихідних документів за день: (Дата)
Вихідний номерДата отправленіяКуда (адреса, факс) СодержаниеИсполнительНаличие копііВід відправлення № входящійДата документа Рисунок Б.2 - Документ «Журнал вихідних документів за день»
Не виконані документи на дату: (Дата)
Встановлена ??дата виконання № Вход.Откуда прибув документТіп документаНомер документаДата прийняття документаКраткое зміст документаІсполнітельДата виконання Малюнок Б.3 - Документ «Не виконані документи на дату»
Екстрений документ
№ входящійОткудаТіп документаНомер документаДата документаНазваніе документаДата исполненияИсполнительПодпись Малюнок Б.4 - «Екстрений документ»
Додаток В
Схеми алгоритмів
Рисунок В.1 - Схема алгоритму програми «Автоматизація обігу документів у відділі документаційного забезпечення в державному закладі« Міська лікарня № 40 »
Додаток Г
Текст програми
Форма «Документ»
Option Compare DatabaseSub Кнопка34_Click () Error GoTo Err_Кнопка34_Click.GoToRecord,, acFirst_Кнопка34_Click: Sub_Кнопка34_Click: Err.DescriptionExit_Кнопка34_ClickSubSub Кнопка35_Click () Error GoTo Err_Кнопка35_Click.GoToRecord,, acLast_Кнопка35_Click: Sub_Кнопка35_Click: Err.DescriptionExit_Кнопка35_ClickSubSub Кнопка36_Click () Error GoTo Err_Кнопка36_Click.GoToRecord,, acPrevious_Кнопка36_Click:Sub_Кнопка36_Click:Err.DescriptionExit_Кнопка36_ClickSubSub Кнопка37_Click () Error GoTo Err_Кнопка37_Click.GoToRecord,, acNext_Кнопка37_Click: Sub_Кнопка37_Click: Err.DescriptionExit_Кнопка37_ClickSubSub Кнопка38_Click () Error GoTo Err_Кнопка38_Click.GoToRecord,, acNewRec_Кнопка38_Click:Sub_Кнопка38_Click:Err.DescriptionExit_Кнопка38_ClickSubSub Кнопка39_Click () Error GoTo Err_Кнопка39_Click.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70_Кнопка39_Click:Sub_Кнопка39_Click:Err.DescriptionExit_Кнопка39_ClickSubSub Кнопка40_Click () Error GoTo Err_Кнопка40_Click.Close_Кнопка40_Click:Sub_Кнопка40_Click:Err.DescriptionExit_Кнопка40_ClickSub
Форма «Виконуються»
Private Sub Form_Open (Cancel As Integer). Caption=Me.OpenArgsSub
Private Sub Просмотр_Click () IsNull ([вхідний документ]) Then «Необхідно ввести номер вхідного документа.»
DoCmd.GoToControl «вхідний документ». Visible=FalseIfSubSub подчиненная_форма_строевой_Enter ()
Me! [вхідний документ]=[стройової]! [вхідний документ]
End SubSub Кнопка100_Click () Error GoTo Err_Кнопка100_Click.Close_Кнопка100_Click:Sub_Кнопка100_Click:Err.DescriptionExit_Кнопка100_ClickSub
Форма «Вихідні» Compare DatabaseSub ...