БазаДанныхПАО (делаем сами)

[drPat]

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

Каждая графа добавляется путем двойного нажатия на левую клавишу мыши, перетаскивание осуществляется как обычно в винде (драг-энд-дроп так сказать...). Так же поставим сортировку названий отделений и включим условие на отбор: активность должна быть равна 1, чтобы не актуальные отделения не маячили лишний раз перед глазами. Запрос сохраним с названием qDep и поставим его в качестве источника данных в свойствах поля в форме:

Теперь надо сделать нечто подобное для врачей, но с учетом того, что врачи должны появляться только того отделения, которое уже выбрано. Для этого мы снова создадим запрос, похожий на qDocDep и поместим в него более подробную информацию о врачах, а не об отделениях. Далее будем поступать так же, как поступали с поиском больниц и отделений в городе и больнице соответственно, т.е. источник данных пропишем программно. Текст программы:
Private Sub tDoc_Enter()

Dim A As String

A = Me.tDep.Value

Me.tDoc.RowSource = "SELECT DISTINCT tDoc.key, tDoc.fam, tDoc.imya FROM tDoc LEFT JOIN tDocDep ON tDoc.key=tDocDep.tDoc WHERE tDoc.act = 1 AND tDocDep.tDep = " & A & ";"

End Sub



файл db2.mdb

[drPat]

Далее создадим в форме перечень врачей-патологоанатомов и лаборантов, проводивших исследование. Для этого в свойствах "источник записи" везде, где фигурируют врачи мы введем текст №1, а лаборанты - №2.
№1 SELECT tSotr.key, tSotr.fam, tSotr.imya FROM tSotr WHERE tSotr.act=1 AND tSotr.dol="в";
№2 SELECT tSotr.key, tSotr.fam, tSotr.imya FROM tSotr WHERE tSotr.act=1 AND tSotr.dol="л";
Как видите, изменилась только буква "в" на "л", т.е. мы в первом случае включили только врачей, во втором - только лаборантов.

То же самое необходимо повторить во всех остальных местах.
Мы уже сделали для удобства, если помните, одну штучку: при попадании на поле дата ответа, автоматически появляется сегодняшний день. Так вот, предлагаю сделать еще одну полезную штучку. По моему личному опыту у людей, заполняющих формы, обычно возникает ряд проблем с выставлением заглавных букв и нужного количества пробелов. Все бы ничего, но когда это дело касается фамилии, имени и отчества, то на печатных заключениях не очень красиво выглядит, когда фамилия с большой буквы, а имя с маленькой и т.д. Для устранения этих трудностей, я предлагаю следующий скрипт (т.е. маленькую программу). Естественно, что совсем не обязательно ее ставить, но в выкладваемых файлах она есть.
Private Sub fio_Exit(Cancel As Integer)
Dim A, Afam, Aimya, Aotch As String
Dim B As Integer
Dim C As Integer
Me.fio.SetFocus
A = Me.fio.Text
A = Trim(A)
B = InStr(1, A, ".")
Do While B > 0
A = Left(A, B - 1) & " " & Mid(A, B + 1)
B = InStr(1, A, ".")
Loop
B = InStr(1, A, ",")
Do While B > 0
A = Left(A, B - 1) & " " & Mid(A, B + 1)
B = InStr(1, A, ",")
Loop
B = InStr(1, A, " ")
If B > 0 Then
Afam = UCase(Left(A, 1)) & LCase(Mid(A, 2, B - 2))
A = Mid(A, B + 1)
A = Trim(A)
C = InStr(1, A, " ")
If C > 0 Then
Aimya = Mid(A, 1, C - 1)
Aotch = Mid(A, C + 1)
Aotch = Trim(Aotch)
Aotch = UCase(Left(Aotch, 1)) & LCase(Mid(Aotch, 2))
Else
Aimya = Left(A, 1) & Mid(A, 2)
End If
Aimya = Trim(Aimya)
Aimya = UCase(Left(Aimya, 1)) & LCase(Mid(Aimya, 2))
A = Afam & " " & Aimya & " " & Aotch
Else
A = UCase(Left(A, 1)) & LCase(Mid(A, 2))
End If
Me.fio.SetFocus
Forms!tBiopsy.fio.Text = A
Me.pol.SetFocus
End Sub
Хотел добавить пояснения, но они превратились в абракадабру, поэтому читайте их в самом файле:
файл

[drPat]

Следующее, что я бы хотел сделать в этой форме - это поработать с двумя надписями, те самые, что мы поставили в правом верхнем углу: "СРОЧНОЕ ИССЛЕДОВАНИЕ" и "ЗАКЛЮЧЕНИЕ ОТСУТСТВУЕТ". Итак, эти надписи должны отражать состояния тех или иных полей. Давайте надписи "СРОЧНОЕ ИССЛЕДОВАНИЕ" привяжем изменение поля cito, т.е. того, в котором пишется заключение по срочному исследованию, а по умолчанию стоит надпись: исследование не проводилось. Нажимаем правую клавишу мыши на форме, выбираем обработка событий -> программы, но в качестве свойства формы (опять же в правом верхнем углу) выбираем не Form_Load, а Current, т.е. событие будет происходить при переходе от записи к записи. Далее в свойствах надписи СРОЧНОЕ ИССЛЕДОВАНИЕ, находим его название (так получилось, что у меня это "надпись 63") и в редакторе бейсика находим это поле и отмечаем свойство Visible: False, т.е. делаем его по умолчанию невидимым:

а далее, в тексте программы пишем:
Me.Надпись63.Visible = False
If Me.cito.Value <> "исследование не проводилось" Then
Me.Надпись63.Visible = True
End If
, - т.е. после изменения перехода по записям, надпись будет становиться невидимой, но тут же будет проверяться поле cito и если в нем информация, отличная от выставленного по умолчанию "исследование не проводилось", то надпись будет становиться видимой.
То же самое, но при обратных условиях делаем с надписью "ЗАКЛЮЧЕНИЕ ОТСУТСТВУЕТ": по умолчанию оно видимое, но при перемещении по записям должна проводиться проверка, есть ли какая информация в поле zacl и если да, то надпись становится невидимой.
Это совершенно маленькие изменения, но, опять же, как показывает опыт - существенны в ежедневной текучке и много облегчают работу. Более того, аналогичным образом управлять кнопками (например скрывать какие-либо из них, если то или иное событие не произошло) или другими надписями. Если у кого возникнут свежие мысли (на сегодняшний день мое наблюдение пока не нашло еще каких-либо интересных идей для использования этих свойств), то милости просим.

[drPat]

Аналогичным образом создаем формы "Журнал консультаций", "Журнал иммуногистохимических исследований", "Журнал вскрытий"

[drPat]

Далее сделаем весьма полезную вещь. Создадим в формах журнала биопсий и журнала консультаций кнопку ИГХ со следующим кодом (для журнала биопсий):
Private Sub Кнопка73_Click()
If DCount("*", "tIgh", "[tBiopsy] =" & Me.[key]) > 0 Then
Select Case MsgBox("По данному материалу проведено иммуногистохимическое исследование. ДА - открыть существующую запись, НЕТ - создать новую запись.", vbYesNoCancel)
Case 6
Dim C As String
Dim B As String
C = Int(Me.key.Value)
B = "tBiopsy = " & C
DoCmd.OpenForm "tIgh", acNormal, "", B, acEdit, FindRecord
Exit Sub
Case 7
GoTo SELECT_FORM_INFO
Case 2
Exit Sub
Case Else
Exit Sub
End Select
Else
If (MsgBox("По данному материалу иммуногистохимического исследования не проводилось. Создать запись?", vbYesNo)) = 6 Then
GoTo SELECT_FORM_INFO
Else
Exit Sub
End If
End If
SELECT_FORM_INFO:
fio = Me.[fio].Value
pol = Me.[pol].Value
Age = Me.[voz].Value
Me.zaclD.SetFocus
DopData = "Клинический диагно: " & Me.[diag].Value & Chr(13) & Chr(10) & "Гистологическое заключение № " & Me.[nom1].Value & Me.[nom2].Value & "/" & Year(Me.[datIn].Value) & ": " & Chr(13) & Chr(10) & Me.[zacl].Value & Chr(13) & Chr(10) & "Врач-патологоанатом: " & Me.[zaclD].Text
biopsyKey = Me.key.Value

DoCmd.OpenForm "tIgh", acNormal, "", "", acAdd, acNormal

Forms![tIgh].info.Locked = False
Forms![tIgh].info.SetFocus
Forms![tIgh].info.Value = Forms![tIgh].info.Text & "Создано пользователем " & Environ$("Username") & " дата " & date & " в " & Time & "; " & Chr(13) & Chr(10)
Forms![tIgh].npp.SetFocus
Forms![tIgh].info.Locked = True

Dim A As Integer

sSQL = "SELECT Max(npp) FROM tIgh WHERE (Year(datIn)=" & Year(date) & ");"

If IsNull(CurrentProject.Connection.Execute(sSQL).Fie lds(0)) Then
A = 1
Else
A = CurrentProject.Connection.Execute(sSQL).Fields(0)
A = A + 1
End If

Forms![tIgh].[npp].SetFocus
Forms![tIgh].[npp].Text = A

Forms![tIgh].[mat].SetFocus
Forms![tIgh].[mat].Text = DopData
Forms![tIgh].[fio].SetFocus
Forms![tIgh].[fio].Text = fio
Forms![tIgh].[pol].Value = pol
Forms![tIgh].[voz].SetFocus
Forms![tIgh].[voz].Text = Age
Forms![tIgh].[tBiopsy].Locked = False
Forms![tIgh].[tBiopsy].Value = biopsyKey
Forms![tIgh].[npp].SetFocus
Forms![tIgh].[tBiopsy].Locked = True
End Sub

файлы

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

[drPat]

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

потом просто жмем далее

Внешний вид можете выбрать любой. Увидите вы в итоге нечто подобное

Далее работа с отчетом не отличается от таковой с формой, но есть ряд нюансов, на которые я бы хотел обратить внимание. Во-первых, полях, где у нас хранятся числа, а на экран выводятся фамилии или названия учреждений, нужно заменить на поля со списком и поставить в их свойства те же показатели, что и в форме, или (например, для поля лечащий врач: SELECT tDoc.key, tDoc.fam FROM tDoc; - просто запрос, извлекающий ключ и фамилию, а в настройках - два поля, длина первого 0 см)


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

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

[drPat]

Когда все отчеты созданы, добавим на формы tBiopsy, tCons, tIgh кнопки с печатью.

Верхняя печатает сразу и архивный вариант, и заключение, а нижние - соответственно надписям.
Текст программы для журнала биопсий (кнопка печать)
Dim A As Integer
Dim B As String
Me.inf.Locked = False
A = Int(Me.key.Value)
B = "key = " & A
DoCmd.OpenReport "rBiopsyArch", acViewNormal, "", B, acNormal
DoCmd.OpenReport "rBiopsy", acViewNormal, "", B, acNormal
Me.inf.SetFocus
Me.inf.Value = Me.inf.Text & "отправлено на печать:" & Environ$("Username") & " дата " & date & " в " & Time & "; " & Chr(13) & Chr(10)
Me.npp.SetFocus
Me.inf.Locked = True

Данный код открывает отчет и выводит его на печать на принтер, установленный по умолчанию. Строчка
DoCmd.OpenReport "rBiopsyArch", acViewNormal, "", B, acNormal
открывает отчет rBiopsyArch с условием В (key = me.key.value, т.е. запрос на выборку, где первичный ключ соответствует первичному ключу данной записи). Если в этой строчке acViewNormal изменить на acPreview, то будет выводиться на экран и только потом можно будет отправить на печать.
Текст программы для кнопки Печать формы Консультации (поле inf там отсутствует):
Dim A As Integer
Dim B As String
B = "key = " & A
DoCmd.OpenReport "rConsArch", acViewNormal, "", B, acNormal
DoCmd.OpenReport "rCons", acViewNormal, "", B, acNormal
Me.npp.SetFocus

файлы

[drPat]

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

Т.е. в данном случае добавлена сортировка по категории расхождения диагноза. Можно добавить еще сколько угодно уровней сортировки, например, по датам (за каждый месяц), по врачам (и тем, и другим) и проч. В этом случае каждая следующая группировка будет подгруппой в первой. Т.е. если мы сюда же добавим группировку по месяцам, то получим отчет, где каждое расхождение будет разбито на месяцы, а если наоборот - сначала сделаем группировку по месяцам, а затем по категориям, то увидим характер расхождений в каждом месяце.
Я создал следующие отчеты (и считаю на первых этапах этого достаточно, а уж кому нужно больше, или напишет, или разберется сам):
по аутопсиям: краткий отчет по аутопсиям (выведены итоговые значения по количеству вскрытий по отделениям), расширенный отчет по аутопсиям (выведены итоговые значения и детали по конкретным вскрытиям), отчет по расхождениям, отчет по работе врачей-патологоанатомов по секционному разделу.
по биопсиям и операционному материалу: отчет по отделениям (по количеству исследований, в т.ч. срочных, и кусочков), отчет по диагностическим и операционным исследованиям (т.е. количество исследований и кусочков диагностического и операционного материала), такой же по стационару и поликлинике, отчеты по объему выполненной работы врачей и лаборантов по биопсиям и по срочным исследованиям
кроме этого, сформирован отчет "Алфавитный журнал" для дублирования электронной базы.
Далее, эти отчеты необходимо как-то вызывать. Для этого мы создадим с помощью конструктора простую форму (не связанную ни с какой таблицей) и расположим на ней два поля (дата начала и дата окончания отчетного периода) и кнопки для каждого отчета.

При нажатии на кнопку будет вызываться соответствующий отчет с наложением условий по дате (так же как мы делали условие, выводя на печать результаты исследований)
Вот так, например, будет выглядеть код для открытия отчета по расхождениям диагнозов
Private Sub Кнопка10_Click()
Dim A, B, C As String
A = Me.Поле1.Value
B = Me.Поле5.Value
Mid$(A, 3) = "/"
Mid$(A, 6) = "/"
Mid$(B, 3) = "/"
Mid$(B, 6) = "/"
C = "date between #" & A & "# AND #" & B & "#"
DoCmd.OpenReport "rAut", acPreview, "", C, acNormal
End Sub
Все то же самое, только в дате вместо точек ставим слеши с помощью функции Mid$ и отчет не выводим сразу на печать, а только на просмотр.

[drPat]

Ну что ж... остался завершающий штрих. Т.е. завершающий для данного этапа - этапа создания базового приложения, от которого каждый желающий может потом плясать в любую сторону или инициировать ради своих нужд мою пляску.
Так вот, мы создали хранилище информации в виде таблиц, создали формы для удобного восприятия и внесения этой самой информации, также не забыли о возможности формирования альтернативного аналогового хранилища и безусловно создали кое-какие отчеты. Осталась малость - организовать навигацию между этими разделами. Сделать это проще простого, а как реализовать - дело каждого. Кому-то, быть может, захочется в каждой форме сделать кучу кнопок для перехода на другие. Я предлагаю создать стартовую форму, из которой будет доступ во все остальные. И так, с помощью конструктора форм создаем несвязанную ни с чем форму, содержащую лишь кнопки, которые позволяют перейти к "дочерним" формам.

далее делаем следующую вещь:

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

[drPat]

На этом этапе я считаю, что моя главная задача - привлечь Ваше внимание и задуматься о возможности перехода на работу с базой данных - выполнена.
Для тех, кто читал предыдущие посты и, может даже, пытался в них вникать ниже ссылки на файлы:
http://narod.ru/disk/20707112000/nowa.zip.html
Для тех, кто не читал или не хочет читать.... или даже не хочет вникать ссылка та же, НО
Но я дам пояснения.
1. В архиве два файла: db1.mdb и db2.mdb. Первый - основное хранилище информации, второй - оболочка для удобной работы. Т.е. если Вы надумали работать с этой базой, то первый файл должен быть расположен в самом, так сказать, защищенном месте. Т.е. точно не на диске С, а еще именно его надо копировать, что бы сохранить информацию. Второй файл - это файл, который запускают пользователи. Он лишь ссылается на первый и берет из него информацию. Поэтому, если Вы планируете работать на нескольких компьютерах, то первый файл должен находиться в расшариной папке на одном из наиболее работоспособных и надежных компьютеров, а второй файл нужно скопировать на все остальные компьютеры (все равно в какую папку, хоть на рабочий стол) и установить для него связь с таблицами первого файла (см. один из первых постов).
2. Использование именно этой базы данных вот в таком виде, в каком она есть, совершенно не защищает информацию от злоумышленников или просто от людей, которые стащили у Вас жесткий диск. Всю мыслимую защиту для данной баз данных можно организовать, ограничив доступ к расшаренной папке только конкретных пользователей по сети, а вход в винду организовать по паролю. Но все равно... степень защиты не велика. К сожалению, все встроенные средства Акцесс для обеспечения защиты взламываются довольно не хитро, если стоит такая задача. Если Вам хочется настоящей защиты, то придется использовать профессиональные продукты (кстати, клиентскую оболочку можно при этом полностью сохранить, а вместо первого файла использовать какую-либо другую СУБД - у меня, например, так и сделано: SQL server - является базой, а клиентское приложение выполнено в акцессе и, хотя, масса неприятных аспектов в этом смысле, но вопросы безопасности, по крайней мере от защиты от дурака, решены).
3. С чего начинать. Когда Вы откроете второй файл появится стартовая форма с кнопками, перенаправляющими Вас в тот или иной раздел. Так вот, начните с заполнения раздела сотрудники (хотя бы врачей и лаборантов) и разделов "больницы и отделения" и "клинические врачи". Во всех разделах пункт активность означает, что 0 - отделение (сотрудник) не работают, 1 - работают. В разделе "клинические врачи" есть кнопка "добавить отделение" это означает, что вы определите место работы именно этого врача, а внизу в таблице оно отобразится. После заполнения сотрудников, отделений и врачей можно будет приступить уже непосредственно к работе.
4. На каждой форме есть кнопки "печать", "архив", "заключение". Все они распечатывают копию либо в архив, либо на выдачу (а первая - сразу и туда, и туда) с помощью принтера, установленного по умолчанию.
5.Поиск осуществляется следующим образом: поставьте курсор в то поле, по которому собираетесь искать (т.е. щелкните, напр. в поле ФИО, мышью) -> нажмите сочетание клавиш ctrl+F (т.е. контрол и латинскую Ф) -> в открывшейся форме в поле образец введите искомое значение (напр., фамилию Петров), при этом обратите внимание!!!!!! на ниже расположенные атрибуты поиска (поиск лучше осуществлять по совпадению с любой частью поля, а не с полем целиком и лучше не ставить галочку напротив фразы "с учетом регистра") -> нажмите кнопку искать далее и смотрите, как будет меняться информация в форме.

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