Реферат Проект програмного забезпечення управління діяльністю станції швидкої допомоги

дина, что володіє базовими знаннями ПК: знає основи Windows XP, Вміє встановлюваті та запускаті програми на комп ютер.

Для роботи з ЦІМ програмне забезпечення, користувач нужно ознайомітіся з наведення нижчих Інструкцією.

. Загальні Відомості про програму.

Назва програми: програмне забезпечення «ЦШМД»

функціональне призначення: ведення центром швидкої допомоги обліку карток Хворов та звітів від бригад.

Програмне забезпечення, необхідне для Функціонування програми: ОС Windows, Access +2003 або вищє.

. Вхідні дані

Вхіднімі Даними є дані про Хворов (ПІБ, Дата народження, адреси, номер телефону, діагноз), дані про бригаду (Адреси, дата, година, № бригади), что вводити користувач.

Вихідні дані

. Віхіднімі Даними

Віхіднімі Даними є дані про Хворов (ПІБ, Дата народження, адреси, номер телефону, діагноз), дані про бригаду (Адреси, дата, година, № бригади), что віводяться з БД на екран.

4. Робота з програмою

Для того, щоб можна Було користуватись програмою, треба ее Встановити. Для цього скопіюємо ее на комп ютер. После запуску програми користувач винен чітко Дотримуватись інструкцій.

Щоб ее Відкрити, треба натіснуті 2 рази ліву кнопку на міші на файлі «ReportsInfo.mdb» у результате відкріється вікно з Головною формою.

Додаток Д - Текст програми

Для того щоб віконаті перевірку чі є Заповнення Деяк рядку можна скористати ЦІМ кодом:

(me.Поле_Імя.Value= ) Спочатку введіть ім'я .Undo

абоSub MyName_Change () (Len (Me.MyName.Text) gt; 0) Then.MyNameSecond.Locked=False.MyNameSecond.Locked=True.MyNameSecond.Text= IfSub

Форма: Compare Database

Private Sub ?????? 6_Click () Error GoTo Err _ ?????? 6_Click .GoToRecord ,, acNewRec

Exit _ ?????? 6_Click: Sub

Err _ ?????? 6_Click: Err.Description

Resume Exit _ ?????? 6_Click Sub

Форма 1: Compare Database

Private Sub ?????? 6_Click () Error GoTo Err _ ?????? 6_Click .Close

Exit _ ?????? 6_Click: Sub

Err _ ?????? 6_Click: Err.Description

ResumeExit _ ?????? 6_Click

End Sub

довідник: Compare DatabaseSub Form_Load () Sub

Private Sub ?????? 5_Click () Error GoTo Err _ ?????? 5_Click .GoToRecord ,, acNewRec

Exit _ ?????? 5_Click: Sub

Err _ ?????? 5_Click: Err.Description

Resume Exit _ ?????? 5_Click SubCompare Database

Private Sub ?????? 3_Click () Error GoTo Err _ ?????? 3_Click .Close

Exit _ ?????? 3_Click: Sub

Err _ ?????? 3_Click: Err.Description

Resume Exit _ ?????? 3_Click

End Sub

Довідник: Compare DatabaseSub Form_Load () Sub

Private Sub ?????? 9_Click () Error GoTo Err _ ?????? 9_Click .GoToRecord ,, acNewRec

Exit _ ?????? 9_Click: Sub

Err _ ?????? 9_Click: Err.Description

Resume Exit _ ?????? 9_Click SubCompare Database

Private Sub ?????? 13_Click () Error GoTo Err _ ?????? 13_Click .GoToRecord ,, acNewRec

Exit _ ?????? 13_Click: Sub

Err _ ?????? 13_Click: Err.Description

Resume Exit _ ?????? 13_Click Sub

Кнопка6:

Private Sub ?????? 6_Cl ick ()

On Error GoTo Err _ ?????? 6_Click .GoToRecord ,, acNewRec

Exit _ ?????? 6_Click: Sub

Err _ ?????? 6_Click: Err.Description

Resume Exit _ ?????? 6_Click

Кнопка 7:

Private Sub ?????? 7_Click () Error GoTo Err _ ?????? 7_Click .DoMenuItem acFormBar, acEditMenu, 8 ,, acMenuVer70.DoMenuItem acFormBar, acEditMenu, 6 ,, acMenuVer70

Exit _ ?????? 7_Click: Sub

Err _ ?????? 7_Click: Err.Description

Resume Exit _ ?????? 7_Click

End Sub

Кнопка 8: Su b ?????? 8_Click () Error GoTo Err _ ?????? 8_Click .Close

Exit _ ?????? 8_Click: Sub

Err _ ?????? 8_...