Общенародная БД - Вет. Клиника

@VinniPuh · Регистрация: 27.03.2013

Студворк — интернет-сервис помощи студентам

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

БД в (mdb) 2000
С великим уважением ко всем желающим помочь!!!

@alvk · 04.08.2013, 12:38

Сообщение от inv.DS

Не по теме:

Я бы не стал на вашем месте пользоваться неизвестными браузерами, мало известной компании или группы разработчиков.

Не по теме:

Неизвестными вам браузерами я не должен пользоваться? С какого перепугу?

dev.Free · 04.08.2013, 18:41

alvk,

http://www.anti-malware.ru/blog/1/2509
http://gayevoy.wordpress.com/2... _security/

@alvk · 06.08.2013, 02:15

Кликните здесь для просмотра всего текста

Не по теме:

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

@murcha86 · 06.08.2013, 22:19

В ветклинике обычно отправляют делать рентген и анализы в человеческие ... т.е. распечатка-памятка владельцу что нужно сделать. Но это не обязательно.
Самое основное - это распечатка вет-карты. Владельцы переезжают на другие ПМЖ, карту с прививками/болезнями/лекарствами выписанными просят скинуть. Обязательно указание аллергенов (у животных бывают бурные реакции на консерванты прививок, да так что овчарка в чау-чау превращается от опухлостей ...).
Сейчас в ветклинике куда я хожу, весь учет ведется в excel-файлах, которые рассортированы в папке по алфавиту по фамилии хозяев ...
Либо как вариант(распечатка ж денег стоит) - формирование файла excel.

@VinniPuh · 07.08.2013, 15:50 **[ТС]**

inhouse - Сделал по присланному Вами образцу - Протокол УЗИ Самки и соответственно и Отчет для распечатки. Сейчас начал заниматься с - Договором на оказание ветеринарной помощи, - Сотрудниками, - Главным меню, да и Амбулаторный прием придется дорабатывать, нужны противопоказания (Аллергены), как любезно пояснили, с Вакцинами и Лекарствами только некоторое время спустя начну разбираться. Возможно это займет не меньше 1-2 недели. Если есть возможность, протестируйте, то что есть, может ошибочки какие выявите в тех же протоколах УЗИ (Очень много полей и возможны недоработки или повторы).

@Волшебник 307 · 08.08.2013, 05:07

kmv-puh,

Таблица и форма Организации.
-----------------------------------------------
Зачем в таблице эти поля - Вид Тел1,2,3,4.?

Может поля Тел№1,2,3,4 переименовать.
Тел основной, Тел дополнительный,
Тел дежурный, Тел сотовый.
--------------------------------
На форме сделать не поля, а надписи -
Основной, Дополнительный,
Дежурный, Сотовый.
------------------------------------------------
Не понял откуда открываются Формы Узи самец\самка.

По Узи вообще не понятная картина.

Самца и самку я бы разделял только по тем показателям,
по которым есть расхождения (простата\матка).

В связи с этим имел бы 1 форму Узи.
Добавил бы 1 вкладку.
И от пола показывал бы вкладку простаты\матки.
-------------------------------------------------

@Андрэич · 08.08.2013, 05:59

Сообщение от Волшебник 307

...поля Тел№1,2,3,4 переименовать.
Тел основной, Тел дополнительный,
Тел дежурный, Тел сотовый.
...
Основной, Дополнительный,
Дежурный, Сотовый.

kmv-puh, я в основном делаю одну таблу: Контакты. В ней текстовое поле (номер телеф, эл адрес и т.д.), второе поле - собственно Тип контакта (к справочнику типов): телеф рабочий; сотовый (хотя и это уже лишнее: сотовый-стационарный можно получать запросами); эл почта; аська и т.д. и т.п...

@VinniPuh · 08.08.2013, 19:44 **[ТС]**

Сообщение от Волшебник 307

Может поля Тел№1,2,3,4 переименовать.

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

Сообщение от Волшебник 307

откуда открываются Формы Узи самец\самка.

Пока ни откуда, только из окна БД, потом планирую сделать в форме - Амбулаторный прием, открываться будет, та или иная форма, в зависимости Самец или Самка.

Сообщение от Волшебник 307

В связи с этим имел бы 1 форму Узи.
Добавил бы 1 вкладку.
И от пола показывал бы вкладку простаты\матки.

Возможно вы и правы, но вдруг врач после праздников начнет по ошибке самцу матку описывать

Да и как быть с отчетом, по бланкам Протоколов УЗИ они различаются именно по - простата/матка, а не в одном бланке.

Сообщение от Андрэич

я в основном делаю одну таблу: Контакты.

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

Спасибо всем за участие!!!

@VinniPuh · 10.08.2013, 19:19 **[ТС]**

Всем доброго вечера!
Есть форма - #ГлавноеМеню, в ней поле со списком - КодОрганизацииГМ (Типа хоца при добавлении новой записи во всех формах - Значение по умолчанию).
Прописал к примеру в форме - АмбулаторныйПрием в - Значение по умолчанию -
=[Forms]![#ГлавноеМеню]![КодОрганизацииГМ]
это работает только если - форма - #ГлавноеМеню - Открыта или свернута. (Запись думаю будет только одна - наподобии - Настроек БД)
Вопрос, а если в процессе работы нечаянно закрыл форму - #ГлавноеМеню, как тогда брать это значение при создании новых записей?
Может есть какое решение? У меня чёй та заклинило

, ни как не соображу, помогите.

mobile · 10.08.2013, 20:21

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

БД не смотрел

@VinniPuh · 10.08.2013, 20:45 **[ТС]**

Сообщение от mobile

...В этом случае в публичной переменной будет последнее выбранное значение из поля со списком. ...

mobile - Во-во-во, это самое то. Вы же знаете, что в VBA, я "0", ну или "+1 из 100".

А как это будет выглядеть на примерчике?

mobile · 10.08.2013, 21:28

1. В форме #ГлавноеМеню, в процедуре на событии После обновления КодОрганизацииГМ определяется переменная PublicKodOrg.
2. В форме АмбулаторныйПрием значением по умолчанию поля КодОргАП записана функция FuncKodOrg().
3. В модуле Common определена публичная переменная PublicKodOrg и функция FuncKodOrg ее использующая. В функции проверяется значение переменной и, если оно пусто, в нее записывается значение поля КодОргАП, соответствующее максимальному значению счетчика (Код_АП) из таблицы АмбулаторныйПрием.

@VinniPuh · 10.08.2013, 21:43 **[ТС]**

mobile - Я еще не совсем въех, Разобрался, но с моими скромными познаниями в VBA, как мне кажется это будет работать только в форме - АмбулаторныйПрием, а в других формах, возможно и еще даже не созданных, а только задуманных для создания позжее, не сработает, или я не прав, и я чего то не допонимаю?

mobile · 10.08.2013, 21:50

Если функцию применять для назначения умолчательного значения поля КодОргАП, то абсолютно все равно где ее применять, в какой форме. Но для других целей она не применима.

@VinniPuh · 10.08.2013, 21:56 **[ТС]**

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

mobile · 10.08.2013, 22:08

Сообщение от kmv-puh

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

Если я правильно понял, то не исключена ситуация, когда умолчательное значение может определяться из другой формы, не из #ГлавноеМеню. Это просто. В эту другую форму, в соотвествующее поле добавляется процедура, аналогичная процедуре после обновления поля КодОрганизацииГМ в форме #ГлавноеМеню

Visual Basic
1
2
3
Private Sub ДругоеПолеКодОрганизацииГМ_AfterUpdate()
    PublicKodOrg = Me.ДругоеПолеКодОрганизацииГМ
End Sub

@VinniPuh · 10.08.2013, 22:25 **[ТС]**

mobile - наверное я опять туплю.

аю и в поле со списком этой открытой/НЕОТКРЫТОЙ формы, где указан код организации (В КАЖДОЙ ФОРМЕ КОД МОЖЕТ БЫТЬ РАЗНЫМ), автоматом проставится код той орг., которая уже есть в Форме/Таблице - #ГлавноеМеню, не смотря на то, открыта эта форма или нет
Или опять не сильно понятно выражаюсь? УФФФ

mobile · 10.08.2013, 22:30

Автоматом проставится последний нажатый код из формы #ГлавноеМеню. Или, если эта вообще не вызывалась в сеансе, то код соответствующий максимальному значению счетчика из таблицы АмбулаторныйПрием

@VinniPuh · 11.08.2013, 11:26 **[ТС]**

Сообщение от mobile

Автоматом проставится последний нажатый код из формы #ГлавноеМеню,,,

Только это +++

Правда не - ИЗ формы, а - В форме #ГлавноеМеню
А может есть что попроще, просто выражение какое???

Добавлено через 8 часов 31 минуту

Сообщение от mobile

...В модуле Common определена публичная переменная PublicKodOrg и функция FuncKodOrg ее использующая....

Ура , разобрался

mobile - Огромное спасибо

, не сразу увидел про - FuncKodOrg . вот и тормозил

Добавлено через 11 минут
Правда изменил имена таблицы и поля получилось так -

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function FuncKodOrg()
'Если определена публичная переменная PublicKodOrg, то функции присваивается ее значение.
'Если не определена, то находится максимальное значение счетчика (Код_АП) таблицы АмбулаторныйПрием
'и функции присваивается значение поля КодОргАП, соответствующее максимуму Код_АП
    Dim s
    If Len(PublicKodOrg & "") = 0 Then
        s = "select КодОрганизацииГМ from #ГлавноеМеню " _
        & " where КодОрганизацииГМ=(select max(КодОрганизацииГМ) from #ГлавноеМеню)"
        PublicKodOrg = CurrentProject.Connection.Execute(s).Fields(0)
    End If
    FuncKodOrg = PublicKodOrg
Debug.Print FuncKodOrg
End Function

Супер

Добавлено через 1 час 39 минут
mobile - Пришлось убрать решоточку из имени таблички (from #ГлавноеМеню) , Аксик ругался, а ПОЧЕМУ?

Добавлено через 2 часа 30 минут
inhouse_ - При случае уточните у друзей - ветеринаров, как правильно называются их должности, есть ли у них уборщицы или мед. сестры / Мед. братья, Ренгелологи, УЗИологи?

mobile · 11.08.2013, 13:27

Символ решетки не относится к базовому набору символов, разрешенных для имен в Jet SQL. В базовый набор входят все буквы и символ подчеркивания. Имена с другими разрешенными символами должны заключаться в прямые скобки: [#ГлавноеМеню]

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

dev.Free Заблокирован
	04.08.2013, 18:41
	alvk, http://www.anti-malware.ru/blog/1/2509 http://gayevoy.wordpress.com/2... _security/ 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	06.08.2013, 02:15
	Кликните здесь для просмотра всего текста Не по теме: Интернет эксплорер от майкрософт есть в обоих ссылках и хватит уже флуда от незнания предметной области. 0

@murcha86 126 / 44 / 1 Регистрация: 04.11.2011 Сообщений: 241
	06.08.2013, 22:19
	В ветклинике обычно отправляют делать рентген и анализы в человеческие ... т.е. распечатка-памятка владельцу что нужно сделать. Но это не обязательно. Самое основное - это распечатка вет-карты. Владельцы переезжают на другие ПМЖ, карту с прививками/болезнями/лекарствами выписанными просят скинуть. Обязательно указание аллергенов (у животных бывают бурные реакции на консерванты прививок, да так что овчарка в чау-чау превращается от опухлостей ...). Сейчас в ветклинике куда я хожу, весь учет ведется в excel-файлах, которые рассортированы в папке по алфавиту по фамилии хозяев ... Либо как вариант(распечатка ж денег стоит) - формирование файла excel. 1

@Волшебник 307 1396 / 331 / 45 Регистрация: 16.04.2013 Сообщений: 786 Записей в блоге: 2
	08.08.2013, 05:07
	kmv-puh, Таблица и форма Организации. ----------------------------------------------- Зачем в таблице эти поля - Вид Тел1,2,3,4.? Может поля Тел№1,2,3,4 переименовать. Тел основной, Тел дополнительный, Тел дежурный, Тел сотовый. -------------------------------- На форме сделать не поля, а надписи - Основной, Дополнительный, Дежурный, Сотовый. ------------------------------------------------ Не понял откуда открываются Формы Узи самец\самка. По Узи вообще не понятная картина. Самца и самку я бы разделял только по тем показателям, по которым есть расхождения (простата\матка). В связи с этим имел бы 1 форму Узи. Добавил бы 1 вкладку. И от пола показывал бы вкладку простаты\матки. ------------------------------------------------- Изображения 1

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	10.08.2013, 20:21
	Есть традиционное решение - присваивать публичной переменной выбранное значение из списка. В дальнейшем использовать не ссылку на поле формы, а публичную перемнную. В этом случае в публичной переменной будет последнее выбранное значение из поля со списком. Но что делать, если форма на основе поля которой заполняется публичная переменная, вообще не вызывалась в сеансе? В этом случае можно проверять значение ПП и если оно пустое, заполнять его по некоторому правилу. Например, брать последнее по дате значение из таблицы. БД не смотрел 1

@VinniPuh 9147 / 6176 / 594 Регистрация: 27.03.2013 Сообщений: 20,047
	10.08.2013, 21:43 [ТС]
	mobile - Я еще не совсем въех, Разобрался, но с моими скромными познаниями в VBA, как мне кажется это будет работать только в форме - АмбулаторныйПрием, а в других формах, возможно и еще даже не созданных, а только задуманных для создания позжее, не сработает, или я не прав, и я чего то не допонимаю? 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	10.08.2013, 21:50
	Если функцию применять для назначения умолчательного значения поля КодОргАП, то абсолютно все равно где ее применять, в какой форме. Но для других целей она не применима. 1

@VinniPuh 9147 / 6176 / 594 Регистрация: 27.03.2013 Сообщений: 20,047
	10.08.2013, 21:56 [ТС]
	mobile - Может я не так как то перевыразился, но имелось в виду поле - КодОрганизацииГМ - по умолчанию в форме - #ГлавноеМеню, вот чё я и засомневался то. 0

@VinniPuh 9147 / 6176 / 594 Регистрация: 27.03.2013 Сообщений: 20,047
	10.08.2013, 22:25 [ТС]
	mobile - наверное я опять туплю.аю и в поле со списком этой открытой/НЕОТКРЫТОЙ формы, где указан код организации (В КАЖДОЙ ФОРМЕ КОД МОЖЕТ БЫТЬ РАЗНЫМ), автоматом проставится код той орг., которая уже есть в Форме/Таблице - #ГлавноеМеню, не смотря на то, открыта эта форма или нет Или опять не сильно понятно выражаюсь? УФФФ 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	10.08.2013, 22:30
	Автоматом проставится последний нажатый код из формы #ГлавноеМеню. Или, если эта вообще не вызывалась в сеансе, то код соответствующий максимальному значению счетчика из таблицы АмбулаторныйПрием 1

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	11.08.2013, 13:27
	Символ решетки не относится к базовому набору символов, разрешенных для имен в Jet SQL. В базовый набор входят все буквы и символ подчеркивания. Имена с другими разрешенными символами должны заключаться в прямые скобки: [#ГлавноеМеню] 1